#!./perl

$| = 1;

use strict;
use Test::More;

plan(skip_all => "skipped for VMS") if $^O eq 'VMS';
plan(tests => 12);

use Env  qw(@FOO);
use vars qw(@BAR);

sub array_equal
{
    my ($a, $b) = @_;
    return 0 unless scalar(@$a) == scalar(@$b);
    for my $i (0..scalar(@$a) - 1) {
	return 0 unless $a->[$i] eq $b->[$i];
    }
    return 1;
}

@FOO = qw(a B c);
@BAR = qw(a B c);
is_deeply(\@FOO, \@BAR, "Assignment");

$FOO[1] = 'b';
$BAR[1] = 'b';
is_deeply(\@FOO, \@BAR, "Storing");

$#FOO = 0;
$#BAR = 0;
is_deeply(\@FOO, \@BAR, "Truncation");

push @FOO, 'b', 'c';
push @BAR, 'b', 'c';
is_deeply(\@FOO, \@BAR, "Push");

pop @FOO;
pop @BAR;
is_deeply(\@FOO, \@BAR, "Pop");

shift @FOO;
shift @BAR;
is_deeply(\@FOO, \@BAR, "Shift");

push @FOO, 'c';
push @BAR, 'c';
is_deeply(\@FOO, \@BAR, "Push");

unshift @FOO, 'a';
unshift @BAR, 'a';
is_deeply(\@FOO, \@BAR, "Unshift");

@FOO = reverse @FOO;
@BAR = reverse @BAR;
is_deeply(\@FOO, \@BAR, "Reverse");

@FOO = sort @FOO;
@BAR = sort @BAR;
is_deeply(\@FOO, \@BAR, "Sort");

splice @FOO, 1, 1, 'B';
splice @BAR, 1, 1, 'B';
is_deeply(\@FOO, \@BAR, "Splice");

my $foo = $ENV{FOO};
() = splice @FOO, 0, 0;
is $ENV{FOO}, $foo, 'Splice in list context';