integer.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
chdir 't' if -d 't';
}
use integer;
my $x = 4.5;
my $y = 5.6;
my $z;
$z = $x + $y;
$z = $x - $y;
$z = $x * $y;
$z = $x / $y;
$z = $x / $y;
is($x, 4.5, "scalar still floating point");
isnt(sqrt($x), 2, "functions still floating point");
isnt($x ** .5, 2, "power still floating point");
is(++$x, 5.5, "++ still floating point");
$z = 2**31 - 1;
is($z + 1, -2147483648, "left shift"); $z = 2**63 - 1;
is($z + 1, -9223372036854775808, "left shift"); }
}
is(~0, -1, "signed instead of unsigned");