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

Make stress.rkt use a more sensible question and get its port number from DNSPORT

This commit is contained in:
Tony Garnock-Jones 2012-02-17 16:05:56 -05:00
parent 3dd3370b4b
commit 1c3ebd17bd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
stress.rkt
View File

@ -8,6 +8,7 @@
(require "../racket-bitsyntax/main.rkt") (require "../racket-bitsyntax/main.rkt")
(require "api.rkt") (require "api.rkt")
(require "codec.rkt") (require "codec.rkt")
(require "test-rrs.rkt")
(require racket/pretty) (require racket/pretty)
@ -36,7 +37,9 @@
'recursion-desired 'recursion-desired
'no-recursion-available 'no-recursion-available
'no-error 'no-error
(list (question (domain '(#"example")) '* '*)) (list (question (domain '(#"www" #"google" #"com"))
'a
'in))
'() '()
'() '()
'())) '()))
@ -68,4 +71,4 @@
(record-latency-ms! (- received-time sent-time)) (record-latency-ms! (- received-time sent-time))
(loop (- remaining 1))))) (loop (- remaining 1)))))
(stress "localhost" 5555 100000 500) (stress "localhost" (test-port-number) 100000 500)