[svk-commit] r2568 - in branches/bm: t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Fri Oct 26 05:31:04 2007
New Revision: 2568

Modified:
   branches/bm/lib/SVK/Command/Branch.pm
   branches/bm/t/bm/basic.t

Log:
- fix output of branch --list

Modified: branches/bm/lib/SVK/Command/Branch.pm
==============================================================================
--- branches/bm/lib/SVK/Command/Branch.pm	(original)
+++ branches/bm/lib/SVK/Command/Branch.pm	Fri Oct 26 05:31:04 2007
@@ -109,10 +109,10 @@
 	return;
     }
 
-    my @branches = $proj->branches;
+    my $branches = $proj->branches;
 
     my $fmt = "%s\n"; # here to change layout
-    printf $fmt, @$_ for @branches;
+    printf $fmt, $_ for @{$branches};
     return;
 }
 

Modified: branches/bm/t/bm/basic.t
==============================================================================
--- branches/bm/t/bm/basic.t	(original)
+++ branches/bm/t/bm/basic.t	Fri Oct 26 05:31:04 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use SVK::Test;
-plan tests => 2;
+plan tests => 5;
 our $output;
 
 my ($xd, $svk) = build_test('test');
@@ -30,3 +30,11 @@
 
 is_output($svk, 'br', ['-l', '//mirror/MyProject'],
           ['Foo']);
+
+is_output_like ($svk, 'branch', ['--create', 'feature/foo', '--switch-to'], qr'Project branch created: feature/foo');
+
+is_output($svk, 'br', ['-l', '//mirror/MyProject'],
+          ['Foo','feature/foo']);
+
+is_output($svk, 'br', ['-l'],
+          ['Foo','feature/foo']);