reduce delay in test

SeasideSt · Oct 25, 2024 · 844a621 · 844a621
1 parent f3d68c0
commit 844a621
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/...sol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st b/...sol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st
@@ -2,12 +2,10 @@ testing
 testTableReportFunctionalTest
 	| firstColumn classNames |
 	self selectTest: 'WATableReportFunctionalTest'.
-	(Delay forSeconds: 1) wait.
+
+	(Delay forMilliseconds: 500) wait."Because it was failing on the CI for some older versions..."
 	firstColumn := driver findElementsByCSSSelector: 'table>tbody>tr>td:first-child'.
 	classNames := (firstColumn collect: [ :e | e getText ]).
-	((WAComponent allSubclasses collect: [ :c | c name greaseString ]) 
-		reject: [ :className | classNames includes: className  ])
-			do: [ :className | Transcript show: className ].
 	self assert: ((WAComponent allSubclasses collect: [ :c | c name greaseString ]) allSatisfy: [ :className | classNames includes: className ]).
 
 	((driver findElementByCSSSelector: 'table>thead') findElementByPartialLinkText: 'Name') click.