[perl5.git] / t / op / inccode-tie.t

#!./perl

# Calls all tests in op/inccode.t after tying @INC first.

use Tie::Array;
my @orig_INC = @INC;
tie @INC, 'Tie::StdArray';
@INC = @orig_INC;
for my $file ('./op/inccode.t', './t/op/inccode.t', ':op:inccode.t') {
    if (-r $file) {
	do $file; die $@ if $@;
	exit;
    }
}
die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n";
Commit	Line	Data
c38a6530 RD	1	#!./perl
	2
	3	# Calls all tests in op/inccode.t after tying @INC first.
	4
	5	use Tie::Array;
	6	my @orig_INC = @INC;
	7	tie @INC, 'Tie::StdArray';
	8	@INC = @orig_INC;
	9	for my $file ('./op/inccode.t', './t/op/inccode.t', ':op:inccode.t') {
	10	if (-r $file) {
cc97bb9e	11	do $file; die $@ if $@;
c38a6530 RD	12	exit;
	13	}
	14	}
	15	die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n";