view release on metacpan or  search on metacpan

t/lib/Crane/Options.pm  view on Meta::CPAN

    
    return done_testing();
    
}


sub test_load_options {
    
    plan('tests' => 10);
    
    local @ARGV = qw(
        --opt1=string
        --opt2=a
        --opt2=b
        --opt3
        --no-opt5
        --opt6=string
        --opt8
        a
        b
        c

t/lib/Crane/Options.pm  view on Meta::CPAN

    
}


sub test_load_args {
    
    plan('tests' => 1);
    
    my @args = qw( a b c );
    
    local @ARGV = (
        qw(
            -a
            --b=42
        ),
        
        @args,
    );
    
    my $options = load_options(
        [ 'a!' ],