30 如何运行TAP::利用用Guile编写的测试?

通常的方法

测试:$ (PERL)-MExtUtils::命令::MM的‘e’‘test_harness(美元(TEST_VERBOSE), (INCDIRS)美元)的美元(TEST_FILES)

无法运行Guile脚本,因为它将额外的参数'-w'传递给Guile。

请先 登录 后评论

1 个回答

Omer Zak

一种可能的方法是按以下方式设置项目。

目录结构如下所示:

./project你的项目文件。t您的单元测试脚本。/project/t/scripts/*单元测试使用的辅助脚本

你的。/project/Makefile文件包含以下内容:

PERL = /usr/bin/ PERL TEST_LIBDIRS = ./lib RUN_GUILE_TESTS = ./t/scripts/RunGuileTests.pl TEST_FILES = ./t/*。t测试:$(PERL) -I$(TEST_LIBDIRS) $(RUN_GUILE_TESTS) $(TEST_FILES)

您的./project/t/scripts/RunGuileTests.pl内容是:

#!/usr/bin/perl - w#运行Guile测试-文件名作为脚本的参数给出。使用水龙头::利用;我的@测试= @ARGV;我% args =(冗长= > 0,计时器= > 1,show_count = > 1, exec = > [/ usr / bin /诡计,' s '],);my $harness = TAP:: harness ->new(\%args);利用- > runtests (@tests);# RunGuileTests.pl结束

你的Guile测试脚本应该这样开始:

#!/usr/bin/guile -s !测试的描述
请先 登录 后评论