New unit

new file

Copied from Perforce
 Change: 19558
 ServerID: perforce.ravenbrook.com

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);
+}
+