diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-21 17:35:53 -0700 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-21 22:54:34 -0700 |
| commit | e8b20039a7b77e17fd3caa66b68528f70d3b6cec (patch) | |
| tree | 76c5be3a8ef74bd8499ad61d8f280ed339e73781 /selftest/selftest.pl | |
| parent | 4c681f760fbf0dc98627fdc94046df793c405ef1 (diff) | |
| download | samba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.tar.gz samba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.tar.bz2 samba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.zip | |
selftest: Fix generation of test id file.
Diffstat (limited to 'selftest/selftest.pl')
| -rwxr-xr-x | selftest/selftest.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl index 090e87bc59..14ed26f551 100755 --- a/selftest/selftest.pl +++ b/selftest/selftest.pl @@ -716,8 +716,8 @@ foreach my $testsuite (@available) { $individual_tests->{$name} = []; $match = $r; $restricted_used->{$r} = 1; - } elsif (substr($r, $name, length($name)+1) eq "$name.") { - push(@{$individual_tests->{$name}}, $1); + } elsif (substr($r, 0, length($name)+1) eq "$name.") { + push(@{$individual_tests->{$name}}, substr($r, length($name)+1)); $match = $r; $restricted_used->{$r} = 1; } @@ -948,8 +948,8 @@ $envvarstr # test runner for this test suite supports it. if ($$_[3] and $individual_tests and $individual_tests->{$name}) { my ($fh, $listid_file) = tempfile(UNLINK => 0); - foreach (@{$individual_tests->{$name}}) { - print $fh "$_\n"; + foreach my $test (@{$individual_tests->{$name}}) { + print $fh "$test\n"; } $cmd .= " --load-list=$listid_file"; } |