gistfile1.pl

use Test::More qw(no_plan); #tests => 32;

BEGIN { use_ok('Getopt::String', ":all"); }

my $gs = new Getopt::String(
	option_switch($help, [qw/help h/]),
	option_counter($verbose, [qw/verbose v/]),
	option_stop(""),
	option_arg($outfile, [qw/output o/]),
	option_arg($foo, 'foo', optional_arg => 1)
);
my $remain = $gs->parse("");
is_deeply([$help, $verbose, $outfile, $foo], [0, 0, undef, undef], "defaulting");

my $remain = $gs->parse("-h");
is_deeply([$help, $verbose, $outfile, $foo], [1, 0, undef, undef], "switch args");

my $remain = $gs->parse("--help");
is_deeply([$help, $verbose, $outfile, $foo], [1, 0, undef, undef], "switch args");

my $remain = $gs->parse("--help -h");
is_deeply([$help, $verbose, $outfile, $foo], [1, 0, undef, undef], "switch args");

my $remain = $gs->parse("--help --help");
is_deeply([$help, $verbose, $outfile, $foo], [1, 0, undef, undef], "switch args");