inc.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
# use strict;
print "1..26\n";
my $test = 1;
sub ok {
return 1;
} else {
} else {
} else {
}
}
}
return;
}
# Verify that addition/subtraction properly upgrade to doubles.
# These tests are only significant on machines with 32 bit longs,
# and two's complement negation, but shouldn't fail anywhere.
my $a = 2147483647;
my $c=$a++;
ok ($a == 2147483648, $a);
$a = 2147483647;
$c=++$a;
ok ($a == 2147483648, $a);
$a = 2147483647;
$a=$a+1;
ok ($a == 2147483648, $a);
$a = -2147483648;
$c=$a--;
ok ($a == -2147483649, $a);
$a = -2147483648;
$c=--$a;
ok ($a == -2147483649, $a);
$a = -2147483648;
$a=$a-1;
ok ($a == -2147483649, $a);
$a = 2147483648;
$a = -$a;
$c=$a--;
ok ($a == -2147483649, $a);
$a = 2147483648;
$a = -$a;
$c=--$a;
ok ($a == -2147483649, $a);
$a = 2147483648;
$a = -$a;
$a=$a-1;
ok ($a == -2147483649, $a);
$a = 2147483648;
$b = -$a;
$c=$b--;
ok ($b == -$a-1, $a);
$a = 2147483648;
$b = -$a;
$c=--$b;
ok ($b == -$a-1, $a);
$a = 2147483648;
$b = -$a;
$b=$b-1;
$a = undef;
$a = undef;
# Verify that shared hash keys become unshared.
sub check_same {
my $fail;
$fail = 1;
}
} else {
$fail = 1;
}
}
$fail = 1;
}
}
my $up;
eval {$up = ++$_};
}
my $down;
eval {$down = --$_};
}
my $up;
eval {$up = $_++};
}
my $down;
eval {$down = $_--};
}