On aborde à présent la création d'une classe de test et comment créer un ensemble de tests unitaires permettant de controler le comportement de la classe Counter définie précédemment.

Dans le même package MyCounter, on définit une nouvelle classe CounterTest qui hérite de la classe TestCase.

TestCase subclass: #CounterTest
	instanceVariableNames: ''
	classVariableNames: ''
	package: 'MyCounter'

Une fois le code sauvegardé, une nouvelle classe apparaît dans le package, elle est préfixée par un bouton gris. Si on clique sur le bouton on voit s'afficher le message “CounterTest No tests ran”, c'est normal aucun test n'est encore définit. Pour créer un test, on va définir une méthode d'instance

testCreateCounterSetAndRead
	"Create a Counter instance, set counter value and verify counter value"
			
	| aCounter |
	aCounter := Counter new setCounter: 33.
	self assert: aCounter getCounter equals: 33.

Si maintenant on clique à nouveau sur le bouton gris en entête de la classe CounterTest, un message indique qu'un test à été exécuté. Il a reussi, le bouton est coloré en vert.

⌂ Retour au sommaire