#!/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']); #}