| Subject: | Compress output of "make test" |
The attached script can be used to "compress" the output of "make test".
That is, "make test | squeeze.pl" would result in the final output only
without the fancy incrementing output of the individual tests. This is useful
for slow remote connections or when transcribing the "make test" output via
"script".
Maybe similar functionality may be included into Test::Harness and/or prove?
Regards,
Slaven
#!/usr/bin/perl
while(<>) {
chomp;
my @sublines = split /\cM/, $_, -1;
my $line;
for (@sublines) {
substr($line, 0, length $_) = $_;
}
print "$line\n";
}