try taking screenshot

SeasideSt · Jan 27, 2024 · 2c008c6 · 2c008c6
1 parent 4c828a4
commit 2c008c6
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/...Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/performTest.st b/...Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/performTest.st
@@ -0,0 +1,11 @@
+private
+performTest
+
+	^ [ super performTest ] on: TestFailure , Error do: [ :exceptionTest |
+			[ self takeScreenshot ] on: Error do: [ :errorScreenshot |
+				Transcript
+					show: ('Could not take screenshot in {1}: {2}' format: {
+						self asString.
+						errorScreenshot messageText });
+					cr ].
+		exceptionTest pass ]