#!/usr/bin/perl -w
use strict;
use Test::More;
use SVK::Test;
eval { require SVN::Mirror; 1 } or plan skip_all => 'require SVN::Mirror';
plan tests => 2;
my ($xd, $svk) = build_test('test');
our $output;
my ($srepospath, $spath, $srepos) = $xd->find_repos ('/test/A', 1);
$svk->mkdir ('-m', 'init', '/test/A');
my $uri = uri($srepospath.($spath eq '/' ? '' : $spath));
$svk->mirror ('//m', $uri);
is_output($svk, 'sync', ['//m'],
["Syncing $uri",
'Retrieving log information from 1 to 1',
'Committed revision 2 from revision 1.']);
is_output($svk, 'sync', ['//m'],
["Syncing $uri"]);