t/101_argv_bug.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 3;
   5
   6 use MooseX::Getopt;
   7
   8 {
   9     package App;
  10     use Moose;
  11
  12     with 'MooseX::Getopt';
  13
  14     has 'length' => (
  15         is      => 'ro',
  16         isa     => 'Int',
  17         default => 24,
  18     );
  19
  20     has 'verbose' => (
  21         is     => 'ro',
  22         isa    => 'Bool',
  23         default => 0,
  24     );
  25     no Moose;
  26 }
  27
  28 {
  29     my $app = App->new_with_options(argv => [ '--verbose', '--length', 50 ]);
  30     isa_ok($app, 'App');
  31
  32     ok($app->verbose, '... verbosity is turned on as expected');
  33     is($app->length, 50, '... length is 50 as expected');
  34 }
  35