t/105_uc_bug_more.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use Test::More tests => 13;
   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('Debug', traits => ['Getopt'], isa => 'Bool',
  21         cmd_aliases => ['d'], is => 'ro');
  22     $role->meta->apply($meta);
  23
  24     ok($meta->name->new_with_options({ argv => ['-d'] })->Debug,
  25         "Debug was set for argv -d on $role");
  26     {
  27         local @ARGV = ('-d');
  28         ok($meta->name->new_with_options()->Debug,
  29             "Debug was set for ARGV on $role");
  30     }
  31
  32     ok($meta->name->new_with_options({ argv => ['--Debug'] })->Debug,
  33         "Debug was set for argv --Debug on $role");
  34
  35     ok($meta->name->new_with_options({ argv => ['--debug'] })->Debug,
  36         "Debug was set for argv --debug on $role");
  37 }
  38