[p5sagit/p5-mst-13.2.git] / ext / Test / Harness / t / compat / nonumbers.t

if ( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) {
    print "1..0 # Skip: t/TEST needs numbers\n";
    exit;
}

print <<END;
1..6
ok
ok
ok
ok
ok
ok
END
Commit	Line	Data
b965d173	1	if ( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) {
	2	print "1..0 # Skip: t/TEST needs numbers\n";
	3	exit;
	4	}
	5
	6	print <<END;
	7	1..6
	8	ok
	9	ok
	10	ok
	11	ok
	12	ok
	13	ok
	14	END