Check the error code AFTER the protocol and data. Only changed to perhaps
get some further input on the notorious test case 91 failures!
This commit is contained in:
parent
2450506c83
commit
a3ad4295c9
@ -925,7 +925,7 @@ sub singletest {
|
||||
|
||||
print CMDLOG "$CMDLINE\n";
|
||||
|
||||
my $res;
|
||||
my $cmdres;
|
||||
# run the command line we built
|
||||
if($gdbthis) {
|
||||
open(GDBCMD, ">log/gdbcmd");
|
||||
@ -933,18 +933,18 @@ sub singletest {
|
||||
print GDBCMD "show args\n";
|
||||
close(GDBCMD);
|
||||
system("gdb --directory libtest $DBGCURL -x log/gdbcmd");
|
||||
$res =0; # makes it always continue after a debugged run
|
||||
$cmdres=0; # makes it always continue after a debugged run
|
||||
}
|
||||
else {
|
||||
$res = system("$CMDLINE");
|
||||
my $signal_num = $res & 127;
|
||||
my $dumped_core = $res & 128;
|
||||
$cmdres = system("$CMDLINE");
|
||||
my $signal_num = $cmdres & 127;
|
||||
my $dumped_core = $cmdres & 128;
|
||||
|
||||
if(!$anyway && ($signal_num || $dumped_core)) {
|
||||
$res = 1000;
|
||||
$cmdres = 1000;
|
||||
}
|
||||
else {
|
||||
$res /= 256;
|
||||
$cmdres /= 256;
|
||||
}
|
||||
}
|
||||
|
||||
@ -959,25 +959,7 @@ sub singletest {
|
||||
my @err = getpart("verify", "errorcode");
|
||||
my $errorcode = $err[0];
|
||||
|
||||
if($errorcode || $res) {
|
||||
if($errorcode == $res) {
|
||||
$errorcode =~ s/\n//;
|
||||
if($verbose) {
|
||||
print " received errorcode $errorcode OK";
|
||||
}
|
||||
elsif(!$short) {
|
||||
print " error OK";
|
||||
}
|
||||
}
|
||||
else {
|
||||
if(!$short) {
|
||||
print "curl returned $res, ".(0+$errorcode)." was expected\n";
|
||||
}
|
||||
print " error FAILED\n";
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
my $res;
|
||||
if (@validstdout) {
|
||||
# verify redirected stdout
|
||||
my @actual = loadarray($STDOUT);
|
||||
@ -1070,6 +1052,25 @@ sub singletest {
|
||||
}
|
||||
}
|
||||
|
||||
if($errorcode || $cmdres) {
|
||||
if($errorcode == $cmdres) {
|
||||
$errorcode =~ s/\n//;
|
||||
if($verbose) {
|
||||
print " received errorcode $errorcode OK";
|
||||
}
|
||||
elsif(!$short) {
|
||||
print " error OK";
|
||||
}
|
||||
}
|
||||
else {
|
||||
if(!$short) {
|
||||
print "curl returned $cmdres, ".(0+$errorcode)." was expected\n";
|
||||
}
|
||||
print " error FAILED\n";
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
if(!$keepoutfiles) {
|
||||
# remove the stdout and stderr files
|
||||
unlink($STDOUT);
|
||||
|
Loading…
x
Reference in New Issue
Block a user