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

#!/usr/bin/perl -w

use strict;

use Test::Builder;

my $tb = Test::Builder->new;
$tb->level(0);

$tb->ok(1, "testing done_testing() with no arguments");
$tb->ok(1, "  another test so we're not testing just one");
$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->level(0);
	9
	10	$tb->ok(1, "testing done_testing() with no arguments");
	11	$tb->ok(1, " another test so we're not testing just one");
	12	$tb->done_testing(2);