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