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.!