7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
33 lines
1.0 KiB
Scheme
33 lines
1.0 KiB
Scheme
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
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"))))
|