fixed TravisStatus

packages/AutoTDD-Core.package/ATDDTravisStatus.class/instance/pause.st

@@ -4,4 +4,5 @@ pause
 		self process terminate.
 		self process: nil.
 	].
-	self paused: true.
+	self paused: true.
+	self updateStatus

packages/AutoTDD-Core.package/ATDDTravisStatus.class/instance/resume.st

@@ -1,5 +1,6 @@
 accessing
 resume
-	self process 
+	self process
 		ifNil: [self process: self startNewRefreshProcess].
-	self paused: false.
+	self paused: false.
+	self updateStatus.

packages/AutoTDD-Core.package/ATDDTravisStatus.class/methodProperties.json

@@ -8,22 +8,22 @@
 		"initialize" : "ls 6/5/2019 20:20",
 		"name" : "ls 6/5/2019 13:31",
 		"name:" : "ls 6/5/2019 13:31",
-		"pause" : "ls 7/3/2019 17:07",
+		"pause" : "ls 7/4/2019 14:24",
 		"paused" : "ls 6/5/2019 14:37",
 		"paused:" : "ls 6/5/2019 14:37",
 		"pausedStatus" : "vxr 7/4/2019 14:06",
 		"pausedStatus:" : "vxr 7/4/2019 14:06",
 		"pausedString" : "ls 6/5/2019 20:42",
 		"process" : "ls 6/5/2019 14:42",
 		"process:" : "ls 6/5/2019 14:42",
-		"refresh" : "vxr 7/4/2019 14:21",
+		"refresh" : "ls 7/4/2019 14:52",
 		"refreshInterval" : "ls 6/5/2019 14:57",
 		"refreshInterval:" : "ls 6/5/2019 14:56",
 		"repository" : "ls 6/5/2019 17:29",
 		"repository:" : "ls 6/5/2019 13:31",
 		"repositoryURL" : "ls 6/5/2019 20:20",
 		"repositoryURL:" : "ls 6/5/2019 20:19",
-		"resume" : "ls 7/3/2019 17:08",
+		"resume" : "ls 7/4/2019 14:28",
 		"startNewRefreshProcess" : "ls 7/3/2019 17:14",
 		"status" : "vxr 7/4/2019 14:18",
 		"status:" : "vxr 7/4/2019 14:19",

packages/AutoTDD-Core.package/TCIRepository.class/instance/clearCache.st

@@ -1,3 +1,4 @@
 utility
 clearCache
-	self cache: nil
+	self cache: nil.
+	self cache at: #lastRefresh put: TimeStamp now asTime asSeconds

packages/AutoTDD-Core.package/TCIRepository.class/methodProperties.json

@@ -9,7 +9,7 @@
 		"buildsDictionary" : "vxr 7/4/2019 14:23",
 		"cache" : "ls 6/5/2019 13:38",
 		"cache:" : "vxr 7/4/2019 14:23",
-		"clearCache" : "ls 6/5/2019 14:34",
+		"clearCache" : "ls 7/4/2019 14:59",
 		"client" : "vxr 7/4/2019 14:23",
 		"client:" : "vxr 7/4/2019 14:23",
 		"delete" : "vxr 7/4/2019 14:23",

packages/AutoTDD-Tests.package/ATDDTravisStatusTest.class/instance/testPauseResumeRun.st

@@ -1,19 +1,20 @@
 as yet unclassified
 testPauseResumeRun
-	| travisStatus |
+	| travisStatus time |
 	travisStatus := ATDDTravisStatus new.
 	travisStatus repositoryURL: self repoURL.
 
-	self assert: (travisStatus asString isKindOf: String).
+	self assert: (travisStatus asStringOrText isKindOf: Text).
 	self assert: travisStatus paused.
-	self assert: travisStatus repository cache keys size > 0. "the cache should not be empty because we just requested the status (by calling asString)"
+	self assert: travisStatus repository cache keys size > 1. "the cache should not be empty because we just requested the status (by calling asString)"
 
+	time := TimeStamp now asTime asSeconds.
 	travisStatus refreshInterval: (Time hour: 0 minute: 0 second: 1 ) asSeconds.
 	travisStatus resume.
 
 	(Delay forSeconds: 2) wait.
 	self assert: travisStatus paused not.
-	self assert: travisStatus repository cache keys size = 0. "the automatic refreshing should have cleared the cache after 1 seconds"
+	self assert: (travisStatus repository cache at: #lastRefresh) > time.
 
 	travisStatus pause.
 	self assert: travisStatus paused.

packages/AutoTDD-Tests.package/ATDDTravisStatusTest.class/methodProperties.json

@@ -4,4 +4,4 @@
 	"instance" : {
 		"repoURL" : "ls 6/19/2019 16:32",
 		"testConfiguration" : "ls 7/3/2019 17:16",
-		"testPauseResumeRun" : "ls 6/19/2019 17:03" } }
+		"testPauseResumeRun" : "ls 7/4/2019 14:56" } }