From e8b20039a7b77e17fd3caa66b68528f70d3b6cec Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Tue, 21 Sep 2010 17:35:53 -0700 Subject: selftest: Fix generation of test id file. --- selftest/selftest.pl | 8 ++++---- 1 file 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"; } -- cgit