From d5951be8c38af8d140dcff2b4f0a23007322fb9d Mon Sep 17 00:00:00 2001
From: Antonia Heinen <antonia.heinen@student.hpi.uni-potsdam.de>
Date: Thu, 11 Jul 2024 15:47:46 +0200
Subject: [PATCH] Added some label morph tests

---
 .../SPBLabelMorphTests.class/README.md            |  0
 .../SPBLabelMorphTests.class/instance/setUp.st    |  9 +++++++++
 .../SPBLabelMorphTests.class/instance/tearDown.st |  2 ++
 .../instance/testColor.st                         |  4 ++++
 .../SPBLabelMorphTests.class/instance/testName.st |  4 ++++
 .../instance/testTheme.st                         |  4 ++++
 .../methodProperties.json                         |  9 +++++++++
 .../SPBLabelMorphTests.class/properties.json      | 15 +++++++++++++++
 8 files changed, 47 insertions(+)
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/README.md
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/instance/setUp.st
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/instance/testTheme.st
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/methodProperties.json
 create mode 100644 Squello-Tests.package/SPBLabelMorphTests.class/properties.json

diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/README.md b/Squello-Tests.package/SPBLabelMorphTests.class/README.md
new file mode 100644
index 00000000..e69de29b
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/setUp.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/setUp.st
new file mode 100644
index 00000000..f6f72da5
--- /dev/null
+++ 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.
\ No newline at end of file
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st
new file mode 100644
index 00000000..480f71fd
--- /dev/null
+++ b/Squello-Tests.package/SPBLabelMorphTests.class/instance/tearDown.st
@@ -0,0 +1,2 @@
+running
+tearDown
\ No newline at end of file
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st
new file mode 100644
index 00000000..e52dc27a
--- /dev/null
+++ b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testColor.st
@@ -0,0 +1,4 @@
+tests
+testColor
+
+	self assert: morph backgroundColor equals: label color.
\ No newline at end of file
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st
new file mode 100644
index 00000000..c12c3a94
--- /dev/null
+++ b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testName.st
@@ -0,0 +1,4 @@
+tests
+testName
+
+	self assert: morph text equals: label title.
\ No newline at end of file
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/instance/testTheme.st b/Squello-Tests.package/SPBLabelMorphTests.class/instance/testTheme.st
new file mode 100644
index 00000000..1f7b7200
--- /dev/null
+++ 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.
\ No newline at end of file
diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/methodProperties.json b/Squello-Tests.package/SPBLabelMorphTests.class/methodProperties.json
new file mode 100644
index 00000000..2f1886da
--- /dev/null
+++ 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
new file mode 100644
index 00000000..627579ea
--- /dev/null
+++ 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" }