From 4e8cfa36133c9be9f9a31a5e212d47f65651f93b Mon Sep 17 00:00:00 2001 From: soukev Date: Tue, 9 Jun 2026 11:03:36 +0200 Subject: Add testing --- t/packet-tests.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 t/packet-tests.lisp (limited to 't/packet-tests.lisp') 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