[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