[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / Builder / done_testing_with_no_plan.t

#!/usr/bin/perl -w

use strict;

use Test::Builder;

my $tb = Test::Builder->new;
$tb->plan( "no_plan" );
$tb->ok(1);
$tb->ok(1);
$tb->done_testing(2);
Commit	Line	Data
3e887aae	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4
	5	use Test::Builder;
	6
	7	my $tb = Test::Builder->new;
	8	$tb->plan( "no_plan" );
	9	$tb->ok(1);
	10	$tb->ok(1);
	11	$tb->done_testing(2);