From 127ad6d1d303bf93142a4b951ac08f136e4646e5 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Thu, 8 Mar 2007 03:56:24 +0000
Subject: [PATCH] Fix bug in *-persistence tests when prerequisites fail.
 Reported by Tanvi Vyas <tanvi@stanford.edu>.

---
 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