t/106_no_ignore_case.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 21;
   5 use Moose ();
   6 use Moose::Meta::Class;
   7
   8 foreach my $role (qw/
   9     MooseX::Getopt
  10     MooseX::Getopt::GLD
  11     MooseX::Getopt::Basic
  12 /) {
  13     Class::MOP::load_class($role);
  14
  15     my $meta = Moose::Meta::Class->create_anon_class(
  16         superclasses => ['Moose::Object'],
  17     );
  18     $meta->add_attribute('BigD', traits => ['Getopt'], isa => 'Bool',
  19         cmd_aliases => ['D'], is => 'ro');
  20     $meta->add_attribute('SmallD', traits => ['Getopt'], isa => 'Bool',
  21         cmd_aliases => ['d'], is => 'ro');
  22     $role->meta->apply($meta);
  23
  24     {
  25         my $obj = $meta->name->new_with_options(
  26                 { argv => ["-d"], no_ignore_case => 1}
  27             );
  28
  29         ok((! $obj->BigD), "BigD was not set for argv -d on $role");
  30         ok($obj->SmallD, "SmallD was set for argv -d on $role");
  31
  32     }
  33     ok($meta->name->new_with_options({ argv => ['-d'], no_ignore_case => 1})
  34             ->SmallD,
  35         "SmallD was set for argv -d on $role");
  36     {
  37         local @ARGV = ('-d');
  38         ok($meta->name->new_with_options()->SmallD,
  39             "SmallD was set for ARGV on $role");
  40     }
  41
  42     ok($meta->name->new_with_options({ argv => ['-D'], no_ignore_case => 1})
  43             ->BigD,
  44         "BigD was set for argv -d on $role");
  45
  46     {
  47         my $obj = $meta->name->new_with_options(
  48                 { argv => ['-D', "-d"], no_ignore_case => 1}
  49             );
  50
  51         ok($obj->BigD, "BigD was set for argv -D -d on $role");
  52         ok($obj->SmallD, "SmallD was set for argv -D -d on $role");
  53
  54     }
  55 }
  56