From b10ff08ce5c565480dbe2691d8cac1aef5f61ce1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 6 Sep 2011 16:39:47 -0400 Subject: [PATCH] Explicitly comment the structure of a simple test case. --- test-dns.rkt | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/test-dns.rkt b/test-dns.rkt index dfe3ee3..743b1c7 100644 --- a/test-dns.rkt +++ b/test-dns.rkt @@ -16,10 +16,19 @@ ;; 00000010: 67 6C 65 03 63 6F 6D 00 : 00 FF 00 01 gle.com..... ;; 0000001C: (define (q-google-in-any-bytes) - (bytes #x66 #x3A #x01 #x00 #x00 #x01 #x00 #x00 - #x00 #x00 #x00 #x00 #x06 #x67 #x6F #x6F - #x67 #x6C #x65 #x03 #x63 #x6F #x6D #x00 - #x00 #xFF #x00 #x01)) + (bytes #x66 #x3A ;; query ID + #x01 #x00 ;; flags and bits + #x00 #x01 ;; one question + #x00 #x00 ;; no answers + #x00 #x00 ;; no name server records + #x00 #x00 ;; no additional records + ;; The question: + #x06 #x67 #x6F #x6F #x67 #x6C #x65 ;; "google" + #x03 #x63 #x6F #x6D ;; "com" + #x00 ;; end of domain name + #x00 #xFF ;; query type ANY + #x00 #x01 ;; query class IN + )) ;; q-google-in-any : DNSMessage ;; Decoded (q-google-in-any-bytes).