reduce delay in test

Author: Johan Brichau

repository/Seaside-Tests-Parasol.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.