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