The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
# This test for trunk and/or branches are not in trunk/ and/or branches/ directories
use strict;
use SVK::Test;
plan tests => 10;
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/');
$tree = create_basic_tree($xd, '/test/projectB/trunk');

my $depot = $xd->find_depot('test');
my $uri = uri($depot->repospath);

my ($copath, $corpath) = get_copath('prop-setup');

my $props = { 
    'svk:project:A:path-trunk' => '/A',
    'svk:project:A:path-branches' => '/A-b',
    'svk:project:A:path-tags' => '/',
};

$svk->mirror('//mirror/nomeans', $uri);
$svk->sync('//mirror/nomeans');

$svk->checkout('//mirror/nomeans',$copath);

chdir($copath);

is_output ($svk, 'branch', ['--list', '//mirror/nomeans/A'],
    ["Project not found. use 'svk branch --setup //mirror/nomeans/A' to initialize.",
     "No project found."]);
#TODO: {
#local $TODO = 'Need to implement br --setup ';
$answer = ['', '','/A-b',''];
$svk->branch('--setup', '//mirror/nomeans/A');
is_output ($svk, 'branch', ['--list', '//mirror/nomeans/A'], []);

chdir("A/");
is_output ($svk, 'branch', ['--list'], []);
is_output_like ($svk, 'branch', ['--create', 'bar'], qr'Project branch created: bar');
is_output ($svk, 'branch', ['--list'], ['bar']);
is_output ($svk, 'list', ['//mirror/nomeans/A-b/bar'],
    ['Q/' ,'be']);
$answer = [''];
is_output ($svk, 'branch', ['--setup', '//mirror/nomeans/A'],
    ['Project already set in properties: //mirror/nomeans/A']);

chdir("..");
is_output ($svk, 'branch', ['--list', '//mirror/nomeans/projectB'], []);
$answer = ['', '','',''];
is_output_like ($svk, 'branch', ['--setup', '//mirror/nomeans/projectB'],
    qr/Project detected in specified path./);
$answer = [''];
is_output ($svk, 'branch', ['--setup', '//mirror/nomeans/projectB'],
    ['Project already set in properties: //mirror/nomeans/projectB']);
#}