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

[nobody at bestpractical.com]

Author: clkao
Date: Sat Nov 10 05:50:22 2007
New Revision: 2595

Modified:
   branches/bm/t/bm/basic.t

Log:
additional test to ensure we switched.

Modified: branches/bm/t/bm/basic.t
==============================================================================
--- branches/bm/t/bm/basic.t	(original)
+++ branches/bm/t/bm/basic.t	Sat Nov 10 05:50:22 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use SVK::Test;
-plan tests => 9;
+plan tests => 10;
 our $output;
 
 my ($xd, $svk) = build_test('test');
@@ -39,6 +39,9 @@
 is_output($svk, 'br', ['-l'],
           ['Foo','feature/foo']);
 
+is_output_like ($svk, 'info', [],
+    qr'Depot Path: //mirror/MyProject/branches/feature/foo', 'Switched');
+
 $svk->branch('--switch', 'trunk'); # switch to trunk
 is_output_like ($svk, 'info', [],
     qr'Depot Path: //mirror/MyProject/trunk', 'Switch to trunk');