Test output for comparse [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing satisfies --------------------------------------------------------- (parse (satisfies odd?) '(3)) ........................................ [ PASS] (parse (satisfies odd?) '(2)) ........................................ [ PASS] (parse (satisfies memq '(#\a #\b #\c)) "bcd") ........................ [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing satisfies ---------------------------------------------------- -- testing is ---------------------------------------------------------------- (parse (is #\x) "xyz") ............................................... [ PASS] (parse (is #\x) "ho") ................................................ [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing is ----------------------------------------------------------- -- testing in ---------------------------------------------------------------- (parse (in (char-set #\a #\b #\c)) "c") .............................. [ PASS] (parse (in '(1 2 3)) '(2)) ........................................... [ PASS] (parse (in #\a #\b #\c) "bcd") ....................................... [ PASS] (parse (in '()) "hey") ............................................... [ PASS] 4 tests completed in 0.0 seconds. 4 out of 4 (100%) tests passed. -- done testing in ----------------------------------------------------------- -- testing tests one-or-more / zero-or-more ---------------------------------- (parse (as-string (one-or-more (is #\o))) "ooooom") .................. [ PASS] (parse (as-string (one-or-more (is #\o))) "m") ....................... [ PASS] (parse (as-string (zero-or-more (is #\o))) "oommm") .................. [ PASS] (parse (as-string (zero-or-more (is #\o))) "m") ...................... [ PASS] 4 tests completed in 0.0 seconds. 4 out of 4 (100%) tests passed. -- done testing tests one-or-more / zero-or-more ----------------------------- -- testing char-seq ---------------------------------------------------------- (parse (char-seq "") "hey") .......................................... [ PASS] (parse (char-seq "hey") "heyyy") ..................................... [ PASS] (parse (char-seq "hey") "he") ........................................ [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing char-seq ----------------------------------------------------- -- testing followed-by ------------------------------------------------------- (parse lol "lol") .................................................... [ PASS] (parse lol "lxl") .................................................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing followed-by -------------------------------------------------- -- testing preceded-by ------------------------------------------------------- (parse (preceded-by (is 1) (is 2) (is 3)) '(1 2 3)) .................. [ PASS] 1 test completed in 0.0 seconds. 1 out of 1 (100%) test passed. -- done testing preceded-by -------------------------------------------------- -- testing sequence ---------------------------------------------------------- (parse (as-string (sequence (is #\a) (is #\b))) "abc") ............... [ PASS] (parse (as-string (sequence (list (is #\a) (is #\b)))) "abc") ........ [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing sequence ----------------------------------------------------- -- testing maybe ------------------------------------------------------------- (parse (as-string foo) "foo") ........................................ [ PASS] (parse (as-string foo) "xfoo") ....................................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing maybe -------------------------------------------------------- -- testing repeated ---------------------------------------------------------- (parse (as-string (repeated (char-seq "ho"))) "hohoho") .............. [ PASS] (parse (as-string (repeated (sequence (char-seq "ho") (zero-or-... ... [ PASS] (parse (as-string (repeated item until: (is #\.))) "foo.") ........... [ PASS] (parse (as-string ok) "okok") ........................................ [ PASS] (parse (as-string ok) "ooko") ........................................ [ PASS] (parse (as-string ok) "ookay") ....................................... [ PASS] (parse (as-string ok) "ooookay") ..................................... [ PASS] 7 tests completed in 0.0 seconds. 7 out of 7 (100%) tests passed. -- done testing repeated ----------------------------------------------------- -- testing all-of ------------------------------------------------------------ (parse (all-of (none-of (is #\a)) (is #\b)) "b") ..................... [ PASS] (parse (all-of (none-of (is #\a)) (is #\b)) "a") ..................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing all-of ------------------------------------------------------- -- testing enclosed-by ------------------------------------------------------- (parse parenthesized "(x)") .......................................... [ PASS] (parse parenthesized "(x/") .......................................... [ PASS] (parse parenthesized "()") ........................................... [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing enclosed-by -------------------------------------------------- -- testing none-of ----------------------------------------------------------- (parse not-xy "a") ................................................... [ PASS] (parse not-xy "x") ................................................... [ PASS] (parse not-xy "y") ................................................... [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing none-of ------------------------------------------------------ -- testing none-of* ---------------------------------------------------------- (parse not-xy "a") ................................................... [ PASS] (parse not-xy "x") ................................................... [ PASS] (parse not-xy "y") ................................................... [ PASS] 3 tests completed in 0.001 seconds. 3 out of 3 (100%) tests passed. -- done testing none-of* ----------------------------------------------------- -- testing misc -------------------------------------------------------------- (parse (as-string (repeated (in #\a #\b))) "aabac") .................. [ PASS] (parse (as-string (repeated (is #\space) max: 3)) " ") .......... [ PASS] (parse (as-string (repeated (is #\f))) "x") .......................... [ PASS] (parse (as-string (repeated (is #\a) min: 1)) "b") ................... [ PASS] (parse (preceded-by (none-of (is #\b) (is #\c)) item) "a") ........... [ PASS] (parse (as-string (zero-or-more (any-of (in char-set:digit) (is... ... [ PASS] (parse (none-of (is #\b) (is #\a)) "a") .............................. [ PASS] (parse (as-string (sequence* ((a (is #\a)) (b (is #\b))) (resul... ... [ PASS] 8 tests completed in 0.001 seconds. 8 out of 8 (100%) tests passed. -- done testing misc --------------------------------------------------------- -- testing quoted string ----------------------------------------------------- (not (parse (quoted-string) "this ain't a string")) .................. [ PASS] (parse (quoted-string) "\"nice\"") ................................... [ PASS] result ............................................................... [ PASS] result ............................................................... [ PASS] (not result) ......................................................... [ PASS] (list->string (lazy-seq->list rest)) ................................. [ PASS] (parse singly-quoted-bang-string "'this !'is!' a string'") ........... [ PASS] (parse singly-quoted-bang-string "'ok\\'") ........................... [ PASS] (not (parse singly-quoted-bang-string "\"check\"")) .................. [ PASS] 9 tests completed in 0.001 seconds. 9 out of 9 (100%) tests passed. -- done testing quoted string ------------------------------------------------