hegemonie-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Hegemonie-devel] Tests scheme


From: Damien Genet
Subject: [Hegemonie-devel] Tests scheme
Date: Fri, 16 May 2003 10:10:40 +0200 (CEST)
User-agent: IMP/PHP IMAP webmail program 2.2.6

Salut,


Vous trouverez ci-joint un exemple de test en scheme. Vous devez mettre tous vos
tests dans le sous-répertoire Tests/, et ajouter le fichier begin.grg dans ce
même répertoire. Pour exécuter tous les tests situés dans ce répertoire il faut
faire :
$greg --tool Tests
ou pour un seul test :
$greg --tool Tests --file testHgObject.scm

Il y a quelque correctifs à appliquer par rapport à ce que j'avais dit
précédemment, comme vous pourrez le voir dans le test :

- il faut utiliser equal?, qui peut tester l'équalité pour la pluspart des types
scheme, et non eq?
- il faut impérativement encadrer le test par lambda, même lorsqu'il n'y a qu'un
appel de fonction (je n'ai pas encore compris pourquoi)
- il faut utiliser (greg-testcase "descriptif" #t test) au lieu de
(greg-expect-pass "descriptif" test), le deuxième semblant ne pas marcher
- vous n'avez plus besoin d'inclure (use-modules (languages gstep-guile)) cela
étant fait dans begin.grg, qui est appelé automatiquement avant tout test
- vous devez lier votre code dans une bibliothèque qui devra s'appeler myLib

Je suis actuellement en train de voir avec les gars GNUstep pour rajouter
directement les règles de test dans le makefile GNUstep, et ne plus avoir à
modifier LD_LIBRARY_PATH et charger le .so manuellement (cf begin.grg).


A+,

--
Dam

Attachment: begin.grg
Description: Binary data

Attachment: testHgObject.scm
Description: Binary data


reply via email to

[Prev in Thread] Current Thread [Next in Thread]