From d19ec29dec7210bc30dbd715a9a7a26bd2a1eee2 Mon Sep 17 00:00:00 2001
From: Andreas Gruenbacher <agruen@suse.de>
Date: Thu, 10 Feb 2005 10:59:24 +0000
Subject: - quilt remove: Update restored file's timestamp. Also, some uses  
 caused a subsequent ``quilt diff -z'' to fail: we must mark   the patch as
 dirty after removing files. - test/run: adjust to terminal width. - Bump
 version to 0.39.

---
 test/run | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'test/run')

diff --git a/test/run b/test/run
index 09971d2..d0eac49 100755
--- a/test/run
+++ b/test/run
@@ -13,6 +13,7 @@ use strict;
 use FileHandle;
 use Getopt::Std;
 use POSIX qw(isatty setuid);
+use Term::ReadKey;
 use vars qw($opt_l $opt_v);
 
 no warnings qw(taint);
@@ -32,6 +33,7 @@ my ($prog, $in, $out) = ([], [], []);
 my $prog_line;
 my ($tests, $failed) = (0,0);
 my $lineno;
+my $width=((GetTerminalSize)[0] >> 1);
 
 for (;;) {
   my $line = <>; $lineno++;
@@ -103,7 +105,9 @@ sub process_test($$$$) {
 	   chomp $l;
 	   my $r = defined($result->[$n]) ? $result->[$n] : "~";
 	   chomp $r;
-	   print sprintf("%-37s %s %-39s\n", $l, $l eq $r ? '|' : '?', $r);
+	   print sprintf("%-" . ($width-3) .
+	   		 "s %s %-" . ($width-1) .
+			 "s\n", $l, $l eq $r ? '|' : '?', $r);
          }
        } elsif ($opt_v) {
 	 print join('', @$result);
-- 
cgit