Test output for condition-utils [ok]

Testing time: 2s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
*** csi ***

-- testing Condition Utils ---------------------------------------------------
composite of exn test extra .......................................... [ PASS]
test property of extra component of (exn test extra) ................. [ PASS]
(testc-extra-test testc) ............................................. [ PASS]
(testc-extra-foo testc) .............................................. [ PASS]
(call-chain? (get-call-chain 1)) ..................................... [ PASS]
(call-chain? (get-call-chain 0)) ..................................... [ PASS]
composite of exn test extra (set!) ................................... [ PASS]
may fail - order an issue ............................................ [ PASS]
(exn-condition? testc) ............................................... [ PASS]
(exn-location testc) ................................................. [ PASS]
(exn-message testc) .................................................. [ PASS]
(exn-arguments testc) ................................................ [ PASS]
(exn-call-chain testc) ............................................... [ PASS]
(http-condition? thttpc) ............................................. [ PASS]
(condition-irritants thttpc) ......................................... [ PASS]

Writing exn condition
 (expect an "error")
---------------------

Error: (test) test: test
    +: misc:
    +: extra: test 23

	Call history:

	<syntax>	  (let ((chn (get-call-chain 1))) (set! testcc (make-exn-condition+ (quote test) "test" (quote (test))...
	<syntax>	  (##core#let ((chn (get-call-chain 1))) (set! testcc (make-exn-condition+ (quote test) "test" (quote ...
	<syntax>	  (##core#begin (##core#set! testcc (make-exn-condition+ (quote test) "test" (quote (test)) chn (quote...
	<syntax>	  (##core#set! testcc (make-exn-condition+ (quote test) "test" (quote (test)) chn (quote misc) (quote ...
	<syntax>	  (make-exn-condition+ (quote test) "test" (quote (test)) chn (quote misc) (quote (extra test 23)))
	<syntax>	  (quote test)
	<syntax>	  (##core#quote test)
	<syntax>	  (quote (test))
	<syntax>	  (##core#quote (test))
	<syntax>	  (quote misc)
	<syntax>	  (##core#quote misc)
	<syntax>	  (quote (extra test 23))
	<syntax>	  (##core#quote (extra test 23))
	<syntax>	  (get-call-chain 1)
	<eval>	  (get-call-chain 1)	<--

15 tests completed in 3/50 seconds.
15 out of 15 (100%) tests passed.
-- done testing Condition Utils ----------------------------------------------


*** csc "-inline-global -specialize -optimize-leaf-routines -clustering -lfa2 -local -inline -no-trace -no-lambda-info -unsafe" ***

-- testing Condition Utils ---------------------------------------------------
composite of exn test extra .......................................... [ PASS]
test property of extra component of (exn test extra) ................. [ PASS]
(testc-extra-test testc) ............................................. [ PASS]
(testc-extra-foo testc) .............................................. [ PASS]
(call-chain? (get-call-chain 1)) ..................................... [ PASS]
(call-chain? (get-call-chain 0)) ..................................... [ PASS]
composite of exn test extra (set!) ................................... [ PASS]
may fail - order an issue ............................................ [ PASS]
(exn-condition? testc) ............................................... [ PASS]
(exn-location testc) ................................................. [ PASS]
(exn-message testc) .................................................. [ PASS]
(exn-arguments testc) ................................................ [ PASS]
(exn-call-chain testc) ............................................... [ PASS]
(http-condition? thttpc) ............................................. [ PASS]
(condition-irritants thttpc) ......................................... [ PASS]

Writing exn condition
 (expect an "error")
---------------------

Error: (test) test: test
    +: misc:
    +: extra: test 23

	Call history:

	type-errors.scm:9: chicken.load#load-extension	  
	type-errors-atoms.scm:8: chicken.load#load-extension	  
	type-errors-numbers.impl.scm:4: chicken.load#load-extension	  
	type-errors-atoms.impl.scm:14: chicken.load#load-extension	  
	type-errors.scm:9: chicken.load#load-extension	  
	type-errors-structured.impl.scm:4: chicken.load#load-extension	  	<--

15 tests completed in 3/200 seconds.
15 out of 15 (100%) tests passed.
-- done testing Condition Utils ----------------------------------------------