develooper Front page | perl.perl5.porters | Postings from November 2014

Seeking advice on OUT OF MEMORY tests

Thread Next
Karl Williamson
November 28, 2014 22:14
Seeking advice on OUT OF MEMORY tests
Message ID:
Two tests consistently run of out memory on os390.  I'm looking for 
advice for getting them or something like them to work there, as well as 
for already-working platforms.

First from t/re/reg_eval_scope.t:

     use warnings;
     my $w;
     local $SIG{__WARN__} = sub { $w = "@_" };
     my $qr = qr/(??{'a'})/;
     my $filler = 1;
     ("a" x 40_000) =~ /^$qr(ab*)+/; my $line = __LINE__;
     like($w, qr/recursion limit.* line $line\b/, "warning on right line");

Second, from t/re/pat_rt_report.t:

   ok (("a" x (2 ** 15 - 10)) =~ /^()(a|bb)*$/, "Recursive stack 
cracker; Bug 24274");

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About