Anri/dns-toy
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

update debugging tests

Browse source
This commit is contained in:
Mylloon 2023-07-04 10:50:03 +02:00
parent 0f5f4b8dc2
commit 48589ff6e0
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bin/main.ml
View file

@ -1,11 +1,19 @@
open Dnstoy open Dnstoy
let print = function
| Some value -> print_endline (Utils.get_bytecode value)
| None -> print_endline "No IP found"
;;
let () = let () =
let response = Network.send_request "8.8.8.8" "www.mylloon.fr" in let response = Network.send_request "8.8.8.8" "www.mylloon.fr" Types.DNSType.a in
print_endline (Utils.get_bytecode response); print_endline (Utils.get_bytecode response);
let dns_packet = Response.parse_dns_packet response in let dns_packet = Response.parse_dns_packet response in
print_endline (Debug.dns_packet dns_packet); print_endline (Debug.dns_packet dns_packet);
print_endline (Network.lookup_domain "example.com"); print (Network.lookup_domain "example.com");
print_endline (Network.lookup_domain "recurse.com"); print (Network.lookup_domain "recurse.com");
print_endline (Network.lookup_domain "www.metafilter.com") print (Network.lookup_domain "www.metafilter.com");
List.iter
(fun e -> print_endline (Debug.dns_record e))
(Network.send "8.8.8.8" "example.com" 16).answers
;; ;;