[svk-commit] r2720 - in trunk: t/bm
nobody at bestpractical.com
nobody at bestpractical.com
Mon Mar 31 05:33:50 EDT 2008
Author: clsung
Date: Mon Mar 31 05:33:49 2008
New Revision: 2720
Modified:
trunk/lib/SVK/Command/Branch.pm
trunk/t/bm/local.t
Log:
- implements svk br --push
Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm (original)
+++ trunk/lib/SVK/Command/Branch.pm Mon Mar 31 05:33:49 2008
@@ -69,6 +69,7 @@
'local' => 'local',
'from=s' => 'from',
'merge' => 'merge',
+ 'push' => 'push',
'move' => 'move',
'remove' => 'remove',
'switch-to' => 'switch',
@@ -414,6 +415,10 @@
return;
}
+package SVK::Command::Branch::push;
+use base qw( SVK::Command::Push SVK::Command::Branch);
+use SVK::I18N;
+
package SVK::Command::Branch::switch;
use base qw( SVK::Command::Switch SVK::Command::Branch );
use SVK::I18N;
Modified: trunk/t/bm/local.t
==============================================================================
--- trunk/t/bm/local.t (original)
+++ trunk/t/bm/local.t Mon Mar 31 05:33:49 2008
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use SVK::Test;
-plan tests => 5;
+plan tests => 6;
our $output;
my ($xd, $svk) = build_test('test');
@@ -45,10 +45,23 @@
$svk->commit ('-m', 'commit message','');
my $trunk = '/mirror/MyProject/trunk';
-TODO: {
-local $TODO = '--push need to be implemented';
-is_output ($svk, 'branch', ['--push', '-C', 'smerge/foo', 'trunk'],
- ["Auto-merging (0, 10) /local/MyProject/localfoo to $trunk (base $trunk:12).",
- "Checking locally against mirror source $uri.", 'U B/S/Q/qu',
- qr'New merge ticket: [\w\d-]+:/localfoo:9']);
-}
+is_output ($svk, 'branch', ['--push', '-C'],
+ ["Auto-merging (0, 10) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ "===> Auto-merging (0, 9) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ "Empty merge.",
+ "===> Auto-merging (9, 10) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ 'U B/S/Q/qu',
+ qr'New merge ticket: [\w\d-]+:/local/MyProject/localfoo:10']);
+is_output ($svk, 'branch', ['--push'],
+ ["Auto-merging (0, 10) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ "===> Auto-merging (0, 9) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ "Merging back to mirror source $uri.",
+ "Empty merge.",
+ "===> Auto-merging (9, 10) /local/MyProject/localfoo to $trunk (base $trunk:6).",
+ "Merging back to mirror source $uri.",
+ 'U B/S/Q/qu',
+ qr'New merge ticket: [\w\d-]+:/local/MyProject/localfoo:10',
+ "Merge back committed as revision 7.",
+ "Syncing $uri",
+ "Retrieving log information from 7 to 7",
+ "Committed revision 11 from revision 7."]);
More information about the svk-commit
mailing list