t/lib/Test/todo.t

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