* MooseX::Getopt: ARGV and extra_argv are deletaged from MooseX::Getopt::Session.

[gitmo/MooseX-Getopt.git] / t / 002_custom_option_type.t

diff --git a/t/002_custom_option_type.t b/t/002_custom_option_type.t
index 3ccdc7e..ce4f9b8 100644 (file)
--- a/t/002_custom_option_type.t
+++ b/t/002_custom_option_type.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 21;
+use Test::More tests => 31;
 
 BEGIN {
     use_ok('MooseX::Getopt');
@@ -34,7 +34,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 };
@@ -45,7 +45,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');
@@ -60,7 +60,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             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');
@@ -78,7 +78,7 @@ foreach my $parser_name (qw(MooseX::Getopt::Parser::Long MooseX::Getopt::Parser:
             local @ARGV = ('--nums', 3, '--nums', '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');