Commit | Line | Data |
3e887aae |
1 | #!/usr/bin/perl -w |
2 | |
3 | # Test that current_test() will work without a declared plan. |
4 | |
5 | use Test::Builder; |
6 | |
7 | my $tb = Test::Builder->new; |
8 | $tb->current_test(2); |
9 | print <<'END'; |
10 | ok 1 |
11 | ok 2 |
12 | END |
13 | |
14 | $tb->ok(1, "Third test"); |
15 | |
16 | $tb->done_testing(3); |