Commit | Line | Data |
89c1e84a |
1 | #!/usr/bin/perl -w |
2 | |
3 | # Dave Rolsky found a bug where if current_test() is used and no |
4 | # tests are run via Test::Builder it will blow up. |
5 | |
6 | use Test::Builder; |
7 | $TB = Test::Builder->new; |
8 | $TB->plan(tests => 2); |
9 | print "ok 1\n"; |
10 | print "ok 2\n"; |
11 | $TB->current_test(2); |