diff --git a/tests/memanalyze.pl b/tests/memanalyze.pl index c354a5687ae11cafd29ab915d19979e911e28a38..dff25a8b2e36c293ea903e0440ca4542f8d247dd 100755 --- a/tests/memanalyze.pl +++ b/tests/memanalyze.pl @@ -45,7 +45,15 @@ while() { chomp $_; $line = $_; - if($line =~ /^MEM ([^ ]*):(\d*) (.*)/) { + if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) { + # new memory limit test prefix + my $i = $3; + my ($source, $linenum) = ($1, $2); + if($trace && ($i =~ /([^ ]*) reached memlimit/)) { + print "LIMIT: $1 returned error at $source:$linenum\n"; + } + } + elsif($line =~ /^MEM ([^ ]*):(\d*) (.*)/) { # generic match for the filename+linenumber $source = $1; $linenum = $2;