BEGIN {
@ARGV = (
'-a', 1, '-b 2',
);
# This is equivalent to running:
# quoted_args_2.t -a 1 '-b 2'
# or:
# quoted_args_2.t -a 1 -b\ 2
}
use Getopt::Euclid;
use Test::More 'no_plan';
use Data::Dumper; print Dumper(\%ARGV);
is keys %ARGV, 1 => 'Right number of args returned';
is ref $ARGV{'-a'}, 'ARRAY' => 'Array reference returned for -a';
is $ARGV{'-a'}[0], 1 => 'Got expected value for -a[0]';
is $ARGV{'-a'}[1], '-b 2' => 'Got expected value for -a[1]';
ok not( exists $ARGV{'-b'} ) => 'Nothing returned for -b';
=head1 REQUIRED ARGUMENTS
=over
=item -a <a>...
=back
=head1 OPTIONS
=over
=item -b <b>
=back
=cut