[svk-commit] r2652 - branches/bm/t/bm
nobody at bestpractical.com
nobody at bestpractical.com
Wed Dec 19 10:11:11 EST 2007
Author: clsung
Date: Wed Dec 19 10:10:24 2007
New Revision: 2652
Modified:
branches/bm/t/bm/prop-autoload.t
Log:
- propset projects at begining
Modified: branches/bm/t/bm/prop-autoload.t
==============================================================================
--- branches/bm/t/bm/prop-autoload.t (original)
+++ branches/bm/t/bm/prop-autoload.t Wed Dec 19 10:10:24 2007
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use SVK::Test;
-plan tests => 3;
+plan tests => 4;
our $output;
my ($xd, $svk) = build_test('test');
@@ -14,12 +14,6 @@
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');
-
-$svk->mirror('--detach', '//mirror/MyProject');
my ($copath, $corpath) = get_copath('basic-trunk');
my $props = {
@@ -29,6 +23,17 @@
};
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->cp(-m => 'branch Foo', '//mirror/MyProject/trunk', '//mirror/MyProject/branches/Foo');
+
+$svk->mirror('--detach', '//mirror/MyProject');
+
$answer = ['','','y',''];
$svk->checkout($uri,$copath);
More information about the svk-commit
mailing list