[svk-commit] r2158 - trunk/t

[clkao at bestpractical.com]

Author: clkao
Date: Fri Nov 17 20:29:01 2006
New Revision: 2158

Modified:
   trunk/t/11checkout.t

Log:
Add a test for relocating copath to its parent.

Modified: trunk/t/11checkout.t
==============================================================================
--- trunk/t/11checkout.t	(original)
+++ trunk/t/11checkout.t	Fri Nov 17 20:29:01 2006
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-use Test::More tests => 66;
+use Test::More tests => 68;
 use strict;
 use SVK::Test;
 our($output, $answer);
@@ -334,3 +334,13 @@
             __("Checkout path '$corpath/Q' detached."),
             __("Checkout path '$corpath/3.1' detached."),
             ]);
+
+
+rename("$corpath/co-root-deep/there", "$corpath/tmp");
+unlink("$corpath/co-root-deep");
+rename("$corpath/tmp", "$corpath/co-root-deep");
+
+is_output ($svk, 'checkout', ['--relocate', __("$corpath/co-root-deep/there"), __("$corpath/co-root-deep")], [
+            __("Checkout '$corpath/co-root-deep/there' relocated to '$corpath/co-root-deep'."),
+            ]);
+is_output($svk, 'st', ["$corpath/co-root-deep"], []);