[svk-commit] r2287 - in trunk: lib/SVK/Mirror/Backend
nobody at bestpractical.com
nobody at bestpractical.com
Sat Jan 6 08:02:00 EST 2007
Author: clkao
Date: Sat Jan 6 08:01:58 2007
New Revision: 2287
Modified:
trunk/lib/SVK/Mirror/Backend/SVNSync.pm
trunk/t/mirror/sync-replicate.t
Log:
Fix a typo preventing mirror --relocate to work on mirrors on '/'.
Modified: trunk/lib/SVK/Mirror/Backend/SVNSync.pm
==============================================================================
--- trunk/lib/SVK/Mirror/Backend/SVNSync.pm (original)
+++ trunk/lib/SVK/Mirror/Backend/SVNSync.pm Sat Jan 6 08:01:58 2007
@@ -96,7 +96,7 @@
sub _do_relocate {
my ($self) = @_;
- $self->mirror->depot->reposfs->change_rev_prop( 0, 'svn:svnsync:from-url', $self->mirror->url );
+ $self->mirror->depot->repos->fs->change_rev_prop( 0, 'svn:svnsync:from-url', $self->mirror->url );
}
sub find_rev_from_changeset { $_[1] }
Modified: trunk/t/mirror/sync-replicate.t
==============================================================================
--- trunk/t/mirror/sync-replicate.t (original)
+++ trunk/t/mirror/sync-replicate.t Sat Jan 6 08:01:58 2007
@@ -5,9 +5,11 @@
use SVN::Ra;
use SVK::Mirror::Backend::SVNSync;
plan skip_all => "no replay" unless SVK::Mirror::Backend::SVNSync->has_replay_api;
-plan tests => 4;
+plan tests => 6;
my ($xd, $svk) = build_test('test');
my ($copath, $corpath) = get_copath ('sync-replicate');
+unlink('t/checkout/sync-replicate-repo');
+my ($ropath, $rorpath) = get_copath ('sync-replicate-repo');
our $output;
@@ -57,3 +59,12 @@
'Retrieving log information from 8 to 8',
'Committed revision 8 from revision 8.']);
+SKIP: {
+skip 'No symlinks on win32', 2 if $^O eq 'MSWin32';
+symlink($srepospath, $rorpath);
+
+is_output($svk, 'mi', ['--relocate', '//', uri($rorpath)],
+ ['Mirror relocated.']);
+is_output($svk, 'sync', ['//'],
+ ['Syncing '.uri($rorpath)]);
+}
More information about the svk-commit
mailing list