perl - Perl テスト: 最初の失敗後に単一ファイルでのテストを停止する方法

Question

Test::Moreモジュールを使用しています。.tたくさんのテストを含むファイルがある場合(主に を使用ok()); 最初の失敗後にテストケースを停止するにはどうすればよいですか。私が今見ているのは、最初のokが失敗した場合です。後続のok()ケースはまだ実行中です。

私は使用を検討しましたが、特定のファイルのテストを停止するだけでなく、Test::More::Bail_OUT;すべてのテストを停止して (私が持っている他のファイルを意味する) 停止します。.t

ありがとう！

Answer 1

Test::More POD は、より良い制御のために Test::Most に言及しています。おそらくdie_on_failあなたが必要とすることをします。

Answer 2

done_testing()と を呼び出しexitます。

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

それ以外の場合は、ラベルskip付きのブロック内で関数を使用できます。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。