diff options
Diffstat (limited to 'geoip/tests.lisp')
| -rw-r--r-- | geoip/tests.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
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)))) |