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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan 16 04:09:33 2009
New Revision: 17767

Added:
   Shipwright/trunk/t/hello/fs.t
Modified:
   Shipwright/trunk/   (props changed)

Log:
 r18812 at sunnavys-mb:  sunnavy | 2009-01-16 17:05:27 +0800
 added hello/fs.t


Added: Shipwright/trunk/t/hello/fs.t
==============================================================================
--- (empty file)
+++ Shipwright/trunk/t/hello/fs.t	Fri Jan 16 04:09:33 2009
@@ -0,0 +1,213 @@
+use strict;
+use warnings;
+
+use Shipwright;
+use File::Temp qw/tempdir/;
+use File::Copy;
+use File::Copy::Recursive qw/dircopy/;
+use File::Spec::Functions qw/catfile catdir updir/;
+use File::Path qw/rmtree/;
+use Cwd qw/getcwd abs_path/;
+
+use Test::More tests => 41;
+use Shipwright::Test;
+Shipwright::Test->init;
+
+my $cwd = getcwd;
+
+my $repo = create_fs_repo();
+
+my %source = (
+    'http://example.com/hello.tar.gz'    => 'HTTP',
+    'ftp://example.com/hello.tar.gz'     => 'FTP',
+    'svn:file:///home/sunnavy/svn/hello' => 'SVN',
+    'svk://local/hello'                  => 'SVK',
+    'cpan:Acme::Hello'                   => 'CPAN',
+    'file:' . catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ) => 'Compressed',
+    'dir:' . catfile( 't', 'hello' ) => 'Directory',
+);
+
+for ( keys %source ) {
+    my $shipwright = Shipwright->new(
+        repository => "fs:$repo",
+        source     => $_,
+        log_level  => 'FATAL',
+    );
+    isa_ok( $shipwright,         'Shipwright' );
+    isa_ok( $shipwright->source, "Shipwright::Source::$source{$_}" );
+}
+
+my $shipwright = Shipwright->new(
+    repository => "fs:$repo",
+    source     => 'file:' . catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+    follow     => 0,
+    log_level  => 'FATAL',
+    force      => 1,
+);
+
+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();
+my $dh;
+opendir $dh, $repo;
+my @dirs = sort grep { !/^\./ } readdir $dh;
+is_deeply(
+    [@dirs],
+    [ 'bin', 'etc', 'inc', 'scripts', 'shipwright', 'sources', 't' ],
+    'initialize works'
+);
+
+# source
+my $source_dir = $shipwright->source->run();
+like( $source_dir, qr/\bAcme-Hello\b/, 'source name looks ok' );
+
+for (qw/source backend build/) {
+    isa_ok( $shipwright->$_->log, 'Log::Log4perl::Logger' );
+}
+
+ok( -e catfile( $source_dir, 'lib', 'Acme', 'Hello.pm' ),
+    'lib/Acme/Hello.pm exists in the source' );
+ok( -e catfile( $source_dir, 'META.yml' ), 'META.yml exists in the source' );
+
+# import
+
+$shipwright->backend->import( name => 'hello', source => $source_dir );
+ok( grep( {/Build\.PL/} `ls $repo/sources/Acme-Hello/vendor` ), 'imported ok' );
+
+my $script_dir = tempdir( 'shipwright_XXXXXX', CLEANUP => 1, TMPDIR => 1 );
+copy( catfile( 't', 'hello', 'scripts', 'build' ),       $script_dir );
+copy( catfile( 't', 'hello', 'scripts', 'require.yml' ), $script_dir );
+
+$shipwright->backend->import(
+    name         => 'hello',
+    source       => $source_dir,
+    build_script => $script_dir,
+);
+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;
+$shipwright = Shipwright->new(
+    repository => "fs:$repo",
+    source     => 'file:' . catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+    name       => 'howdy',
+    follow     => 0,
+    log_level  => 'FATAL',
+    force      => 1,
+);
+
+$source_dir = $shipwright->source->run();
+like( $source_dir, qr/\bhowdy\b/, 'source name looks ok' );
+$shipwright->backend->import( name => 'hello', source => $source_dir );
+ok( grep( {/Build\.PL/} `ls $repo/sources/howdy/vendor` ), 'imported ok' );
+$script_dir = tempdir( 'shipwright_XXXXXX', CLEANUP => 1, TMPDIR => 1 );
+copy( catfile( 't', 'hello', 'scripts', 'build' ), $script_dir );
+copy( catfile( 't', 'hello', 'scripts', 'howdy_require.yml' ),
+    catfile( $script_dir, 'require.yml' ) );
+
+$shipwright->backend->import(
+    name         => 'hello',
+    source       => $source_dir,
+    build_script => $script_dir,
+);
+ok( grep( {/Build\.PL/} `cat $repo/scripts/howdy/build` ), 'build script ok' );
+
+my $tempdir = tempdir( 'shipwright_XXXXXX', CLEANUP => 1, TMPDIR => 1 );
+dircopy(
+    catfile( 't',      'hello', 'shipwright' ),
+    catfile( $tempdir, 'shipwright' )
+);
+
+# check to see if update_order works
+like(
+    `cat $repo/shipwright/order.yml`,
+    qr/Acme-Hello.*howdy/s,
+    'original order is right'
+);
+
+system( 'cp -r ' . catfile( $tempdir, 'shipwright' ) . " $repo/" );
+like(
+    `cat $repo/shipwright/order.yml`,
+    qr/howdy.*Acme-Hello/s,
+    'imported wrong order works'
+);
+
+$shipwright->backend->update_order;
+like(
+    `cat $repo/shipwright/order.yml`,
+    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() ) ) );
+}
+