#!/usr/bin/perl -w
use strict;
use SVK::Test;
plan tests => 4;
our $output;
my ($xd, $svk) = build_test('test');
$svk->mkdir('-p', -m => 'trunk in project B', '/test/projectB/trunk');
$svk->mkdir(-m => 'branches in project B', '/test/projectB/branches');
$svk->mkdir(-m => 'tags in project B', '/test/projectB/tags');
my $tree = create_basic_tree($xd, '/test/projectB/trunk');
my $depot = $xd->find_depot('test');
my $uri = uri($depot->repospath);
my ($copath, $corpath) = get_copath('tag-from-wc');
$svk->mirror('//mirror/nomeans', $uri);
$svk->sync('//mirror/nomeans');
$svk->checkout('//mirror/nomeans/projectB/trunk',$copath);
chdir($copath);
$answer = ['','','',''];
is_output_like ($svk, 'branch', ['--setup', '//mirror/nomeans/projectB'],
qr/Project detected in specified path./);
$svk->br('--create','Foo','--switch-to', '--project','projectB');
is_output_like ($svk, 'branch', [],
qr/Branch: Foo .online./);
# for http://task.hm/GN5C
$svk->br('--create','Bar','--tag','--from','Foo');
is_output ($svk, 'branch', ['--list', '--tag'],
['Bar']);
$svk->br('--create','Bar2','--tag','--from','.');
is_output ($svk, 'branch', ['--list', '--tag'],
['Bar','Bar2']);