--- 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 $'
! !