Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (21 sloc) 0.586 kB
use v6;
use Test;
plan 5;
# L<S06/Pairs as lvalues/>
eval-dies-ok 'my $var; (key => $var) = "value"';
#?rakudo.moar todo "NYI RT #124660"
#?rakudo.jvm skip "Flattening named argument must have VMHash REPR RT #124661"
{
my ($a, $b);
$b = 'b';
:(:$a) := $b;
is $a, 'b', 'can bind to single pair';
ok $a =:= $b, 'variables are bound together (?)';
}
{
my ($t, $m);
:(:type($t), :motivation($m)) := (type => 'geek', motivation => '-Ofun');
is $t, 'geek', 'bound to the first pair';
is $m, '-Ofun', 'bound to the second pair';
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.