[svk-commit] r2799 - trunk/t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Tue May  6 05:21:51 2008
New Revision: 2799

Added:
   trunk/t/bm/online-offline.t

Log:
- tests for --online/--offline

Added: trunk/t/bm/online-offline.t
==============================================================================
--- (empty file)
+++ trunk/t/bm/online-offline.t	Tue May  6 05:21:51 2008
@@ -0,0 +1,68 @@
+#!/usr/bin/perl -w
+use strict;
+use SVK::Test;
+plan tests => 6;
+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);
+
+chdir($copath);
+
+TODO: {
+local $TODO = '--online/--offline not implemented yet';
+# this should be is_output(_like) instead of just run it
+# but I'm not sure what's the correct message yet
+$svk->br('--offline','foo');
+
+is_output_like ($svk, 'info', [],
+   qr|Depot Path: //local/MyProject/foo|);
+
+is_output($svk, 'br', ['-l', '--local', '//mirror/MyProject'],
+          ['foo']);
+
+# should online need an argument ?
+$svk->br('--online');
+
+is_output_like ($svk, 'info', [],
+   qr|Depot Path: //mirror/MyProject/branches/foo|);
+
+# let's play with feature/foobar branch now
+
+is_output_like ($svk, 'branch', ['--create', 'feature/foobar'],
+    qr'Project branch created: feature/foobar');
+
+$svk->br('--switch', 'feature/foobar');
+is_output_like ($svk, 'info', [],
+   qr|Depot Path: //mirror/MyProject/branches/feature/foobar|);
+
+# future should be is_output_like
+$svk->br('--offline'); # offline the feature/foobar branch
+
+is_output_like ($svk, 'info', [],
+   qr|Depot Path: //local/MyProject/feature/foobar|);
+
+append_file ('B/S/Q/qu', "\nappend CBA on local branch feature/foobar\n");
+$svk->commit ('-m', 'commit message','');
+
+# now should do push first, then sw to the branch 
+$svk->br('--online');
+
+# need more message to test
+}