/usr/share/doc/perl-Test-Simple/t/Legacy/Builder
#!/usr/bin/perl -w # Test that current_test() will work without a declared plan. use Test::Builder; my $tb = Test::Builder->new; $tb->current_test(2); print <<'END'; ok 1 ok 2 END $tb->ok(1, "Third test"); $tb->done_testing(3);
.
Edit
..
Edit
Builder.t
Edit
carp.t
Edit
create.t
Edit
current_test.t
Edit
current_test_without_plan.t
Edit
details.t
Edit
done_testing.t
Edit
done_testing_double.t
Edit
done_testing_plan_mismatch.t
Edit
done_testing_with_no_plan.t
Edit
done_testing_with_number.t
Edit
done_testing_with_plan.t
Edit
fork_with_new_stdout.t
Edit
has_plan.t
Edit
has_plan2.t
Edit
is_fh.t
Edit
is_passing.t
Edit
maybe_regex.t
Edit
no_diag.t
Edit
no_ending.t
Edit
no_header.t
Edit
no_plan_at_all.t
Edit
ok_obj.t
Edit
output.t
Edit
reset.t
Edit
reset_outputs.t
Edit
try.t
Edit