blob: 7e728d7e4d91fe073d7f4f033ca33955a5fc4fe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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))))
|
