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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Nov 12 11:39:55 2008
New Revision: 16822

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/71.script_cmds.t

Log:
 r17713 at sunnavys-mb:  sunnavy | 2008-11-13 00:18:55 +0800
 clean build and vessel stuff


Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Wed Nov 12 11:39:55 2008
@@ -5,12 +5,16 @@
 
 use Shipwright;
 use Shipwright::Test;
-
+use File::Spec::Functions qw/catdir tmpdir/;
+use File::Path qw/rmtree/;
 my $sw = Shipwright::Test->shipwright_bin;
 
 Shipwright::Test->init;
 
-my $repo = 'fs:' . create_fs_repo();
+my $repo         = 'fs:' . create_fs_repo();
+my $install_base = catdir( tmpdir(), 'vessel_71_scripts_cmds' );
+my $build_base   = catdir( tmpdir(), 'shipwright_build_71_scripts_cmds' );
+
 start_test($repo);
 
 SKIP: {
@@ -245,12 +249,21 @@
             'set mandatory flag man1',
         ],
         [
-            ['build'],
+            [
+                'build',       '--install-base',
+                $install_base, '--build-base',
+                $build_base
+            ],
             qr/run, run, Build\.PL.*run, run, Makefile\.PL/ms,
             'Build.PL and Makefile.PL are run',
         ],
         [
-            [ 'build', '--flags', 'configure' ],
+            [
+                'build',       '--flags',
+                'configure',   '--install-base',
+                $install_base, '--build-base',
+                $build_base
+            ],
             qr/run, run, configure/,
             'configure is run',
         ],
@@ -313,6 +326,10 @@
                 [ $^X, $sw, $cmd, '-r', $repo, @{ $item->[0] }, ],
                 @$item[ 1 .. $#$item ],
             );
+            if ( $cmd eq 'build' ) {
+                rmtree( $install_base );
+                rmtree( $build_base );
+            }
         }
         else {