t/op/inccode-tie.t

   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) {
  11         do $file; die $@ if $@;
  12         exit;
  13     }
  14 }
  15 die "Cannot find ./op/inccode.t or ./t/op/inccode.t\n";