[Bps-public-commit] r10814 - Shipwright/t/hello

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb 12 22:10:09 2008
New Revision: 10814

Modified:
   Shipwright/t/hello/hello.t

Log:
make a temp svkroot for test

Modified: Shipwright/t/hello/hello.t
==============================================================================
--- Shipwright/t/hello/hello.t	(original)
+++ Shipwright/t/hello/hello.t	Tue Feb 12 22:10:09 2008
@@ -14,6 +14,13 @@
       unless `whereis svk`;
 
     my $cwd  = getcwd;
+
+    my $svk_root = tempdir;
+    $ENV{SVKROOT} = $svk_root;
+    my $svk_root_local = File::Spec->catfile( $svk_root, 'local' );
+    system("svnadmin create $svk_root_local");
+    system("svk depotmap -i");
+
     my $repo = '//__shipwright/hello';
 
     my %source = (