add a test
This commit is contained in:
parent
53668483bb
commit
b16cf6df7c
1 changed files with 5 additions and 2 deletions
|
@ -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))
|
||||
;;
|
||||
|
|
Reference in a new issue