#! /usr/bin/perl

#  Copyright (C) 2010, Geoffrey Leach
#
#===============================================================================
#
#         FILE:  05-noshort.t
#
#  DESCRIPTION:  Test advanced option "noshort"
#
#        FILES:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Geoffrey Leach (), <geoff@hughes.net>
#      COMPANY:
#      VERSION:  1.9.7
#      CREATED:  Mon Oct 19 15:02:10 PDT 2009
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;

use Test::More tests => 4;    # last test to print

use 5.006;
our $VERSION = '1.9.7';

## no critic (RequireLocalizedPunctuationVars)
## no critic (ProtectPrivateSubs)

BEGIN {
    @ARGV = qw(foo -b);
    use Getopt::Auto( { 'noshort' => 1 } );
}

my $is_foo_called;
sub foo { $is_foo_called = 1; return; }

my $is_b_called;
sub b { $is_b_called = 1; return; }

ok( $is_foo_called,                         'foo() called' );
ok( !defined($is_b_called),                 'b() not called' );
ok( Getopt::Auto::test_option('foo') == 1, 'foo is an option' );
ok( Getopt::Auto::test_option('b') == 0,   'b is not an option' );

exit 0;

__END__

=pod

=head2 foo - do a bare foo

=head2 -b - do a b

=cut