Fix bug in *-persistence tests when prerequisites fail.
[pintos-anon] / src / tests / tests.pm
index 0cc6c7ad2325f0fd294274940d117fd3ebc3f52e..29e0707ed362a3fdbdb9116685ba8edf888ba8bd 100644 (file)
@@ -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);
 \f
 # Generic testing.