TestResultStX.st
changeset 465 0297ec178c9f
parent 345 abd1f2918992
child 479 b6051320c2d1
--- a/TestResultStX.st	Wed Oct 24 18:15:54 2012 +0200
+++ b/TestResultStX.st	Wed Oct 24 18:16:08 2012 +0200
@@ -46,10 +46,12 @@
                             con printOn:s.
                             s cr.
                             topReached := (con selector == outcome selector)
-                                          and:[con receiver == outcome].
+                                          and:[con receiver == outcome
+                                               or:[ con receiver == outcome testCase ]].
                             con := con sender.
                         ]
                      ].
+
         outcome exceptionDetail:(Dictionary new
                                     at:#exception put:detail signal;
                                     at:#description put:detail description;
@@ -103,9 +105,9 @@
 !TestResultStX class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.1 2011-08-16 17:54:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.2 2012-10-24 16:16:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.1 2011-08-16 17:54:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.2 2012-10-24 16:16:08 cg Exp $'
 ! !