6 lines
238 B
Smalltalk
6 lines
238 B
Smalltalk
testing
|
|
testInstanceCreation
|
|
| contact |
|
|
contact := Contact newNamed: 'Marcus Denker' email: 'marcus.denker@inria.fr'.
|
|
self assert: contact fullname equals: 'Marcus Denker'.
|
|
self assert: contact email equals: 'marcus.denker@inria.fr'. |