From @colomon

colomon​: rakudo​: say eval(1.0.perl).WHAT;
p6eval​: rakudo 24ebf3​: OUTPUT«Int()␤»
colomon​: rakudo​: say 1.0.perl
p6eval​: rakudo 24ebf3​: OUTPUT«1␤»

--
Solomon Foster​: colomon@​gmail.com
HarmonyWare, Inc​: http://www.harmonyware.com

From @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 <kyle@​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/pugs@&#8203;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

The RT System itself - Status changed from 'new' to 'open'

From @bbkr

[16​:39] <bbkr> rakudo​: 1.0.WHAT.say # this should be Num or Rat
according to the Spec?
[16​:39] <p6eval> rakudo 1576d4​: OUTPUT«Rat()␤»
[16​:39] <pmichaud> bbkr​: Rat.

So tests from previous post are no longer valid, taking ticket for fixing.

From @bbkr

this test is already fixed in 31891 revision and passes.

closing ticket.

@bbkr - Status changed from 'open' to 'resolved'