Summary

[test egg]: test-group eats the call-chain on error

Metadata

• Id: 065bb09e486f3abe1dc3e9a26c678aafa67dbe83
• Trac id: 1452
• Type: defect
• Reporter: megane
• Owner:
• Cc:
• Status: new
• Component: extensions
• Estimated difficulty:
• Resolution:
• Priority: minor
• Milestone: someday
• Version:
• Changetime: 2018-03-23 19:28:26 UTC
• Created: 2018-03-23 19:28:26 UTC
• Keywords: test egg

Description

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:
  ;;
  ;;  <eval>    (with-exception-handler89 (##core#lambda (exvar79) (k86 (##core#lambda () (##core#let ((kvar80 (and8...
  ;;  <eval>    (##sys#call-with-values (##core#lambda () (begin67 (test 2 (f)))) (##core#lambda args87 (k86 (##core...
  ;;  <eval>    (test-run102 (lambda103 () 2) (lambda103 () (f)) (cons104 (cons104 (quote105 name106) #f) (quote105 ...
  ;;  <eval>    (cons104 (cons104 (quote105 name106) #f) (quote105 ((source107 f) (source101 f))))
  ;;  <eval>    (cons104 (quote105 name106) #f)
  ;;  <eval>    (f)
  ;;  <eval>    [f] (+ 1 (quote a))
  ;;  <eval>    (k86 (##core#lambda () (##sys#apply ##sys#values args87)))
  ;;  <eval>    (##sys#apply ##sys#values args87)
  ;;  <eval>    (test-end76 name56)
  ;;  <eval>    (current-test-group58 old-group57)
  ;;  <syntax>      (test-begin "baz")
  ;;  <eval>    (test-begin "baz")
  ;;  <syntax>      (f)
  ;;  <eval>    (f)
  ;;  <eval>    [f] (+ 1 (quote a))   <--