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

View File

@ -8,6 +8,7 @@
(require "../racket-bitsyntax/main.rkt")
(require "api.rkt")
(require "codec.rkt")
(require "test-rrs.rkt")
(require racket/pretty)
@ -36,7 +37,9 @@
'recursion-desired
'no-recursion-available
'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))
(loop (- remaining 1)))))
(stress "localhost" 5555 100000 500)
(stress "localhost" (test-port-number) 100000 500)