[svk-commit] r2700 - trunk/t/smerge

[nobody at bestpractical.com]

Author: clsung
Date: Mon Feb 18 03:40:37 2008
New Revision: 2700

Added:
   trunk/t/smerge/svn-argument.t

Log:
- test for baseurl arugment like
  '--base file:///dev/shm/svk/test_repos/trunk:6'

Added: trunk/t/smerge/svn-argument.t
==============================================================================
--- (empty file)
+++ trunk/t/smerge/svn-argument.t	Mon Feb 18 03:40:37 2008
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+use Test::More tests => 1;
+use strict;
+use File::Path;
+use Cwd;
+use SVK::Test;
+
+my ($xd, $svk) = build_test('test');
+our $output;
+my ($copath, $corpath) = get_copath ('smerge-copy');
+$svk->mkdir ('-pm', 'trunk', '/test/trunk');
+$svk->mkdir ('-pm', 'some other local', '//local');
+my $tree = create_basic_tree ($xd, '/test/trunk');
+$svk->mkdir(-m => 'blah', '//foo/bar');
+
+my ($srepospath, $spath, $srepos) = $xd->find_repos ('/test/trunk', 1);
+
+my $uri = uri($srepospath).$spath;
+$svk->mi('//foo/bar/trunk', $uri);
+$svk->sync('//foo/bar/trunk');
+$svk->cp ('-m', 'branch', '//foo/bar/trunk' => '//local/blah');
+
+$svk->mkdir (-m => 'something bzz', '//local/blah/A/bzz');
+
+is_output($svk, 'sm', [-m => 'local to trunk', -b => $uri.':5', '//local/blah', '//foo/bar/trunk'],
+          ['Auto-merging (0, 7) /local/blah to /foo/bar/trunk (base /foo/bar/trunk:5).',
+           "Merging back to mirror source $uri.",
+           'A   A/bzz',
+           qr'New merge ticket: .*:/local/blah:7',
+           'Merge back committed as revision 4.',
+           qr'Syncing .*',
+           'Retrieving log information from 4 to 4',
+           'Committed revision 8 from revision 4.']);