diff options
| author | Wojtek Kosior <koszko@koszko.org> | 2023-12-16 23:25:35 +0100 |
|---|---|---|
| committer | Wojtek Kosior <koszko@koszko.org> | 2023-12-16 23:25:35 +0100 |
| commit | c8092b5e7e2f793d25042d78ba913d466279cc8d (patch) | |
| tree | 13301beabda3cbe863124f95dd67adbc8427c129 /tests | |
| parent | 81d4ff2112f875f25e217c7ad3763420db940eb6 (diff) | |
| download | cantius-c8092b5e7e2f793d25042d78ba913d466279cc8d.tar.gz cantius-c8092b5e7e2f793d25042d78ba913d466279cc8d.zip | |
Facilitate using parameters for endpoint-specific behavior.
Diffstat (limited to 'tests')
| -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...")) |