[svk-commit] r2862 - in trunk: t

[nobody at bestpractical.com]

Author: clkao
Date: Mon May 12 07:28:58 2008
New Revision: 2862

Modified:
   trunk/lib/SVK/Command/Commit.pm
   trunk/t/23commit.t

Log:
fix the commit buffer unkonwnn-to-add feature accidentally scheduling bad entries.

Modified: trunk/lib/SVK/Command/Commit.pm
==============================================================================
--- trunk/lib/SVK/Command/Commit.pm	(original)
+++ trunk/lib/SVK/Command/Commit.pm	Mon May 12 07:28:58 2008
@@ -368,6 +368,7 @@
 	  cb_conflict => sub { shift->conflict(@_) },
       cb_unknown  => sub {
           my ($self, $path) = @_;
+          $path = $target->copath($path);
           push @unversioned, "?   $path\n";
       },
 	);
@@ -444,7 +445,7 @@
 
     $self->decode_commit_message;
 
-    my @need_to_add = map  {$target->copath($_->[1])}
+    my @need_to_add = map  { $_->[1] }
                       grep {$_->[0] eq 'A'}
                       @$targets;
     for (@need_to_add)

Modified: trunk/t/23commit.t
==============================================================================
--- trunk/t/23commit.t	(original)
+++ trunk/t/23commit.t	Mon May 12 07:28:58 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use SVK::Test;
-plan tests => 69;
+plan tests => 70;
 
 our $output;
 my ($xd, $svk) = build_test();
@@ -91,6 +91,7 @@
 is_output ($svk, 'commit', [], ['No targets to commit.'], 'commit - no target');
 $svk->add ('A');
 $svk->commit ('-m', 'foo');
+is_deeply($xd->{checkout}{sticky}, {});
 
 is_output ($svk, 'status', [], []);
 overwrite_file ("A/deep/baz", "fnord");