At file:///home/jelmer/bzr.samba/SAMBA_4_0/
------------------------------------------------------------
revno: 11917
revision-id: [EMAIL PROTECTED]
parent: svn-v2:[EMAIL PROTECTED]
committer: Jelmer Vernooij <[EMAIL PROTECTED]>
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:[EMAIL PROTECTED]
=== 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") {
