From c8092b5e7e2f793d25042d78ba913d466279cc8d Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Sat, 16 Dec 2023 23:25:35 +0100 Subject: Facilitate using parameters for endpoint-specific behavior. --- tests/guile/cantius-test.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests') 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...")) -- cgit v1.2.3