t/Target.t - metacpan.org

#!perl

use strict;
use warnings;

use File::Spec;
use File::Copy;
use File::Temp;
use FindBin;

use lib "$FindBin::Bin/./testlib/";

use Test::More;
use Test::Exception;

require_ok( 'Enbld::Target' );

subtest 'constructor' => sub {
    throws_ok {
        Enbld::Target->new( 'noname' );
    } qr/ERROR:no definition for target 'noname'/, 'no definition';
};

set_http_hook(); 

subtest "install" => sub {

    subtest 'not installed' => sub {
        setup();

        my $target = Enbld::Target->new( 'testapp' );
        is( $target->is_installed, undef, 'not installed' );

        my $config = $target->install;
        is( $config->enabled, '1.1', 'install method' );

        teardown();
    };

    subtest 'installed' => sub {
        setup();

        my $config = Enbld::Target->new( 'testapp' )->install;
        throws_ok { 
            Enbld::Target->new( 'testapp', $config )->install;
        } qr/ERROR:'testapp' is already installed/, 'installed';

        teardown();
    };

    subtest 'force install' => sub {
        setup();

        my $config = Enbld::Target->new( 'testapp' )->install;
        is( $config->enabled, '1.1', 'install first' );

        teardown();
        setup( force => 1 );

        my $target = Enbld::Target->new( 'testapp', $config );
        my $installed = $target->install;
        is( $installed->enabled, '1.1', 'install twice' );

        teardown();
    };

    subtest 'install with make test' => sub {
        setup( make_test => 1 );

        Enbld::Target->new( 'testapp' )->install;

        my $path = File::Spec->catfile(
                Enbld::Home->build,
                'TestApp-1.1',
                'tested'
                );
        ok( -e $path, 'make test' ) or diag( $@ );

        teardown();
    };

    subtest 'install without make test' => sub {
        setup( make_test => undef );

        Enbld::Target->new( 'testapp' )->install;

        my $path = File::Spec->catfile(
                Enbld::Home->build,
                'TestApp-1.1',
                'tested'
                );
        ok( ! -e $path, 'not make test' );

        teardown();
    };

    subtest 'install deploy' => sub {
        setup();
        
        my $config = Enbld::Target->new( 'testapp' )->install;

        teardown();

        my $deploy_path = File::Temp->newdir;
        setup( deploy => $deploy_path );

        Enbld::Target->new( 'testapp', $config )->deploy;
        my $app = File::Spec->catdir( $deploy_path, 'bin', 'enbldtestapp' );
        ok( -e $app, 'deploy' );

        teardown();
    };


    subtest 'fail to install' => sub {
        setup();

        throws_ok {
            Enbld::Target->new( 'brokenapp' )->install;
        } 'Enbld::Error', 'fail to install';

        teardown();

        $? = 0;
    };
};

subtest 'install dependant' => sub {

    subtest 'install dependency' => sub {
        setup();

        my $dependant = Enbld::Target->new( 'testdependant' )->install;
        is( $dependant->name, 'testdependant', 'dependant name' );
        is( $dependant->enabled, '1.1', 'dependant enabled' );

        require Enbld::App::Configuration;
        my $config = Enbld::App::Configuration->search_config( 'testapp' );
        is( $config->name, 'testapp', 'dependency name' );
        is( $config->enabled, '1.1', 'dependency enabled' );

        teardown();
    };

    subtest 'not install dependency' => sub {
        setup();
    
        my $dependency = Enbld::Target->new( 'testapp' )->install;
        Enbld::App::Configuration->set_config( $dependency );

        my $installed = Enbld::App::Configuration->search_config( 'testapp' );
        is( $installed->enabled, '1.1', 'installed dependency' );

        my $config = Enbld::Target->new( 'testdependant' )->install;
        is( $config->enabled, '1.1', 'installed target' );

        teardown();
    };

    subtest 'install by specific condition' => sub {
        setup();

        my $conditions = {
            testapp         => Enbld::Condition->new( version => '1.0' ),
            testdependant   => Enbld::Condition->new,
        };

        my $dependant =
            Enbld::Target->new( 'testdependant' )->install_declared(
                    $conditions
                    );
        is( $dependant->enabled, '1.1', 'enabled' );

        my $config = Enbld::App::Configuration->search_config( 'testapp' );
        is( $config->enabled, '1.0', 'target enabled' );

        teardown();
    };

};

subtest 'install declared' => sub {

    subtest 'installed declared condition' => sub {
        setup();

        my $old = {
            testapp => Enbld::Condition->new( version => '1.0' ),
        };

        my $testapp =
            Enbld::Target->new( 'testapp' )->install_declared( $old );

        is( $testapp->enabled, '1.0', 'target version' );

        is( Enbld::Target->new(
                    'testapp', $testapp )->install_declared( $old ),
                undef, 'not installed' );

        my $new = {
            testapp => Enbld::Condition->new( version => '1.1' )
        };

        my $config = Enbld::Target->new( 'testapp',
                    $testapp )->install_declared( $new );
        is( $config->enabled, '1.1', 'installed' );

        teardown();
    };

    subtest 'force install' => sub {
        setup();

        my $condition = {
            testapp => Enbld::Condition->new( version => '1.0' ),
        };

        my $target_first = Enbld::Target->new( 'testapp' );
        my $config_first = $target_first->install_declared( $condition );
        is( $config_first->enabled, '1.0', 'install first' );

        teardown();

        setup( force => 1 );

        my $target_twice = Enbld::Target->new( 'testapp' );
        my $config_twice = $target_twice->install_declared( $condition );
        is( $config_twice->enabled, '1.0', 'install twice by force' );

        teardown();
    };

    subtest 'install deploy' => sub {
        setup();
        
        my $condition = {
            testapp =>  Enbld::Condition->new( version => '1.0' ),
        };

        my $config =
            Enbld::Target->new( 'testapp' )->install_declared( $condition );

        teardown();

        my $deploy_path = File::Temp->newdir;
        setup( deploy => $deploy_path );

        Enbld::Target->new( 'testapp', $config )->deploy_declared( $condition );

        my $app = File::Spec->catdir( $deploy_path, 'bin', 'enbldtestapp' );
        ok( -e $app, 'deploy' );

        teardown();
    };
};

subtest 'upgrade' => sub {

    subtest 'not installed' => sub {
        setup();

        throws_ok {
            Enbld::Target->new( 'testapp' )->upgrade
        } qr/ERROR:'testapp' is not installed yet/, 'not installed';

        teardown();
    };

    subtest 'not upgrade' => sub {
        setup();

        my $old = {
            testapp =>  Enbld::Condition->new( version => '1.1' ),
        };

        my $config =
            Enbld::Target->new( 'testapp' )->install_declared( $old );

        my $new = Enbld::Condition->new( version => 'latest' );

        $config->set_enabled( '1.1', $new );

        throws_ok {
            Enbld::Target->new( 'testapp', $config )->upgrade;
        } qr/ERROR:'testapp' is up to date/, 'not upgrade';

        teardown();
    };

    subtest 'upgrade install' => sub {
        setup();

        my $target = Enbld::Target->new( 'testapp' );
        my $old = {
            testapp => Enbld::Condition->new( version => '1.0' ),
        };
        my $config =
            Enbld::Target->new( 'testapp' )->install_declared( $old );

        my $new = Enbld::Condition->new( version => 'latest' );

        $config->set_enabled( '1.0', $new );

        my $upgraded = Enbld::Target->new( 'testapp', $config )->upgrade;
        is( $upgraded->enabled, '1.1', 'upgraded' );

        teardown();
    };
};

subtest 'is outdated' => sub {
    subtest 'not installed' => sub {
        setup();

        my $target = Enbld::Target->new( 'testapp' );
        is( $target->is_outdated, undef, 'not installed' );

        teardown();
    };

    subtest 'outdated' => sub {
        setup();

        my $old = {
            testapp =>  Enbld::Condition->new( version => '1.0' ),
        };

        my $config =
            Enbld::Target->new( 'testapp' )->install_declared( $old );

        my $new = Enbld::Condition->new( version => 'latest' );

        $config->set_enabled( '1.0', $new );
        my $outdated = Enbld::Target->new( 'testapp', $config );

        is( Enbld::Target->new( 'testapp', $config )->is_outdated,
                '1.1', 'outdated' );

        teardown();
    };

    subtest 'not outdated' => sub {
        setup();

        my $old = {
            testapp =>  Enbld::Condition->new( version => '1.1' ),
        };

        my $config =
            Enbld::Target->new( 'testapp' )->install_declared( $old );

        my $new = Enbld::Condition->new( version => 'latest' );
        $config->set_enabled( '1.1', $new );
        my $uptodate = Enbld::Target->new( 'testapp', $config );

        is( Enbld::Target->new( 'testapp', $config )->is_outdated,
                undef, 'up to date' );

        teardown();
    };

    done_testing();
};

subtest 'use method' => sub {

    subtest 'version form exception' => sub {
        setup();

        my $condition = Enbld::Condition->new;
        my $config = Enbld::Config->new( name => 'testapp' );
        $config->set_enabled( '1.0', $condition );

        throws_ok { 
            Enbld::Target->new( 'testapp', $config )->use( '10' );
        } qr/ERROR:'10' is not valid version form/, 'form exception';

        teardown();
    };

    subtest 'current version exception' => sub {
        setup();

        my $condition = Enbld::Condition->new;
        my $config = Enbld::Config->new( name => 'testapp' );
        $config->set_enabled( '1.0', $condition );

        throws_ok {
            Enbld::Target->new( 'testapp', $config )->use( '1.0' );
        } qr/ERROR:'1.0' is current enabled version/, 'current';

        teardown();
    };

    subtest 'not installed yet' => sub {
        setup();

        my $condition = Enbld::Condition->new;
        my $config = Enbld::Config->new( name => 'testapp' );
        $config->set_enabled( '1.0', $condition );

        throws_ok {
            Enbld::Target->new( 'testapp', $config )->use( '1.1' );
        } qr/ERROR:'1.1' isn't installed yet/, 'not installed';

        teardown();
    };

    subtest 'use already installed' => sub {
        setup();

        my $old_condition = {
            testapp =>  Enbld::Condition->new( version => '1.0' ),
        };
        my $new_condition = {
            testapp =>  Enbld::Condition->new( version => 'latest' ),
        };
        my $old_config = Enbld::Config->new( name => 'testapp' );
        my $old_target = Enbld::Target->new( 'testapp' );

        my $new_config = $old_target->install_declared( $old_condition );
        my $new_target = Enbld::Target->new( 'testapp', $new_config );
        my $installed_config = $new_target->install_declared( $new_condition );

        my $target = Enbld::Target->new( 'testapp', $installed_config );

        my $config = $target->use( '1.0' );
        is( $config->enabled, '1.0', 'use already installed version' );

        is( $config->condition->version, '1.0', 'after installed condition' );

        teardown();
    };
};

subtest 'off method' => sub {
    setup();

    my $config = Enbld::Target->new( 'testapp' )->install;
    is( $config->enabled, '1.1', 'target install' );

    my $offed = Enbld::Target->new( 'testapp', $config )->off;
    is( $offed->enabled, undef, 'target off' );

    throws_ok {
        Enbld::Target->new( 'testapp', $offed )->off;
    } qr/ERROR:'testapp' is not installed yet/, "can't off";

    teardown();
};

done_testing();

sub setup {

    local $ENV{PERL_ENBLD_HOME} = File::Temp->newdir;

    my $param = {
        force       =>  undef,
        make_test   =>  undef,
        deploy      =>  undef,
        @_,
    };

    require Enbld::Feature;
    Enbld::Feature->initialize( %{ $param } );

    require Enbld::Home;
    Enbld::Home->initialize;
    Enbld::Home->create_build_directory;

    require Enbld::Logger;
    Enbld::Logger->rotate( Enbld::Home->log );

    require Enbld::App::Configuration;
}

sub teardown {
    Enbld::App::Configuration->destroy;

    Enbld::Feature->reset;

    chdir;
};

sub set_http_hook {

    my $html = do { local $/; <DATA> };

    require Enbld::HTTP;
    Enbld::HTTP->register_get_hook( sub{ return $html } );
    Enbld::HTTP->register_download_hook( \&download_hook );
}

sub download_hook {
    my ( $pkg, $url, $path ) = @_;

    my ( undef, undef, $file ) = File::Spec->splitpath( $path );

    my $downloadfile = File::Spec->catfile( $FindBin::Bin, $file );
    copy( $downloadfile, $path );

    return $path;
}

__DATA__
<html>
<body>
<a href="TestApp-1.0.tar.gz">TestApp-1.0.tar.gz</a>
<a href="TestApp-1.1.tar.gz">TestApp-1.1.tar.gz</a>

<a href="BrokenApp-1.0.tar.gz">BrokenApp-1.0.tar.gz</a>
</body>
</html>
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)