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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Feb 14 00:44:11 2009
New Revision: 18400

Removed:
   Shipwright/trunk/t/21.perl_in_build.t
Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/02.shipwright.t
   Shipwright/trunk/t/71.script_cmds.t
   Shipwright/trunk/t/hello/fs.t

Log:
 r19866 at sunnavys-mb:  sunnavy | 2009-02-14 13:19:50 +0800
 remove build tests


Modified: Shipwright/trunk/t/02.shipwright.t
==============================================================================
--- Shipwright/trunk/t/02.shipwright.t	(original)
+++ Shipwright/trunk/t/02.shipwright.t	Sat Feb 14 00:44:11 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 9;
 use Shipwright;
 
 my $sw = Shipwright->new(
@@ -10,7 +10,6 @@
 );
 isa_ok( $sw->backend, 'Shipwright::Backend::SVK', '$sw->backend' );
 isa_ok( $sw->source,  'Shipwright::Source::CPAN', '$sw->source' );
-isa_ok( $sw->build,   'Shipwright::Build',        '$sw->build' );
 
 like( $sw->log_file, qr/svk__test_foo\.log$/, 'default log_file' );
 is( $sw->log_level, 'FATAL', 'default log_level is FATAL' );
@@ -21,7 +20,6 @@
 );
 
 is( $sw->backend, undef, 'no repository, no backend' );
-is( $sw->build,   undef, 'no repository, no build' );
 is( $sw->source,  undef, 'no source, no backend' );
 
 is( $sw->log_file,  '/tmp/t.log', 'log_file arg is ok' );

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:11 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 106;
+use Test::More tests => 104;
 
 use Shipwright;
 use Shipwright::Test;
@@ -266,25 +266,6 @@
             'set mandatory flag man1',
         ],
         [
-            [
-                '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',   '--install-base',
-                $install_base, '--build-base',
-                $build_base
-            ],
-            qr/run, run, configure/,
-            'configure is run',
-        ],
-        [
             [ 'update', '--builder' ],
             qr/updated with success/,
             "updated builder",

Modified: Shipwright/trunk/t/hello/fs.t
==============================================================================
--- Shipwright/trunk/t/hello/fs.t	(original)
+++ Shipwright/trunk/t/hello/fs.t	Sat Feb 14 00:44:11 2009
@@ -9,7 +9,7 @@
 use File::Path qw/rmtree/;
 use Cwd qw/getcwd abs_path/;
 
-use Test::More tests => 41;
+use Test::More tests => 31;
 use Shipwright::Test;
 Shipwright::Test->init;
 
@@ -48,7 +48,6 @@
 isa_ok( $shipwright,          'Shipwright' );
 isa_ok( $shipwright->backend, 'Shipwright::Backend::FS' );
 isa_ok( $shipwright->source,  'Shipwright::Source::Compressed' );
-isa_ok( $shipwright->build,   'Shipwright::Build' );
 
 # init
 $shipwright->backend->initialize();
@@ -65,7 +64,7 @@
 my $source_dir = $shipwright->source->run();
 like( $source_dir, qr/\bAcme-Hello\b/, 'source name looks ok' );
 
-for (qw/source backend build/) {
+for (qw/source backend/) {
     isa_ok( $shipwright->$_->log, 'Log::Log4perl::Logger' );
 }
 
@@ -90,50 +89,6 @@
 ok( grep( {/Build\.PL/} `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;
@@ -188,26 +143,3 @@
     qr/Acme-Hello.*howdy/s,
     'updated order works'
 );
-
-# build with 0 packages
-
-{
-    my $shipwright = Shipwright->new(
-        repository => "fs:$repo",
-        log_level  => 'FATAL',
-    );
-
-    # init
-    $shipwright->backend->initialize();
-    $shipwright->backend->export( target => $shipwright->build->build_base );
-    $shipwright->build->run();
-    ok(
-        -e catfile(
-            $shipwright->build->install_base, 'etc',
-            'shipwright-script-wrapper'
-        ),
-        'build with 0 packages ok'
-    );
-    rmtree( abs_path( catdir( $shipwright->build->install_base, updir() ) ) );
-}
-