This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove tests that were not portable to 64bit ints.
authorGisle Aas <gisle@activestate.com>
Tue, 13 Dec 2005 13:54:44 +0000 (13:54 +0000)
committerGisle Aas <gisle@activestate.com>
Tue, 13 Dec 2005 13:54:44 +0000 (13:54 +0000)
p4raw-id: //depot/perl@26342

t/op/sprintf2.t

index 5c00b2a..7544705 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }   
 
     require './test.pl';
 }   
 
-plan tests => 283;
+plan tests => 275;
 
 is(
     sprintf("%.40g ",0.01),
 
 is(
     sprintf("%.40g ",0.01),
@@ -36,7 +36,7 @@ fresh_perl_is(
 );
 
 # check overflows
 );
 
 # check overflows
-for (int(~0/2+1), ~0, ~0 + 1, ~0 + 2, "9999999999999999999") {
+for (int(~0/2+1), ~0, "9999999999999999999") {
     is(eval {sprintf "%${_}d", 0}, undef, "no sprintf result expected %${_}d");
     like($@, qr/^Integer overflow in format string for sprintf /, "overflow in sprintf");
     is(eval {printf "%${_}d\n", 0}, undef, "no printf result expected %${_}d");
     is(eval {sprintf "%${_}d", 0}, undef, "no sprintf result expected %${_}d");
     like($@, qr/^Integer overflow in format string for sprintf /, "overflow in sprintf");
     is(eval {printf "%${_}d\n", 0}, undef, "no printf result expected %${_}d");
@@ -55,7 +55,7 @@ for (int(~0/2+1), ~0, ~0 + 1, ~0 + 2, "9999999999999999999") {
        }
     };
 
        }
     };
 
-    my $fmt = join('', map("%$_\$s%" . int(~0/2+1-$_) . '$s', 1..20));
+    my $fmt = join('', map("%$_\$s%" . ((1 << 31)-$_) . '$s', 1..20));
     my $result = sprintf $fmt, qw(a b c d);
     is($result, "abcd", "only four valid values in $fmt");
     is($warn, 36, "expected warnings");
     my $result = sprintf $fmt, qw(a b c d);
     is($result, "abcd", "only four valid values in $fmt");
     is($warn, 36, "expected warnings");