--- a/TestResultStX.st Thu Nov 08 01:04:57 2012 +0100
+++ b/TestResultStX.st Thu Nov 08 01:05:03 2012 +0100
@@ -96,10 +96,10 @@
relPath := (relPath asFilename construct:cls theNonMetaclass classFilename) name.
classSourceFile := relPath.
-"/ classSourceFile := Smalltalk getPackageFileName:relPath.
-"/ classSourceFile isNil ifTrue:[
-"/ classSourceFile := self class sourceFilenameOfClass:cls.
-"/ ].
+ classSourceFile := Smalltalk getPackageFileName:relPath.
+ classSourceFile isNil ifTrue:[
+ classSourceFile := self class sourceFilenameOfClass:cls.
+ ].
classSourceFile notNil ifTrue:[
method sourcePosition notNil ifTrue:[
"/ sigh - we have the lineNumber within the method,
@@ -125,15 +125,15 @@
with: (con selector)
with: (con lineNumber) ).
- classSourceFile notNil ifTrue:[
+ relPath notNil ifTrue:[
lineNumberOfMethod notNil ifTrue:[
lineNumberInFile := lineNumberOfMethod + con lineNumber - 1.
aStream nextPutAll:(' (%1:%2)'
- bindWith: classSourceFile
+ bindWith: relPath
with: lineNumberInFile)
] ifFalse:[
aStream nextPutAll:(' (%1)'
- bindWith: classSourceFile)
+ bindWith: relPath)
].
].
aStream cr.
@@ -236,9 +236,9 @@
!TestResultStX class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.8 2012-11-07 17:04:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.9 2012-11-08 00:05:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.8 2012-11-07 17:04:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.9 2012-11-08 00:05:03 cg Exp $'
! !