done_testing
このような問題点を改善するため,
use strict;
use Test::More;
Test::More->builder->use_numbers(0); # テストが順不同でも許す
Test::More->builder->no_ending(1); # child側の整合性チェックを省略する
if (my $pid = fork) {
wait;
pass "parent";
done_testing(2); # 明示的にテストの件数を指定する
}
else {
pass "child";
}
ここではdone_
use strict;
use Test::More;
Test::More->builder->use_numbers(0); # テストが順不同でも許す
Test::More->builder->no_ending(1); # child側の整合性チェックを省略する
if (my $pid = fork) {
wait;
pass "parent";
}
else {
pass "child";
exit;
}
done_testing(2); # 明示的にテストの件数を指定する
もちろんno_
use strict;
use Test::More;
if ($^O ne 'MSWin32') {
pass;
}
pass;
done_testing;
また,
たしかにdone_testingは便利ですが……
このように,
たとえば,
use strict;
use Test::More;
use Test::NoWarnings;
pass "without warning";
done_testing(2); # NoWarningsの分をひとつ追加
また,
use strict;
use Test::More;
pass;
=pod
pass;
=pod
=cut
pass;
done_testing;
ご覧の通り,
だから,
次回は,