svn commit: samba r26190 - in branches/SAMBA_4_0: . source/selftest
jelmer at samba.org
jelmer at samba.org
Thu Nov 29 01:36:38 GMT 2007
Author: jelmer
Date: 2007-11-29 01:36:38 +0000 (Thu, 29 Nov 2007)
New Revision: 26190
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=26190
Log:
Allow successful as well as success.
Modified:
branches/SAMBA_4_0/
branches/SAMBA_4_0/source/selftest/Subunit.pm
Changeset:
Property changes on: branches/SAMBA_4_0
___________________________________________________________________
Name: bzr:revision-info
...skipped...
Name: bzr:file-ids
...skipped...
Name: bzr:revision-id:v3-trunk0
...skipped...
Modified: branches/SAMBA_4_0/source/selftest/Subunit.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/Subunit.pm 2007-11-29 01:36:31 UTC (rev 26189)
+++ branches/SAMBA_4_0/source/selftest/Subunit.pm 2007-11-29 01:36:38 UTC (rev 26190)
@@ -20,7 +20,7 @@
$msg_ops->control_msg($msg_state, $_);
$open_tests->{$1} = 1;
$msg_ops->start_test($msg_state, $1);
- } elsif (/^(success|failure|skip|error): (.*?)( \[)?([ \t]*)\n/) {
+ } elsif (/^(success|successful|failure|skip|error): (.*?)( \[)?([ \t]*)\n/) {
$msg_ops->control_msg($msg_state, $_);
my $reason = undef;
if ($3) {
@@ -32,7 +32,7 @@
}
}
my $result = $1;
- if ($1 eq "success") {
+ if ($1 eq "success" or $1 eq "successful") {
delete $open_tests->{$2};
if ($expecting_failure->("$msg_state->{NAME}/$2")) {
$statistics->{TESTS_UNEXPECTED_OK}++;
More information about the samba-cvs
mailing list