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

Subunit: Support "fail" as alias for "failure" in Subunit streams.

Browse Source
This commit is contained in:
Jelmer Vernooij 2009-06-03 18:08:54 +02:00
parent 9e108009d0
commit 0e2f97092c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
selftest/Subunit.pm
View File

@ -39,7 +39,7 @@ sub parse_results($$$$$)
push (@$open_tests, $1);
} elsif (/^time: (\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)Z\n/) {
$msg_ops->report_time(mktime($6, $5, $4, $3, $2, $1));
} elsif (/^(success|successful|failure|skip|knownfail|error): (.*?)( \[)?([ \t]*)\n/) {
} elsif (/^(success|successful|failure|fail|skip|knownfail|error): (.*?)( \[)?([ \t]*)\n/) {
$msg_ops->control_msg($_);
my $reason = undef;
if ($3) {
@ -68,7 +68,7 @@ sub parse_results($$$$$)
$statistics->{TESTS_EXPECTED_OK}++;
$msg_ops->end_test($open_tests, $2, $1, 0, $reason);
}
} elsif ($1 eq "failure") {
} elsif ($1 eq "failure" or $1 eq "fail") {
pop(@$open_tests); #FIXME: Check that popped value == $2
if ($expecting_failure->(join(".", @$open_tests) . ".$2")) {
$statistics->{TESTS_EXPECTED_FAIL}++;