TAP :: Harness testleri nasıl oynanır Guile? o "-w" ekstra parametre Guile geçer çünkü

Question

test: 
    $(PERL) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INCDIRS)')" $(TEST_FILES)

olağan yaklaşım, Guile komut dosyalarını çalıştırmak için başarısız olur.

Answer 1

Bir olası yaklaşım, projenizi aşağıdaki gibi kurmaktır.

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)

Kişisel ./project/t/scripts/RunGuileTests.pl içerikleri şunlardır:

./project    Your project files 
./project/t/*.t  Your unit test scripts 
./project/t/scripts/* Auxiliary scripts used by your unit tests

Kişisel ./project/Makefile aşağıdakileri içerir: aşağıdaki gibi

Kişisel dizin yapısı şöyledir: ile başlamalıdır

#!/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

Kişisel Guile sınama komut:

#!/usr/bin/guile -s 
!# 
; Description of your tests