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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Sat Feb 14 00:44:45 EST 2009


Author: sunnavy
Date: Sat Feb 14 00:44:45 2009
New Revision: 18401

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

Log:
 r19867 at sunnavys-mb:  sunnavy | 2009-02-14 13:43:29 +0800
 go on clean test


Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Sat Feb 14 00:44:45 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 104;
+use Test::More tests => 100;
 
 use Shipwright;
 use Shipwright::Test;
@@ -21,7 +21,7 @@
 }
 
 SKIP: {
-    skip "svn: no svn found or env SHIPWRIGHT_TEST_SVN not set", 36
+    skip "svn: no svn found or env SHIPWRIGHT_TEST_SVN not set", 34
       if skip_svn();
 
     my $repo = 'svn:' . create_svn_repo() . '/hello';
@@ -45,7 +45,7 @@
 }
 
 SKIP: {
-    skip "svk: no svk found or env SHIPWRIGHT_TEST_SVK not set", 36
+    skip "svk: no svk found or env SHIPWRIGHT_TEST_SVK not set", 34
       if skip_svk();
 
     create_svk_repo();

Modified: Shipwright/trunk/t/hello/svk.t
==============================================================================
--- Shipwright/trunk/t/hello/svk.t	(original)
+++ Shipwright/trunk/t/hello/svk.t	Sat Feb 14 00:44:45 2009
@@ -9,7 +9,7 @@
 use File::Path qw/rmtree/;
 use Cwd qw/getcwd abs_path/;
 
-use Test::More tests => 17;
+use Test::More tests => 10;
 use Shipwright::Test;
 Shipwright::Test->init;
 
@@ -63,46 +63,6 @@
     ok( grep( {/Build\.PL/} `svk cat $repo/scripts/Acme-Hello/build` ),
         'build script ok' );
 
-    # export
-    $shipwright->backend->export( target => $shipwright->build->build_base );
-
-    for (
-        catfile( $shipwright->build->build_base, 'shipwright', 'order.yml', ),
-        catfile(
-            $shipwright->build->build_base, 'etc',
-            'shipwright-script-wrapper'
-        ),
-        catfile(
-            $shipwright->build->build_base, 'sources',
-            'Acme-Hello',                   'vendor',
-        ),
-        catfile(
-            $shipwright->build->build_base, 'sources',
-            'Acme-Hello',                   'vendor',
-            'MANIFEST',
-        ),
-        catfile(
-            $shipwright->build->build_base, 'scripts',
-            'Acme-Hello',                   'build',
-        ),
-      )
-    {
-        ok( -e $_, "$_ exists" );
-    }
-
-    # install
-    $shipwright->build->run();
-
-    for (
-        catfile( $shipwright->build->install_base, 'lib', 'perl5', 'Acme', 'Hello.pm' ),
-        catfile( $shipwright->build->install_base, 'etc', 'shipwright-script-wrapper' ),
-      )
-    {
-        ok( -e $_, "$_ exists" );
-    }
-
-    rmtree( abs_path(catdir( $shipwright->build->install_base, updir() )) );
-
     # import another dist
 
     chdir $cwd;

Modified: Shipwright/trunk/t/hello/svn.t
==============================================================================
--- Shipwright/trunk/t/hello/svn.t	(original)
+++ Shipwright/trunk/t/hello/svn.t	Sat Feb 14 00:44:45 2009
@@ -7,7 +7,7 @@
 use File::Copy::Recursive qw/dircopy/;
 use File::Spec::Functions qw/catfile catdir updir/;
 use Cwd qw/getcwd abs_path/;
-use Test::More tests => 17;
+use Test::More tests => 10;
 use Shipwright::Test;
 use File::Path qw/rmtree/;
 Shipwright::Test->init;
@@ -60,53 +60,6 @@
     ok( grep( {/Build\.PL/} `svn cat $repo/scripts/Acme-Hello/build` ),
         'build script ok' );
 
-    # export
-    $shipwright->backend->export( target => $shipwright->build->build_base );
-
-    for (
-        catfile( $shipwright->build->build_base, 'shipwright', 'order.yml', ),
-        catfile(
-            $shipwright->build->build_base, 'etc',
-            'shipwright-script-wrapper'
-        ),
-        catfile(
-            $shipwright->build->build_base, 'sources',
-            'Acme-Hello',                   'vendor',
-        ),
-        catfile(
-            $shipwright->build->build_base, 'sources',
-            'Acme-Hello',                   'vendor',
-            'MANIFEST',
-        ),
-        catfile(
-            $shipwright->build->build_base, 'scripts',
-            'Acme-Hello',                   'build',
-        ),
-      )
-    {
-        ok( -e $_, "$_ exists" );
-    }
-
-    # install
-    $shipwright->build->run();
-
-    for (
-        catfile(
-            $shipwright->build->install_base, 'lib',
-            'perl5',                          'Acme',
-            'Hello.pm'
-        ),
-        catfile(
-            $shipwright->build->install_base, 'etc',
-            'shipwright-script-wrapper'
-        ),
-      )
-    {
-        ok( -e $_, "$_ exists" );
-    }
-
-    rmtree( abs_path(catdir( $shipwright->build->install_base, updir() )) );
-
     # import another dist
 
     chdir $cwd;



More information about the Bps-public-commit mailing list