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

[nobody at bestpractical.com]

Author: clsung
Date: Wed Apr 23 11:22:39 2008
New Revision: 2755

Added:
   trunk/t/bm/prop-specialpath.t

Log:
- Add test when properties of path-{trunk,tags,branches} is
  set to different directories instead of traditional trunk/ tags/ branches/ 
- TODO the last test, which current need to be revised first

Added: trunk/t/bm/prop-specialpath.t
==============================================================================
--- (empty file)
+++ trunk/t/bm/prop-specialpath.t	Wed Apr 23 11:22:39 2008
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+use strict;
+use SVK::Test;
+plan tests => 5;
+our $output;
+
+my ($xd, $svk) = build_test('test');
+
+$svk->mkdir(-m => 'trunk', '-p', '/test/trunk/proj');
+$svk->mkdir(-m => 'trunk', '/test/branches');
+$svk->mkdir(-m => 'trunk', '/test/tags');
+my $tree = create_basic_tree($xd, '/test/trunk/proj');
+
+my $depot = $xd->find_depot('test');
+my $uri = uri($depot->repospath);
+
+my ($copath, $corpath) = get_copath('basic-trunk');
+
+my $props = { 
+    'svk:project:projectA:path-trunk' => '/trunk/proj',
+    'svk:project:projectA:path-branches' => '/branches',
+    'svk:project:projectA:path-tags' => '/tags',
+};
+
+add_prop_to_basic_tree($xd, '/test/',$props);
+$svk->mirror('//mirror/MyProject', $uri);
+$svk->sync('//mirror/MyProject');
+
+is_output ($svk, 'propget',
+    ['svk:project:projectA:path-trunk', '//mirror/MyProject'],
+    [$props->{'svk:project:projectA:path-trunk'}]);
+
+$svk->checkout('//mirror/MyProject',$copath);
+
+chdir($copath);
+is_output ($svk, 'propget',
+    ['svk:project:projectA:path-trunk', ''],
+    [$props->{'svk:project:projectA:path-trunk'}]);
+
+is_output_like ($svk, 'branch', ['--create', 'foo'], qr'Project branch created: foo');
+is_output ($svk, 'branch', ['--list'], ['foo']);
+TODO: {
+local $TODO = "should create from  /trunk/proj instead /trunk";
+is_output ($svk, 'list', ['//mirror/MyProject/branches/foo'],
+    ['A/' , 'B/', 'C/', 'D/', 'me']);
+}