Commit 886e7fe9 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-20 14:58:10 by simonmar]

print contents of the file that should have been empty, in verbose mode
parent cdd58a98
...@@ -98,16 +98,15 @@ def say_fail_because_noteq ( $filename1, $filename2 ) ...@@ -98,16 +98,15 @@ def say_fail_because_noteq ( $filename1, $filename2 )
fi fi
} }
def say_fail_because_output_produced ( $filename1 )
{
print "--- FAIL because the program produced non-empty output:"
print "--- " ++ $filename1
}
def say_fail_because_nonempty ( $filename1 ) def say_fail_because_nonempty ( $filename1 )
{ {
print "--- FAIL because the following file is non-empty:" print "--- FAIL because the following file is non-empty:"
print "--- " ++ $filename1 print "--- " ++ $filename1
if defined $verbose then
print "--- contents:"
print (contents $filename1)
print ("--- end of " ++ $filename1)
fi
} }
def say_fail_because_compiler_barfd ( $res ) def say_fail_because_compiler_barfd ( $res )
...@@ -243,7 +242,7 @@ def check_stdout_ok() ...@@ -243,7 +242,7 @@ def check_stdout_ok()
if not ( exists($s_stdout) ) if not ( exists($s_stdout) )
then if ((contents $r_stdout) == "") then if ((contents $r_stdout) == "")
then return True then return True
else say_fail_because_output_produced($r_stdout) else say_fail_because_nonempty($r_stdout)
return False return False
fi fi
fi fi
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment