t/106_no_ignore_case.t

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