Add some timeout helper methods

SeasideSt · Feb 28, 2024 · aa6a233 · aa6a233
1 parent b5e4ed5
commit aa6a233
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 1 deletion.
diff --git a/repository/Parasol-Core.package/BPWebDriverTestCase.class/instance/waitUntil.ifTimeout..st b/repository/Parasol-Core.package/BPWebDriverTestCase.class/instance/waitUntil.ifTimeout..st
@@ -0,0 +1,4 @@
+misc.
+waitUntil: aCondition ifTimeout: timeoutBlock
+
+	^ self waitUntil: aCondition ifTimeout: timeoutBlock times100MsToWait: 50
diff --git a/...-Core.package/BPWebDriverTestCase.class/instance/waitUntil.ifTimeout.times100MsToWait..st b/...-Core.package/BPWebDriverTestCase.class/instance/waitUntil.ifTimeout.times100MsToWait..st
@@ -0,0 +1,9 @@
+misc.
+waitUntil: aCondition ifTimeout: timeoutBlock times100MsToWait: times
+
+	| delay100ms |
+	delay100ms := Delay forMilliseconds: 100.
+	times timesRepeat: [
+		aCondition value ifTrue: [ ^ true ]
+						  ifFalse: [ delay100ms wait ] ].
+	^ timeoutBlock value
diff --git a/...Core.package/BPWebDriverTestCase.class/instance/waitUntilNoBPNoSuchElementExceptionIn..st b/...Core.package/BPWebDriverTestCase.class/instance/waitUntilNoBPNoSuchElementExceptionIn..st
@@ -0,0 +1,10 @@
+misc.
+waitUntilNoBPNoSuchElementExceptionIn: aBlock
+
+	| delay100ms |
+	delay100ms := Delay forMilliseconds: 100.
+	30 timesRepeat: [
+		[ ^ aBlock value ]
+			on: BPNoSuchElementException
+			do: [ :exc | delay100ms wait ] ].
+	^ self error: 'Timeout waiting for element to be available'
diff --git a/repository/Parasol-Core.package/monticello.meta/categories.st b/repository/Parasol-Core.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Parasol-Core'!
+self packageOrganizer ensurePackage: #'Parasol-Core' withTags: #()!