[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