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

前端之家收集整理的这篇文章主要介绍了Perl测试:如何在首次失败后在单个文件中停止测试前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在使用Test :: More模块.如果我有一个.t文件,一堆测试(主要使用ok());第一次失败后,如何让测试工具停止.我现在看到的是如果第一个OK失败;后续的ok()情况仍在运行.

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

谢谢!

解决方法

调用done_testing()并退出.
  1. ok( first_test(),'first test' ) or done_testing,exit;
  2. ok( second_test(),'second test' );
  3. ...

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

  1. SKIP: {
  2. ok( first_test ) or skip "useless to run the next 4 tests",4;
  3. ok( second_test );
  4. ok( third_test );
  5. ok( fourth_test );
  6. ok( fifth_test );
  7. }
  8. ok( sixth_test );
  9. done_testing();

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

猜你在找的Perl相关文章