diff options
Diffstat (limited to 'geoip/tests.lisp')
| -rw-r--r-- | geoip/tests.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/geoip/tests.lisp b/geoip/tests.lisp new file mode 100644 index 0000000..3aeebf7 --- /dev/null +++ b/geoip/tests.lisp @@ -0,0 +1,14 @@ +(defpackage geoip/tests + (:use :cl :cffi :fiveam :alexandria :geoip)) +(in-package :geoip/tests) + +(test ipv4 + (is (= (geoip::parse-ipv4 "8.8.8.8") 134744072)) + (is (= (geoip::parse-ipv6 "::1") 1))) + +(test reader + (with-foreign-array (a #(0 0 1 23 126 195 159 195 156) '(:array :uint8 9)) + (let ((r (geoip::make-db-reader :db-ptr a))) + (is (= 279 (geoip::mread-unsigned r 4))) + (is (equal "~ßÜ" (geoip::mread-uft8 r 5)))))) + |