From 8636c243d648b76ef98283f5858267ed87e0d385 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 18 Apr 2007 14:18:33 +0000
Subject: r22338: Allow regexes in known-failures file (This used to be commit
 74efac5ce2655e47f8274f484630b82b6d5fcb24)

---
 source4/script/tests/selftest.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'source4')

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") {
-- 
cgit