diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2025-06-06 18:09:50 +0200 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2025-06-06 18:27:04 +0200 |
| commit | b18f18229a2e1294fd10f759c60b89fededae9c8 (patch) | |
| tree | c16096673af2c7b222f651016c593afac9c1492b /geoip/tests.lisp | |
| parent | 0ce7a9320aab651218585d25738269692017b4ac (diff) | |
| download | scratch-b18f18229a2e1294fd10f759c60b89fededae9c8.tar.gz scratch-b18f18229a2e1294fd10f759c60b89fededae9c8.tar.bz2 scratch-b18f18229a2e1294fd10f759c60b89fededae9c8.zip | |
create a system package
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)))))) + |