Author: jelmer Date: 2007-04-18 14:18:33 +0000 (Wed, 18 Apr 2007) New Revision: 22338
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22338 Log: Allow regexes in known-failures file Modified: branches/SAMBA_4_0/ branches/SAMBA_4_0/source/script/tests/selftest.pl Changeset: Property changes on: branches/SAMBA_4_0 ___________________________________________________________________ Name: bzr:merge ...skipped... Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl =================================================================== --- branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-18 14:02:26 UTC (rev 22337) +++ branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-18 14:18:33 UTC (rev 22338) @@ -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") {
