1
test: $(PERL) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INCDIRS)')" $(TEST_FILES)
通常的做法無法運行狡詐的腳本,因爲它傳遞給詭計額外的參數「-w」。
test: $(PERL) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INCDIRS)')" $(TEST_FILES)
通常的做法無法運行狡詐的腳本,因爲它傳遞給詭計額外的參數「-w」。
一種可能的方法是設置您的項目如下。
您的目錄結構如下:
./project Your project files ./project/t/*.t Your unit test scripts ./project/t/scripts/* Auxiliary scripts used by your unit tests
你./project/Makefile包含以下內容:
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)
你./project/t/scripts/RunGuileTests.pl內容是:
#!/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
你狡詐的測試腳本應該開始:
#!/usr/bin/guile -s !# ; Description of your tests
您可能希望將答案拆分出來,並將其作爲實際答案張貼在下方。這在網站的設計方面會更好。 – 2008-09-16 13:18:52