diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-04-18 14:18:33 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:51:05 -0500 |
commit | 8636c243d648b76ef98283f5858267ed87e0d385 (patch) | |
tree | 2b42b8213bb5ba91365aeb470203ac446ac9df85 /source4/script/tests | |
parent | 08a44496d136b3ac184a6584f3ce8f476f545c76 (diff) | |
download | samba-8636c243d648b76ef98283f5858267ed87e0d385.tar.gz samba-8636c243d648b76ef98283f5858267ed87e0d385.tar.bz2 samba-8636c243d648b76ef98283f5858267ed87e0d385.zip |
r22338: Allow regexes in known-failures file
(This used to be commit 74efac5ce2655e47f8274f484630b82b6d5fcb24)
Diffstat (limited to 'source4/script/tests')
-rwxr-xr-x | source4/script/tests/selftest.pl | 5 |
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") { |