From f3d68c08814d1776cf0a1217b24f44a1e89d5fcd Mon Sep 17 00:00:00 2001
From: Johan Brichau <johan@yesplan.be>
Date: Fri, 25 Oct 2024 15:00:11 +0200
Subject: [PATCH] add a delay to debug a test

---
 .../class/runSeleniumServerInTerminal.st               | 10 ++++++++++
 .../class/runSeleniumServerInTerminalMenuCommandOn..st |  9 +++++++++
 .../class/seasideIcebergRepository.st                  |  6 ++++++
 .../instance/testTableReportFunctionalTest.st          |  2 +-
 4 files changed, 26 insertions(+), 1 deletion(-)
 create mode 100644 repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st
 create mode 100644 repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st
 create mode 100644 repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st

diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st
new file mode 100644
index 000000000..02cd9146c
--- /dev/null
+++ b/repository/Seaside-Pharo100-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
\ No newline at end of file
diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st
new file mode 100644
index 000000000..d4da0bd73
--- /dev/null
+++ b/repository/Seaside-Pharo100-Tools-Spec2.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 ]
\ No newline at end of file
diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st
new file mode 100644
index 000000000..8672eb55f
--- /dev/null
+++ b/repository/Seaside-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.' ]
\ No newline at end of file
diff --git a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st
index f8efbe4ad..019162c0c 100644
--- a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st
+++ b/repository/Seaside-Tests-Parasol.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 ])