basis/dns/dns-tests.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test dns ;
   4 IN: dns.tests
   5
   6 { B{ 0 } } [ "" >name ] unit-test
   7 { B{ 0 } } [ "." >name ] unit-test
   8 { B{ 3 99 111 109 0 } } [ "com." >name ] unit-test
   9 { B{ 1 49 1 49 1 49 1 49 0 } } [ "1.1.1.1." >name ] unit-test
  10
  11 ! "1.1.1.1" reverse-ipv4-lookup
  12 ! "one.one.one.one" A IN dns-query