[Bps-public-commit] r16816 - in Shipwright/trunk: t t/hello

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Nov 12 11:37:58 2008
New Revision: 16816

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/21.perl_in_build.t
   Shipwright/trunk/t/hello/svk.t
   Shipwright/trunk/t/hello/svn.t

Log:
 r17707 at sunnavys-mb:  sunnavy | 2008-11-12 21:51:19 +0800
 rm vessels in tests


Modified: Shipwright/trunk/t/21.perl_in_build.t
==============================================================================
--- Shipwright/trunk/t/21.perl_in_build.t	(original)
+++ Shipwright/trunk/t/21.perl_in_build.t	Wed Nov 12 11:37:58 2008
@@ -5,6 +5,7 @@
 use Shipwright::Test qw/has_svk create_svk_repo has_svn create_svn_repo/;
 use File::Spec::Functions qw/catfile catdir/;
 use File::Temp qw/tempdir/;
+use File::Path qw/rmtree/;
 
 use Test::More tests => 8;
 Shipwright::Test->init;
@@ -82,5 +83,7 @@
     $sw->build->run;
     is( $sw->build->perl, $^X,
         'install with --skip perl will not change $build->perl' );
+
+    rmtree( $sw->build->install_base );
 }
 

Modified: Shipwright/trunk/t/hello/svk.t
==============================================================================
--- Shipwright/trunk/t/hello/svk.t	(original)
+++ Shipwright/trunk/t/hello/svk.t	Wed Nov 12 11:37:58 2008
@@ -6,6 +6,7 @@
 use File::Copy;
 use File::Copy::Recursive qw/dircopy/;
 use File::Spec::Functions qw/catfile catdir/;
+use File::Path qw/rmtree/;
 use Cwd;
 
 use Test::More tests => 41;
@@ -136,6 +137,8 @@
         ok( -e $_, "$_ exists" );
     }
 
+    rmtree( $install_dir );
+
     # import another dist
 
     chdir $cwd;
@@ -213,5 +216,6 @@
         ok( -e catfile( $install_dir, 'etc', 'shipwright-script-wrapper' ),
             'build with 0 packages ok' );
     }
+    rmtree( $install_dir );
 }
 

Modified: Shipwright/trunk/t/hello/svn.t
==============================================================================
--- Shipwright/trunk/t/hello/svn.t	(original)
+++ Shipwright/trunk/t/hello/svn.t	Wed Nov 12 11:37:58 2008
@@ -9,6 +9,7 @@
 use Cwd;
 use Test::More tests => 17;
 use Shipwright::Test qw/has_svn create_svn_repo/;
+use File::Path qw/rmtree/;
 Shipwright::Test->init;
 
 SKIP: {
@@ -99,6 +100,8 @@
         ok( -e $_, "$_ exists" );
     }
 
+    rmtree( $install_dir );
+
     # import another dist
 
     chdir $cwd;