[svk-commit] r2991 - branches/seek_deleted_to/t
nobody at bestpractical.com
nobody at bestpractical.com
Tue Jul 15 20:12:53 EDT 2008
Author: ruz
Date: Tue Jul 15 20:12:52 2008
New Revision: 2991
Modified:
branches/seek_deleted_to/t/32list-deleted.t
Log:
* add more basic tests
Modified: branches/seek_deleted_to/t/32list-deleted.t
==============================================================================
--- branches/seek_deleted_to/t/32list-deleted.t (original)
+++ branches/seek_deleted_to/t/32list-deleted.t Tue Jul 15 20:12:52 2008
@@ -2,7 +2,7 @@
use strict;
-use Test::More tests => 11;
+use Test::More tests => 17;
use File::Path;
use Cwd;
use SVK::Test;
@@ -54,6 +54,22 @@
]
);
+is_output($svk, 'cat', ['//trunk/A/Q/qu'],
+ [
+ 'first line in qu',
+ '2nd line in qu',
+ ]
+);
+
+is_output($svk, 'ann', ['//trunk/A/Q/qu'],
+ [
+ 'Annotations for /trunk/A/Q/qu (1 active revisions):',
+ '****************',
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\tfirst line in qu},
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\t2nd line in qu},
+ ]
+);
+
is_output($svk, 'ls', ['-R', '-r', '3', '//trunk/A'],
[
'Q/',
@@ -63,6 +79,22 @@
]
);
+is_output($svk, 'cat', ['-r', '3', '//trunk/A/Q/qu'],
+ [
+ 'first line in qu',
+ '2nd line in qu',
+ ]
+);
+
+is_output($svk, 'ann', ['-r', '3', '//trunk/A/Q/qu'],
+ [
+ 'Annotations for /trunk/A/Q/qu (1 active revisions):',
+ '****************',
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\tfirst line in qu},
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\t2nd line in qu},
+ ]
+);
+
is_output($svk, 'rm', ['-m', 'remove //trunk/A', '//trunk/A'],
[
'Committed revision 4.',
@@ -146,3 +178,19 @@
]
);
+is_output($svk, 'cat', ['-r', '3', '//trunk/A/Q/qu'],
+ [
+ 'first line in qu',
+ '2nd line in qu',
+ ]
+);
+
+is_output($svk, 'ann', ['-r', '3', '//trunk/A/Q/qu'],
+ [
+ 'Annotations for /trunk/A/Q/qu (1 active revisions):',
+ '****************',
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\tfirst line in qu},
+ qr{ 2\t\( \w+ \d{4}-\d{2}-\d{2}\):\t\t2nd line in qu},
+ ]
+);
+
More information about the svk-commit
mailing list