use strict;
use warnings;
-use Test::More tests => 17;
+use Test::More tests => 25;
BEGIN {
use_ok('MooseX::Getopt');
}
-foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser::Descriptive)) {
+foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser::Descriptive MooseX::Getopt::Parser::Default)) {
SKIP: {
if ($parser_name eq 'MooseX::Getopt::Parser::Descriptive') {
eval { require Getopt::Long::Descriptive };
local @ARGV = ();
my $parser = $parser_name->new;
- isa_ok($parser, $parser_name);
+ ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
my $getopt = MooseX::Getopt::Session->new( parser => $parser );
isa_ok($getopt, 'MooseX::Getopt::Session');
local @ARGV = ('--nums', 3, '--nums', 5);
my $parser = $parser_name->new;
- isa_ok($parser, $parser_name);
+ ok(ref($parser) =~ /^MooseX::Getopt::Parser::/, '... parser object is created');
my $getopt = MooseX::Getopt::Session->new( parser => $parser );
isa_ok($getopt, 'MooseX::Getopt::Session');