[svk-commit] r2620 - trunk/t

nobody at bestpractical.com nobody at bestpractical.com
Fri Dec 7 02:38:40 EST 2007


Author: clkao
Date: Fri Dec  7 02:38:40 2007
New Revision: 2620

Modified:
   trunk/t/checksum.t

Log:
make the checksum test actually fail - closer to the checksum problem reported.

Modified: trunk/t/checksum.t
==============================================================================
--- trunk/t/checksum.t	(original)
+++ trunk/t/checksum.t	Fri Dec  7 02:38:40 2007
@@ -2,7 +2,7 @@
 use strict;
 use SVK::Util qw( is_executable );
 use SVK::Test;
-plan tests => 2;
+plan tests => 1;
 our $output;
 
 # Basically, trying to merge a revision containing a copy, where the cop source file is removed at the
@@ -13,24 +13,32 @@
 $svk->mkdir ('-pm', 'init', '//V/A');
 my $tree = create_basic_tree ($xd, '//V/A');
 my ($copath, $corpath) = get_copath ('checksum');
- 
-# branch from r1
-$svk->cp('//V/A' => '//V/B', -m => 'r4 - A => B');
-$svk->checkout('//V',$copath);
+$svk->cp(-m => 'V to X', '//V', '//X');
 
 # r2 - remove file B
-$svk->rm("$copath/B/me");
-$svk->ci(-m => 'r5 - remove file B/me', $copath);
 
+$svk->rm(-m => 'r5 - remove file A/me', "//V/A/me");
+
+$svk->checkout('//V',$copath);
 # r3 - cp B at 1 to C with modification,
-$svk->cp('//V/B/me' => '//V/Cme', -r => 4, -m => 'r6 - B/me at 4 => C');
-$svk->update($copath);
+$svk->cp('//V/A/me' => "$copath/Cme", -r => 4 );
+
 append_file("$copath/Cme", "mmmmmm\n");
-$svk->ci(-m => 'r7 - modify Cme', $copath);
+$svk->ci(-m => 'r8 - modify Cme', $copath);
 # cp A at 2 to B
-$svk->cp('//V/A/D/de' => '//V/B/me', -r => 5, -pm => 'r8 - A at 5 => B');
+$svk->cp('//V/A/D/de' => "$copath/A/me", -r => 5);
+append_file("$copath/A/me", "mmmmmm\n");
+
+$svk->ci(-m => 'some copy with mods', $copath);
+
+TODO: {
+    local $TODO = 'not yet';
+is_output($svk, 'smerge', [-m => 'go', '//V', '//X'],
+	  ['Auto-merging (3, 7) /V to /X (base /V:3).',
+	   'R + A/me',
+	   'R + Cme',
+	   qr'New merge ticket: .*:/V:7',
+	   'Committed revision 8']);
+}
 
-chdir($copath);
-$svk->merge('-r5:8','//V');
-warn $output;
 1;


More information about the svk-commit mailing list