5 lines
183 B
Smalltalk
5 lines
183 B
Smalltalk
testing
|
|
testString
|
|
| contact |
|
|
contact := Contact newNamed: ' Veit Heller ' email: 'veit@veitheller.de'.
|
|
self assert: contact asString equals: 'Veit Heller <veit@veitheller.de>'. |