sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-03-27 22:50:26 +03:00
Code

selftest: Cope with parentheses in testnames in --load-list.

Browse Source
This commit is contained in:
Jelmer Vernooij 2010-09-05 03:16:48 +02:00
parent 474c98fe26
commit 851ad13047
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
selftest/selftest.pl
View File

@ -694,6 +694,7 @@ foreach my $fn (@testlists) {
}
my $restricted = undef;
my $restricted_used = {};
if ($opt_load_list) {
$restricted = [];
@ -718,14 +719,16 @@ foreach my $testsuite (@available) {
Subunit::skip_testsuite($name, $skipreason);
} elsif (defined($restricted)) {
# Find the testsuite for this test
my $match = 0;
my $match = undef;
foreach my $r (@$restricted) {
if ($r eq $name) {
$individual_tests->{$name} = [];
$match = 1;
} elsif ($r =~ /^$name\.(.*)$/) {
$match = $r;
$restricted_used->{$r} = 1;
} elsif (substr($r, $name, length($name)+1) eq "$name.") {
push(@{$individual_tests->{$name}}, $1);
$match = 1;
$match = $r;
$restricted_used->{$r} = 1;
}
}
push(@todo, $testsuite) if ($match);
@ -736,7 +739,7 @@ foreach my $testsuite (@available) {
if (defined($restricted)) {
foreach (@$restricted) {
unless (defined($individual_tests->{$_})) {
unless (defined($restricted_used->{$_})) {
print "No test or testsuite found matching $_\n";
}
}