Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
64bitint.t	8.14 KB	-r--r--r--	2014-12-27 11:49
alarm.t	1.5 KB	-r--r--r--	2014-12-27 11:49
anonsub.t	1.7 KB	-r--r--r--	2014-12-27 11:49
append.t	1.58 KB	-r--r--r--	2014-12-27 11:49
args.t	2.12 KB	-r--r--r--	2014-12-27 11:49
array.t	12.32 KB	-r--r--r--	2014-12-27 11:49
array_base.t	720 B	-r--r--r--	2014-12-27 11:49
assignwarn.t	1.52 KB	-r--r--r--	2014-12-27 11:49
attrhand.t	1.01 KB	-r--r--r--	2014-12-27 11:49
attrproto.t	6.55 KB	-r--r--r--	2014-12-27 11:49
attrs.t	10.73 KB	-r--r--r--	2014-12-27 11:49
auto.t	2.36 KB	-r--r--r--	2014-12-27 11:49
avhv.t	4.04 KB	-r--r--r--	2014-12-27 11:49
bless.t	4.12 KB	-r--r--r--	2014-12-27 11:49
blocks.t	2.95 KB	-r--r--r--	2014-12-27 11:49
bop.t	12.82 KB	-r--r--r--	2014-12-27 11:49
caller.pl	3.75 KB	-r--r--r--	2014-12-27 11:49
caller.t	8.14 KB	-r--r--r--	2014-12-27 11:49
chars.t	1.73 KB	-r--r--r--	2014-12-27 11:49
chdir.t	6.68 KB	-r--r--r--	2014-12-27 11:49
chop.t	7.67 KB	-r--r--r--	2014-12-27 11:49
chr.t	2.48 KB	-r--r--r--	2014-12-27 11:49
closure.t	19.6 KB	-r--r--r--	2014-12-27 11:49
closure_test.pl	327 B	-r--r--r--	2014-12-27 11:49
concat2.t	1.41 KB	-r--r--r--	2014-12-27 11:49
cond.t	282 B	-r--r--r--	2014-12-27 11:49
context.t	404 B	-r--r--r--	2014-12-27 11:49
coreamp.t	29.17 KB	-r--r--r--	2014-12-27 11:49
coresubs.t	4.87 KB	-r--r--r--	2014-12-27 11:49
cproto.t	3.6 KB	-r--r--r--	2014-12-27 11:49
crypt.t	1.17 KB	-r--r--r--	2014-12-27 11:49
current_sub.t	1.71 KB	-r--r--r--	2014-12-27 11:49
dbm.t	1.54 KB	-r--r--r--	2014-12-27 11:49
defined.t	551 B	-r--r--r--	2014-12-27 11:49
defins.t	4.84 KB	-r--r--r--	2014-12-27 11:49
delete.t	2.93 KB	-r--r--r--	2014-12-27 11:49
die.t	1.99 KB	-r--r--r--	2014-12-27 11:49
die_except.t	1.57 KB	-r--r--r--	2014-12-27 11:49
die_exit.t	1.9 KB	-r--r--r--	2014-12-27 11:49
die_keeperr.t	1.57 KB	-r--r--r--	2014-12-27 11:49
die_unwind.t	1.69 KB	-r--r--r--	2014-12-27 11:49
do.t	8.35 KB	-r--r--r--	2014-12-27 11:49
dor.t	2.64 KB	-r--r--r--	2014-12-27 11:49
each.t	7.09 KB	-r--r--r--	2014-12-27 11:49
each_array.t	5.48 KB	-r--r--r--	2014-12-27 11:49
eval.t	13.92 KB	-r--r--r--	2014-12-27 11:49
evalbytes.t	989 B	-r--r--r--	2014-12-27 11:49
exec.t	4.36 KB	-r--r--r--	2014-12-27 11:49
exists_sub.t	2.09 KB	-r--r--r--	2014-12-27 11:49
exp.t	1.47 KB	-r--r--r--	2014-12-27 11:49
fh.t	790 B	-r--r--r--	2014-12-27 11:49
filehandle.t	564 B	-r--r--r--	2014-12-27 11:49
filetest.t	11.97 KB	-r--r--r--	2014-12-27 11:49
filetest_stack_ok.t	1.12 KB	-r--r--r--	2014-12-27 11:49
filetest_t.t	1.18 KB	-r--r--r--	2014-12-27 11:49
flip.t	868 B	-r--r--r--	2014-12-27 11:49
for.t	12.77 KB	-r--r--r--	2014-12-27 11:49
fork.t	8.8 KB	-r--r--r--	2014-12-27 11:49
fresh_perl_utf8.t	411 B	-r--r--r--	2014-12-27 11:49
getpid.t	1.61 KB	-r--r--r--	2014-12-27 11:49
getppid.t	3.13 KB	-r--r--r--	2014-12-27 11:49
glob.t	4.22 KB	-r--r--r--	2014-12-27 11:49
gmagic.t	5.97 KB	-r--r--r--	2014-12-27 11:49
goto.t	14.85 KB	-r--r--r--	2014-12-27 11:49
goto_xs.t	2.98 KB	-r--r--r--	2014-12-27 11:49
grent.t	4.46 KB	-r--r--r--	2014-12-27 11:49
grep.t	6.66 KB	-r--r--r--	2014-12-27 11:49
groups.t	11.15 KB	-r--r--r--	2014-12-27 11:49
gv.t	30.15 KB	-r--r--r--	2014-12-27 11:49
hash-rt85026.t	1.57 KB	-r--r--r--	2014-12-27 11:49
hash.t	6.02 KB	-r--r--r--	2014-12-27 11:49
hashassign.t	18.85 KB	-r--r--r--	2014-12-27 11:49
hashwarn.t	2.05 KB	-r--r--r--	2014-12-27 11:49
heredoc.t	2.29 KB	-r--r--r--	2014-12-27 11:49
inc.t	6.72 KB	-r--r--r--	2014-12-27 11:49
inccode-tie.t	338 B	-r--r--r--	2014-12-27 11:49
inccode.t	11.19 KB	-r--r--r--	2014-12-27 11:49
incfilter.t	7.33 KB	-r--r--r--	2014-12-27 11:49
index.t	6.81 KB	-r--r--r--	2014-12-27 11:49
index_thr.t	56 B	-r--r--r--	2014-12-27 11:49
int.t	1.72 KB	-r--r--r--	2014-12-27 11:49
join.t	3.2 KB	-r--r--r--	2014-12-27 11:49
kill0.t	3.18 KB	-r--r--r--	2014-12-27 11:49
kill0_child	596 B	-r--r--r--	2014-12-27 11:49
kvaslice.t	4.66 KB	-r--r--r--	2014-12-27 11:49
kvhslice.t	5.44 KB	-r--r--r--	2014-12-27 11:49
lc.t	11.8 KB	-r--r--r--	2014-12-27 11:49
leaky-magic.t	3.43 KB	-r--r--r--	2014-12-27 11:49
length.t	5.03 KB	-r--r--r--	2014-12-27 11:49
lex.t	2.33 KB	-r--r--r--	2014-12-27 11:49
lex_assign.t	7.17 KB	-r--r--r--	2014-12-27 11:49
lexsub.t	19.62 KB	-r--r--r--	2014-12-27 12:24
lfs.t	6.2 KB	-r--r--r--	2014-12-27 11:49
list.t	5.31 KB	-r--r--r--	2014-12-27 11:52
local.t	17.11 KB	-r--r--r--	2014-12-27 11:49
localref.t	2.73 KB	-r--r--r--	2014-12-27 11:49
lock.t	465 B	-r--r--r--	2014-12-27 11:49
loopctl.t	17.88 KB	-r--r--r--	2014-12-27 11:49
lop.t	1.2 KB	-r--r--r--	2014-12-27 11:49
magic-27839.t	622 B	-r--r--r--	2014-12-27 11:49
magic.t	21.81 KB	-r--r--r--	2014-12-27 11:49
method.t	18.91 KB	-r--r--r--	2014-12-27 11:49
mkdir.t	1.25 KB	-r--r--r--	2014-12-27 11:49
my.t	4.29 KB	-r--r--r--	2014-12-27 11:49
my_stash.t	769 B	-r--r--r--	2014-12-27 11:49
mydef.t	5.51 KB	-r--r--r--	2014-12-27 11:49
negate.t	4.3 KB	-r--r--r--	2014-12-27 11:49
not.t	3.15 KB	-r--r--r--	2014-12-27 11:49
numconvert.t	8.33 KB	-r--r--r--	2014-12-27 11:49
oct.t	3.58 KB	-r--r--r--	2014-12-27 11:49
or.t	1.79 KB	-r--r--r--	2014-12-27 11:49
ord.t	2.48 KB	-r--r--r--	2014-12-27 11:49
overload_integer.t	506 B	-r--r--r--	2014-12-27 11:49
override.t	4.33 KB	-r--r--r--	2014-12-27 11:49
pack.t	65.34 KB	-r--r--r--	2014-12-27 11:49
packagev.t	5.97 KB	-r--r--r--	2014-12-27 11:49
pos.t	3.59 KB	-r--r--r--	2014-12-27 11:49
postfixderef.t	11.97 KB	-r--r--r--	2014-12-27 11:49
pow.t	2.34 KB	-r--r--r--	2014-12-27 11:49
print.t	692 B	-r--r--r--	2014-12-27 11:49
protowarn.t	1.35 KB	-r--r--r--	2014-12-27 11:49
push.t	3.03 KB	-r--r--r--	2014-12-27 11:49
pwent.t	6.63 KB	-r--r--r--	2014-12-27 11:49
qr.t	2.32 KB	-r--r--r--	2014-12-27 11:49
quotemeta.t	5.61 KB	-r--r--r--	2014-12-27 11:49
rand.t	8.31 KB	-r--r--r--	2014-12-27 11:49
range.t	9.25 KB	-r--r--r--	2014-12-27 11:49
read.t	2.28 KB	-r--r--r--	2014-12-27 11:49
readdir.t	2.09 KB	-r--r--r--	2014-12-27 11:49
readline.t	7.19 KB	-r--r--r--	2014-12-27 11:49
recurse.t	2.73 KB	-r--r--r--	2014-12-27 11:49
ref.t	22.74 KB	-r--r--r--	2014-12-27 11:49
repeat.t	4.8 KB	-r--r--r--	2014-12-27 11:49
require_37033.t	1.18 KB	-r--r--r--	2014-12-27 11:49
require_errors.t	3.68 KB	-r--r--r--	2014-12-27 11:49
reset.t	5.41 KB	-r--r--r--	2014-12-27 11:49
reverse.t	3.01 KB	-r--r--r--	2014-12-27 11:49
rt119311.t	5.58 KB	-r--r--r--	2014-12-27 11:49
runlevel.t	5.28 KB	-r--r--r--	2014-12-27 11:49
select.t	1.03 KB	-r--r--r--	2014-12-27 11:49
setpgrpstack.t	378 B	-r--r--r--	2014-12-27 11:49
sigdispatch.t	4.33 KB	-r--r--r--	2014-12-27 11:49
signatures.t	41.02 KB	-r--r--r--	2014-12-27 11:49
sigsystem.t	1.36 KB	-r--r--r--	2014-12-27 11:49
sleep.t	468 B	-r--r--r--	2014-12-27 11:49
smartkve.t	18.26 KB	-r--r--r--	2014-12-27 11:49
smartmatch.t	10.34 KB	-r--r--r--	2014-12-27 11:49
sort.t	28.4 KB	-r--r--r--	2015-01-10 13:17
splice.t	3.38 KB	-r--r--r--	2014-12-27 11:49
split.t	13.1 KB	-r--r--r--	2014-12-27 11:49
split_unicode.t	2.4 KB	-r--r--r--	2014-12-27 11:49
sprintf.t	28.5 KB	-r--r--r--	2014-12-27 11:49
sprintf2.t	5.49 KB	-r--r--r--	2014-12-27 11:49
srand.t	1.87 KB	-r--r--r--	2014-12-27 11:49
sselect.t	2.67 KB	-r--r--r--	2014-12-27 11:49
stash.t	9.01 KB	-r--r--r--	2014-12-27 11:49
stat.t	17.51 KB	-r--r--r--	2014-12-27 11:49
state.t	9.72 KB	-r--r--r--	2014-12-27 12:15
study.t	2.99 KB	-r--r--r--	2014-12-27 11:49
studytied.t	1.29 KB	-r--r--r--	2014-12-27 11:49
sub.t	6.54 KB	-r--r--r--	2014-12-27 11:49
sub_lval.t	24.2 KB	-r--r--r--	2014-12-27 11:49
substr.t	20.53 KB	-r--r--r--	2014-12-27 11:49
substr_thr.t	56 B	-r--r--r--	2014-12-27 11:49
svleak.pl	6 B	-r--r--r--	2014-12-27 11:49
svleak.t	15.93 KB	-r--r--r--	2015-01-10 12:06
switch.t	28.06 KB	-r--r--r--	2014-12-27 11:49
symbolcache.t	1.06 KB	-r--r--r--	2014-12-27 11:49
sysio.t	5 KB	-r--r--r--	2014-12-27 11:49
taint.t	66.84 KB	-r--r--r--	2014-12-27 12:32
threads-dirh.t	3.47 KB	-r--r--r--	2014-12-27 11:49
threads.t	9.3 KB	-r--r--r--	2014-12-27 11:49
threads_create.pl	42 B	-r--r--r--	2014-12-27 11:49
tie.t	28.34 KB	-r--r--r--	2014-12-27 11:49
tie_fetch_count.t	11.49 KB	-r--r--r--	2014-12-27 11:49
tiearray.t	4.53 KB	-r--r--r--	2014-12-27 11:49
tiehandle.t	5.27 KB	-r--r--r--	2014-12-27 11:49
time.t	7.86 KB	-r--r--r--	2015-01-17 11:51
time_loop.t	378 B	-r--r--r--	2014-12-27 11:49
tr.t	12.99 KB	-r--r--r--	2014-12-27 11:49
undef.t	3.15 KB	-r--r--r--	2014-12-27 11:49
universal.t	8.32 KB	-r--r--r--	2014-12-27 11:49
unlink.t	1.02 KB	-r--r--r--	2014-12-27 11:49
unshift.t	3.17 KB	-r--r--r--	2014-12-27 11:49
upgrade.t	1.15 KB	-r--r--r--	2014-12-27 11:49
utf8cache.t	3.83 KB	-r--r--r--	2014-12-27 11:49
utf8decode.t	7.59 KB	-r--r--r--	2014-12-27 11:49
utf8magic.t	808 B	-r--r--r--	2014-12-27 11:49
utfhash.t	5.33 KB	-r--r--r--	2014-12-27 11:49
utftaint.t	4.46 KB	-r--r--r--	2014-12-27 11:49
vec.t	2.87 KB	-r--r--r--	2014-12-27 11:49
ver.t	8.39 KB	-r--r--r--	2014-12-27 11:49
waitpid.t	973 B	-r--r--r--	2014-12-27 11:49
wantarray.t	874 B	-r--r--r--	2014-12-27 11:49
warn.t	4.15 KB	-r--r--r--	2014-12-27 11:49
while.t	3.81 KB	-r--r--r--	2014-12-27 11:49
write.t	39.99 KB	-r--r--r--	2015-01-24 15:03
yadayada.t	1.67 KB	-r--r--r--	2015-01-15 22:12

Rename

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}
use strict;
use warnings;
no warnings 'deprecated', 'experimental::autoderef';
use vars qw($data $array $values $hash $errpat);

plan 'no_plan';

sub j { join(":",@_) }

# NOTE
#
# Hash insertion is currently unstable, in that
# %hash= %otherhash will not necessarily result in
# the same internal ordering of the data in the hash.
# For instance when keys collide the copy may not
# match the inserted order. So we declare one hash
# and then make all our copies from that, which should
# mean all the copies have the same internal structure.
#
# And these days, even if all that weren't true, we now
# per-hash randomize keys/values. So, we cant expect two
# hashes with the same internal structure to return the
# same thing at all. All we *can* expect is that keys()
# and values() use the same ordering.
our %base_hash;

BEGIN { # in BEGIN for "use constant ..." later
  # values match keys here so we can easily check that keys(%hash) == values(%hash)
  %base_hash= (  pi => 'pi', e => 'e', i => 'i' );
  $array = [ qw(pi e i) ];
  $values = [ qw(pi e i) ];
  $hash  = { %base_hash } ;
  $data = {
    hash => { %base_hash },
    array => [ @$array ],
  };
}

package Foo;
sub new {
  my $self = {
    hash => { %base_hash },
    array => [@{$main::array}]
  };
  bless $self, shift;
}
sub hash { no overloading; $_[0]->{hash} };
sub array { no overloading; $_[0]->{array} };

package Foo::Overload::Array;
sub new { return bless [ qw/foo bar/ ], shift }
use overload '@{}' => sub { $main::array }, fallback => 1;

package Foo::Overload::Hash;
sub new { return bless { qw/foo bar/ }, shift }
use overload '%{}' => sub { $main::hash }, fallback => 1;

package Foo::Overload::Both;
sub new { return bless { qw/foo bar/ }, shift }
use overload  '%{}' => sub { $main::hash },
              '@{}' => sub { $main::array }, fallback => 1;

package Foo::Overload::HashOnArray;
sub new { return bless [ qw/foo bar/ ], shift }
use overload '%{}' => sub { $main::hash }, fallback => 1;

package Foo::Overload::ArrayOnHash;
sub new { return bless { qw/foo bar/ }, shift }
use overload '@{}' => sub { $main::array }, fallback => 1;

package main;

use constant CONST_HASH => { %base_hash };
use constant CONST_ARRAY => [ @$array ];

my %a_hash = %base_hash;
my @an_array = @$array;
sub hash_sub { return \%a_hash; }
sub array_sub { return \@an_array; }

my $obj = Foo->new;

my ($empty, $h_expect, $a_expect, @tmp, @tmp2, $k, $v);

# Keys -- void

keys $hash;             pass('Void: keys $hash;');
keys $data->{hash};     pass('Void: keys $data->{hash};');
keys CONST_HASH;        pass('Void: keys CONST_HASH;');
keys CONST_HASH();      pass('Void: keys CONST_HASH();');
keys hash_sub();        pass('Void: keys hash_sub();');
keys hash_sub;          pass('Void: keys hash_sub;');
keys $obj->hash;        pass('Void: keys $obj->hash;');
keys $array;            pass('Void: keys $array;');
keys $data->{array};    pass('Void: keys $data->{array};');
keys CONST_ARRAY;       pass('Void: keys CONST_ARRAY;');
keys CONST_ARRAY();     pass('Void: keys CONST_ARRAY();');
keys array_sub;         pass('Void: keys array_sub;');
keys array_sub();       pass('Void: keys array_sub();');
keys $obj->array;       pass('Void: keys $obj->array;');

# Keys -- scalar

is(keys $hash           ,3, 'Scalar: keys $hash');
is(keys $data->{hash}   ,3, 'Scalar: keys $data->{hash}');
is(keys CONST_HASH      ,3, 'Scalar: keys CONST_HASH');
is(keys CONST_HASH()    ,3, 'Scalar: keys CONST_HASH()');
is(keys hash_sub        ,3, 'Scalar: keys hash_sub');
is(keys hash_sub()      ,3, 'Scalar: keys hash_sub()');
is(keys $obj->hash      ,3, 'Scalar: keys $obj->hash');
is(keys $array          ,3, 'Scalar: keys $array');
is(keys $data->{array}  ,3, 'Scalar: keys $data->{array}');
is(keys CONST_ARRAY     ,3, 'Scalar: keys CONST_ARRAY');
is(keys CONST_ARRAY()   ,3, 'Scalar: keys CONST_ARRAY()');
is(keys array_sub       ,3, 'Scalar: keys array_sub');
is(keys array_sub()     ,3, 'Scalar: keys array_sub()');
is(keys $obj->array     ,3, 'Scalar: keys $obj->array');

# Keys -- list

$h_expect = j(sort keys %base_hash);
$a_expect = j(keys @$array);

is(j(sort keys $hash)           ,$h_expect, 'List: sort keys $hash');
is(j(sort keys $data->{hash})   ,$h_expect, 'List: sort keys $data->{hash}');
is(j(sort keys CONST_HASH)      ,$h_expect, 'List: sort keys CONST_HASH');
is(j(sort keys CONST_HASH())    ,$h_expect, 'List: sort keys CONST_HASH()');
is(j(sort keys hash_sub)        ,$h_expect, 'List: sort keys hash_sub');
is(j(sort keys hash_sub())      ,$h_expect, 'List: sort keys hash_sub()');
is(j(sort keys $obj->hash)      ,$h_expect, 'List: sort keys $obj->hash');

is(j(keys $hash)                ,j(values $hash),           'List: keys $hash == values $hash');
is(j(keys $data->{hash})        ,j(values $data->{hash}),   'List: keys $data->{hash} == values $data->{hash}');
is(j(keys CONST_HASH)           ,j(values CONST_HASH),      'List: keys CONST_HASH == values CONST_HASH');
is(j(keys CONST_HASH())         ,j(values CONST_HASH()),    'List: keys CONST_HASH() == values CONST_HASH()');
is(j(keys hash_sub)             ,j(values hash_sub),        'List: keys hash_sub == values hash_sub');
is(j(keys hash_sub())           ,j(values hash_sub()),      'List: keys hash_sub() == values hash_sub()');
is(j(keys $obj->hash)           ,j(values $obj->hash),      'List: keys $obj->hash == values obj->hash');

is(j(keys $array)               ,$a_expect, 'List: keys $array');
is(j(keys $data->{array})       ,$a_expect, 'List: keys $data->{array}');
is(j(keys CONST_ARRAY)          ,$a_expect, 'List: keys CONST_ARRAY');
is(j(keys CONST_ARRAY())        ,$a_expect, 'List: keys CONST_ARRAY()');
is(j(keys array_sub)            ,$a_expect, 'List: keys array_sub');
is(j(keys array_sub())          ,$a_expect, 'List: keys array_sub()');
is(j(keys $obj->array)          ,$a_expect, 'List: keys $obj->array');

# Keys -- vivification
undef $empty;
eval { keys $empty->{hash} };
ok(defined $empty,
  'Vivify: $empty (after keys $empty->{hash}) is HASHREF');
ok(!defined $empty->{hash}      ,   'Vivify: $empty->{hash} is undef');

# Keys -- lvalue
$_{foo} = "bar";
keys \%_ = 65;
is scalar %_, '1/128', 'keys $hashref as lvalue';
eval 'keys \@_ = 65';
like $@, qr/Can't modify keys on reference in scalar assignment/,
  'keys $arrayref as lvalue dies';

# Keys -- errors
$errpat = qr/
 (?-x:Type of argument to keys on reference must be unblessed hashref or)
 (?-x: arrayref)
/x;

eval "keys undef";
ok($@ =~ $errpat,
  'Errors: keys undef throws error'
);

undef $empty;
eval q"keys $empty";
ok($@ =~ $errpat,
  'Errors: keys $undef throws error'
);

is($empty, undef, 'keys $undef does not vivify $undef');

eval "keys 3";
ok($@ =~ qr/Type of arg 1 to keys must be hash/,
  'Errors: keys CONSTANT throws error'
);

eval "keys qr/foo/";
ok($@ =~ $errpat,
  'Errors: keys qr/foo/ throws error'
);

eval q"keys $hash qw/fo bar/";
ok($@ =~ qr/syntax error/,
  'Errors: keys $hash, @stuff throws error'
) or print "# Got: $@";

# Values -- void

values $hash;             pass('Void: values $hash;');
values $data->{hash};     pass('Void: values $data->{hash};');
values CONST_HASH;        pass('Void: values CONST_HASH;');
values CONST_HASH();      pass('Void: values CONST_HASH();');
values hash_sub();        pass('Void: values hash_sub();');
values hash_sub;          pass('Void: values hash_sub;');
values $obj->hash;        pass('Void: values $obj->hash;');
values $array;            pass('Void: values $array;');
values $data->{array};    pass('Void: values $data->{array};');
values CONST_ARRAY;       pass('Void: values CONST_ARRAY;');
values CONST_ARRAY();     pass('Void: values CONST_ARRAY();');
values array_sub;         pass('Void: values array_sub;');
values array_sub();       pass('Void: values array_sub();');
values $obj->array;       pass('Void: values $obj->array;');

# Values -- scalar

is(values $hash           ,3, 'Scalar: values $hash');
is(values $data->{hash}   ,3, 'Scalar: values $data->{hash}');
is(values CONST_HASH      ,3, 'Scalar: values CONST_HASH');
is(values CONST_HASH()    ,3, 'Scalar: values CONST_HASH()');
is(values hash_sub        ,3, 'Scalar: values hash_sub');
is(values hash_sub()      ,3, 'Scalar: values hash_sub()');
is(values $obj->hash      ,3, 'Scalar: values $obj->hash');
is(values $array          ,3, 'Scalar: values $array');
is(values $data->{array}  ,3, 'Scalar: values $data->{array}');
is(values CONST_ARRAY     ,3, 'Scalar: values CONST_ARRAY');
is(values CONST_ARRAY()   ,3, 'Scalar: values CONST_ARRAY()');
is(values array_sub       ,3, 'Scalar: values array_sub');
is(values array_sub()     ,3, 'Scalar: values array_sub()');
is(values $obj->array     ,3, 'Scalar: values $obj->array');

# Values -- list

$h_expect = j(sort values %base_hash);
$a_expect = j(values @$array);

is(j(sort values $hash)                ,$h_expect, 'List: sort values $hash');
is(j(sort values $data->{hash})        ,$h_expect, 'List: sort values $data->{hash}');
is(j(sort values CONST_HASH)           ,$h_expect, 'List: sort values CONST_HASH');
is(j(sort values CONST_HASH())         ,$h_expect, 'List: sort values CONST_HASH()');
is(j(sort values hash_sub)             ,$h_expect, 'List: sort values hash_sub');
is(j(sort values hash_sub())           ,$h_expect, 'List: sort values hash_sub()');
is(j(sort values $obj->hash)           ,$h_expect, 'List: sort values $obj->hash');

is(j(values $hash)                ,j(keys $hash),           'List: values $hash == keys $hash');
is(j(values $data->{hash})        ,j(keys $data->{hash}),   'List: values $data->{hash} == keys $data->{hash}');
is(j(values CONST_HASH)           ,j(keys CONST_HASH),      'List: values CONST_HASH == keys CONST_HASH');
is(j(values CONST_HASH())         ,j(keys CONST_HASH()),    'List: values CONST_HASH() == keys CONST_HASH()');
is(j(values hash_sub)             ,j(keys hash_sub),        'List: values hash_sub == keys hash_sub');
is(j(values hash_sub())           ,j(keys hash_sub()),      'List: values hash_sub() == keys hash_sub()');
is(j(values $obj->hash)           ,j(keys $obj->hash),      'List: values $obj->hash == keys $obj->hash');

is(j(values $array)               ,$a_expect, 'List: values $array');
is(j(values $data->{array})       ,$a_expect, 'List: values $data->{array}');
is(j(values CONST_ARRAY)          ,$a_expect, 'List: values CONST_ARRAY');
is(j(values CONST_ARRAY())        ,$a_expect, 'List: values CONST_ARRAY()');
is(j(values array_sub)            ,$a_expect, 'List: values array_sub');
is(j(values array_sub())          ,$a_expect, 'List: values array_sub()');
is(j(values $obj->array)          ,$a_expect, 'List: values $obj->array');

# Values -- vivification
undef $empty;
eval { values $empty->{hash} };
ok(defined $empty,
  'Vivify: $empty (after values $empty->{hash}) is HASHREF');
ok(!defined $empty->{hash}      ,   'Vivify: $empty->{hash} is undef');

# Values -- errors
$errpat = qr/
 (?-x:Type of argument to values on reference must be unblessed hashref or)
 (?-x: arrayref)
/x;

eval "values undef";
ok($@ =~ $errpat,
  'Errors: values undef throws error'
);

undef $empty;
eval q"values $empty";
ok($@ =~ $errpat,
  'Errors: values $undef throws error'
);

is($empty, undef, 'values $undef does not vivify $undef');

eval "values 3";
ok($@ =~ qr/Type of arg 1 to values must be hash/,
  'Errors: values CONSTANT throws error'
);

eval "values qr/foo/";
ok($@ =~ $errpat,
  'Errors: values qr/foo/ throws error'
);

eval q"values $hash qw/fo bar/";
ok($@ =~ qr/syntax error/,
  'Errors: values $hash, @stuff throws error'
) or print "# Got: $@";

# Each -- void

each $hash;             pass('Void: each $hash');
each $data->{hash};     pass('Void: each $data->{hash}');
each CONST_HASH;        pass('Void: each CONST_HASH');
each CONST_HASH();      pass('Void: each CONST_HASH()');
each hash_sub();        pass('Void: each hash_sub()');
each hash_sub;          pass('Void: each hash_sub');
each $obj->hash;        pass('Void: each $obj->hash');
each $array;            pass('Void: each $array');
each $data->{array};    pass('Void: each $data->{array}');
each CONST_ARRAY;       pass('Void: each CONST_ARRAY');
each CONST_ARRAY();     pass('Void: each CONST_ARRAY()');
each array_sub;         pass('Void: each array_sub');
each array_sub();       pass('Void: each array_sub()');
each $obj->array;       pass('Void: each $obj->array');

# Reset iterators

keys $hash;
keys $data->{hash};
keys CONST_HASH;
keys CONST_HASH();
keys hash_sub();
keys hash_sub;
keys $obj->hash;
keys $array;
keys $data->{array};
keys CONST_ARRAY;
keys CONST_ARRAY();
keys array_sub;
keys array_sub();
keys $obj->array;

# Each -- scalar

@tmp=(); while(defined( $k = each $hash)) {push @tmp,$k}; is(j(@tmp),j(keys $hash), 'Scalar: each $hash');
@tmp=(); while(defined( $k = each $data->{hash})){push @tmp,$k}; is(j(@tmp),j(keys $data->{hash}), 'Scalar: each $data->{hash}');
@tmp=(); while(defined( $k = each CONST_HASH)){push @tmp,$k}; is(j(@tmp),j(keys CONST_HASH), 'Scalar: each CONST_HASH');
@tmp=(); while(defined( $k = each CONST_HASH())){push @tmp,$k}; is(j(@tmp),j(keys CONST_HASH()), 'Scalar: each CONST_HASH()');
@tmp=(); while(defined( $k = each hash_sub())){push @tmp,$k}; is(j(@tmp),j(keys hash_sub()), 'Scalar: each hash_sub()');
@tmp=(); while(defined( $k = each hash_sub)){push @tmp,$k}; is(j(@tmp),j(keys hash_sub), 'Scalar: each hash_sub');
@tmp=(); while(defined( $k = each $obj->hash)){push @tmp,$k}; is(j(@tmp),j(keys $obj->hash), 'Scalar: each $obj->hash');
@tmp=(); while(defined( $k = each $array)){push @tmp,$k}; is(j(@tmp),j(keys $array), 'Scalar: each $array');
@tmp=(); while(defined( $k = each $data->{array})){push @tmp,$k}; is(j(@tmp),j(keys $data->{array}), 'Scalar: each $data->{array}');
@tmp=(); while(defined( $k = each CONST_ARRAY)){push @tmp,$k}; is(j(@tmp),j(keys CONST_ARRAY), 'Scalar: each CONST_ARRAY');
@tmp=(); while(defined( $k = each CONST_ARRAY())){push @tmp,$k}; is(j(@tmp),j(keys CONST_ARRAY()), 'Scalar: each CONST_ARRAY()');
@tmp=(); while(defined( $k = each array_sub)){push @tmp,$k}; is(j(@tmp),j(keys array_sub), 'Scalar: each array_sub');
@tmp=(); while(defined( $k = each array_sub())){push @tmp,$k}; is(j(@tmp),j(keys array_sub()), 'Scalar: each array_sub()');
@tmp=(); while(defined( $k = each $obj->array)){push @tmp,$k}; is(j(@tmp),j(keys $obj->array), 'Scalar: each $obj->array');

# Each -- list

@tmp=@tmp2=(); while(($k,$v) = each $hash) {push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $hash, values $hash), 'List: each $hash');
@tmp=@tmp2=(); while(($k,$v) = each $data->{hash}){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $data->{hash}, values $data->{hash}), 'List: each $data->{hash}');
@tmp=@tmp2=(); while(($k,$v) = each CONST_HASH){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys CONST_HASH, values CONST_HASH), 'List: each CONST_HASH');
@tmp=@tmp2=(); while(($k,$v) = each CONST_HASH()){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys CONST_HASH(), values CONST_HASH()), 'List: each CONST_HASH()');
@tmp=@tmp2=(); while(($k,$v) = each hash_sub()){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys hash_sub(), values hash_sub()), 'List: each hash_sub()');
@tmp=@tmp2=(); while(($k,$v) = each hash_sub){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys hash_sub, values hash_sub), 'List: each hash_sub');
@tmp=@tmp2=(); while(($k,$v) = each $obj->hash){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $obj->hash, values $obj->hash), 'List: each $obj->hash');
@tmp=@tmp2=(); while(($k,$v) = each $array){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $array, values $array), 'List: each $array');
@tmp=@tmp2=(); while(($k,$v) = each $data->{array}){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $data->{array}, values $data->{array}), 'List: each $data->{array}');
@tmp=@tmp2=(); while(($k,$v) = each CONST_ARRAY){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys CONST_ARRAY, values CONST_ARRAY), 'List: each CONST_ARRAY');
@tmp=@tmp2=(); while(($k,$v) = each CONST_ARRAY()){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys CONST_ARRAY(), values CONST_ARRAY()), 'List: each CONST_ARRAY()');
@tmp=@tmp2=(); while(($k,$v) = each array_sub){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys array_sub, values array_sub), 'List: each array_sub');
@tmp=@tmp2=(); while(($k,$v) = each array_sub()){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys array_sub(), values array_sub()), 'List: each array_sub()');
@tmp=@tmp2=(); while(($k,$v) = each $obj->array){push @tmp,$k; push @tmp2,$v}; is(j(@tmp,@tmp2),j(keys $obj->array, values $obj->array), 'List: each $obj->array');

# Each -- vivification
undef $empty;
eval { each $empty->{hash} };
ok(defined $empty,
  'Vivify: $empty (after each $empty->{hash}) is HASHREF');
ok(!defined $empty->{hash}      ,   'Vivify: $empty->{hash} is undef');

# Each -- errors
$errpat = qr/
 (?-x:Type of argument to each on reference must be unblessed hashref or)
 (?-x: arrayref)
/x;

eval "each undef";
ok($@ =~ $errpat,
  'Errors: each undef throws error'
);

undef $empty;
eval q"each $empty";
ok($@ =~ $errpat,
  'Errors: each $undef throws error'
);

is($empty, undef, 'each $undef does not vivify $undef');

eval "each 3";
ok($@ =~ qr/Type of arg 1 to each must be hash/,
  'Errors: each CONSTANT throws error'
);

eval "each qr/foo/";
ok($@ =~ $errpat,
  'Errors: each qr/foo/ throws error'
);

eval q"each $hash qw/foo bar/";
ok($@ =~ qr/syntax error/,
  'Errors: each $hash, @stuff throws error'
) or print "# Got: $@";

# Overloaded objects
my $over_a = Foo::Overload::Array->new;
my $over_h = Foo::Overload::Hash->new;
my $over_b = Foo::Overload::Both->new;
my $over_h_a = Foo::Overload::HashOnArray->new;
my $over_a_h = Foo::Overload::ArrayOnHash->new;

{
  my $warn = '';
  local $SIG{__WARN__} = sub { $warn = shift };

$errpat = qr/
   (?-x:Type of argument to keys on reference must be unblessed hashref or)
   (?-x: arrayref)
  /x;

eval { keys $over_a };
  like($@, $errpat, "Overload: array dereference");
  is($warn, '', "no warning issued"); $warn = '';

eval { keys $over_h };
  like($@, $errpat, "Overload: hash dereference");
  is($warn, '', "no warning issued"); $warn = '';

eval { keys $over_b };
  like($@, $errpat, "Overload: ambiguous dereference (both)");
  is($warn, '', "no warning issued"); $warn = '';

eval { keys $over_h_a };
  like($@, $errpat, "Overload: ambiguous dereference");
  is($warn, '', "no warning issued"); $warn = '';

eval { keys $over_a_h };
  like($@, $errpat, "Overload: ambiguous dereference");
  is($warn, '', "no warning issued"); $warn = '';
}