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

# -*-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);
Commit	Line	Data
809908f7	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);