#!/usr/bin/perl -w
use strict;
use warnings;
use SVK::Test;
use Test::More tests => 1;
our ($output, $answer);
my ($xd, $svk) = build_test('test');
$svk->mkdir (-pm => 'trunk', '//trunk');
my $tree = create_basic_tree ($xd, '//trunk');
my ($srepospath, $spath, $srepos) = $xd->find_repos ('//trunk', 1);
my $uri = uri($srepospath);
$svk->mirror('/test/private', $uri);
$svk->sync('-a');
$svk->mkdir(-m => 'blah', '//fsoapf');
is_output($svk, 'cp', [-m => 'foo', '/test/private/trunk', '/test/private/trunk-foo'],
["Merging back to mirror source $uri.",
'Merge back committed as revision 5.',
"Syncing $uri",
'Retrieving log information from 4 to 5',
'Committed revision 5 from revision 4.',
'Committed revision 6 from revision 5.']);