diff --git a/Squello-Tests.package/SPBLabelMorphTests.class/README.md b/Squello-Tests.package/SPBLabelMorphTests.class/README.md new file mode 100644 index 0000000..e69de29 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 0000000..f6f72da --- /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 0000000..480f71f --- /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 0000000..e52dc27 --- /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 0000000..c12c3a9 --- /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 0000000..1f7b720 --- /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 0000000..2f1886d --- /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 0000000..627579e --- /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" }