Change 28404 broke the construct s/foo/<<BAR/e. So, try to be more

[p5sagit/p5-mst-13.2.git] / t / op / inc.t

diff --git a/t/op/inc.t b/t/op/inc.t
index 156ca92..3eec5cd 100755 (executable)
--- a/t/op/inc.t
+++ b/t/op/inc.t
@@ -2,7 +2,7 @@
 
 # use strict;
 
-print "1..30\n";
+print "1..34\n";
 
 my $test = 1;
 
@@ -160,7 +160,7 @@ check_same (\%orig, \%postdec);
 
 {
     no warnings 'uninitialized';
-    my $x, $y;
+    my ($x, $y);
     eval {
        $y ="$x\n";
        ++$x;
@@ -168,7 +168,7 @@ check_same (\%orig, \%postdec);
     ok($x == 1, $x);
     ok($@ eq '', $@);
 
-    my $p, $q;
+    my ($p, $q);
     eval {
        $q ="$p\n";
        --$p;
@@ -176,3 +176,21 @@ check_same (\%orig, \%postdec);
     ok($p == -1, $p);
     ok($@ eq '', $@);
 }
+
+$a = 2147483648;
+$c=--$a;
+ok ($a == 2147483647, $a);
+
+
+$a = 2147483648;
+$c=$a--;
+ok ($a == 2147483647, $a);
+
+{
+    use integer;
+    my $x = 0;
+    $x++;
+    ok ($x == 1, "(void) i_postinc");
+    $x--;
+    ok ($x == 0, "(void) i_postdec");
+}