Fix tests wrt to containerness of Pair.perl

Which was changed in 3cbf25e

S02-literals/quoting.t

@@ -308,21 +308,25 @@ Note that non-ASCII tests are kept in quoting-unicode.t
   # <<:Pair>>
     my @q = <<:p(1)>>;
     #?niecza todo
-    is(@q[0].perl, (:p(1)).perl, "pair inside <<>>-quotes - simple");
+    #?rakudo todo
+    is(@q[0].perl, :p(1).item.perl, "pair inside <<>>-quotes - simple");
 
     @q = <<:p(1) junk>>;
     #?niecza todo
-    is(@q[0].perl, (:p(1)).perl, "pair inside <<>>-quotes - with some junk");
+    #?rakudo todo
+    is(@q[0].perl, :p(1).item.perl, "pair inside <<>>-quotes - with some junk");
     is(@q[1], 'junk', "pair inside <<>>-quotes - junk preserved");
 
     @q = <<:def>>;
     #?niecza todo
-    is(@q[0].perl, (:def).perl, ":pair in <<>>-quotes with no explicit value");
+    #?rakudo todo
+    is(@q[0].perl, (:def).item.perl, ":pair in <<>>-quotes with no explicit value");
 
     @q = "(EVAL failed)";
     try { EVAL '@q = <<:p<moose>>>;' };
     #?niecza todo
-    is(@q[0].perl, (p => "moose").perl, ":pair<anglequoted>");
+    #?rakudo todo
+    is(@q[0].perl, (p => "moose").item.perl, ":pair<anglequoted>");
 };
 
 { # weird char escape sequences

S02-types/nested_pairs.t

@@ -12,7 +12,7 @@ Pair list a la L<"http://www.nntp.perl.org/group/perl.perl6.language/19360">
 
 # L<S32::Containers/Array/=item pairs>
 
-my $list = (1 => (2 => (3 => 4)));
+my $list := (1 => (2 => (3 => 4)));
 isa-ok($list, Pair);
 
 is($list.key, 1, 'the key is 1');
@@ -26,7 +26,7 @@ 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);
+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');