implemented test

hpi-swa-teaching · Jul 10, 2021 · 4539e5b · 4539e5b
1 parent 8b8bcbd
commit 4539e5b
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/.../MEXExplorationViewTests.class/instance/testBackButtonOfExplorationViewLeadsToOverView.st b/.../MEXExplorationViewTests.class/instance/testBackButtonOfExplorationViewLeadsToOverView.st
@@ -0,0 +1,14 @@
+running
+testBackButtonOfExplorationViewLeadsToOverView
+
+	| view openExplorationViews openOverViews |
+	view := builder build: explorationView.
+	view openInWorld.
+	openExplorationViews := (self getOpenWindowsWithModel: MEXToolExplorationView) size.
+	openOverViews := (self getOpenWindowsWithModel: MEXToolOverView) size.
+	((view submorphs select: 
+		[:aMorph| aMorph isKindOf: MEXPluggableButtonMorph])
+		select: [:aMorph | aMorph label = 'Back']) first performAction.
+	self assert: ((self getOpenWindowsWithModel: MEXToolExplorationView) size = (openExplorationViews - 1)).
+	self assert: ((self getOpenWindowsWithModel: MEXToolOverView) size = (openOverViews + 1)).
+	view abandon
diff --git a/...ages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/methodProperties.json b/...ages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/methodProperties.json
@@ -10,6 +10,7 @@
 		"sampleCode" : "SC 6/29/2021 04:50",
 		"setUp" : "lk 7/24/2019 16:15",
 		"tearDown" : "lk 7/24/2019 15:02",
+		"testBackButtonOfExplorationViewLeadsToOverView" : "SC 7/10/2021 17:49",
 		"testBuiltExplorationViewForCategoryReturnsCorrectMethodList" : "lk 7/24/2019 17:42",
 		"testBuiltExplorationViewForCategoryReturnsIdenticalCategory" : "lk 7/24/2019 15:44",
 		"testCurrentMorphChanges" : "TB 6/23/2021 18:56",