Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date	Action
array.t	1.18 KB	-r--r--r--	2014-12-27 11:48
env.t	198 B	-r--r--r--	2014-12-27 11:48

Rename

#!./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';