2 require "../lib/bigint.pl";
13 @args = split(/:/,$_,99);
15 $try = "$f('" . join("','", @args) . "');";
16 if (($ans1 = eval($try)) eq $ans) {
19 print "not ok $test\n";
20 print "# '$try' expected: '$ans' got: '$ans1'\n";
40 +1000000000:+9:+111111111
41 +2000000000:+9:+222222222
42 +3000000000:+9:+333333333
43 +4000000000:+9:+444444444
44 +5000000000:+9:+555555555
45 +6000000000:+9:+666666666
46 +7000000000:+9:+777777777
47 +8000000000:+9:+888888888
48 +9000000000:+9:+1000000000
49 +35500000:+113:+314159
50 +71000000:+226:+314159
51 +106500000:+339:+314159
52 +1000000000:+3:+333333333
57 +999999999999:+9:+111111111111
58 +999999999999:+99:+10101010101
59 +999999999999:+999:+1001001001
60 +999999999999:+9999:+100010001
61 +999999999999999:+99999:+10000100001
97 +999999999999:+9999:+0
98 +999999999999999:+99999:+0