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

diff --git a/t/005_strict.t b/t/005_strict.t
index d706747..ead60f0 100644
--- a/t/005_strict.t
+++ b/t/005_strict.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 27;
+use Test::More tests => 40;
 use Test::Exception;
 
 BEGIN {
@@ -80,7 +80,7 @@ BEGIN {
 
 }
 
-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 };
@@ -91,7 +91,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');
@@ -112,7 +112,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
 
             throws_ok {
                 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');
@@ -126,7 +126,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
 
             throws_ok {
                 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');