#!./perl
BEGIN {
chdir 't' if -d 't';
}
my %seen;
sub TIEARRAY
{
}
sub STORESIZE
{
}
sub EXTEND
{
}
sub FETCHSIZE
{
}
sub FETCH
{
}
sub STORE
{
}
sub UNSHIFT
{
my $ob = shift;
}
sub PUSH
{
my $ob = shift;;
}
sub CLEAR
{
@{$_[0]} = ();
}
sub DESTROY
{
}
sub POP
{
}
sub SHIFT
{
}
sub SPLICE
{
my $ob = shift;
my $off = @_ ? shift : 0;
}
@ISA = 'Implement';
# simulate indices -2 .. 2
my $offset = 2;
# print "# FETCH @_\n";
}
# print "# STORE @_\n";
}
# print "# DELETE @_\n";
}
# print "# EXISTS @_\n";
}
print "1..61\n";
my $test = 1;
{my @ary;
}
@ary = (1,2,3);
}
my $t = 0;
foreach $n (@ary)
{
}
# (30-33) 20020303 mjd-perl-patch+@plover.com
@ary = ();
shift @ary; # this didn't used to call SHIFT at all
}
# 20020401 mjd-perl-patch+@plover.com
# Thanks to Dave Mitchell for the small test case and the fix
{
my @a;
sub X::SPLICE {
die;
}
# If we survived this far.
}
{ # 20020220 mjd-perl-patch+@plover.com
my @n;
# FETCH
# STORE
$n[-2] = 'a';
$n[-1] = 'b';
$n[0] = 'c';
$n[1] = 'd';
$n[2] = 'e';
# DELETE and EXISTS
for (-2 .. 2) {
$test++;
delete $n[$_];
$test++;
$test++;
}
}