From b18f18229a2e1294fd10f759c60b89fededae9c8 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Fri, 6 Jun 2025 18:09:50 +0200 Subject: create a system package --- geoip/tests.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 geoip/tests.lisp (limited to 'geoip/tests.lisp') 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)))))) + -- cgit v1.2.3