TestResultStX.st
changeset 526 9988390f9282
parent 508 c6352c44c013
child 571 d5a1ac6d1743
--- 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 $'
 ! !