Fix fullscreen test bug #94. Squeak Image is after testing in same fu…

…llscreen mode as before.
hpi-swa-teaching · May 10, 2019 · 7505e7c · 7505e7c
1 parent efd9338
commit 7505e7c
Show file tree

Hide file tree

Showing 6 changed files with 17 additions and 3 deletions.
diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/fullScreenMode..st b/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/fullScreenMode..st
@@ -0,0 +1,4 @@
+accessing
+fullScreenMode: anObject
+
+	fullScreenMode := anObject
diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/fullScreenMode.st b/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/fullScreenMode.st
@@ -0,0 +1,4 @@
+accessing
+fullScreenMode
+
+	^ fullScreenMode
diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/setUp.st b/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/setUp.st
@@ -2,4 +2,5 @@ running
 setUp
 
 	super setUp.
+	self fullScreenMode: DisplayScreen displayIsFullScreen.
 	self window: (PSPresentationTool openIn: self world)
diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/tearDown.st b/packages/Presenter-Tests.package/PSPresentationToolTest.class/instance/tearDown.st
@@ -2,4 +2,6 @@ running
 tearDown
 
 	self window abandon.
+	self fullScreenMode ~= DisplayScreen displayIsFullScreen
+		ifTrue: [DisplayScreen toggleFullScreen].
 	super tearDown
diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/methodProperties.json b/packages/Presenter-Tests.package/PSPresentationToolTest.class/methodProperties.json
@@ -8,20 +8,22 @@
 		"deleteSlideAt:" : "MK 7/25/2018 12:50",
 		"enablePresentationMode" : "MK 7/25/2018 13:07",
 		"expectedFailures" : "LB 7/24/2018 15:38",
+		"fullScreenMode" : "mb 5/10/2019 14:38",
+		"fullScreenMode:" : "mb 5/10/2019 14:38",
 		"isInteractive" : "MK 7/25/2018 13:23",
 		"magneticRasterActive" : "MK 7/25/2018 12:57",
 		"miniatureOf:" : "MK 7/25/2018 13:28",
 		"moveCurrentSlideTo:" : "MK 7/25/2018 13:33",
 		"selectSlideNumber:" : "MK 7/25/2018 13:09",
-		"setUp" : "LB 5/23/2018 16:11",
+		"setUp" : "mb 5/10/2019 14:40",
 		"setUpSlideDeletion" : "MK 7/25/2018 13:00",
 		"slideAt:" : "MK 7/25/2018 12:48",
 		"slideContainer" : "WoC 6/15/2018 18:21",
 		"slideCount" : "WoC 7/24/2018 17:27",
 		"slideMiniatures" : "MK 7/25/2018 13:31",
 		"slides" : "LM 7/13/2018 17:42",
 		"slides:" : "LM 7/13/2018 18:22",
-		"tearDown" : "LB 5/22/2018 17:37",
+		"tearDown" : "mb 5/10/2019 14:49",
 		"testBuildWith" : "WoC 7/24/2018 17:51",
 		"testCurrentMiniatureHighlighted" : "WoC 7/25/2018 13:52",
 		"testDefaultSlideCount" : "LM 7/25/2018 13:31",

diff --git a/packages/Presenter-Tests.package/PSPresentationToolTest.class/properties.json b/packages/Presenter-Tests.package/PSPresentationToolTest.class/properties.json
@@ -6,7 +6,8 @@
 		 ],
 	"commentStamp" : "",
 	"instvars" : [
-		"window" ],
+		"window",
+		"fullScreenMode" ],
 	"name" : "PSPresentationToolTest",
 	"pools" : [
 		 ],