[svk-commit] r2642 - in branches/bm: t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Tue Dec 18 01:18:03 2007
New Revision: 2642

Modified:
   branches/bm/lib/SVK/Project.pm
   branches/bm/t/bm/prop.t

Log:
- use relative path (to /) instead of mirrored path

Modified: branches/bm/lib/SVK/Project.pm
==============================================================================
--- branches/bm/lib/SVK/Project.pm	(original)
+++ branches/bm/lib/SVK/Project.pm	Tue Dec 18 01:18:03 2007
@@ -130,12 +130,13 @@
 #	grep { $_ ne $project_name && (($project_name) = $_) }
 	grep { $_ =~ s/^svk:project:([^:]+):.*$/$1/ }
 	grep { $allprops->{$_} =~ /$depotroot/ } sort keys %{$allprops};
+    my $mirror_rootpath = $pathobj->mirror_source->path."/";
     
     return undef unless @projnames;
     
     my $project_name = $projnames[0];
     my %props = 
-	map { $_ => $allprops->{'svk:project:'.$project_name.':'.$_} }
+	map { $_ => $mirror_rootpath.$allprops->{'svk:project:'.$project_name.':'.$_} }
 	    ('path-trunk', 'path-branches', 'path-tags');
     return SVK::Project->new(
 	{   

Modified: branches/bm/t/bm/prop.t
==============================================================================
--- branches/bm/t/bm/prop.t	(original)
+++ branches/bm/t/bm/prop.t	Tue Dec 18 01:18:03 2007
@@ -25,10 +25,10 @@
 
 chdir($copath);
 
-my $proppath = { 'trunk' => '/mirror/MyProject/trunk', 
-    'branches' => '/mirror/MyProject/branches',
-    'tags' => '/mirror/MyProject/tags',
-    'hooks' => '/mirror/MyProject/hooks',
+my $proppath = { 'trunk' => 'trunk', 
+    'branches' => 'branches',
+    'tags' => 'tags',
+    'hooks' => 'hooks',
 };
 
 $svk->propset('-m', "- project trunk path set", 'svk:project:MyProject:path-trunk',