diff --git a/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testAbandonMethodWorks.st b/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testAbandonMethodWorks.st new file mode 100644 index 0000000..8620be4 --- /dev/null +++ b/packages/MorphicAPIExplorer-Tests.package/MEXExplorationViewTests.class/instance/testAbandonMethodWorks.st @@ -0,0 +1,13 @@ +tests +testAbandonMethodWorks + + | view abandonCode| + abandonCode := '| morph | + morph := Morph new. + morph openInWorld: playground. + morph center: playground center. + morph abandon.'. + + view := builder build: explorationView. + view model evaluateCode: abandonCode. + self assert: view model playground submorphs size equals: 0. \ 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 faeb872..0160232 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", + "testAbandonMethodWorks" : "JF 7/1/2022 12:06", "testBackButtonOfExplorationViewLeadsToOverView" : "SC 7/16/2021 17:35", "testBuiltExplorationViewForCategoryReturnsCorrectMethodList" : "lk 7/24/2019 17:42", "testBuiltExplorationViewForCategoryReturnsIdenticalCategory" : "lk 7/24/2019 15:44",