3 use Test::More tests => 11;
25 is($x, 4.5, "scalar still floating point");
27 isnt(sqrt($x), 2, "functions still floating point");
29 isnt($x ** .5, 2, "power still floating point");
31 is(++$x, 5.5, "++ still floating point");
34 my $ivsize = $Config{ivsize};
35 skip "ivsize == $ivsize", 2 unless $ivsize == 4 || $ivsize == 8;
39 is($z + 1, -2147483648, "left shift");
40 } elsif ($ivsize == 8) {
42 is($z + 1, -9223372036854775808, "left shift");
46 is(~0, -1, "signed instead of unsigned");