add GemServer>>waitForStartGems: calls to tests

dalehenrich · May 28, 2015 · cf04667 · cf04667
1 parent bbfa7c9
commit cf04667
Show file tree

Hide file tree

Showing 6 changed files with 18 additions and 9 deletions.
diff --git a/...itory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/startGems..st b/...itory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/startGems..st
@@ -6,4 +6,6 @@ startGems: gemServer
       self
         notify:
           'evaluate on server: abort; /home/gemserver/example --start=Test_Server' ]
-    ifFalse: [ gemServer startGems ]
+    ifFalse: [ 
+      gemServer startGems.
+      self waitForStartGems: 'Gems did not start ' , self gemServerName ]
diff --git a/...sitory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/stopGems..st b/...sitory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/stopGems..st
@@ -1,6 +1,4 @@
 private
 stopGems: gemServer
   self staticRemoteServer
-    ifFalse: [ 
-      gemServer stopGems.
-      (Delay forSeconds: 3) wait ]
+    ifFalse: [ gemServer stopGems ]
diff --git a/...sApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/waitForStartGems..st b/...sApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/waitForStartGems..st
@@ -0,0 +1,8 @@
+private
+waitForStartGems: message
+  (self gemServer waitForStartGems: 20)
+    ifFalse: [ 
+      Transcript
+        cr;
+        show: message.
+      self assert: false ]
diff --git a/...sitory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/methodProperties.json b/...sitory/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/methodProperties.json
@@ -8,7 +8,8 @@
 	"instance" : {
 		"createGemServer" : "dkh 01/09/2015 14:05",
 		"interactiveRemoteServer" : "dkh 01/09/2015 14:02",
-		"startGems:" : "dkh 01/09/2015 14:08",
+		"startGems:" : "dkh 05/28/2015 01:08",
 		"staticRemoteServer" : "dkh 01/09/2015 14:03",
-		"stopGems:" : "dkh 01/09/2015 14:08",
-		"testForceBeginTransaction" : "dkh 01/09/2015 14:08" } }
+		"stopGems:" : "dkh 05/28/2015 01:05",
+		"testForceBeginTransaction" : "dkh 01/09/2015 14:08",
+		"waitForStartGems:" : "dkh 05/28/2015 01:09" } }
diff --git a/repository/GsApplicationTools-Test.package/MockGemServer.class/instance/useEventLog..st b/repository/GsApplicationTools-Test.package/MockGemServer.class/instance/useEventLog..st
@@ -1,4 +1,4 @@
 accessing
 useEventLog: anObject
 
-   useEventLog := anObject
+   useEventLog := anObject
diff --git a/repository/GsApplicationTools-Test.package/monticello.meta/version b/repository/GsApplicationTools-Test.package/monticello.meta/version