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.