#!/usr/bin/perl -w
use strict;
use Test::More;
use SVK::Test;
use SVN::Ra;
use SVK::Mirror::Backend::SVNSync;
plan skip_all => "no replay" unless SVK::Mirror::Backend::SVNSync->has_replay_api;
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;
my $tree = create_basic_tree ($xd, '/test/');
$svk->mkdir(-m => 'make dir with space.', '/test/orz dir');
$svk->mkdir(-m => 'make dir with %.', '/test/orzo%2Fdir');
$svk->mkdir(-m => 'something', '/test/orzo');
$svk->cp(-m => 'cp with % .', '/test/orzo%2Fdir', '/test/orzo%2Fdir2');
my ($srepospath, $spath, $srepos) = $xd->find_repos ('/test/', 1);
my $uri = uri($srepospath.($spath eq '/' ? '' : $spath));
is_output($svk, mirror => ['//', $uri],
["Mirror initialized. Run svk sync // to start mirroring."]);
is_output($svk, 'sync', ['//'],
["Syncing $uri",
'Retrieving log information from 1 to 6',
'Committed revision 1 from revision 1.',
'Committed revision 2 from revision 2.',
'Committed revision 3 from revision 3.',
'Committed revision 4 from revision 4.',
'Committed revision 5 from revision 5.',
'Committed revision 6 from revision 6.']);
is_output($svk, 'mkdir', [-m => 'fnord', '//fnord'],
['Merging back to mirror source '.$uri.'.',
'Merge back committed as revision 7.',
'Syncing '.$uri,
'Retrieving log information from 7 to 7',
'Committed revision 7 from revision 7.']);
$svk->co('//fnord', $copath);
overwrite_file("$copath/addedfile.txt", "fnord\n");
$svk->add("$copath/addedfile.txt");
is_output($svk, 'ci', [-m => 'fnord', $copath],
['Commit into mirrored path: merging back directly.',
"Merging back to mirror source $uri.",
'Merge back committed as revision 8.',
"Syncing $uri",
'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)]);
}