[svk-commit] r3005 - trunk/t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Thu Jul 24 03:50:34 2008
New Revision: 3005

Added:
   trunk/t/bm/local-create.t

Log:
- svk br --create will create directories inside //local/project/ even if //local/project is itself a branch of a project. it should say "no" and advise you to push unpushed changes then remove the directory and replace it.
  - http://task.hm/FC2C

Added: trunk/t/bm/local-create.t
==============================================================================
--- (empty file)
+++ trunk/t/bm/local-create.t	Thu Jul 24 03:50:34 2008
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+use strict;
+use SVK::Test;
+plan tests => 1;
+our $output;
+
+my ($xd, $svk) = build_test('test');
+
+$svk->mkdir(-m => 'trunk', '/test/trunk');
+$svk->mkdir(-m => 'trunk', '/test/branches');
+$svk->mkdir(-m => 'trunk', '/test/tags');
+my $tree = create_basic_tree($xd, '/test/trunk');
+
+my $depot = $xd->find_depot('test');
+my $uri = uri($depot->repospath);
+
+$svk->mirror('//mirror/MyProject', $uri);
+$svk->sync('//mirror/MyProject');
+
+$svk->cp(-m => 'branch Foo', '//mirror/MyProject/trunk', '//mirror/MyProject/branches/Foo');
+
+my ($copath, $corpath) = get_copath('bm-local-create');
+
+$svk->cp(-m => 'local branch', '//mirror/MyProject/trunk', '//local/MyProject');
+
+$svk->checkout('//mirror/MyProject/trunk', $copath);
+
+chdir($copath);
+
+TODO: {
+local $TODO = 'see http://task.hm/FC2C';
+is_output ($svk, 'branch', ['--create', 'foobar', '--local'],
+    ['The local project path //local/MyProject is a branch.',
+     'Please rename the directory and try again']);
+}