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