diff --git a/test/test.ml b/test/test.ml index 7f45cd0..7326d50 100644 --- a/test/test.ml +++ b/test/test.ml @@ -10,9 +10,12 @@ let () = ; num_additionals = 0 } in + (* Header *) assert ( "\\x13\\x14\\x00\\x00\\x00\\x01\\x00\\x00\\x00\\x00\\x00\\x00" = Utils.get_bytecode (Query.header_to_bytes data)); - assert ( - "\\x06google\\x03com\\x00" = Utils.get_bytecode (Query.encode_dns_name "google.com")) + (* Dns name *) + let dns_name = Query.encode_dns_name "google.com" in + assert ("\\x06google\\x03com\\x00" = Utils.get_bytecode dns_name); + assert (6 = Char.code (Bytes.get dns_name 0)) ;;