[svk-commit] r2989 - trunk/t

nobody at bestpractical.com nobody at bestpractical.com
Mon Jul 14 09:02:45 EDT 2008


Author: ruz
Date: Mon Jul 14 09:02:44 2008
New Revision: 2989

Added:
   trunk/t/32list-deleted.t

Log:
* add another failing test

Added: trunk/t/32list-deleted.t
==============================================================================
--- (empty file)
+++ trunk/t/32list-deleted.t	Mon Jul 14 09:02:44 2008
@@ -0,0 +1,148 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::More tests => 11;
+use File::Path;
+use Cwd;
+use SVK::Test;
+
+my ($xd, $svk) = build_test();
+our $output;
+my ($copath, $corpath) = get_copath ('smerge');
+my (undef, undef, $repos) = $xd->find_repos ('//', 1);
+my $uuid = $repos->fs->get_uuid;
+
+$svk->mkdir ('-m', 'trunk', '//trunk');
+my $tree = create_basic_tree ($xd, '//trunk');
+is_output($svk, 'ls', ['//trunk/'],
+    [
+        'A/',
+        'B/',
+        'C/',
+        'D/',
+        'me',
+    ]
+);
+is_output($svk, 'ls', ['//trunk/A'],
+    [
+        'Q/',
+        'be',
+    ]
+);
+is_output($svk, 'ls', ['-R', '//trunk/'],
+    [
+        'A/',
+        ' Q/',
+        '  qu',
+        '  qz',
+        ' be',
+        'B/',
+        ' S/',
+        '  P/',
+        '   pe',
+        '  Q/',
+        '   qu',
+        '   qz',
+        '  be',
+        ' fe',
+        'C/',
+        ' R/',
+        'D/',
+        ' de',
+        'me',
+    ]
+);
+
+is_output($svk, 'ls', ['-R', '-r', '3', '//trunk/A'],
+    [
+        'Q/',
+        ' qu',
+        ' qz',
+        'be',
+    ]
+);
+
+is_output($svk, 'rm', ['-m', 'remove //trunk/A', '//trunk/A'],
+    [
+        'Committed revision 4.',
+    ]
+);
+
+is_output($svk, 'ls', ['//trunk/'],
+    [
+        'B/',
+        'C/',
+        'D/',
+        'me',
+    ]
+);
+is_output($svk, 'ls', ['-R', '//trunk/'],
+    [
+        'B/',
+        ' S/',
+        '  P/',
+        '   pe',
+        '  Q/',
+        '   qu',
+        '   qz',
+        '  be',
+        ' fe',
+        'C/',
+        ' R/',
+        'D/',
+        ' de',
+        'me',
+    ]
+);
+
+is_output($svk, 'ls', ['-r', '3', '//trunk/'],
+    [
+        'A/',
+        'B/',
+        'C/',
+        'D/',
+        'me',
+    ]
+);
+
+is_output($svk, 'ls', ['-r', '3', '//trunk/A'],
+    [
+        'Q/',
+        'be',
+    ]
+);
+
+is_output($svk, 'ls', ['-R', '-r', '3', '//trunk/'],
+    [
+        'A/',
+        ' Q/',
+        '  qu',
+        '  qz',
+        ' be',
+        'B/',
+        ' S/',
+        '  P/',
+        '   pe',
+        '  Q/',
+        '   qu',
+        '   qz',
+        '  be',
+        ' fe',
+        'C/',
+        ' R/',
+        'D/',
+        ' de',
+        'me',
+    ]
+);
+
+is_output($svk, 'ls', ['-R', '-r', '3', '//trunk/A'],
+    [
+        'Q/',
+        ' qu',
+        ' qz',
+        'be',
+    ]
+);
+


More information about the svk-commit mailing list