diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/remove.test | 49 | ||||
-rwxr-xr-x | test/run | 6 |
2 files changed, 54 insertions, 1 deletions
diff --git a/test/remove.test b/test/remove.test new file mode 100644 index 0000000..f8026bd --- /dev/null +++ b/test/remove.test @@ -0,0 +1,49 @@ + $ mkdir -p d/patches + $ cd d + + $ echo f1 > f + $ echo g1 > g + $ quilt new p.diff + > Patch patches/p.diff is now on top + + $ quilt add f g h + > File f added to patch patches/p.diff + > File g added to patch patches/p.diff + > File h added to patch patches/p.diff + + $ echo h1 > h + $ rm g + $ quilt refresh + > Refreshed patch patches/p.diff + + $ quilt remove f + > File f removed from patch patches/p.diff + + $ quilt diff -z + $ quilt pop -qf + > Removing patch patches/p.diff + > No patches applied + + $ quilt push -q + > Applying patch patches/p.diff + > Now at patch patches/p.diff + + $ quilt remove g + > File g removed from patch patches/p.diff + + $ quilt diff -z + $ quilt pop -qf + > Removing patch patches/p.diff + > No patches applied + + $ quilt push -q + > Applying patch patches/p.diff + > Now at patch patches/p.diff + + $ quilt remove h + > File h removed from patch patches/p.diff + + $ quilt diff -z + + $ cd .. + $ rm -rf d @@ -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); |