[perl #69869] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-names_and_variables/perl.t

commit c156c649e83b66ebc93d0cc114bd22c0d8fac772
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Oct 21 18:29:13 2009 +0000

    [t/spec] Tests for RT #69869
    
    git-svn-id: http://svn.pugscode.org/p...@28874 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-names_and_variables/perl.t 
b/t/spec/S02-names_and_variables/perl.t
index 842276c..32e914e 100644
--- a/t/spec/S02-names_and_variables/perl.t
+++ b/t/spec/S02-names_and_variables/perl.t
@@ -1,6 +1,6 @@
 use v6;
-
 use Test;
+plan *;
 
 # L<S02/Names and Variables/To get a Perlish representation of any object>
 
@@ -55,7 +55,6 @@ my @tests = (
     [ { :a(1) }, { :b(2), :c(3) } ],
 );
 
-plan 18 + 2...@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -204,4 +203,13 @@ plan 18 + 2...@tests;
     # TODO: check that eval( RT67790.HOW.perl ) 'is' RT67790.HOW
 }
 
+# RT #69869
+{
+    is 1.0.WHAT, Num, '1.0 is Num';
+    #?rakudo todo 'RT #69869'
+    is eval( 1.0.perl ).WHAT, Num, "1.0 perl'd and eval'd is Num";
+}
+
+done_testing;
+
 # vim: ft=perl6