[p5sagit/p5-mst-13.2.git] / t / lib / Test / todo.t

# -*-perl-*-
use strict;
use Test;
BEGIN { 
    my $tests = 5; 
    plan tests => $tests, todo => [1..$tests]; 
}

ok(0);
ok(1);
ok(0,1);
ok(0,1,"need more tuits");
ok(1,1);
Commit	Line	Data
809908f7	1	# --perl--
	2	use strict;
	3	use Test;
	4	BEGIN {
	5	my $tests = 5;
	6	plan tests => $tests, todo => [1..$tests];
	7	}
	8
	9	ok(0);
	10	ok(1);
	11	ok(0,1);
	12	ok(0,1,"need more tuits");
	13	ok(1,1);