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