moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

Display "exit OK" when the exit code has been verified to be OK, and added

Browse Source 
initial basic valgrind-log scan for memory leaks it could detect.
This commit is contained in:
Daniel Stenberg 2004-04-30 10:37:40 +00:00
parent 34be9df773
commit 6e118ce50f
1 changed files with 44 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
tests/runtests.pl
View File

@ -1195,24 +1195,22 @@ sub singletest {
}
}
if($errorcode || $cmdres) {
if($errorcode == $cmdres) {
$errorcode =~ s/\n//;
if($verbose) {
print " received errorcode $errorcode OK";
}
elsif(!$short) {
print " error OK";
}
if($errorcode == $cmdres) {
$errorcode =~ s/\n//;
if($verbose) {
print " received exitcode $errorcode OK";
}
else {
if(!$short) {
print "curl returned $cmdres, ".(0+$errorcode)." was expected\n";
}
print " error FAILED\n";
return 1;
elsif(!$short) {
print " exit OK";
}
}
else {
if(!$short) {
print "curl returned $cmdres, ".(0+$errorcode)." was expected\n";
}
print " exit FAILED\n";
return 1;
}
# the test succeeded, remove all log files
if(!$keepoutfiles) {
@ -1259,6 +1257,37 @@ sub singletest {
}
}
}
}
if($valgrind) {
opendir(DIR, "log") ||
return 0; # can't open log dir
my @files = readdir(DIR);
closedir DIR;
my $f;
my $l;
foreach $f (@files) {
if($f =~ /^valgrind$testnum/) {
$l = $f;
last;
}
}
my $leak;
open(VAL, "<$l");
while(<VAL>) {
if($_ =~ /definitely lost: (\d*) bytes/) {
$leak = $1;
last;
}
}
close(VAL);
if($leak) {
print " valgrind ERROR ";
}
elsif(!$short) {
print " valgrind OK";
}
}
if($short) {
print "OK";