use strict;
use warnings;
-use Test::More tests => 185;
+use Test::More tests => 263;
BEGIN {
use_ok('MooseX::Getopt');
can_ok($attr, 'cmd_aliases');
}
-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 = ('--verbose', '--length', 50);
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 = ('--verbose', '-f', 'foo.txt');
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 = ('--verbose', '--libs', 'libs/', '--libs', 'includes/lib');
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 = ('--details', 'os=mac', '--details', 'name=foo');
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 = ('--noverbose');
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 = ('--cow', '42');
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 = ('--moocow', '88');
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 = ('-c', '99');
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 = ('--horsey', '123');
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 = ('-x', '321');
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 = ('-p', '666');
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 = @args;
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');