From 4e8cfa36133c9be9f9a31a5e212d47f65651f93b Mon Sep 17 00:00:00 2001
From: soukev <soukev@soukev.xyz>
Date: Tue, 9 Jun 2026 11:03:36 +0200
Subject: Add testing

---
 t/client-tests.lisp |  6 ------
 t/main.lisp         |  4 ++--
 t/packet-tests.lisp | 12 ++++++++++++
 3 files changed, 14 insertions(+), 8 deletions(-)
 delete mode 100644 t/client-tests.lisp
 create mode 100644 t/packet-tests.lisp

(limited to 't')

diff --git a/t/client-tests.lisp b/t/client-tests.lisp
deleted file mode 100644
index a7b3ae6..0000000
--- a/t/client-tests.lisp
+++ /dev/null
@@ -1,6 +0,0 @@
-(in-package :cl-mdns-tests)
-
-(def-suite* client-tests :in all-tests)
-
-(test encode-name-test
-  (is (equalp (cl-mdns:encode-name "name.local") #(4 110 97 109 101 5 108 111 99 97 108 0))))
diff --git a/t/main.lisp b/t/main.lisp
index 4ac2268..00ebb66 100644
--- a/t/main.lisp
+++ b/t/main.lisp
@@ -1,8 +1,8 @@
 (defpackage :cl-mdns-tests
-  (:use :cl :fiveam :cl-mdns)
+  (:use :cl :fiveam)
   (:export test-all))
 (in-package :cl-mdns-tests)
-
+(setf fiveam:*run-test-when-defined* t)
 (def-suite* all-tests)
 
 (defun test-all ()
diff --git a/t/packet-tests.lisp b/t/packet-tests.lisp
new file mode 100644
index 0000000..7e728d7
--- /dev/null
+++ b/t/packet-tests.lisp
@@ -0,0 +1,12 @@
+(in-package :cl-mdns-tests)
+
+(def-suite* packet-tests :in all-tests)
+
+(test encode-name-test
+  (is (equalp (cl-mdns/packet:encode-name "name.local") #(4 110 97 109 101 5 108 111 99 97 108 0))))
+
+(test parse-query-test
+  (let* ((domain-name "name.local")
+	 (query (cl-mdns/packet:build-query-packet domain-name))
+	 (parsed (cl-mdns/packet:parse-query query)))
+    (is (equal parsed domain-name))))
-- 
cgit v1.2.3