Test output for format-compiler
Testing time: 1.0s
CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm Test from group formatter->table: ((vector-ref (formatter->table #f (quasiquote (((#\a (unquote (constantly 1))))))) (char->integer #\a)))... PASS Test from group formatter->table: ((vector-ref (formatter->table #f (quasiquote (((#\a (unquote (constantly 1)))) ((#\a (unquote (constantly 2))))))) (char->integer #\a)))... PASS Test from group formatter->table: ((vector-ref (formatter->table #f (quasiquote (((#\a (unquote (constantly 1)))) ((#\A (unquote (constantly 2))))))) (char->integer #\A)))... PASS Test from group formatter->table: ((vector-ref (formatter->table #t (quasiquote (((#\a (unquote (constantly 1)))) ((#\A (unquote (constantly 2))))))) (char->integer #\A)))... PASS Test from group formatter->table: ((vector-ref (formatter->table #t (quasiquote (((#\a (unquote (constantly 1)))))) (constantly 2)) (char->integer #\A)))... PASS Test from group formatter-params: (test-params "'A")... PASS Test from group formatter-params: (test-params "'A,'B")... PASS Test from group formatter-params: (test-params "23")... PASS Test from group formatter-params: (test-params ",,3,")... PASS Test from group formatter-params: (test-params "1,'b,-2,'a,+3,,4,")... PASS Test from group add-param-character-from-format: (with-output-to-string (lambda () ((add-param-character-from-format (make-escape-call (make-compiler-state (make-compiler (formatter->table #f (quote ())) #\~) "~'" 2 #f (quote ())) 0 #f #f 0)) (make-default-state (current-output-port) (quote ())))))... PASS Test from group find-end-of-number: (find-end-of-number "~23" 1)... PASS Test from group find-end-of-number: (find-end-of-number "~+38,3,4" 1)... PASS Test from group format-case-convert: (format #f "uN~(foo hey~)uN")... PASS Test from group format-case-convert: (format #f "uN~:(foo hey~)uN")... PASS Test from group format-case-convert: (format #f "uN~:@(foo ~(there~) hey~)uN")... PASS Test from group case-convert: (case-convert-string "foo bar hey" char-upcase char-downcase char-downcase)... PASS Test from group case-convert: (case-convert-string "foo bar hey" char-upcase char-upcase char-downcase)... PASS Test from group case-convert: (case-convert-string "foo bar hey" char-upcase char-downcase char-upcase)... PASS Test from group format-conditional-expressions: (format #f "~[a~;b~]" 0)... PASS Test from group format-conditional-expressions: (format #f "~[a~;b~]" 1)... PASS Test from group format-conditional-expressions: (format #f "~[a~;b~]" 2)... Error: Invalid position and no default clause: 2 Call history: <eval> (##sys#load-library (quote posix) #f) <eval> (##sys#require (quote format-compiler)) <syntax> (setenv "TESTS" "yes") <eval> (setenv "TESTS" "yes") <syntax> (setenv "TESTS_VERBOSE" "yes") <eval> (setenv "TESTS_VERBOSE" "yes") <syntax> (run-tests) <eval> (run-tests) <--