test for left-nested pairs and .perl method

S02-types/nested_pairs.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 7;
+plan 14;
 
 =begin desc
 
@@ -22,4 +22,17 @@ 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');
 
+is($list, 1 => 2 => 3 => 4, 'pair operator nests right-associatively');
+
+is($list.perl, '1 => 2 => 3 => 4', 'right-associative nested pairs .perl correctly');
+
+my $r-list = (((1 => 2) => 3) => 4);
+
+is($r-list.key, (1 => 2) => 3, 'the key is a nested pair');
+is($r-list.key.key, 1 => 2, 'the key of the key is a nested pair');
+is($r-list.value, 4, 'the value is a number');
+is($r-list.key.value, 3, 'the value of the key is a number');
+
+is($r-list.perl, '((1 => 2) => 3) => 4', 'key-nested pairs .perl correctly');
+
 # vim: ft=perl6