syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Explicitly comment the structure of a simple test case.

This commit is contained in:
Tony Garnock-Jones 2011-09-06 16:39:47 -04:00
parent 4a80d69283
commit b10ff08ce5
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test-dns.rkt
View File

@ -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).