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

[nobody at bestpractical.com]

Author: clsung
Date: Mon Nov 12 20:23:00 2007
New Revision: 2602

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

Log:
- add a test to address when --move a to b, the a still exists

Modified: branches/bm/t/bm/move.t
==============================================================================
--- branches/bm/t/bm/move.t	(original)
+++ branches/bm/t/bm/move.t	Mon Nov 12 20:23:00 2007
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Test::More tests => 4;
+use Test::More tests => 6;
 use SVK::Test;
 use File::Path;
 
@@ -27,3 +27,6 @@
 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');
+is_output_like ($svk, 'branch', ['--create', 'feature/moo'], qr'Project branch created: feature/moo');
+$svk->br('--move', 'feature/moo', 'feature/mar');
+is_output_unlike ($svk, 'branch', ['--list'], qr'feature/moo');