summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2007-04-18 14:18:33 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:51:05 -0500
commit8636c243d648b76ef98283f5858267ed87e0d385 (patch)
tree2b42b8213bb5ba91365aeb470203ac446ac9df85
parent08a44496d136b3ac184a6584f3ce8f476f545c76 (diff)
downloadsamba-8636c243d648b76ef98283f5858267ed87e0d385.tar.gz
samba-8636c243d648b76ef98283f5858267ed87e0d385.tar.bz2
samba-8636c243d648b76ef98283f5858267ed87e0d385.zip
r22338: Allow regexes in known-failures file
(This used to be commit 74efac5ce2655e47f8274f484630b82b6d5fcb24)
-rwxr-xr-xsource4/script/tests/selftest.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl
index da4f097701..8d72928ed5 100755
--- a/source4/script/tests/selftest.pl
+++ b/source4/script/tests/selftest.pl
@@ -161,7 +161,9 @@ sub expecting_failure($)
{
my $fullname = shift;
- return 1 if (grep(/^$fullname$/, @expected_failures));
+ foreach (@expected_failures) {
+ return 1 if ($fullname =~ /$_/);
+ }
return 0;
}
@@ -317,6 +319,7 @@ sub run_test($$$$$$)
$statistics->{TESTS_EXPECTED_FAIL}++;
$expected_ret = 0;
} else {
+ print "n:$name/$2l\n";
$statistics->{TESTS_UNEXPECTED_FAIL}++;
}
} elsif ($1 eq "skip") {