From 4539e5bca5a6fc5b3c43d93e3089e7d1816f8b2f Mon Sep 17 00:00:00 2001 From: Simon Cyrani Date: Sat, 10 Jul 2021 17:49:46 +0200 Subject: [PATCH] implemented test --- ...stBackButtonOfExplorationViewLeadsToOverView.st | 14 ++++++++++++++ .../methodProperties.json | 1 + 2 files changed, 15 insertions(+) create mode 100644 packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testBackButtonOfExplorationViewLeadsToOverView.st diff --git a/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testBackButtonOfExplorationViewLeadsToOverView.st b/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testBackButtonOfExplorationViewLeadsToOverView.st new file mode 100644 index 00000000..c9193710 --- /dev/null +++ b/packages/MorphicAPIExplorer-Tests.package/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 \ No newline at end of file diff --git a/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/methodProperties.json b/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/methodProperties.json index c042bdf1..2202675a 100644 --- a/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/methodProperties.json +++ b/packages/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",