[t/spec] tests for RT #73236 LTA error messages on literals with too …

…many decimals

git-svn-id: http://svn.pugscode.org/pugs@31892 c213334d-75ef-0310-aa23-eaa082d1ae64

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