lib/Test/t/mix.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# -*-perl-*-
use strict;
use Test;
BEGIN { plan tests => 4, todo => [2,3] }

ok(sub { 
       my $r = 0;
       for (my $x=0; $x < 10; $x++) {
	   $r += $x*($r+1);
       }
       $r
   }, 3628799);

ok(0);
ok(1);

skip(1,0);