Une approche possible consiste à configurer votre projet comme suit.
Votre structure de répertoire est la suivante:
./project Your project files
./project/t/*.t Your unit test scripts
./project/t/scripts/* Auxiliary scripts used by your unit tests
Votre ./project/Makefile contient les éléments suivants:
PERL = /usr/bin/perl
TEST_LIBDIRS = ./lib
RUN_GUILE_TESTS = ./t/scripts/RunGuileTests.pl
TEST_FILES = ./t/*.t
test:
$(PERL) -I$(TEST_LIBDIRS) $(RUN_GUILE_TESTS) $(TEST_FILES)
Votre contenu ./project/t/scripts/RunGuileTests.pl sont:
#!/usr/bin/perl -w
# Run Guile tests - filenames are given as arguments to the script.
use TAP::Harness;
my @tests = @ARGV;
my %args = (
verbosity => 0,
timer => 1,
show_count => 1,
exec => ['/usr/bin/guile', '-s'],
);
my $harness = TAP::Harness->new(\%args);
$harness->runtests(@tests);
# End of RunGuileTests.pl
Vos scripts de test Guile doivent commencer par:
#!/usr/bin/guile -s
!#
; Description of your tests
Vous souhaitez probablement partager la réponse et l'afficher comme réponse réelle, ci-dessous. Cela fonctionnera mieux en termes de conception du site. –