SchemeUnit 1.5 DrScheme integration and sub-suites with failures

When I have a set of tests with sub-suites and one of the sub-suites has a failure 
(see code below), the failure isn't reported in the Test Root node.  To see these 
failures, you have to manually search the tree of tests, and it's easy to miss
a deeply nested test case failure.

I would like to see the sub-suite failures propagate all the way to the top (i.e.
a test-suite fails if any of its tests or sub-suites fails, and similarly for errors)


(define (add a b) (+ a b))

(require (lib "test.ss" "schemeunit")
         (lib "drscheme-ui.ss" "schemeunit"))

(define adder-tests
  (make-test-suite 
   "tests for adder.scm"
   (make-test-case 
    "addition"
    (assert = 2 (add 1 1)))                   
   
   (make-test-suite 
    "recursive suite with failure"
    (make-test-case 
     "recursive failure case"
     (assert = 4 (add (add 1 1) 1))))))

(register-test adder-tests)


Doug King
king dot doug at siemens dot com



-------------------------------------------------------
This SF.Net email is sponsored by OSTG. Have you noticed the changes on
Linux.com, ITManagersJournal and NewsForge in the past few weeks? Now,
one more big change to announce. We are now OSTG- Open Source Technology
Group. Come see the changes on the new OSTG site. www.ostg.com