blob: 31f95899777f15759e886f2e550771795cc84a67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/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);
|