- 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.

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
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);