Display "exit OK" when the exit code has been verified to be OK, and added (6e118ce5) · Commits · CYBER - Cyber Security / TS 103 523 MSP / TLMSP / TLMSP curl

tests/runtests.pl

+44 −15

Original line number	Diff line number	Diff line
		@@ -1195,24 +1195,22 @@ sub singletest {
		}
		}

		if($errorcode \|\| $cmdres) {
		if($errorcode == $cmdres) {
		$errorcode =~ s/\n//;
		if($verbose) {
		print " received errorcode $errorcode OK";
		print " received exitcode $errorcode OK";
		}
		elsif(!$short) {
		print " error OK";
		print " exit OK";
		}
		}
		else {
		if(!$short) {
		print "curl returned $cmdres, ".(0+$errorcode)." was expected\n";
		}
		print " error FAILED\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";