perl 5.003_05: t/op/inc.t util.c
[perl.git] / t / op / inc.t
1 #!./perl
2
3
4 # $RCSfile$
5
6 print "1..6\n";
7
8 # Verify that addition/subtraction properly upgrade to doubles.
9 # These tests are only significant on machines with 32 bit longs,
10 # and two's complement negation, but shouldn't fail anywhere.
11
12 $a = 2147483647;
13 $c=$a++;
14 if ($a == 2147483648) 
15         {print "ok 1\n"}
16 else
17         {print "not ok 1\n";}
18
19 $a = 2147483647;
20 $c=++$a;
21 if ($a == 2147483648) 
22         {print "ok 2\n"}
23 else
24         {print "not ok 2\n";}
25
26 $a = 2147483647;
27 $a=$a+1;
28 if ($a == 2147483648) 
29         {print "ok 3\n"}
30 else
31         {print "not ok 3\n";}
32
33 $a = -2147483648;
34 $c=$a--;
35 if ($a == -2147483649) 
36         {print "ok 4\n"}
37 else
38         {print "not ok 4\n";}
39
40 $a = -2147483648;
41 $c=--$a;
42 if ($a == -2147483649) 
43         {print "ok 5\n"}
44 else
45         {print "not ok 5\n";}
46
47 $a = -2147483648;
48 $a=$a-1;
49 if ($a == -2147483649) 
50         {print "ok 6\n"}
51 else
52         {print "not ok 6\n";}