parent
f92a8c4e45
commit
fbb5723ba3
|
@ -25,3 +25,5 @@
|
||||||
|
|
||||||
(module+ main
|
(module+ main
|
||||||
(tcp-localhost-available?))
|
(tcp-localhost-available?))
|
||||||
|
(module+ test
|
||||||
|
(tcp-localhost-available?))
|
||||||
|
|
|
@ -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")
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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*)
|
||||||
|
|
|
@ -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))
|
||||||
|
|
|
@ -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))
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
|
|
||||||
(provide tests)
|
(provide tests)
|
||||||
(module+ main (tests))
|
(module+ main (tests))
|
||||||
|
(module+ test (tests))
|
||||||
(define (tests)
|
(define (tests)
|
||||||
(test
|
(test
|
||||||
;; ----------------------------------------
|
;; ----------------------------------------
|
||||||
|
|
|
@ -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))
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user