[perl #17624] [PATCH] Don't assume 32-bit integers in perl6/t/compiler/2.t

[via RT]

# New Ticket Created by  Andy Dougherty 
# Please include the string:  [perl #17624]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17624 >


14! is actually 87178291200.  The value used in the test assumes 32-bit
integer wraparound.

Since 12! already tests whether we can do recursive functions, we can just
eliminate the test.

--- parrot-orig/languages/perl6/t/compiler/2.t  Fri Aug 23 13:48:11 2002
+++ parrot-andy/languages/perl6/t/compiler/2.t  Fri Sep 27 09:38:20 2002
@@ -22,7 +22,6 @@
 
 sub main() {
     fact 12;
-    fact 14;
     fact -1;
     fact 0;
     fact 24;
@@ -30,7 +29,6 @@
 
 CODE
 12! = 479001600
-14! = 1278945280
 Sorry, can't take -1 factorial
 0! = 1
 Sorry, can't take 24 factorial

-- 
    Andy Dougherty              [EMAIL PROTECTED]