#!perl

use lib 'lib';
use strict;
use warnings;
use Test::More tests => 5;

BEGIN { use_ok( 'Getopt::Declare' ); }


# Build parser
my $spec = q{
	-a <aval>		option 1
};
ok my $config = Getopt::Declare->new($spec, -BUILD), 'build the parser';

# Get parser code
ok my $code = $config->code();

# Parse arguments
@ARGV = ( '-aA' );
ok $config->parse();
is $config->{'-a'}, 'A';