constant.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use strict;
use Test;
{
$| = 1;
# to locate the testing files
my $location = $0; $location =~ s/constant.t//i;
{
# testing with the core distribution
}
if (-d 't')
{
chdir 't';
}
else
{
}
print "# INC = @INC\n";
if ($] < 5.006)
{
exit;
}
}
{
# hexadecimal constants
ok (0x123456789012345678901234567890,
# binary constants
'0b01010100011001010110110001110011010010010110000101101101'));
}
# stress-test Math::BigFloat->import()
ok (1,1);
ok (1,1);
ok (1,1);
# all tests done