The Trunk: MorphicTests-mt.48.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicTests-mt.48.mcz

commits-2
Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-mt.48.mcz

==================== Summary ====================

Name: MorphicTests-mt.48
Author: mt
Time: 15 November 2018, 12:16:20.966757 pm
UUID: 92a6d44a-1cd6-974a-be2f-1366099a180f
Ancestors: MorphicTests-mt.47

Adds a test for morph border initialization

=============== Diff against MorphicTests-mt.47 ===============

Item was added:
+ ----- Method: BorderedMorphTests>>test05Convenience (in category 'tests') -----
+ test05Convenience
+ "Check whether a the convenience messages #borderWidth: and #borderColor: work."
+
+ | sut |
+ sut := Morph new.
+ sut
+ borderWidth: 5;
+ borderColor: Color yellow.
+
+ self
+ assert: 5 equals: sut borderWidth;
+ assert: Color yellow equals: sut borderColor.
+
+ sut := Morph new.
+ sut
+ borderColor: Color yellow;
+ borderWidth: 5.
+
+ self
+ assert: Color yellow equals: sut borderColor;
+ assert: 5 equals: sut borderWidth.!