Test output for uri-match [ok]
Testing time: 1s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing routes creation --------------------------------------------------- (lset= '(GET POST) (map car routes)) ................................. [ PASS] -- testing expansion ----------------------------------------------------- (lset= '(("foo") ("foo" "bar")) (map car (alist-ref 'GET routes))) [ PASS] (lset= '(("foo")) (map car (alist-ref 'POST routes))) ............ [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing expansion ------------------------------------------------ 1 test and 1 subgroup completed in 0.001 seconds. 1 out of 1 (100%) test passed. 1 out of 1 (100%) subgroup passed. -- done testing routes creation ---------------------------------------------- -- testing basic matching ---------------------------------------------------- ((uri-match 'GET "/" (make-routes '(((/ "") (GET "this is the b... ... [ PASS] against the path of a uri-reference .................................. [ PASS] (not (uri-match 'GET "/" (make-routes '(((/ "") (POST "won't re... ... [ PASS] -- testing with nesting -------------------------------------------------- ((uri-match 'POST "/foo/bar" (make-routes '(((/ "foo") ((/ "bar... [ PASS] -- testing with procedure body --------------------------------------- ((uri-match 'GET "/me" (make-routes `(((/ "me") (GET ,(lambda (... [ PASS] ((uri-match 'GET "/numbers/100" (make-routes `(((/ "numbers" "(... [ PASS] 2 tests completed in 0.001 seconds. 2 out of 2 (100%) tests passed. -- done testing with procedure body ---------------------------------- 1 test and 1 subgroup completed in 0.001 seconds. 1 out of 1 (100%) test passed. 1 out of 1 (100%) subgroup passed. -- done testing with nesting --------------------------------------------- -- testing with capture groups ------------------------------------------- ((uri-match 'GET "/foo/10/5" routes)) ............................ [ PASS] (not (uri-match 'GET "/foo/bar/10" routes)) ...................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing with capture groups -------------------------------------- -- testing with irregex capture groups ----------------------------------- ((uri-match 'GET "/foo/10/5" routes)) ............................ [ PASS] (not (uri-match 'GET "/foo/bar/10" routes)) ...................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing with irregex capture groups ------------------------------ -- testing with irregex named capture groups ----------------------------- ((uri-match 'GET "/foo/10/5" routes)) ............................ [ PASS] ((uri-match 'GET "/foo/10/x" routes)) ............................ [ PASS] (not (uri-match 'GET "/foo/bar/10" routes)) ...................... [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing with irregex named capture groups ------------------------ 3 tests and 4 subgroups completed in 0.002 seconds. 3 out of 3 (100%) tests passed. 4 out of 4 (100%) subgroups passed. -- done testing basic matching ----------------------------------------------- -- testing matcher ----------------------------------------------------------- ((matcher 'GET "/")) ................................................. [ PASS] ((matcher 'POST "/this")) ............................................ [ PASS] ((matcher 'PUT "/this/or")) .......................................... [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing matcher ------------------------------------------------------ -- testing precedence -------------------------------------------------------- first come, first serve .............................................. [ PASS] 1 test completed in 0.002 seconds. 1 out of 1 (100%) test passed. -- done testing precedence --------------------------------------------------- -- testing a bit more complex nesting ---------------------------------------- ((match 'GET "/")) ................................................... [ PASS] ((match 'GET "/some/nested")) ........................................ [ PASS] ((match 'GET (uri-reference "http://localhost/some/nested/route... ... [ PASS] 3 tests completed in 0.001 seconds. 3 out of 3 (100%) tests passed. -- done testing a bit more complex nesting ----------------------------------- -- testing continuing matching ----------------------------------------------- ((match 'PUT "/foo")) ................................................ [ PASS] ((match 'PUT "/sparta")) ............................................. [ PASS] (not ((match 'PUT "/nothing"))) ...................................... [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing continuing matching ------------------------------------------