diff options
Diffstat (limited to 'tests/guile/cantius-test.scm')
| -rw-r--r-- | tests/guile/cantius-test.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/guile/cantius-test.scm b/tests/guile/cantius-test.scm index bae8db8..deceab5 100644 --- a/tests/guile/cantius-test.scm +++ b/tests/guile/cantius-test.scm @@ -48,24 +48,24 @@ (endset)) (define-endpoint %my-endset about-ms - ("cool-companies" "ms" "about") () + ("cool-companies" "ms" "about") '() (values (build-response*) "Microsoft is my favorite company. I started using Microsoft at the age of...")) (define-endpoint %my-endset broken - ("cool-companies" "ms" "product-list") () + ("cool-companies" "ms" "product-list") '() (/ 1 0)) (define-endpoint %my-endset drm-wiki - ("drm-wiki" ,(string-append "dev" "ices") . some-path) () + ("drm-wiki" ,(string-append "dev" "ices") . some-path) '() (values (build-response*) (string-join (cons "page for:" some-path)))) (define-endpoint %my-endset about-google ,(list "cool-companies" "google" "about") - ((redirect/normalize-path? #f) - (redirect/remove-query? #f)) + `((,%redirect/normalize-path? . #f) + (,%redirect/remove-query? . #f)) (values (build-response*) "Google provides the best services in the world...")) |