[svk-commit] r2567 - branches/bm/t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Fri Oct 26 04:33:48 2007
New Revision: 2567

Modified:
   branches/bm/t/bm/move.t

Log:
- add test if dst is a directory

Modified: branches/bm/t/bm/move.t
==============================================================================
--- branches/bm/t/bm/move.t	(original)
+++ branches/bm/t/bm/move.t	Fri Oct 26 04:33:48 2007
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
 use SVK::Test;
 use File::Path;
 
@@ -23,5 +23,7 @@
 
 is_output_like ($svk, 'branch', ['--create', 'feature/foo'], qr'Project branch created: feature/foo');
 is_output_like ($svk, 'branch', ['--list'], qr'feature/foo');
-$svk->br('--move', 'feature/foo', 'release-ready/foo');
-is_output_like ($svk, 'branch', ['--list'], qr'release-ready/foo');
+$svk->br('--move', 'feature/foo', 'release-ready/bar');
+is_output_like ($svk, 'branch', ['--list'], qr'release-ready/bar');
+$svk->br('--move', 'release-ready/bar', 'feature/');
+is_output_like ($svk, 'branch', ['--list'], qr'feature/bar');