From 8e7ba500330f81d187bb14284ba90144e32195f0 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Sat, 7 Jun 2025 11:12:16 +0200
Subject: Refactor and export symbols

---
 geoip/tests.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'geoip/tests.lisp')

diff --git a/geoip/tests.lisp b/geoip/tests.lisp
index 3aeebf7..c1d7d40 100644
--- a/geoip/tests.lisp
+++ b/geoip/tests.lisp
@@ -12,3 +12,9 @@
       (is (= 279 (geoip::mread-unsigned r 4)))
       (is (equal "~ßÜ" (geoip::mread-uft8 r 5))))))
 
+(test selector
+  (let ((data '((a . b) (q . 6) (l (:p . q) (r . s)))))
+    (is (eq (get-in data 'a) 'b))
+    (is (eq (get-in data 'q) 6))
+    (is (eq (get-in data 'l 'r) 's))
+    (is (eq (get-in data 'l :p) 'q))))
-- 
cgit v1.2.3