From b37f34c4762f56280a2da3f906559b3e811f7d40 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Thu, 8 Mar 2007 03:56:24 +0000 Subject: [PATCH] Fix bug in *-persistence tests when prerequisites fail. Reported by Tanvi Vyas . --- src/tests/tests.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/tests/tests.pm b/src/tests/tests.pm index 0cc6c7a..29e0707 100644 --- a/src/tests/tests.pm +++ b/src/tests/tests.pm @@ -10,6 +10,9 @@ sub pass; die if @ARGV != 2; our ($test, $src_dir) = @ARGV; +my ($msg_file) = tempfile (); +select ($msg_file); + our (@prereq_tests) = (); if ($test =~ /^(.*)-persistence$/) { push (@prereq_tests, $1); @@ -19,8 +22,6 @@ for my $prereq_test (@prereq_tests) { fail "Prerequisite test $prereq_test failed.\n" if $result[0] ne 'PASS'; } -my ($msg_file) = tempfile (); -select ($msg_file); # Generic testing. -- 2.30.2