view release on metacpan or  search on metacpan

t/Ambrosia/Options.t  view on Meta::CPAN

BEGIN {
    use_ok( 'Ambrosia::CommonGatewayInterface::Options' ); #test #1
}

sub opt_check
{
    my $options_spec = shift;
    my $opt = shift;
    my $param = shift;
    my $val = shift;
    local @ARGV = @$opt;
    my $o = new Ambrosia::CommonGatewayInterface::Options(options_spec=>$options_spec);
    $o->open();
    ok($o->input_data($param) eq $val, "input_data: $param == $val");
}

my $options_spec = [
    'test.pl %o',
    [ 'data|d=s',   'the path to xml' ],
    [ 'config_path|c=s',   'the path to config' ],
    [ 'install_path|p=s',  'the path where project building' ],