[svk-commit] r2765 - trunk/t/bm
nobody at bestpractical.com
nobody at bestpractical.com
Mon Apr 28 01:41:35 EDT 2008
Author: clsung
Date: Mon Apr 28 01:41:34 2008
New Revision: 2765
Modified:
trunk/t/bm/prop-setup.t
Log:
- refine test
Modified: trunk/t/bm/prop-setup.t
==============================================================================
--- trunk/t/bm/prop-setup.t (original)
+++ trunk/t/bm/prop-setup.t Mon Apr 28 01:41:34 2008
@@ -2,7 +2,7 @@
# This test for trunk and/or branches are not in trunk/ and/or branches/ directories
use strict;
use SVK::Test;
-plan tests => 5;
+plan tests => 6;
our $output;
my ($xd, $svk) = build_test('test');
@@ -27,7 +27,7 @@
chdir($copath);
-is_output ($svk, 'branch', ['--list', '//mirror/nomeans/A'], ['No project branch founded.']);
+is_output ($svk, 'branch', ['--list', '//mirror/nomeans/A'], ['No project branch found.']);
TODO: {
local $TODO = 'Need to implement br --setup ';
$answer = ['','/A-b',''];
@@ -35,6 +35,7 @@
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'],
More information about the svk-commit
mailing list