use strict;
use Test::More;
use Smart::Options;
subtest 'stop parsing' => sub {
my $argv = argv(qw(-a 1 -b 2 -- -c 3 -d 4));
is $argv->{a}, 1;
is $argv->{b}, 2;
is_deeply $argv->{_}, ['-c', '3', '-d', '4'];
};
subtest 'negate fields' => sub {
my $argv = argv(qw(-a --no-b));
ok $argv->{a};
ok !$argv->{b};
};
subtest 'duplicates' => sub {
my $argv = argv(qw(-x 5 -x 8 -x 0));
is_deeply $argv->{x}, [5, 8, 0];
};
done_testing;