Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lastState fixes
authorClaus Gittinger <cg@exept.de>
Thu, 08 Nov 2012 01:05:16 +0100
changeset 12055 266a7b6585ed
parent 12054 a0fd1c8d0c59
child 12056 28e46bad9ca9
lastState fixes
Tools__TestRunnerEmbedded.st file | annotate | diff | comparison | revisions 
--- a/Tools__TestRunnerEmbedded.st	Thu Nov 08 00:23:48 2012 +0100
+++ b/Tools__TestRunnerEmbedded.st	Thu Nov 08 01:05:16 2012 +0100
@@ -375,7 +375,7 @@
 !TestRunnerEmbedded methodsFor:'actions'!
 
 debug
-    | suiteAndResult suite test result | 
+    | suiteAndResult suite result | 
 
     suiteAndResult := self resultHolder value.
     suite := suiteAndResult suiteForRun.
@@ -384,26 +384,22 @@
 
     self stop.
 
-    testProcess :=
-        [
-            [
-                self runningHolder value:true.
+    "/ debug run is synchronous
+    [
+        self runningHolder value:true.
 
-                suite tests do:[:test |
-                    test debug. 
-                    (test class testSelectorPassed:test selector) ifTrue:[
-                        result := TestResult defaultResultClass new.
-                        result passed add: test.
-                        suiteAndResult := SuiteAndResult suite: suite result: result.       
-                        self resultHolder value:suiteAndResult.    
-                    ].
-                ].
-            ] ensure:[
-                self runningHolder value:false.
+        suite tests do:[:test |
+            test debug. 
+            (test class testSelectorPassed:test selector) ifTrue:[
+                result := TestResult defaultResultClass new.
+                result passed add: test.
+                suiteAndResult := SuiteAndResult suite: suite result: result.       
+                self resultHolder value:suiteAndResult.    
             ].
-        ] newProcess.
-    testProcess priority:(Processor userBackgroundPriority).
-    testProcess resume.
+        ].
+    ] ensure:[
+        self runningHolder value:false.
+    ].
 
     "Created: / 15-03-2010 / 15:43:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-07-2011 / 11:33:48 / Jan Vrany <jan.vrant@fit.cvut,cz>"
@@ -1184,11 +1180,11 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.31 2012-10-31 13:33:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.32 2012-11-08 00:05:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.31 2012-10-31 13:33:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.32 2012-11-08 00:05:16 cg Exp $'
 !
 
 version_SVN
hg/stx-libtool