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}++;