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)	<--