Add one more test for #65

hpi-swa-teaching · Jul 15, 2019 · 9e6048f · 9e6048f
1 parent a8e47f2
commit 9e6048f
Show file tree

Hide file tree

Showing 6 changed files with 25 additions and 4 deletions.
diff --git a/...readSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/chooseFormulaModelAt..st b/...readSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/chooseFormulaModelAt..st
@@ -0,0 +1,9 @@
+tools
+chooseFormulaModelAt: aPoint
+
+	| button |
+	button := self findModelButtonAt: aPoint.
+	self
+		should: [button click]
+		notify: 'model'
+		thenAnswer: SSCellModel asString.
diff --git a/...preadSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/findFormulaButtonAt..st b/...preadSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/findFormulaButtonAt..st
@@ -0,0 +1,4 @@
+tools
+findFormulaButtonAt: aPoint
+
+	^ self findButtonAt: aPoint byLabel: 'model'
diff --git a/...eetTool-Tests.package/SSModelAcceptanceTest.class/instance/testChangeModelButtonExists.st b/...eetTool-Tests.package/SSModelAcceptanceTest.class/instance/testChangeModelButtonExists.st
@@ -2,5 +2,5 @@ testing
 testChangeModelButtonExists
 
 	| button |
-	button := self findButtonAt: self someCellIndex byLabel: 'model'.
+	button := self findModelButtonAt: self someCellIndex.
 	self assert: button morphs hasSingle.
diff --git a/...adSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/testFormulaButtonExists.st b/...adSheetTool-Tests.package/SSModelAcceptanceTest.class/instance/testFormulaButtonExists.st
@@ -2,5 +2,5 @@ testing
 testFormulaButtonExists
 
 	| button |
-	button := self findButtonAt: self someCellIndex byLabel: 'formula'.
+	button := self findFormulaButtonAt: self someCellIndex.
 	self assert: button morphs hasSingle.
diff --git a/...-Tests.package/SSModelAcceptanceTest.class/instance/testFormulaModelHasNoFormulaButton.st b/...-Tests.package/SSModelAcceptanceTest.class/instance/testFormulaModelHasNoFormulaButton.st
@@ -0,0 +1,5 @@
+testing
+testFormulaModelHasNoFormulaButton
+
+	self chooseFormulaModelAt: self someCellIndex.
+	self assert: (self findFormulaButtonAt: self someCellIndex) isNegative.
diff --git a/packages/SpreadSheetTool-Tests.package/SSModelAcceptanceTest.class/methodProperties.json b/packages/SpreadSheetTool-Tests.package/SSModelAcceptanceTest.class/methodProperties.json
@@ -3,15 +3,18 @@
 		"anObject" : "CT 7/9/2019 12:33",
 		"anObject:" : "CT 7/9/2019 12:34" },
 	"instance" : {
+		"chooseFormulaModelAt:" : "CT 7/15/2019 16:56",
 		"chooseInspectorModelAt:" : "CT 7/12/2019 20:39",
 		"chooseTextModelAt:" : "CT 7/13/2019 16:16",
+		"findFormulaButtonAt:" : "CT 7/15/2019 16:57",
 		"findModelButtonAt:" : "CT 7/12/2019 20:39",
 		"testChangeConfiguration" : "CT 7/12/2019 21:04",
 		"testChangeFormula" : "CT 7/11/2019 11:22",
 		"testChangeModel" : "CT 7/11/2019 21:36",
-		"testChangeModelButtonExists" : "CT 7/10/2019 00:34",
+		"testChangeModelButtonExists" : "CT 7/15/2019 16:58",
 		"testDefaultModel" : "CT 7/15/2019 13:34",
-		"testFormulaButtonExists" : "CT 7/10/2019 00:33",
+		"testFormulaButtonExists" : "CT 7/15/2019 16:58",
+		"testFormulaModelHasNoFormulaButton" : "CT 7/15/2019 16:57",
 		"testRecursiveToolWithMenuBar" : "CT 7/15/2019 11:54",
 		"testSteppingActivated:" : "CT 7/15/2019 13:24",
 		"testSteppingButtonExists" : "CT 7/15/2019 12:09",