X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fstress_realloc.pl;fp=samples%2Fstress_realloc.pl;h=694e9a0fa6ae7f7ccf378ab3a79153725df9f05a;hb=95ed68f9af6f78ddec795e51dd3eba75410ca560;hp=0000000000000000000000000000000000000000;hpb=c058978f900652b3e9e4a40bfb1fb745270d75be;p=perl%2Fmodules%2Fautovivification.git

diff --git a/samples/stress_realloc.pl b/samples/stress_realloc.pl
new file mode 100644
index 0000000..694e9a0
--- /dev/null
+++ b/samples/stress_realloc.pl
@@ -0,0 +1,28 @@
+#!perl
+
+use strict;
+use warnings;
+use blib;
+
+my $n = 1_000;
+my $p = 100;
+
+my $test = <<'TEST';
+ my $e = $x->{foo}[0]{bar};
+ delete $x->{a}[1]{b};
+ exists $x->{x}[2]{y};
+TEST
+
+for (1 .. $n) {
+ my $x;
+ my $r = eval <<" CODE";
+  no autovivification;
+  $test
+ CODE
+ die $@ if $@ or defined $x;
+ for (1 .. $p) {
+  my $x;
+  my $r = eval $test;
+  die $@ if $@;
+ }
+}