This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv_dec is supposed to go *down*, m'kay.
[perl5.git] / t / op / inc.t
index 156ca92..5f05642 100755 (executable)
@@ -2,7 +2,7 @@
 
 # use strict;
 
-print "1..30\n";
+print "1..32\n";
 
 my $test = 1;
 
@@ -176,3 +176,12 @@ 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);