home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / op / inc.t < prev    next >
Text File  |  2000-03-04  |  1KB  |  98 lines
  1. #!./perl
  2.  
  3. print "1..12\n";
  4.  
  5. # Verify that addition/subtraction properly upgrade to doubles.
  6. # These tests are only significant on machines with 32 bit longs,
  7. # and two's complement negation, but shouldn't fail anywhere.
  8.  
  9. $a = 2147483647;
  10. $c=$a++;
  11. if ($a == 2147483648) 
  12.     {print "ok 1\n"}
  13. else
  14.     {print "not ok 1\n";}
  15.  
  16. $a = 2147483647;
  17. $c=++$a;
  18. if ($a == 2147483648) 
  19.     {print "ok 2\n"}
  20. else
  21.     {print "not ok 2\n";}
  22.  
  23. $a = 2147483647;
  24. $a=$a+1;
  25. if ($a == 2147483648) 
  26.     {print "ok 3\n"}
  27. else
  28.     {print "not ok 3\n";}
  29.  
  30. $a = -2147483648;
  31. $c=$a--;
  32. if ($a == -2147483649) 
  33.     {print "ok 4\n"}
  34. else
  35.     {print "not ok 4\n";}
  36.  
  37. $a = -2147483648;
  38. $c=--$a;
  39. if ($a == -2147483649) 
  40.     {print "ok 5\n"}
  41. else
  42.     {print "not ok 5\n";}
  43.  
  44. $a = -2147483648;
  45. $a=$a-1;
  46. if ($a == -2147483649) 
  47.     {print "ok 6\n"}
  48. else
  49.     {print "not ok 6\n";}
  50.  
  51. $a = 2147483648;
  52. $a = -$a;
  53. $c=$a--;
  54. if ($a == -2147483649) 
  55.     {print "ok 7\n"}
  56. else
  57.     {print "not ok 7\n";}
  58.  
  59. $a = 2147483648;
  60. $a = -$a;
  61. $c=--$a;
  62. if ($a == -2147483649) 
  63.     {print "ok 8\n"}
  64. else
  65.     {print "not ok 8\n";}
  66.  
  67. $a = 2147483648;
  68. $a = -$a;
  69. $a=$a-1;
  70. if ($a == -2147483649) 
  71.     {print "ok 9\n"}
  72. else
  73.     {print "not ok 9\n";}
  74.  
  75. $a = 2147483648;
  76. $b = -$a;
  77. $c=$b--;
  78. if ($b == -$a-1) 
  79.     {print "ok 10\n"}
  80. else
  81.     {print "not ok 10\n";}
  82.  
  83. $a = 2147483648;
  84. $b = -$a;
  85. $c=--$b;
  86. if ($b == -$a-1) 
  87.     {print "ok 11\n"}
  88. else
  89.     {print "not ok 11\n";}
  90.  
  91. $a = 2147483648;
  92. $b = -$a;
  93. $b=$b-1;
  94. if ($b == -(++$a)) 
  95.     {print "ok 12\n"}
  96. else
  97.     {print "not ok 12\n";}
  98.