trAvis - MANAGER

Edit File: 008_configfromfile.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 37;
use Test::Fatal;
use File::Spec;

use Test::Requires {
    'MooseX::ConfigFromFile' => 0.01, # skip all if not installed
};

{
    package App;

use Moose;
    with 'MooseX::Getopt';
    with 'MooseX::ConfigFromFile';

has 'config_from_override' => (
        is       => 'ro',
        isa      => 'Bool',
        default  => 0,
    );

has 'optional_from_config' => (
        is        => 'ro',
        isa       => 'Str',
        required  => 0,
    );

has 'required_from_config' => (
        is        => 'ro',
        isa       => 'Str',
        required  => 1,
    );

has 'required_from_argv' => (
        is        => 'ro',
        isa       => 'Str',
        required  => 1,
    );

sub get_config_from_file
    {
        my ( $class, $file ) = @_;

my %config = (
            required_from_config => 'from_config_1',
            optional_from_config => 'from_config_2',
        );

my $cpath = File::Spec->canonpath('/notused/default');
        if ( $file ne $cpath ) {
            $config{config_from_override} = 1;
        }

return \%config;
    }
}

{
    package App::DefaultConfigFile;

use Moose;
    extends 'App';

has '+configfile' => (
        default => File::Spec->canonpath('/notused/default'),
    );
}

{
    package App::DefaultConfigFileCodeRef;

use Moose;
    extends 'App';

has '+configfile' => (
        default => sub { return File::Spec->canonpath('/notused/default') },
    );
}

# No config specified
{
    local @ARGV = qw( --required_from_argv 1 );

if ($Getopt::Long::Descriptive::VERSION >= 0.091) {
        like exception { App->new_with_options }, qr/Mandatory parameter 'required_from_config' missing/;
    }
    else {
        like exception { App->new_with_options }, qr/Required option missing: required_from_config/;
    }

{
        my $app = App::DefaultConfigFile->new_with_options;
        isa_ok( $app, 'App::DefaultConfigFile' );
        app_ok( $app );

ok(  !$app->config_from_override,
            '... config_from_override false as expected' );

is( $app->configfile, File::Spec->canonpath('/notused/default'),
            '... configfile is /notused/default as expected' );
    }
}

# No config specified
{
    local @ARGV = qw( --required_from_argv 1 );

{
        my $app = App::DefaultConfigFileCodeRef->new_with_options;
        isa_ok( $app, 'App::DefaultConfigFileCodeRef' );
        app_ok( $app );

ok(  !$app->config_from_override,
            '... config_from_override false as expected' );

is( $app->configfile, File::Spec->canonpath('/notused/default'),
            '... configfile is /notused/default as expected' );
    }
}

# Config specified
{
    local @ARGV = qw( --configfile /notused --required_from_argv 1 );

{
        my $app = App->new_with_options;
        isa_ok( $app, 'App' );
        app_ok( $app );
    }

{
        my $app = App::DefaultConfigFile->new_with_options;
        isa_ok( $app, 'App::DefaultConfigFile' );
        app_ok( $app );

ok( $app->config_from_override,
             '... config_from_override true as expected' );

is( $app->configfile, File::Spec->canonpath('/notused'),
            '... configfile is /notused as expected' );
    }
    {
        my $app = App::DefaultConfigFileCodeRef->new_with_options;
        isa_ok( $app, 'App::DefaultConfigFileCodeRef' );
        app_ok( $app );

ok( $app->config_from_override,
             '... config_from_override true as expected' );

is( $app->configfile, File::Spec->canonpath('/notused'),
            '... configfile is /notused as expected' );
    }
}

# Required arg not supplied from cmdline
{
    local @ARGV = qw( --configfile /notused );
    if ($Getopt::Long::Descriptive::VERSION >= 0.091) {
        like exception { App->new_with_options }, qr/Mandatory parameter 'required_from_argv' missing/;
    }
    else {
        like exception { App->new_with_options }, qr/Required option missing: required_from_argv/;
    }
}

# Config file value overriden from cmdline
{
    local @ARGV = qw( --configfile /notused --required_from_argv 1 --required_from_config override );

my $app = App->new_with_options;
    isa_ok( $app, 'App' );

is( $app->required_from_config, 'override',
        '... required_from_config is override as expected' );

is( $app->optional_from_config, 'from_config_2',
        '... optional_from_config is from_config_2 as expected' );
}

# No config file
{
    local @ARGV = qw( --required_from_argv 1 --required_from_config noconfig );

my $app = App->new_with_options;
    isa_ok( $app, 'App' );

is( $app->required_from_config, 'noconfig',
        '... required_from_config is noconfig as expected' );

ok( !defined $app->optional_from_config,
        '... optional_from_config is undef as expected' );
}

{
    package BaseApp::WithConfig;
    use Moose;
    with 'MooseX::ConfigFromFile';

sub get_config_from_file { return {}; }
}

{
    package DerivedApp::Getopt;
    use Moose;
    extends 'BaseApp::WithConfig';
    with 'MooseX::Getopt';
}

# With DerivedApp, the Getopt role was applied at a different level
# than the ConfigFromFile role
{
    ok ! exception { DerivedApp::Getopt->new_with_options }, 'Can create DerivedApp';
}

sub app_ok {
    my $app = shift;

is( $app->required_from_config, 'from_config_1',
        '... required_from_config is from_config_1 as expected' );

is( $app->optional_from_config, 'from_config_2',
        '... optional_from_config is from_config_2 as expected' );

is( $app->required_from_argv, '1',
        '... required_from_argv is 1 as expected' );
}