X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006_metaclass_traits.t;h=7e5eba5a1c0827a6f7ffede9bd255d1f31360c1f;hb=ac2073c861c686a00941f7b6d5c9c1b4013d7671;hp=aebe3156f625c4d850ba5ab0d217a62a5ef257a5;hpb=05e8fe8973c9305d2a81ee513474cd5f78a0fef3;p=gitmo%2FMooseX-Getopt.git

diff --git a/t/006_metaclass_traits.t b/t/006_metaclass_traits.t
index aebe315..7e5eba5 100644
--- a/t/006_metaclass_traits.t
+++ b/t/006_metaclass_traits.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 173;
+use Test::More tests => 251;
 use Test::Moose;
 
 BEGIN {
@@ -89,7 +89,7 @@ foreach my $attr_name (qw(data cow horse _private_stuff_cmdline)) {
     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 };
@@ -100,7 +100,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -119,7 +119,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -138,7 +138,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -157,7 +157,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -178,7 +178,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -200,7 +200,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -220,7 +220,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -233,7 +233,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -246,7 +246,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -261,7 +261,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -274,7 +274,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -289,7 +289,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -305,7 +305,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');