Dan*_*mer 8 testing perl test-plan
我们在Perl中为不同的科学数据格式编写了解析器.最近我添加了一个测试套件,其中parser_*.t包含每种格式和子格式的文件.
当然,解析器的API完全相同,只是从用于测试解析的示例文件中读取的数据不同.为了简化测试文件,我写了一个sub,它传递了解析器对象和表示预期数据的哈希结构.看起来像
my $parser = new MyApp::Parser($file);
test_nested_objects = ($parser, {
property1 => "value",
property2 => 123,
subobject_accessor => {
property3 => "foobar",
}
}
Run Code Online (Sandbox Code Playgroud)
子test_nested_objects遍历散列并运行散列中定义的所有属性的测试,例如,如果subobject_accessor可以调用,则返回一个对象并且可以调用该对象property3.
我检查了整个*.t文件运行了多少测试并添加tests => 123到所有*.t文件中.现在,我在泛型函数中添加了一些检查,所有计划都是错误的.
如何让我的计划了解子测试?我想实现以下目标:
我希望你能够明白.对不起,但我认为如果没有一些背景知识,人们可能会理解.
bri*_*foy 11
测试计划的最新趋势根本就是不这样做.在测试文件的末尾,您声明已到达结尾:
done_testing();
Run Code Online (Sandbox Code Playgroud)
测试计划的许多用途仅用于确保测试脚本完成.如果它看到了正确数量的测试,那么脚本必须一直到最后.这不是真的,但它是一个方便和可行的小说.
如果您必须进行一些计算来确定测试的数量,例如测量数据结构的大小,那么请plan稍后调用:
use Test::More; # don't declare the plan yet
my $test_count = ...;
plan tests => $test_count;
Run Code Online (Sandbox Code Playgroud)
但是,您可以将测试划分为子测试,而不是制定大计划.每个子测试只需知道它运行了多少测试,脚本只需要知道子测试的数量:
subtest some_label => sub {
plan tests => $n;
...
};
Run Code Online (Sandbox Code Playgroud)
每个通话的测试功能,将是一个考验,功能会使用一个子测试做任何它想不暴露太多的调用者来完成.