view release on metacpan or  search on metacpan

t/08_with_equal.t  view on Meta::CPAN

use strict;
use Test::More 0.98;
use Test::Exception;
use Getopt::Kingpin;


subtest 'with equal' => sub {
    local @ARGV;
    push @ARGV, qw(--name=kingpin);

    my $kingpin = Getopt::Kingpin->new;
    my $name = $kingpin->flag('name', 'set name')->string();

    $kingpin->parse;

    is $name, 'kingpin';
};

done_testing;