Rev 11917: Allow regexes in known-failures file in file:///home/jelmer/bzr.samba/SAMBA_4_0/

[Jelmer Vernooij]

At file:///home/jelmer/bzr.samba/SAMBA_4_0/

------------------------------------------------------------
revno: 11917
revision-id: jelmer at samba.org-20070418151801-s6bqskdnjns1z3n3
parent: svn-v2:22337 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0
committer: Jelmer Vernooij <jelmer at samba.org>
branch nick: SAMBA_4_0
timestamp: Wed 2007-04-18 17:18:01 +0200
message:
  Allow regexes in known-failures file
modified:
  source/script/tests/selftest.pl svn-v2:20693 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0-source%2fscript%2ftests%2fselftest.pl
=== modified file 'source/script/tests/selftest.pl'
--- a/source/script/tests/selftest.pl	2007-04-18 14:02:26 +0000
+++ b/source/script/tests/selftest.pl	2007-04-18 15:18:01 +0000
@@ -161,7 +161,9 @@
 {
 	my $fullname = shift;
 
-	return 1 if (grep(/^$fullname$/, @expected_failures));
+	foreach (@expected_failures) {
+		return 1 if ($fullname =~ /$_/);
+	}
 
 	return 0;
 }
@@ -317,6 +319,7 @@
 					$statistics->{TESTS_EXPECTED_FAIL}++;
 					$expected_ret = 0;
 				} else {
+					print "n:$name/$2l\n";
 					$statistics->{TESTS_UNEXPECTED_FAIL}++;
 				}
 			} elsif ($1 eq "skip") {