[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