Add testingHEADmain

1 files changed, 12 insertions, 0 deletions

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))))