add a delay to debug a test

SeasideSt · Oct 25, 2024 · f3d68c0 · f3d68c0
1 parent 4d3541c
commit f3d68c0
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 1 deletion.
diff --git a/...aro100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st b/...aro100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st
@@ -0,0 +1,10 @@
+commands
+runSeleniumServerInTerminal
+	<script>
+
+	"seasideRepository := self seasideIcebergRepository.
+	repositoryLocation := seasideRepository location.
+	location exists ifFalse:[ ^ Error signal: 'Could not find git checkout' ]."
+	| bashScript |
+	bashScript := 'npm install selenium-standalone && npx selenium-standalone install && npx selenium-standalone start &'.
+	(LibC resultOfCommand: bashScript) inspect
diff --git a/...pec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st b/...pec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st
@@ -0,0 +1,9 @@
+world menu
+runSeleniumServerInTerminalMenuCommandOn: builder
+
+	<worldMenu>
+
+	(builder item: 'Run Selenium Server in Terminal')
+		parent: #Seaside;
+		order: 3;
+		action: [ self runSeleniumServerInTerminal ]
diff --git a/...-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st b/...-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st
@@ -0,0 +1,6 @@
+private
+seasideIcebergRepository
+
+	^ IceRepository registry 
+		detect: [ :repository | repository workingCopy packages anySatisfy:[ :p | p packageName = 'Seaside-Core' ] ] 
+		ifNone: [ Error signal: 'Could not find the Seaside repository.' ]
diff --git a/...sol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st b/...sol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st
@@ -2,7 +2,7 @@ testing
 testTableReportFunctionalTest
 	| firstColumn classNames |
 	self selectTest: 'WATableReportFunctionalTest'.
-
+	(Delay forSeconds: 1) wait.
 	firstColumn := driver findElementsByCSSSelector: 'table>tbody>tr>td:first-child'.
 	classNames := (firstColumn collect: [ :e | e getText ]).
 	((WAComponent allSubclasses collect: [ :c | c name greaseString ])