10 lines
293 B
Smalltalk
10 lines
293 B
Smalltalk
testing
|
|
testContactManagement
|
|
| book contact |
|
|
book := ContactBook new.
|
|
contact := Contact newNamed: 'Veit Heller' email: 'veit@veitheller.de'.
|
|
book addContact: contact.
|
|
self assert: book contacts size equals: 1.
|
|
book removeContact: contact.
|
|
self assert: book contacts size equals: 0.
|
|
|