diff --git a/Changes b/Changes index d387a68..414b65d 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,8 @@ Revision history for {{$dist->name}} {{$NEXT}} + - fix test that assumes option parsing is case-insensitive, which is no + longer true with Getopt::Long::Descriptive 0.097 0.61 2014-02-11 06:30:14Z - fix potentially-broken check-breaks test when a conflicting module fails to diff --git a/t/105_uc_bug_more.t b/t/105_uc_bug_more.t index e33566b..0c9a245 100644 --- a/t/105_uc_bug_more.t +++ b/t/105_uc_bug_more.t @@ -17,23 +17,23 @@ foreach my $role (qw/ my $meta = Moose::Meta::Class->create_anon_class( superclasses => ['Moose::Object'], ); - $meta->add_attribute('Debug', traits => ['Getopt'], isa => 'Bool', + $meta->add_attribute('debug', traits => ['Getopt'], isa => 'Bool', cmd_aliases => ['d'], is => 'ro'); $role->meta->apply($meta); - ok($meta->name->new_with_options({ argv => ['-d'] })->Debug, - "Debug was set for argv -d on $role"); + ok($meta->name->new_with_options({ argv => ['-d'] })->debug, + "debug was set for argv -d on $role"); { local @ARGV = ('-d'); - ok($meta->name->new_with_options()->Debug, - "Debug was set for ARGV on $role"); + ok($meta->name->new_with_options()->debug, + "debug was set for ARGV on $role"); } - ok($meta->name->new_with_options({ argv => ['--Debug'] })->Debug, - "Debug was set for argv --Debug on $role"); + ok($meta->name->new_with_options({ argv => ['--debug'] })->debug, + "debug was set for argv --debug on $role"); - ok($meta->name->new_with_options({ argv => ['--debug'] })->Debug, - "Debug was set for argv --debug on $role"); + ok($meta->name->new_with_options({ argv => ['--debug'] })->debug, + "debug was set for argv --debug on $role"); } done_testing;