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

[nobody at bestpractical.com]

Author: clkao
Date: Fri Oct 19 05:05:36 2007
New Revision: 2550

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

Log:
todo test for bm --list

Modified: branches/bm/MANIFEST
==============================================================================
--- branches/bm/MANIFEST	(original)
+++ branches/bm/MANIFEST	Fri Oct 19 05:05:36 2007
@@ -292,6 +292,7 @@
 t/api/mirror.t
 t/api/project.t
 t/api/root.t
+t/bm/basic.t
 t/copy-escape.t
 t/copy-replace.t
 t/diff/mixed-checkout.t

Added: branches/bm/t/bm/basic.t
==============================================================================
--- (empty file)
+++ branches/bm/t/bm/basic.t	Fri Oct 19 05:05:36 2007
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+use strict;
+use SVK::Test;
+plan tests => 2;
+our $output;
+
+my ($xd, $svk) = build_test('test');
+
+$svk->mkdir(-m => 'trunk', '/test/trunk');
+$svk->mkdir(-m => 'trunk', '/test/branches');
+$svk->mkdir(-m => 'trunk', '/test/tags');
+my $tree = create_basic_tree($xd, '/test/trunk');
+
+my $depot = $xd->find_depot('test');
+my $uri = uri($depot->repospath);
+
+$svk->mirror('//mirror/MyProject', $uri);
+$svk->sync('//mirror/MyProject');
+
+$svk->cp(-m => 'branch Foo', '//mirror/MyProject/trunk', '//mirror/MyProject/branches/Foo');
+
+my ($copath, $corpath) = get_copath('basic-trunk');
+
+$svk->checkout('//mirror/MyProject/trunk', $copath);
+
+TODO: {
+local $TODO = 'not implemented yet';
+is_output($svk, 'bm', ['-l'],
+          ['Foo'], 'default to guess project of current checkout');
+
+is_output($svk, 'bm', ['-l', '//mirror/MyProject'],
+          ['Foo']);
+};