[perl #73236] tests available

[kyleha]

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

commit 806c7d7a2efa5235bb9ee53d0d0a60a7ebe94a74
Author: bbkr <b...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Aug 3 11:59:02 2010 +0000

    [t/spec] tests for RT #73236 LTA error messages on literals with too many 
decimals
    
    git-svn-id: http://svn.pugscode.org/p...@31892 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-literals/numeric.t b/t/spec/S02-literals/numeric.t
index 135fb87..921358f 100644
--- a/t/spec/S02-literals/numeric.t
+++ b/t/spec/S02-literals/numeric.t
@@ -31,6 +31,24 @@ nok 1+1i ~~ Real, '1+1i is not Real';
 is_approx 3.14159265358979323846264338327950288419716939937510e0,
           3.141592, 'very long Num literals';
 
+# RT #73236
+{
+    eval_lives_ok '0.' ~ '0' x 19,
+        'parsing 0.000... with 19 decimal places lives';
+
+    eval_lives_ok '0.' ~ '0' x 20,
+        'parsing 0.000... with 20 decimal places lives';
+
+    eval_lives_ok '0.' ~ '0' x 63,
+        'parsing 0.000... with 63 decimal places lives';
+
+    eval_lives_ok '0.' ~ '0' x 66,
+        'parsing 0.000... with 66 decimal places lives';
+
+    eval_lives_ok '0.' ~ '0' x 1024,
+        'parsing 0.000... with 1024 decimal places lives';
+}
+
 done_testing;
 
 # vim: ft=perl6 sw=4 ts=4 expandtab