vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/curr_test.t

   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);