scripts/visualgst: Create Gtk SUnit based on a TestResult

2014-02-04 Gwenael Casaccio <gwenael.casaccio@gmail.com> * scripts/Test.st: Show test result in GtkSUnit. 2014-02-04 Gwenael Casaccio <gwenael.casaccio@gmail.com> * SUnit/GtkSUnit.st: Add GtkSUnit class>>#results:.
gnu-smalltalk · Feb 5, 2014 · 76a6aeb · 76a6aeb
1 parent 455d5c4
commit 76a6aeb
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 5 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-04  Gwenael Casaccio <gwenael.casaccio@gmail.com>
+
+	* scripts/Test.st: Show test result in GtkSUnit.
+
 2014-01-24  Holger Hans Peter Freyther <holger@freyther.de>
 
 	* scripts/Test.st: Add -d/--debug option parsing.

diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-04  Gwenael Casaccio  <gwenael.casaccio@gmail.com>
+
+	* SUnit/GtkSUnit.st: Add GtkSUnit class>>#results:.
+
 2014-02-03  Gwenael Casaccio  <gwenael.casaccio@gmail.com>
 
 	* Extensions.st: Add AbstractNamespace>>hasTestCase, AbstractNamespace>>allSubspaces.

diff --git a/packages/visualgst/SUnit/GtkSUnit.st b/packages/visualgst/SUnit/GtkSUnit.st
@@ -36,6 +36,22 @@
 GtkBrowsingTool subclass: GtkSUnit [
     | namespaceWidget classWidget methodWidget sourceCodeWidget successfullWidget failedWidget errorWidget namespace class state |
 
+    GtkSUnit class >> results: results [
+        <category: 'instance creation'>
+
+        ^ self open
+                results: results;
+                yourself
+    ]
+
+    results: results [
+        <category: 'results ui'>
+
+	successfullWidget results: results passed.
+	failedWidget results: results failures.
+	errorWidget results: results errors.
+    ]
+
     accelPath [
         <category: 'accelerator path'>
 
@@ -312,9 +328,7 @@ GtkBrowsingTool subclass: GtkSUnit [
 	suite logPolicy: TestBacktraceLog new.
 	results := suite run.
 
-	successfullWidget results: results passed.
-	failedWidget results: results failures.
-	errorWidget results: results errors.
+	self results: results.
 
 	results failures do: [ :each | each "logPolicy logStatus inspect" printNl ].
     ]

diff --git a/scripts/Test.st b/scripts/Test.st
@@ -174,7 +174,6 @@ result runCount = result passedCount ifFalse: [
     debug ifTrue: [
         Transcript nextPutAll: 'Tests failed. Loading graphical environment.'; nl.
         SUnitUnhandledDebugger loadVisualGST.
-        result gtkInspect.
-        script gtkInspect.
+        Smalltalk VisualGST GtkSUnit results: result.
         SUnitUnhandledDebugger keepRunning].
     ObjectMemory quit: 1 ]!