#!/usr/bin/perl -w
use Test::More tests => 1;
use strict;
use SVK::Test;
my ($xd, $svk) = build_test();
$svk->mkdir(-m => 'init', '//trunk');
create_basic_tree($xd, '//trunk');
my ($copath_trunk, $corpath_trunk) = get_copath('xm_trunk_co');
my ($copath_branch, $corpath_branch) = get_copath('xm_branch_co');
$svk->checkout('//trunk', $corpath_trunk);
$svk->copy(-m => "make branch", '//trunk', '//branch');
$svk->checkout('//branch', $corpath_branch);
append_file("$corpath_trunk/me", "another line in trunk");
$svk->commit(-m => 'modify on trunk', $corpath_trunk);
TODO: {
local $TODO = 'entirely local pull should actually pull';
# these regexps might not actually be right. The point is it should do SOMETHING with the me file::path
is_output($svk, 'pull', [__($corpath_branch)],
['Auto-merging (3, 5) /trunk to /branch (base /trunk:3).',
'U me',
qr'New merge ticket: .*:/trunk:5',
'Committed revision 6.',
"Syncing //branch(/branch) in $corpath_branch to 6.",
__("U $corpath_branch/me"),]);
}