t/lib/Test/mix.t

   1 # -*-perl-*-
   2 use strict;
   3 use Test;
   4 BEGIN { plan tests => 4, todo => [2,3] }
   5
   6 ok(sub {
   7        my $r = 0;
   8        for (my $x=0; $x < 10; $x++) {
   9            $r += $x*($r+1);
  10        }
  11        $r
  12    }, 3628799);
  13
  14 ok(0);
  15 ok(1);
  16
  17 skip(1,0);