xref: /openbsd-src/gnu/usr.bin/perl/t/op/inccode-tie.t (revision 850e275390052b330d93020bf619a739a3c277ac) 
1#!./perl
2
3# Calls all tests in op/inccode.t after tying @INC first.
4
5use Tie::Array;
6my @orig_INC = @INC;
7tie @INC, 'Tie::StdArray';
8@INC = @orig_INC;
9for my $file ('./op/inccode.t', './t/op/inccode.t', ':op:inccode.t') {
10    if (-r $file) {
11	do $file; die $@ if $@;
12	exit;
13    }
14}
15die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n";
16