diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2025-06-07 11:12:16 +0200 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2025-06-07 11:17:52 +0200 |
| commit | 8e7ba500330f81d187bb14284ba90144e32195f0 (patch) | |
| tree | e802e3ab113468e097b505a61c4eca821c27321d /geoip/tests.lisp | |
| parent | 17f03d92e1e01c381e0f6f4421f653b67ab0819a (diff) | |
| download | scratch-8e7ba500330f81d187bb14284ba90144e32195f0.tar.gz scratch-8e7ba500330f81d187bb14284ba90144e32195f0.tar.bz2 scratch-8e7ba500330f81d187bb14284ba90144e32195f0.zip | |
Refactor and export symbols
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)))) |