Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (16 sloc) 576 Bytes
use v6;
use Test;
plan 7;
=begin desc
Pair list a la L<"http://www.nntp.perl.org/group/perl.perl6.language/19360">
=end desc
# L<S32::Containers/Array/=item pairs>
my $list = (1 => (2 => (3 => 4)));
isa_ok($list, Pair);
is($list.key, 1, 'the key is 1');
isa_ok($list.value, Pair, '$list.value is-a Pair');
is($list.value.key, 2, 'the list.value.key is 2');
isa_ok($list.value.value, Pair, '$list.value.value is-a Pair');
is($list.value.value.key, 3, 'the list.value.value.key is 3');
is($list.value.value.value, 4, 'the list.value.value.value is 4');
# vim: ft=perl6
Something went wrong with that request. Please try again.