Test default Mu.perl (resolves RT #62002).

Raku · Jun 25, 2012 · 9e82fe0 · 9e82fe0
1 parent b61ccd1
commit 9e82fe0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S02-names-vars/perl.t b/S02-names-vars/perl.t
@@ -136,6 +136,10 @@ my @tests = (
     # TODO: more tests that show eval($t1_init) has the same guts as $t1.
     #?pugs todo
     ok $t1_new ~~ /<< krach >>/, 'attribute value appears in .perl output';
+
+    # RT #62002 -- validity of default .perl
+    my $t2_init = eval($t1_init).perl;
+    is $t1_init, $t2_init, '.perl on user-defined type roundtrips okay';
 }
 
 # RT #64080