From 75e8f37004ea2d42625c04ae3b633cdfc0380af4 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Mon, 20 Jun 2005 22:55:59 +0000 Subject: [PATCH] Don't print output for triple faults. --- src/tests/tests.pm | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/src/tests/tests.pm b/src/tests/tests.pm index 3c55741..2e3642c 100644 --- a/src/tests/tests.pm +++ b/src/tests/tests.pm @@ -80,12 +80,6 @@ sub check_for_keyword { $kw_line =~ s/^\([^\)]+\)\s+//; print "$kw_line\n"; - # Append output, eliminating uninteresting header and trailer info - # if possible. - my (@core) = get_core_output (@output); - @output = @core if @core; - print "Program output:\n\n" . join ('', map ("$_\n", @output)); - fail; } @@ -96,18 +90,9 @@ sub check_for_triple_fault { print < 1; - } - fail; } -- 2.30.2