parent
f92a8c4e45
commit
fbb5723ba3
|
@ -25,3 +25,5 @@
|
|||
|
||||
(module+ main
|
||||
(tcp-localhost-available?))
|
||||
(module+ test
|
||||
(tcp-localhost-available?))
|
||||
|
|
|
@ -9,6 +9,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(putenv "REQUEST_METHOD" "GET")
|
||||
(test (test-bindings 'amp-or-semi "key1=value1&key2=value2;key3=value3")
|
||||
|
|
|
@ -5,6 +5,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
;; cookie-test : (cookie -> cookie) string -> test
|
||||
(define (cookie-test fn expected)
|
||||
|
|
|
@ -99,6 +99,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(test do (internal-tests)
|
||||
(nameserver-tests *google-dns*)
|
||||
|
|
|
@ -70,6 +70,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(test
|
||||
do (check-same-all (lambda (i o) (qp-encode-stream i o))
|
||||
|
|
|
@ -33,6 +33,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(define cop (open-output-string))
|
||||
(define-values [pasv1-thd pasv1-port] (tcp-serve* (current-output-port) DIRLIST))
|
||||
|
|
|
@ -5,6 +5,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(define test-header
|
||||
(string-append "From: abc\r\nTo: field is\r\n continued\r\n"
|
||||
|
|
|
@ -9,6 +9,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(test
|
||||
;; ----------------------------------------
|
||||
|
|
|
@ -35,6 +35,7 @@ EOS
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(define analyzed (mime-analyze ip))
|
||||
(define our-entity (message-entity analyzed))
|
||||
|
|
|
@ -3,6 +3,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(define sepmode current-alist-separator-mode)
|
||||
(test (uri-decode "%Pq") => "%Pq"
|
||||
|
|
|
@ -123,6 +123,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(test
|
||||
(run-tests "http" values #f)
|
||||
|
|
|
@ -45,6 +45,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (test do (tests)))
|
||||
(module+ test (test do (tests)))
|
||||
(define (tests)
|
||||
(test
|
||||
;; Test the current-proxy-servers parameter can be set
|
||||
|
|
|
@ -13,6 +13,7 @@
|
|||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(module+ test (tests))
|
||||
(define (tests)
|
||||
(test
|
||||
(for ([i (in-range RANDOM-K)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user