53 lines
2.1 KiB
Scheme
53 lines
2.1 KiB
Scheme
(module request-test mzscheme
|
|
(require (planet "util.ss" ("schematics" "schemeunit.plt" 2))
|
|
(planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
(lib "connection-structs.ss" "web-server" "private")
|
|
(lib "timer-structs.ss" "web-server" "private")
|
|
(lib "request-structs.ss" "web-server" "private"))
|
|
|
|
(require/expose (lib "request.ss" "web-server" "private")
|
|
(read-bindings&post-data/raw))
|
|
|
|
;; mock connection object for test on post body parsing
|
|
(define (make-mock-connection&headers post-body)
|
|
(let* ([bytes (string->bytes/utf-8 post-body)]
|
|
[headers (list (make-header
|
|
#"Content-Length"
|
|
(string->bytes/utf-8
|
|
(number->string (bytes-length bytes)))))]
|
|
[ip (open-input-bytes bytes)]
|
|
[op (open-output-bytes)])
|
|
(values (make-connection (make-timer ip +inf.0 (lambda () (void)))
|
|
ip
|
|
op
|
|
(make-custodian)
|
|
#f
|
|
(make-semaphore))
|
|
headers)))
|
|
|
|
(define (get-bindings post-data)
|
|
(define-values (conn headers) (make-mock-connection&headers post-data))
|
|
(call-with-values (lambda () (read-bindings&post-data/raw conn 'post #f headers))
|
|
(lambda (f s) f)))
|
|
|
|
(define (get-post-data/raw post-data)
|
|
(define-values (conn headers) (make-mock-connection&headers post-data))
|
|
(call-with-values (lambda () (read-bindings&post-data/raw conn 'post #f headers))
|
|
(lambda (f s) s)))
|
|
|
|
|
|
; XXX
|
|
(define request-tests
|
|
(test-suite
|
|
"Request Parsing"
|
|
(test-suite
|
|
"Bindings"
|
|
(test-equal? "simple test 1"
|
|
(get-post-data/raw "hello world") #"hello world")
|
|
(test-equal? "simple test 2"
|
|
(get-post-data/raw "hello=world") #"hello=world")
|
|
(test-equal? "simple test 3"
|
|
(binding:form-value (bindings-assq #"hello" (get-bindings "hello=world")))
|
|
#"world"))))
|
|
|
|
(provide request-tests)) |