fix .perl roundtrip tests that use decont

Raku · Apr 2, 2015 · ad98ada · ad98ada
1 parent 493af7f
commit ad98ada
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/S32-array/perl.t b/S32-array/perl.t
@@ -7,7 +7,7 @@ plan 6;
 # simple array
 {
     my @a = 1,2;
-    is @a.perl, '[1, 2][]',
+    is @a.perl, '[1, 2]<>',
       'can we serialize a simple array';
     my $ra = EVAL(@a.perl);
     is_deeply $ra, @a, 'can we roundtrip simple array';

diff --git a/S32-hash/perl.t b/S32-hash/perl.t
@@ -7,7 +7,7 @@ plan 12;
 # simple hash
 {
     my %h = a => 1, b => 2;
-    is %h.perl,'{:a(1), :b(2)}{}', 
+    is %h.perl,'{:a(1), :b(2)}<>', 
       'can we serialize a simple hash';
     my $rh = EVAL(%h.perl);
     is_deeply $rh, $%h, 'can we roundtrip simple hash';