sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00
Code

selftest: fixed filter to know about a "error" result

Browse Source 
This is what caused some of the python tests to not match knownfail
entries
This commit is contained in:
Andrew Tridgell 2009-10-19 13:25:55 +11:00
parent 959accb4e6
commit 1de7e43fb4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
selftest/Subunit/Filter.pm
View File

@ -76,6 +76,12 @@ sub start_test($$)
Subunit::start_test($testname);
}
sub is_failure($)
{
my ($result) = @_;
return $result eq "fail" or $result eq "failure" or $result eq "error";
}
sub end_test($$$$$)
{
my ($self, $testname, $result, $unexpected, $reason) = @_;
@ -84,12 +90,12 @@ sub end_test($$$$$)
$testname = $self->{prefix}.$testname;
}
if (($result eq "fail" or $result eq "failure") and not $unexpected) {
if (is_failure($result) and not $unexpected) {
$result = "xfail";
$self->{xfail_added}++;
}
my $xfail_reason = find_in_list($self->{expected_failures}, $testname);
if (defined($xfail_reason) and ($result eq "fail" or $result eq "failure")) {
if (defined($xfail_reason) and is_failure($result)) {
$result = "xfail";
$self->{xfail_added}++;
$reason .= $xfail_reason;
@ -121,7 +127,7 @@ sub start_testsuite($;$)
sub end_testsuite($$;$)
{
my ($self, $name, $result, $reason) = @_;
if ($self->{xfail_added} and ($result eq "fail" or $result eq "failure")) {
if ($self->{xfail_added} and is_failure($result)) {
$result = "xfail";
}