diff options
| -rwxr-xr-x | t/op/array.t | 23 | ||||
| -rwxr-xr-x | t/op/repeat.t | 39 |
2 files changed, 2 insertions, 60 deletions
diff --git a/t/op/array.t b/t/op/array.t index d7c1ee9175..77ea646a93 100755 --- a/t/op/array.t +++ b/t/op/array.t @@ -5,9 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..84\n"; - -use Config; +print "1..82\n"; # # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them @@ -299,22 +297,3 @@ sub kindalike { # TODO: test.pl-ize the array.t. eval '$a[-1] = 0'; kindalike($@, qr/Modification of non-creatable array value attempted, subscript -1/, "\$a[-1] = 0", 82); } - -# Test the "malloc wrappage" guard introduced in Perl 5.8.4. - -if ($Config{ptrsize} == 4) { - eval '$a[0x7fffffff]=0'; - kindalike($@, qr/Out of memory during array extend/, "array extend", 83); - - eval '$a[0x80000000]=0'; - kindalike($@, qr/Out of memory during array extend/, "array extend", 84); -} elsif ($Config{ptrsize} == 8) { - eval '$a[0x7fffffffffffffff]=0'; - kindalike($@, qr/Out of memory during array extend/, "array extend", 83); - - eval '$a[0x8000000000000000]=0'; - kindalike($@, qr/Out of memory during array extend/, "array extend", 84); -} else { - die "\$Config{ptrsize} == $Config{ptrsize}?"; -} - diff --git a/t/op/repeat.t b/t/op/repeat.t index f33022ed0a..e728413e9b 100755 --- a/t/op/repeat.t +++ b/t/op/repeat.t @@ -6,9 +6,7 @@ BEGIN { } require './test.pl'; -plan(tests => 45); - -use Config; +plan(tests => 41); # compile time @@ -153,38 +151,3 @@ is(77, scalar ((1,7)x2), 'stack truncation'); } is($y, 'abcdabcd'); } - -# Test the "malloc wrappage" guards introduced in Perl 5.8.4. - -# Note that the guards do not catch everything: for example -# "0"x0x7f...f is fine because it will attempt to allocate -# "only" 0x7f...f+1 bytes: no wrappage there. - -if ($Config{ptrsize} == 4) { - eval '@a=(0)x0x7fffffff'; - like($@, qr/Out of memory during list extend/, "list extend"); - - eval '@a=(0)x0x80000000'; - like($@, qr/Out of memory during list extend/, "list extend"); - - eval '$a="012"x0x7fffffff'; - like($@, qr/Out of memory during string extend/, "string extend"); - - eval '$a="012"x0x80000000'; - like($@, qr/Out of memory during string extend/, "string extend"); -} elsif ($Config{ptrsize} == 8) { - eval '@a=(0)x0x7fffffffffffffff'; - like($@, qr/Out of memory during list extend/, "list extend"); - - eval '@a=(0)x0x8000000000000000'; - like($@, qr/Out of memory during list extend/, "list extend"); - - eval '$a="012"x0x7fffffffffffffff'; - like($@, qr/Out of memory during string extend/, "string extend"); - - eval '$a="012"x0x8000000000000000'; - like($@, qr/Out of memory during string extend/, "string extend"); -} else { - die "\$Config{ptrsize} == $Config{ptrsize}?"; -} - |