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