r22338: Allow regexes in known-failures file

(This used to be commit 74efac5ce2655e47f8274f484630b82b6d5fcb24)

diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl
index da4f097701648f929859614d006aed3890bd07dd..8d72928ed51fec0404c328248da6f39357ab2274 100755 (executable)
--- 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") {