Added some label morph tests

hpi-swa-teaching · Jul 11, 2024 · d5951be · d5951be
1 parent 36c0162
commit d5951be
Show file tree

Hide file tree

Showing 8 changed files with 47 additions and 0 deletions.
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/README.md b/Squello-Tests.package/SPBLabelMorphTests.class/README.md
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/setUp.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/setUp.st
@@ -0,0 +1,9 @@
+running
+setUp
+
+	label := SPBLabel new
+		title: 'TestLabel';
+		color: Color turquoise;
+		id: 0;
+		yourself.
+	morph := SPBLabelMorph createFromLabel: label.
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st
@@ -0,0 +1,2 @@
+running
+tearDown
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st
@@ -0,0 +1,4 @@
+tests
+testColor
+
+	self assert: morph backgroundColor equals: label color.
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st
@@ -0,0 +1,4 @@
+tests
+testName
+
+	self assert: morph text equals: label title.
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testTheme.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testTheme.st
@@ -0,0 +1,4 @@
+tests
+testTheme
+
+	self assert: morph borderColor equals: (SqueakTheme current properties at: PluggableButtonMorph->#color) makeForegroundColor.
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/methodProperties.json b/Squello-Tests.package/SPBLabelMorphTests.class/methodProperties.json
@@ -0,0 +1,9 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"setUp" : "AH 7/11/2024 15:46",
+		"tearDown" : "AH 7/11/2024 15:40",
+		"testColor" : "AH 7/11/2024 15:42",
+		"testName" : "AH 7/11/2024 15:42",
+		"testTheme" : "AH 7/11/2024 15:44" } }
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/properties.json b/Squello-Tests.package/SPBLabelMorphTests.class/properties.json
@@ -0,0 +1,15 @@
+{
+	"category" : "Squello-Tests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"label",
+		"morph" ],
+	"name" : "SPBLabelMorphTests",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }