[svk-commit] r2698 - trunk/t

[nobody at bestpractical.com]

Author: clsung
Date: Sat Feb 16 10:00:12 2008
New Revision: 2698

Added:
   trunk/t/copy-move.t

Log:
- pass in svn 1.4.*
- fail in svn 1.5 with following message:
  'Transaction is out of date: Directory '/mirror/P/B/F/foo' is out of date'


Added: trunk/t/copy-move.t
==============================================================================
--- (empty file)
+++ trunk/t/copy-move.t	Sat Feb 16 10:00:12 2008
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 1;
+use SVK::Test;
+use File::Path;
+our $output;
+
+my ($xd, $svk) = build_test('mv');
+$svk->mkdir(-m => 'trunk', '/mv/T');
+$svk->mkdir(-m => 'trunk', '/mv/B');
+my $tree = create_basic_tree($xd, '/mv/T');
+my ($copath, $corpath) = get_copath ('moving');
+
+my $depot = $xd->find_depot('mv');
+my $uri = uri($depot->repospath);
+
+$svk->mirror('//mirror/P', $uri);
+$svk->sync('//mirror/P');
+
+my $trunk = '/mirror/P/T';
+$svk->checkout('/'.$trunk,$copath);
+chdir($copath);
+
+$svk->mkdir ('//mirror/P/B/F', -m => 'Feature');
+$svk->mkdir ('//mirror/P/B/R', -m => 'Release');
+$svk->list ('//mirror/P');
+$svk->cp ('//mirror/P/T', '//mirror/P/B/F/foo', '-p', -m => '- Trunk to Feature foo');
+
+is_output ($svk, 'move', ['//mirror/P/B/F/foo', '//mirror/P/B/R/bar', '-p', -m => "move foo to bar"],
+    ["Merging back to mirror source $uri.",
+     "Merge back committed as revision 8.",
+     "Syncing $uri",
+     "Retrieving log information from 8 to 8",
+     "Committed revision 9 from revision 8."]);