run test (the same as the guide)

This commit is contained in:
Mylloon 2023-06-05 19:57:20 +02:00
parent 3f0cf9974e
commit cd9fed4b99
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -0,0 +1,17 @@
open Dnstoy.Utils
let () =
let data =
{ id = 0x1314
; flags = 0
; num_questions = 1
; num_answers = 0
; num_authorities = 0
; num_additionals = 0
}
in
assert (
"\\x13\\x14\\x00\\x00\\x00\\x01\\x00\\x00\\x00\\x00\\x00\\x00"
= get_bytecode (header_to_bytes data));
assert ("\\x06google\\x03com\\x00" = get_bytecode (encode_dns_name "google.com"))
;;