BEGIN {
@ARGV = (
'-o', 'test',
'-i', 'test2',
);
}
use Getopt::Euclid;
use Test::More 'no_plan';
is $ARGV{'-i'}, 'test2' => 'Got expected value for -i';
is $ARGV{'-o'}, 'test' => 'Got expected value for -o';
__END__
=head1 NAME
substr.pl - short description
=head1 REQUIRED ARGUMENTS
=head1 OPTIONS
=item -o <o>
=item -i <i>