From a00614422cc35d2c7afbd39c4dfeb7eb2ef7e5c6 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 1 Jun 1998 16:52:55 +0100
Subject: [PATCH] New unit

new file

Copied from Perforce
 Change: 19558
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/display | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 mps/qa/test/script/display

diff --git a/mps/qa/test/script/display b/mps/qa/test/script/display
new file mode 100644
index 00000000000..c28b9471383
--- /dev/null
+++ b/mps/qa/test/script/display
@@ -0,0 +1,25 @@
+#!/usr/local/perl
+# $HopeName: MMQA_harness!script:logging(trunk.4) $
+#
+# provide a subroutine to pretty-print tests to a
+# output stream
+#
+
+1;
+
+sub display_test_source {
+ local ($file, $stream, $width) = @_;
+
+ unless (open(IN, $file)) {
+  die "File ".$infile." unexpectedly not found.\n";
+ }
+
+ $l = "";
+
+ while (<IN>) {
+  print $stream $_;
+ }
+
+ close(IN);
+}
+