lib/Test/t/todo.t


1
2
3
4
5
6
7
8
9
10
11
12
13

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