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 5f05642..3eec5cd 100755 (executable)
--- a/t/op/inc.t
+++ b/t/op/inc.t
@@ -2,7 +2,7 @@
 
 # use strict;
 
-print "1..32\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;
@@ -185,3 +185,12 @@ 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");
+}