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

nobody at bestpractical.com nobody at bestpractical.com
Wed Oct 31 07:43:45 EDT 2007


Author: clsung
Date: Wed Oct 31 07:43:31 2007
New Revision: 2582

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

Log:
- add $dst->refresh_revision; will pass the test. The failed reason is
  - the 2nd merge in the same run is not taking the new ticket of the 1st merge

Modified: branches/bm/lib/SVK/Command/Branch.pm
==============================================================================
--- branches/bm/lib/SVK/Command/Branch.pm	(original)
+++ branches/bm/lib/SVK/Command/Branch.pm	Wed Oct 31 07:43:31 2007
@@ -255,10 +255,10 @@
     for my $src (@srcs) {
 	my $src_branch_path = $branch_path.'/'.$src;
 	$src = $self->arg_depotpath($src_branch_path);
-	# extract the fromrev and torev from src
 
-	$self->{message} ||= "- Merge $src_branch_path to $dst_branch_path";
+	$self->{message} = "- Merge $src_branch_path to $dst_branch_path";
 	my $ret = $self->SUPER::run($src, $dst);
+	$dst->refresh_revision;
     }
     return;
 }

Modified: branches/bm/t/bm/merge.t
==============================================================================
--- branches/bm/t/bm/merge.t	(original)
+++ branches/bm/t/bm/merge.t	Wed Oct 31 07:43:31 2007
@@ -72,7 +72,8 @@
 $svk->switch ('//mirror/MyProject/trunk');
 is_file_content ('A/Q/qu', "\nonly a bar\nzz\n", 'is the file actually merge?');
 is_file_content ('A/be', "\nsome more foobar\nzz\n", 'is the file actually merge?');
+
 is_output_like ($svk, 'info', [],
-    qr/Merged From: $branch_foo, Rev. 8/);
+    qr/Merged From: $branch_foo, Rev. 8/, 'Merged from feature/foo at rev. 8');
 is_output_like ($svk, 'info', [],
-    qr/Merged From: $branch_bar, Rev. 10/);
+    qr/Merged From: $branch_bar, Rev. 10/, 'Merged from feature/bar at rev. 10');


More information about the svk-commit mailing list