diff options
author | Andreas Gruenbacher <agruen@suse.de> | 2005-02-10 10:59:24 +0000 |
---|---|---|
committer | Andreas Gruenbacher <agruen@suse.de> | 2005-02-10 10:59:24 +0000 |
commit | d19ec29dec7210bc30dbd715a9a7a26bd2a1eee2 (patch) | |
tree | c4170a2c9bf5b880907763ca2982f446d27d44c9 /test/run | |
parent | c6e5788b1e0ee1de26779c37a489f24cbd4273e4 (diff) | |
download | quilt-d19ec29dec7210bc30dbd715a9a7a26bd2a1eee2.tar.gz |
- quilt remove: Update restored file's timestamp. Also, some usesv0.39
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.
Diffstat (limited to 'test/run')
-rwxr-xr-x | test/run | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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); |