Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

202 lines (157 sloc) 6.117 kb
use v6;
use Test;
# L<S09/"Autovivification">
plan 44;
#?niecza todo
{
my %hash;
%hash<a>;
ok %hash<a>:!exists, 'just mentioning a hash value should not autovivify it';
}
{
my %hash;
%hash<key>[42] = 17;
is %hash<key>[42], 17, "autovivification of a hash element to an arrayref worked";
is +%hash.keys, 1, 'Created one hash item';
}
# RT #61740
{
my %hash;
%hash<key><innerkey> = 17;
is %hash<key><innerkey>, 17, "autovivification of a hash element to a hashref worked";
isa-ok %hash<key>, Hash, 'Inner hash item is really a Hash';
}
# Autovification by push, unshift, etc.
# XXX I understand that @array[0].push(...) should autovivify an Array
# in @array[0], but is that also true for a normal scalar?
#?niecza skip 'Unable to resolve method push in class Any'
{
my $arrayref;
push $arrayref, 1,2,3;
is ~$arrayref, "1 2 3", "autovivification to an array by &push";
isa-ok $arrayref, Array, 'autovivified to Array';
}
#?niecza skip 'Unable to resolve method unshift in class Any'
{
my $arrayref;
unshift $arrayref, 1,2,3;
is ~$arrayref, "1 2 3", "autovivification to an array by &unshift";
}
# Autovification by push, unshift, etc. of an array/hash element
# L<S09/Autovivification/"push, unshift, .[]">
#?niecza skip 'Unable to resolve method push in class Any'
{
my @array;
push @array[2], 1,2,3;
is ~@array, " 1 2 3", "autovivification of an array element to an array by &push";
}
#RT #84000
#?niecza skip 'Unable to resolve method push in class Any'
{
my %hash;
push %hash<key>, 1,2,3;
is ~%hash, "key\t1 2 3", "autovivification of an hash element to an array by &push";
}
# Simple hash autovivification
# Actually, that first test passes, but I can't figure out how to skip just
# the next two.
{
my $hashref;
ok $hashref !~~ Hash, "uninitialized variable is not a Hash (1)";
$hashref<key> = 23;
is $hashref<key>, 23, "hash element assignment worked";
#?niecza skip 'No value for parameter \$other in CORE Any.isa'
#?rakudo skip 'isa multi variant'
ok $hashref.isa !~~ Hash, "uninitialized variable was autovivified to a hash (1)";
}
{
my $hashref;
ok $hashref !~~ Hash, "uninitialized variable is not a Hash (2)";
# Note that
# Autovivification will only happen if the *vivifiable* *path* is used as a container
# ... value extraction does not autovivify.
lives-ok { my $elem = $hashref<key> },
"accessing a not existing hash element of an uninitialized variable works";
ok $hashref !~~ Hash, "uninitialized variable is not autovivified to a hash (2)";
my $hashref2;
lives-ok { my $elem2 = $hashref2<key2><a><b><c><d><e><f> },
"accessing a not existing hash element of an uninitialized variable works (2)";
ok $hashref2 !~~ Hash, "uninitialized variable is not autovivified to a hash (3)";
ok $hashref2<key2><a><b><c><d><e> !~~ Hash, "uninitialized variable is not autovivified to a hash (4)";
}
{
my $hashref;
ok $hashref !~~ Hash, "uninitialized variable is not a Hash (3)";
lives-ok { my $elem := $hashref<key> },
"binding a not existing hash element of an uninitialized variable works";
#?rakudo todo 'autoviv, binding'
ok $hashref ~~ Hash, "uninitialized variable is autovivified to a hash (4)";
lives-ok { my $elem2 := $hashref<key2><a><b><c><d><e><f> },
"binding a not existing hash element of an uninitialized variable works (2)";
#?rakudo todo 'autoviv, binding'
ok $hashref<key2><a><b><c><d><e> ~~ Hash, "uninitialized variable is autovivified to a hash (5)";
}
# Simple array autovivification
{
my $arrayref;
ok !$arrayref.isa(Array), "uninitialized variable is not an Array (1)";
$arrayref[42] = 23;
ok $arrayref.isa(Array), "uninitialized variable was autovivified to an array (1)";
is $arrayref[42], 23, "array element assignment worked";
}
{
my $arrayref;
ok !$arrayref.isa(Array), "uninitialized variable is not an Array (2)";
# Note that
# Autovivification will only happen if the *vivifiable* *path* is used as a container
# ... value extraction does not autovivify.
lives-ok { my $elem = $arrayref[42] },
"accessing a not existing array element of an uninitialized variable works";
ok !$arrayref.isa(Array), "uninitialized variable was not autovivified to an array (2)";
my $arrayref2;
lives-ok { my $elem = $arrayref2[1][2][3][4][5][6] },
"accessing a not existing array element of an uninitialized variable works";
ok !$arrayref2.isa(Array), "uninitialized variable was not autovivified to an array (3)";
ok !$arrayref2[1][2][3][4][5].isa(Array), "uninitialized variable was not autovivified to an array (4)";
}
{
my $arrayref;
ok !$arrayref.isa(Array), "uninitialized variable is not an Array (3)";
lives-ok { my $elem := $arrayref[42] },
"binding a not existing array element of an uninitialized variable works (1)";
#?rakudo todo 'unknown'
ok $arrayref.isa(Array), "uninitialized variable is autovivified to an array (1)";
lives-ok { my $elem2 := $arrayref[1][2][3][4][5][6] },
"binding a not existing array element of an uninitialized variable works (2)";
#?rakudo todo 'unknown'
ok $arrayref[1][2][3][4][5].isa(Array), "uninitialized variable is autovivified to an array (2)";
}
# Autovivification of an array/hash element
{
my @array;
@array[42][23] = 17;
is @array[42][23], 17, "autovivification of an array element to an arrayref worked";
}
{
my @array;
@array[42]<key> = 17;
is @array[42]<key>, 17, "autovivification of an array element to a hashref worked";
}
lives-ok {
&New::Package::foo;
# this is ok, as you don't have to predeclare globally qualified variables
}, "using an undeclared globaly qualified code variable in void context is ok";
dies-ok {
&New::Package::foo();
}, "...but invoking undeclared globally qualifed code variable should die";
{
my @array;
@array[42;23] = 17;
is @array[42][23], 17, "autovivificaion of arrays works via multidim syntax";
}
{
my %hash;
%hash{'key';'innerkey'} = 17;
is %hash<key><innerkey>, 17, "autovivification of hashes works via multidim syntax";
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.