diff options
| author | soukev <soukev@soukev.xyz> | 2026-06-06 20:07:02 +0200 |
|---|---|---|
| committer | soukev <soukev@soukev.xyz> | 2026-06-06 20:07:02 +0200 |
| commit | 8a62a3f1f60521082bdb5c27be6d7246ebf12306 (patch) | |
| tree | 8f1712eb430f9a3442a74e361000aa44f42c7ea0 /t | |
| parent | 1b05818535abdda01a2bbe8aacd8f535c5c7c74c (diff) | |
Project kick-off
Diffstat (limited to 't')
| -rw-r--r-- | t/client-tests.lisp | 6 | ||||
| -rw-r--r-- | t/main.lisp | 9 |
2 files changed, 15 insertions, 0 deletions
diff --git a/t/client-tests.lisp b/t/client-tests.lisp new file mode 100644 index 0000000..a7b3ae6 --- /dev/null +++ b/t/client-tests.lisp @@ -0,0 +1,6 @@ +(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 new file mode 100644 index 0000000..4ac2268 --- /dev/null +++ b/t/main.lisp @@ -0,0 +1,9 @@ +(defpackage :cl-mdns-tests + (:use :cl :fiveam :cl-mdns) + (:export test-all)) +(in-package :cl-mdns-tests) + +(def-suite* all-tests) + +(defun test-all () + (run! 'all-tests)) |