Run the net tests under raco test.

original commit: 5e8a9780e8
This commit is contained in:
Sam Tobin-Hochstadt 2013-07-06 10:19:21 -04:00
parent f92a8c4e45
commit fbb5723ba3
13 changed files with 14 additions and 0 deletions

View File

@ -25,3 +25,5 @@
(module+ main (module+ main
(tcp-localhost-available?)) (tcp-localhost-available?))
(module+ test
(tcp-localhost-available?))

View File

@ -9,6 +9,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(putenv "REQUEST_METHOD" "GET") (putenv "REQUEST_METHOD" "GET")
(test (test-bindings 'amp-or-semi "key1=value1&key2=value2;key3=value3") (test (test-bindings 'amp-or-semi "key1=value1&key2=value2;key3=value3")

View File

@ -5,6 +5,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
;; cookie-test : (cookie -> cookie) string -> test ;; cookie-test : (cookie -> cookie) string -> test
(define (cookie-test fn expected) (define (cookie-test fn expected)

View File

@ -99,6 +99,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(test do (internal-tests) (test do (internal-tests)
(nameserver-tests *google-dns*) (nameserver-tests *google-dns*)

View File

@ -70,6 +70,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(test (test
do (check-same-all (lambda (i o) (qp-encode-stream i o)) do (check-same-all (lambda (i o) (qp-encode-stream i o))

View File

@ -33,6 +33,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(define cop (open-output-string)) (define cop (open-output-string))
(define-values [pasv1-thd pasv1-port] (tcp-serve* (current-output-port) DIRLIST)) (define-values [pasv1-thd pasv1-port] (tcp-serve* (current-output-port) DIRLIST))

View File

@ -5,6 +5,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(define test-header (define test-header
(string-append "From: abc\r\nTo: field is\r\n continued\r\n" (string-append "From: abc\r\nTo: field is\r\n continued\r\n"

View File

@ -9,6 +9,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(test (test
;; ---------------------------------------- ;; ----------------------------------------

View File

@ -35,6 +35,7 @@ EOS
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(define analyzed (mime-analyze ip)) (define analyzed (mime-analyze ip))
(define our-entity (message-entity analyzed)) (define our-entity (message-entity analyzed))

View File

@ -3,6 +3,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(define sepmode current-alist-separator-mode) (define sepmode current-alist-separator-mode)
(test (uri-decode "%Pq") => "%Pq" (test (uri-decode "%Pq") => "%Pq"

View File

@ -123,6 +123,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(test (test
(run-tests "http" values #f) (run-tests "http" values #f)

View File

@ -45,6 +45,7 @@
(provide tests) (provide tests)
(module+ main (test do (tests))) (module+ main (test do (tests)))
(module+ test (test do (tests)))
(define (tests) (define (tests)
(test (test
;; Test the current-proxy-servers parameter can be set ;; Test the current-proxy-servers parameter can be set

View File

@ -13,6 +13,7 @@
(provide tests) (provide tests)
(module+ main (tests)) (module+ main (tests))
(module+ test (tests))
(define (tests) (define (tests)
(test (test
(for ([i (in-range RANDOM-K)]) (for ([i (in-range RANDOM-K)])