diff options
| author | soukev <soukev@soukev.xyz> | 2026-06-09 11:03:36 +0200 |
|---|---|---|
| committer | soukev <soukev@soukev.xyz> | 2026-06-09 11:03:36 +0200 |
| commit | 4e8cfa36133c9be9f9a31a5e212d47f65651f93b (patch) | |
| tree | d8120e372443bd5f7302b999b330ef032d7974aa /t | |
| parent | 3692466424e33278e22faaa8c0c3ae61ac95ffd5 (diff) | |
Diffstat (limited to 't')
| -rw-r--r-- | t/client-tests.lisp | 6 | ||||
| -rw-r--r-- | t/main.lisp | 4 | ||||
| -rw-r--r-- | t/packet-tests.lisp | 12 |
3 files changed, 14 insertions, 8 deletions
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)))) |