(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))))