summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2010-09-21 17:35:53 -0700
committerJelmer Vernooij <jelmer@samba.org>2010-09-21 22:54:34 -0700
commite8b20039a7b77e17fd3caa66b68528f70d3b6cec (patch)
tree76c5be3a8ef74bd8499ad61d8f280ed339e73781
parent4c681f760fbf0dc98627fdc94046df793c405ef1 (diff)
downloadsamba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.tar.gz
samba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.tar.bz2
samba-e8b20039a7b77e17fd3caa66b68528f70d3b6cec.zip
selftest: Fix generation of test id file.
-rwxr-xr-xselftest/selftest.pl8
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";
}