--- a/RegressionTests__VMCrashTests.st	Tue Dec 12 09:01:30 2017 +0000
+++ b/RegressionTests__VMCrashTests.st	Thu Dec 21 16:02:03 2017 +0000
@@ -10,6 +10,21 @@
 !
 
 
+!VMCrashTests methodsFor:'private'!
+
+childOf: aSimpleView withUUID: aUUIDOrString
+    aSimpleView automationUUID asString = aUUIDOrString asString ifTrue:[ ^ aSimpleView ].
+    aSimpleView subViews do:[:each | 
+        | found |
+
+        found := self childOf: each withUUID: aUUIDOrString.
+        found notNil ifTrue:[ ^ found ].  
+    ].
+    ^ nil
+
+    "Created: / 21-12-2017 / 15:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !VMCrashTests methodsFor:'tests - GC'!
 
 iter_java_initialize
@@ -224,15 +239,6 @@
     "Created: / 21-09-2017 / 23:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-10-2017 / 22:28:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 08-10-2017 / 23:51:30 / jv"
-!
-
-test_stx_libjava_testSuite_inspect
-    <timeout: 120> "2min"
-    <spawn: true>
-
-    (Smalltalk at:#stx_libjava) testSuite inspect.
-
-    "Created: / 01-05-2017 / 21:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VMCrashTests methodsFor:'tests - context'!
@@ -727,6 +733,43 @@
     ]
 
     "Created: / 18-12-2017 / 09:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_run_CharacterTests_from_browser
+    <timeout: 120> "2min"
+    <spawn: true>
+
+    | browser browserInteractor button buttonInteractor |
+
+    Screen current isNil ifTrue:[
+        Smalltalk openDisplay.
+    ].
+    self skipIf:Screen current isNil description:'No display connection'.
+    Smalltalk loadPackage:'stx:goodies/sunit/ext/ui'.              
+
+    CharacterTests autoload.
+     browser := Tools::NewSystemBrowser new.
+    browser open.
+    browserInteractor := browser interactor.    
+    browserInteractor do:[ browser switchToClass: CharacterTests ].
+    self assert: browser theSingleSelectedClass == CharacterTests.
+    button := self childOf: browser window withUUID: '79afa5fe-a549-4419-b035-21af25ac5ec3'.
+    self assert: button notNil.
+    buttonInteractor := button interactor.
+    buttonInteractor do:[button controller performAction].
+
+    "Created: / 21-12-2017 / 15:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_stx_libjava_testSuite_inspect
+    <timeout: 120> "2min"
+    <spawn: true>
+
+    (Smalltalk at:#stx_libjava) testSuite inspect.
+    Delay waitForSeconds: 5.
+
+    "Created: / 01-05-2017 / 21:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-12-2017 / 15:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VMCrashTests class methodsFor:'documentation'!