SVK-v2.2.3/t/05svm.t

8 my ($xd, $svk) = build_test('test');
17 $svk->copy ('-m', 'just make some more revisions', '/test/A', "/test/A-$_") for (1..20);
20 is_output ($svk, 'mirror', ['//m', $uri.($spath eq '/' ? '' : $spath)],
23 is_output ($svk, 'mirror', [$uri.($spath eq '/' ? '' : $spath), '//m'],
26 is_output_like ($svk, 'mirror', [], qr'SYNOPSIS', 'add - help');
28 is_output ($svk, 'mirror', ['--upgrade'],
30 is_output ($svk, 'mirror', ['--upgrade', '//m'],
33 is_output ($svk, 'sync', ['//'],
35 is_output ($svk, 'sync', ['//what'],
38 is_output ($svk, 'sync', ['/what/'],
40 $svk->sync (-a => '/what/',
43 $svk->sync ('//m');
44 $svk->copy ('-m', 'branch', '//m', '//l');
45 $svk->checkout ('//l', $copath);
51 $svk->add ("$copath/T");
52 $svk->delete ("$copath/Q/qu");
54 $svk->commit ('-m', 'local modification from branch', "$copath");
55 $svk->merge (qw/-C -r 4:5/, '-m', 'merge back to remote', '//l', '//m');
56 $svk->merge (qw/-r 4:5/, '-m', 'merge back to remote', '//l', '//m');
57 $svk->sync ('//m');
60 $svk->switch ('//m', $copath);
61 $svk->update ($copath);
65 $svk->add ("$copath/T/foo");
66 $svk->status ($copath);
68 is_output ($svk, 'commit', ['-m', 'commit to mirrored path', $copath],
76 $svk->add ("$copath/N");
77 is_output ($svk, 'commit', ['-m', 'commit to deep mirrored path', $copath],
85 $svk->commit ('-m', 'commit to deep mirrored path', "$copath/T/xd");
88 $svk->copy ('-m', 'branch in source', '/test/A', '/test/A-98');
89 $svk->copy ('-m', 'branch in source', '/test/A-98', '/test/A-99');
91 $svk->mirror ('//m-99', "$uri/A-99");
92 $svk->copy ('-m', 'make a copy', '//m-99', '//m-99-intermediate');
93 $svk->move ('-m', 'move the copy', '//m-99-intermediate', '//m-99-copy');
96 $svk->checkout ('//m-99-copy', $copath2);
97 is_output($svk, 'update', ['--sync', '--merge', $copath2], [
120 is_output($svk, 'smerge', ['-m', '', '--from', $copath2], [
127 $svk->checkout ('//m-99', $copath3);
129 $svk->commit ('-m', 'local modification from mirrored path', "$copath3");
131 $svk->commit ('-m', 'local modification from mirrored path', "$copath3");
133 is_output($svk, 'update', ['--sync', '--merge', '--incremental', "$copath2/T"], [
149 is_output_like ($svk, 'mirror', ['--list'],
152 is_output_like ($svk, 'mirror', ['//m-99', "$uri/A-99"],
155 is_output_like ($svk, 'mirror', ['--detach', '//l'],
158 is_output_like ($svk, 'mirror', ['--detach', '//m/T'],
161 is_output ($svk, 'mirror', ['--detach', '//m'], [
165 is_output_like ($svk, 'mirror', ['--detach', '//m'],
168 is_output ($svk, 'mirror', ['//m', $uri.($spath eq '/' ? '' : $spath)],
171 $svk->copy ('-m', 'make a copy', '//m-99-copy', '//m-99-copy-twice');
174 $svk->checkout ('//m-99-copy-twice', $copath4);
175 is_output($svk, 'update', ['--sync', '--merge', $copath4], [
182 is_output($svk, 'smerge', ['-m', '', '--sync', '--from', $copath4], [
188 is_output ($svk, 'delete', ['-m', 'die!', '//m-99'],
194 is_output ($svk, 'mirror', ['--recover', '//m'],
212 is_output ($svk, 'mirror', ['--recover', '//m'],
218 $svk->mv (-m => 'move on mirror', '//m/Q' => '//m/Q-moved');
219 is_ancestor ($svk, '//m/Q-moved', '/m/Q', 6);
221 is_output ($svk, 'ps', ['foo' => 'bar', -m => 'ps on mirror', '//m/Q-moved'],