Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (22 sloc) 0.698 kb
use v6;
use Test;
plan 5;
# L<S32::Containers/Hash/"Like hash assignment insofar">
my %ref1 = (a => 1, b => 2, c => 3);
my %ref2 = (a => [1, 4, 5], b => 2, c => 3);
{
my ($r, %x);
$r = %x.push: 'a' => 1;
is $r.WHAT, Hash, 'Hash.push returns hash';
my %h;
%h.push: 'b', 2, 'a', 1, 'c', 3;
is_deeply %h, %ref1, 'basic Hash.push with alternating items';
%h.push: (:a(4), :a(5));
is_deeply %h, %ref2, 'stacking push works with pairs';
my %g;
%g.push: (a => 1), (c => 3), (b => 2);
is_deeply %g, %ref1, 'basic Hash.push with pairs ';
%g.push: 'a', 4, 'a', 5;
is_deeply %g, %ref2, 'stacking push worsk with alternating items';
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.