33 lines
1013 B
Scheme
33 lines
1013 B
Scheme
#lang scheme/base
|
|
(require schemeunit
|
|
net/url
|
|
web-server/private/url-param)
|
|
(provide url-param-tests)
|
|
|
|
(define url0 (string->url "http://www.test.com/somewhere"))
|
|
|
|
(define url-param-tests
|
|
(test-suite
|
|
"URL Parameters"
|
|
|
|
(test-case
|
|
"Insert and extract is identity"
|
|
(check-equal? (extract-param (insert-param url0 "key" "val0") "key")
|
|
"val0"))
|
|
|
|
(test-case
|
|
"Insert and extract is identity after multiple"
|
|
(check-equal? (extract-param (insert-param
|
|
(insert-param url0 "key" "val0")
|
|
"key" "val1")
|
|
"key")
|
|
"val1"))
|
|
|
|
(test-case
|
|
"Insert and extract is identity after multiple different"
|
|
(check-equal? (extract-param (insert-param
|
|
(insert-param url0 "key0" "val0")
|
|
"key1" "val1")
|
|
"key0")
|
|
"val0"))))
|