CLI-Driver
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/13-test13.t view on Meta::CPAN
#!/usr/bin/env perl
# vim: tabstop=4 expandtab
###### PACKAGES ######
use Modern::Perl;
use Data::Printer alias => 'pdump';
use CLI::Driver;
use Test::More;
use Getopt::Long;
Getopt::Long::Configure('no_ignore_case');
Getopt::Long::Configure('pass_through');
Getopt::Long::Configure('no_auto_abbrev');
###### CONSTANTS ######
###### GLOBALS ######
use vars qw(
$Driver
);
###### MAIN ######
unshift @INC, 't/lib';
$| = 1;
$Driver = CLI::Driver->new( path => 't/etc', file => 'cli-driver.yml' );
###
#test13:
# desc: "test multi value array arguments"
# class:
# name: CLI::Driver::TestArray
# attr:
# required:
# hard:
# '@r': attributeArrayReq
# optional:
# '@o': attributeArrayOpt
# flags:
# method:
# name: test13_method1
# args:
# required:
# hard:
# '@a': methodArrayReq
# optional:
# '@b': methodArrayOpt
# flags:
#
# Test multiple arguments passed in
#
push @ARGV, '-r', 'ra1', '-r', 'ra2', '-o', 'oa1', '-o', 'oa2',
'-a', 'rm1', '-a', 'rm2', '-b', 'om1', '-b', 'om2';
my $action = $Driver->get_action(name => 'test13');
ok($action);
my @result;
eval { @result = $action->do };
ok(!$@) or BAIL_OUT($@); #pdump $@;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.764 second using v1.00-cache-2.02-grep-82fe00e-cpan-f73e49a70403 )