id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc,difficulty 1452,[test egg]: test-group eats the call-chain on error,megane,,"Below is code that calls an ill behaving function `foo` three times. Only the third version prints the call-chain. It should be printed in the two calls inside `test-group`s as well. {{{ (use test) (define (f) (+ 1 'a)) (test-group ""foo"" (f)) (test-group ""bar"" (test 2 (f))) (test-begin ""baz"") (f) (test-end ""baz"") ;; $ csi -qbn test-group-call-chains.scm ;; ;; Warning: error in group outside of tests ;; ;; Error: (+) bad argument type: a ;; 1 test completed in 0.0 seconds. ;; 1 error (100%). ;; 0 out of 1 (0%) tests passed. ;; -- done testing foo ---------------------------------------------------------- ;; ;; ;; -- testing bar --------------------------------------------------------------- ;; (f) .................................................................. [ERROR] ;; ;; Error: (+) bad argument type: a ;; 1 test completed in 0.0 seconds. ;; 1 error (100%). ;; 0 out of 1 (0%) tests passed. ;; -- done testing bar ---------------------------------------------------------- ;; ;; ;; Error: (+) bad argument type: a ;; ;; Call history: ;; ;; (with-exception-handler89 (##core#lambda (exvar79) (k86 (##core#lambda () (##core#let ((kvar80 (and8... ;; (##sys#call-with-values (##core#lambda () (begin67 (test 2 (f)))) (##core#lambda args87 (k86 (##core... ;; (test-run102 (lambda103 () 2) (lambda103 () (f)) (cons104 (cons104 (quote105 name106) #f) (quote105 ... ;; (cons104 (cons104 (quote105 name106) #f) (quote105 ((source107 f) (source101 f)))) ;; (cons104 (quote105 name106) #f) ;; (f) ;; [f] (+ 1 (quote a)) ;; (k86 (##core#lambda () (##sys#apply ##sys#values args87))) ;; (##sys#apply ##sys#values args87) ;; (test-end76 name56) ;; (current-test-group58 old-group57) ;; (test-begin ""baz"") ;; (test-begin ""baz"") ;; (f) ;; (f) ;; [f] (+ 1 (quote a)) <-- }}}",defect,new,minor,someday,extensions,,,test egg,,