Skip to content

Commit

Permalink
Added some label morph tests
Browse files Browse the repository at this point in the history
  • Loading branch information
Antonia Heinen committed Jul 11, 2024
1 parent 36c0162 commit d5951be
Show file tree
Hide file tree
Showing 8 changed files with 47 additions and 0 deletions.
Empty file.
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
running
setUp

label := SPBLabel new
title: 'TestLabel';
color: Color turquoise;
id: 0;
yourself.
morph := SPBLabelMorph createFromLabel: label.
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
running
tearDown
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
tests
testColor

self assert: morph backgroundColor equals: label color.
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
tests
testName

self assert: morph text equals: label title.
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
tests
testTheme

self assert: morph borderColor equals: (SqueakTheme current properties at: PluggableButtonMorph->#color) makeForegroundColor.
Original file line number Diff line number Diff line change
@@ -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" } }
15 changes: 15 additions & 0 deletions Squello-Tests.package/SPBLabelMorphTests.class/properties.json
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
{
"category" : "Squello-Tests",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"label",
"morph" ],
"name" : "SPBLabelMorphTests",
"pools" : [
],
"super" : "TestCase",
"type" : "normal" }

0 comments on commit d5951be

Please sign in to comment.