Perl测试：如何在首次失败后在单个文件中停止测试

发布时间：2020-12-15 22:03:00 所属栏目：大数据来源：网络整理

导读：我正在使用Test :: More模块.如果我有一个.t文件,一堆测试(主要使用ok());第一次失败后,如何让测试工具停止.我现在看到的是如果第一个OK失败;后续的ok()情况仍在运行. 我看着使用TEST :: More :: Bail_OUT;但是这将停止所有测试停止(意味着我拥有的其他.t文

我正在使用Test :: More模块.如果我有一个.t文件,一堆测试(主要使用ok());第一次失败后,如何让测试工具停止.我现在看到的是如果第一个OK失败;后续的ok()情况仍在运行.

我看着使用TEST :: More :: Bail_OUT;但是这将停止所有测试停止(意味着我拥有的其他.t文件),而不仅仅是测试停止特定的文件.

谢谢！

解决方法

调用done_testing()并退出.

ok( first_test(),'first test' ) or done_testing,exit;
ok( second_test(),'second test' );
...

在其他情况下,您可以使用具有SKIP标签的块中的跳过功能.

SKIP: {
    ok( first_test ) or skip "useless to run the next 4 tests",4;
    ok( second_test );
    ok( third_test );
    ok( fourth_test );
    ok( fifth_test );
}
ok( sixth_test );
done_testing();

skip / SKIP的主要优点是它在旧版本的Test :: More中得到支持.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!