mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-15 07:41:09 -08:00
25 lines
360 B
Perl
25 lines
360 B
Perl
#!/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);
|
|
}
|
|
|