w{ --abc -def};
stderr_isnt(
\&Getopt::Auto::_parse_args,
"--abc is not a registered option\n",
'--abc correctly not reported not a registered option'
);
stderr_isnt(
\&Getopt::Auto::_
led' );
isnt( $options{'x'}, 1, 'option "x" was not set' );
# The most basic situation is the one where there are no options given
@ARGV = qw( /twas/brillig/and/the/slythe/toes );
stderr_isnt(
\&
tderr, $help, 'Check -x not registered' );
ok( $is_foo_called == 0, 'Sub foo() was not called' );
isnt( $options{'x'}, 1, 'option "x" was not set' );
exit 0;
__END__
=pod
=head2 --foo - do a foo
is implicitly verified in prior tests,
# but it's nice to have it.
@ARGV = qw{ abcdefg };
stdout_isnt(
\&Getopt::Auto::_parse_args,
"abcdefg is not a registered option\n",
'abcdefg correc