X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Ftests%2Ftests.pm;h=3c5574122ea14014793b894930796dea353b95ef;hb=556a216befb4a58e9563aeef6e827975f4a26731;hp=c2a5c64d8319ecd9b1314fcae1321802d1a8d409;hpb=fd4478592855e4cfea39f9797231fd7ba0ff01c4;p=pintos-anon

diff --git a/src/tests/tests.pm b/src/tests/tests.pm
index c2a5c64..3c55741 100644
--- a/src/tests/tests.pm
+++ b/src/tests/tests.pm
@@ -133,13 +133,13 @@ sub compare_output {
     }
     die "unknown option " . (keys (%options))[0] . "\n" if %options;
 
-    my ($msg) = "Actual output:\n" . join ('', map ("  $_\n", @output));
+    my ($msg);
 
     # Compare actual output against each allowed output.
     foreach my $exp_string (@$expected) {
 	my (@expected) = split ("\n", $exp_string);
 
-	$msg .= "\nAcceptable output:\n";
+	$msg .= "Acceptable output:\n";
 	$msg .= join ('', map ("  $_\n", @expected));
 
 	# Check whether actual and expected match.