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

# -*-perl-*-
use strict;
use Test qw($TESTOUT $ntest plan ok skip); plan tests => 6;

open F, ">skips" or die "open skips: $!";
$TESTOUT = *F{IO};

skip(1, 0);  #should skip

my $skipped=1;
skip('hop', sub { $skipped = 0 });
skip(sub {'jump'}, sub { $skipped = 0 });
skip('skipping stones is more fun', sub { $skipped = 0 });

close F;

$TESTOUT = *STDOUT{IO};
$ntest = 1;
open F, "skips" or die "open skips: $!";

ok $skipped, 1, 'not skipped?';

my @T = <F>;
chop @T;
my @expect = split /\n+/, join('',<DATA>);
ok @T, 4;
for (my $x=0; $x < @T; $x++) {
    ok $T[$x], $expect[$x];
}

END { close F; unlink "skips" }

__DATA__
ok 1 # skip

ok 2 # skip hop

ok 3 # skip jump

ok 4 # skip skipping stones is more fun
Commit	Line	Data
809908f7	1	# --perl--
	2	use strict;
	3	use Test qw($TESTOUT $ntest plan ok skip); plan tests => 6;
	4
	5	open F, ">skips" or die "open skips: $!";
	6	$TESTOUT = *F{IO};
	7
	8	skip(1, 0); #should skip
	9
	10	my $skipped=1;
	11	skip('hop', sub { $skipped = 0 });
	12	skip(sub {'jump'}, sub { $skipped = 0 });
	13	skip('skipping stones is more fun', sub { $skipped = 0 });
	14
	15	close F;
	16
	17	$TESTOUT = *STDOUT{IO};
	18	$ntest = 1;
	19	open F, "skips" or die "open skips: $!";
	20
	21	ok $skipped, 1, 'not skipped?';
	22
	23	my @T = <F>;
	24	chop @T;
	25	my @expect = split /\n+/, join('',<DATA>);
	26	ok @T, 4;
	27	for (my $x=0; $x < @T; $x++) {
	28	ok $T[$x], $expect[$x];
	29	}
	30
	31	END { close F; unlink "skips" }
	32
	33	__DATA__
	34	ok 1 # skip
	35
	36	ok 2 # skip hop
	37
	38	ok 3 # skip jump
	39
	40	ok 4 # skip skipping stones is more fun