fix a bug found via $work_app

[gitmo/MooseX-Runnable.git] / t / arg-parser.t

use strict;
use warnings;

use MooseX::Runnable::Util::ArgParser;

use Test::TableDriven (
    class_name => {
        'Foo' => 'Foo',
        '-Ilib Foo' => 'Foo' ,
        '-I/foo/bar/lib -Ilib -IFoo module with lots of args' => 'module' ,
        '-- Foo' => 'Foo',
        '-Ilib -- Foo' => 'Foo',
        '-Ilib -MFoo::Bar -- Foo::Baz' => 'Foo::Baz',
        '-MFoo Bar' => 'Bar',
        '+Plugin1 --args --go --here -- Foo' => 'Foo',
        '+P --args --arehere +Q --more --args -- Foo' => 'Foo',
        '-Ilib +P --args --arehere +Q --more --args -Ilib -- Foo' => 'Foo',
        '+P --args -- Foo -- Bar' => 'Foo',
        '-Ilib +Debug -- PlanFinder' => 'PlanFinder',
    },

    modules => {
        'Foo' => [],
        'Foo -MFoo' => [],
        '-MFoo' => ['Foo'],
        '-MFoo Foo' => ['Foo'],
        '-MFoo Foo' => ['Foo'],
        '-MFoo -MFoo Foo' => ['Foo', 'Foo'],
        '-MFoo -MBar -MBaz::Quux -Ilib OH::HAI' => ['Foo','Bar','Baz::Quux'],
        '+End -MFoo -MBar -- OH::HAI' => [],
        '-Ilib +End -MFoo -- OH::HAI' => [],
        '-Ilib -MFoo OH::HAI' => ['Foo'],
        '-Ilib -MFoo +End -MBar -- OH::HAI' => ['Foo'],
        '-Ilib +Debug -- PlanFinder' => [],
    },

    include_paths => {
        'Foo' => [],
        'Foo -Ilib' => [],
        '-Ilib Foo' => ['lib'],
        '-MFoo Foo' => [],
        '-MFoo -MBar -MBaz::Quux -Ilib OH::HAI' => ['lib'],
        '+End -MFoo -MBar -- OH::HAI' => [],
        '-Ilib +End -MFoo -- OH::HAI' => ['lib'],
        '-Ilib -MFoo OH::HAI' => ['lib'],
        '-Ilib -MFoo +End -IBar -- OH::HAI' => ['lib'],
        '-Ilib -MFoo -I../../../../lib +End -IBar -- OH::HAI' =>
              ['lib', '../../../../lib'],
        '-Ilib +Debug -- PlanFinder' => ['lib'],
    },

    plugins => {
        'Foo' => {},
        '-Ilib Foo' => {},
        '-Ilib -MFoo -- Bar' => {},
        '+One --arg +Two --arg2 -- End' => { One => ['--arg'], Two => ['--arg2'] },
        '+Debug +PAR +Foo::Bar -- Baz' => { Debug => [], PAR => [], 'Foo::Bar' => [] },
        '-Ilib +Debug -- PlanFinder' => { Debug => [] },
    },

    is_help => {
        '--help'                     => 1,
        '-h'                         => 1,
        '-?'                         => 1,
        '--?'                        => 0,
        '--h'                        => 0,
        '+Foo --help'                => 0,
        'Foo'                        => 0,
        '-Ilib -MFoo --help'         => 1,
        '-- Foo --help'              => 0,
        'Foo --help'                 => 0,
        'Foo -?'                     => 0,
        'Foo -h'                     => 0,
        '-Ilib +Debug -- PlanFinder' => 0,
    },

    app_args => {
        'Foo'                        => [],
        '-Ilib Foo'                  => [],
        '-Ilib -MFoo Bar'            => [],
        'Foo Bar'                    => ['Bar'],
        'Foo Bar Baz'                => ['Bar', 'Baz'],
        '-- Foo Bar Baz'             => ['Bar', 'Baz'],
        '-Ilib Foo -Ilib'            => ['-Ilib'],
        '-MFoo Foo -MFoo'            => ['-MFoo'],
        '-MFoo -MFoo Foo -MFoo'      => ['-MFoo'],
        '-- Foo --help'              => ['--help'],
        '-Ilib +Debug -- PlanFinder' => [],
    },
);

sub class_name {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return $p->class_name;
}

sub modules {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return $p->modules;
}

sub include_paths {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return [ map { $_->stringify } $p->include_paths ];
}

sub plugins {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return $p->plugins;
}

sub is_help {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return $p->is_help ? 1 : 0;
}

sub app_args {
    my ($argv) = @_;
    my $p = MooseX::Runnable::Util::ArgParser->new( argv => [split / /, $argv] );
    return $p->app_args;
}

runtests;