[svk-commit] r2605 - in branches/bm: t/bm
nobody at bestpractical.com
nobody at bestpractical.com
Wed Nov 14 04:10:10 EST 2007
Author: clsung
Date: Wed Nov 14 04:10:09 2007
New Revision: 2605
Modified:
branches/bm/lib/SVK/Command/Branch.pm
branches/bm/t/bm/merge.t
Log:
- remove SVK::Command::Switch from base of SVK::Command::Branch::merge
- remove traverse_history() from SVK::Command::Branch::merge
- add test, merge multiple branches w/o -C will have 'G ...'
- the 13rd test still fail
Modified: branches/bm/lib/SVK/Command/Branch.pm
==============================================================================
--- branches/bm/lib/SVK/Command/Branch.pm (original)
+++ branches/bm/lib/SVK/Command/Branch.pm Wed Nov 14 04:10:09 2007
@@ -298,9 +298,9 @@
}
package SVK::Command::Branch::merge;
-use base qw( SVK::Command::Smerge SVK::Command::Switch SVK::Command::Branch);
+use base qw( SVK::Command::Smerge SVK::Command::Branch);
use SVK::I18N;
-use SVK::Util qw( is_uri traverse_history );
+use SVK::Util qw( is_uri );
use constant narg => 1;
Modified: branches/bm/t/bm/merge.t
==============================================================================
--- branches/bm/t/bm/merge.t (original)
+++ branches/bm/t/bm/merge.t Wed Nov 14 04:10:09 2007
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 13;
+use Test::More tests => 14;
use SVK::Test;
use File::Path;
@@ -63,7 +63,8 @@
qr'New merge ticket: [\w\d-]+:/branches/feature/bar:9',
"Auto-merging (0, 8) $branch_foo to $trunk (base $trunk:6).",
"Checking locally against mirror source $uri.", 'UU A/be',
- qr'New merge ticket: [\w\d-]+:/branches/feature/foo:7']);
+ qr'New merge ticket: [\w\d-]+:/branches/feature/foo:7'],
+ "Check multiple branch merge");
is_output_like ($svk, 'branch', ['--merge', 'feature/bar', 'feature/foo', 'trunk'],
qr/Committed revision 12 from revision 11./);
@@ -97,3 +98,25 @@
"Auto-merging (0, 16) $branch_foo to $trunk (base $trunk:12).",
"Checking locally against mirror source $uri.", 'G B/S/Q/qu',
qr'New merge ticket: [\w\d-]+:/branches/smerge/foo:15']);
+
+is_output ($svk, 'branch', ['--merge', 'smerge/bar', 'smerge/foo', 'trunk'],
+ ["Auto-merging (0, 14) $branch_bar to $trunk (base $trunk:12).",
+ "Merging back to mirror source $uri.", 'U B/S/Q/qu',
+ qr'New merge ticket: [\w\d-]+:/branches/smerge/bar:13',
+ 'Merge back committed as revision 16.', "Syncing $uri",
+ 'Retrieving log information from 16 to 16',
+ 'Committed revision 17 from revision 16.',
+ "Auto-merging (0, 16) $branch_foo to $trunk (base $trunk:12).",
+ "Merging back to mirror source $uri.", 'G B/S/Q/qu',
+ qr'New merge ticket: [\w\d-]+:/branches/smerge/foo:15',
+ 'Merge back committed as revision 17.', "Syncing $uri",
+ 'Retrieving log information from 17 to 17',
+ 'Committed revision 18 from revision 17.']);
+#$svk->smerge('-m', "blah", "//mirror/MyProject/branches/smerge/bar", "//mirror/MyProject/trunk");
+#$svk->smerge('-C',"//mirror/MyProject/branches/smerge/foo", "//mirror/MyProject/trunk");
+#warn $output;
+#is_output ($svk, 'branch', ['--merge', '-C', 'smerge/foo', 'trunk'],
+# ["Auto-merging (0, 16) $branch_foo to $trunk (base $trunk:12).",
+# "Checking locally against mirror source $uri.", 'G B/S/Q/qu',
+# qr'New merge ticket: [\w\d-]+:/branches/smerge/foo:15']);
+#warn $output;
More information about the svk-commit
mailing list