t/lib/tie-splice.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '.';
   6     push @INC, '../lib';
   7 }
   8
   9 # bug id 20001020.002
  10 # -dlc 20001021
  11
  12 use Tie::Array;
  13 tie @a,Tie::StdArray;
  14 undef *Tie::StdArray::SPLICE;
  15 require "op/splice.t"
  16
  17 # Pre-fix, this failed tests 6-9