#!/usr/bin/perl -w
use strict;
use Test::More tests => 8;
use lib qw(t/lib);
use CLITest;
use_ok ('MyApp');
eval {
local *ARGV = ['--help'];
MyApp->dispatch;
};
ok ($@);
is_deeply ([MyApp->commands],
['help', 'test']);
{
local *ARGV = ['test'];
MyApp->dispatch;
is_deeply (clicheck, [qw(MyApp::Test MyApp::Test::run), ''], 'simple dispatch');
}
{
local *ARGV = ['te', 'arg'];
MyApp->dispatch;
is_deeply (clicheck, [qw(MyApp::Test MyApp::Test::run), '', 'arg'], 'alias dispatch with arg');
}
{
local *ARGV = ['test', '--verbose'];
MyApp->dispatch;
is_deeply (clicheck, [qw(MyApp::Test MyApp::Test::run), 'v'], 'with option');
}
{
local *ARGV = ['test', 'arg', '--verbose'];
MyApp->dispatch;
is_deeply (clicheck, [qw(MyApp::Test MyApp::Test::run), 'v', 'arg'], 'with option and arg');
}
{
local *ARGV = ['test', '--hate', 'arg', '--verbose'];
MyApp->dispatch;
is_deeply (clicheck, [qw(MyApp::Test::hate MyApp::Test::hate::run), 'v', 'hate', 'arg'],
'subcommand with option and arg');
}