[Chicken-janitors] [Chicken-bugs] #438: test.egg seems to be broken

[Chicken Scheme]

#438: test.egg seems to be broken
------------------------+---------------------------------------------------
 Reporter:  certainty   |       Owner:  ashinn
     Type:  defect      |      Status:  new   
 Priority:  minor       |   Milestone:        
Component:  extensions  |     Version:  3.0.1 
 Keywords:  test.egg    |  
------------------------+---------------------------------------------------
 The test.egg seems to be broken. I can not issue simple tests.
 {{{
 CHICKEN
 (c)2008 The Chicken Team
 (c)2000-2007 Felix L. Winkelmann
 Version 3.3.4 - linux-unix-gnu-x86      [ manyargs dload ptables applyhook
 ]
 SVN rev. 11453  compiled 2008-07-27 on box (Linux)

 ; loading /home/closure/.csirc ...
 ; loading /usr/local/lib/chicken/3/readline.so ...
 ; loading /usr/local/lib/chicken/3/man.so ...
 #;1> (use test)
 ; loading /usr/local/lib/chicken/3/test.scm ...
 ; loading /usr/local/lib/chicken/3/test-support.so ...
 #;2> (test "test" 3 (+ 2 1))
 Error: (-) bad argument type: #f

         Call history:

         <syntax>                (+ 2 1)
         <syntax>                (cons (cons (quote name) "test") (quote
 ((source + 2 1))))
         <syntax>                (cons (quote name) "test")
         <syntax>                (quote name)
         <syntax>                (quote ((source + 2 1)))
         <eval>          (test-run (lambda () 3) (lambda () (+ 2 1)) (cons
 (cons (quote name) "test") (quote ((source + 2 1))...
         <eval>          (cons (cons (quote name) "test") (quote ((source +
 2 1))))
         <eval>          (cons (quote name) "test")      <--
 #;2>
 }}}

 If i set (current-test-group) to '(#f) it works again


 {{{
 #;3> (current-test-group '(#f))
 #;4> (test "test" 3 (+ 2 1))
 test ................................................................. [
 PASS]
 PASS
 #;5>
 }}}

-- 
Ticket URL: <http://trac.callcc.org/ticket/438>
Chicken Scheme <http://www.call-with-current-continuation.org/>
The CHICKEN Scheme-to-C compiler