1N/A # to locate the testing files 1N/A # testing with the core distribution 1N/A print "# INC = @INC\n"; 1N/A for (1..7) { skip (1,'Not supported on older Perls'); } 1N/Aok (2 ** 255,'57896044618658097711785492504343953926634992332820282019728792003956564819968');
1N/A no warnings 'portable'; # protect against "non-portable" warnings 1N/A# hexadecimal constants 1N/Aok (0x123456789012345678901234567890, 1N/A '0b01010100011001010110110001110011010010010110000101101101')); 1N/Aok (1.0 / 3.0, '0.3333333333333333333333333333333333333333');
1N/A# stress-test Math::BigFloat->import()