t/070_native_traits/010_array_from_role.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 use Test::Exception;
  11
  12 {
  13     package Foo;
  14     use Mouse;
  15
  16     has 'bar' => ( is => 'rw' );
  17
  18     package Stuffed::Role;
  19     use Mouse::Role;
  20
  21     has 'options' => (
  22         traits => ['Array'],
  23         is     => 'ro',
  24         isa    => 'ArrayRef[Foo]',
  25     );
  26
  27     package Bulkie::Role;
  28     use Mouse::Role;
  29
  30     has 'stuff' => (
  31         traits  => ['Array'],
  32         is      => 'ro',
  33         isa     => 'ArrayRef',
  34         handles => {
  35             get_stuff => 'get',
  36         }
  37     );
  38
  39     package Stuff;
  40     use Mouse;
  41
  42     ::lives_ok{ with 'Stuffed::Role';
  43         } '... this should work correctly';
  44
  45     ::lives_ok{ with 'Bulkie::Role';
  46         } '... this should work correctly';
  47 }
  48
  49 done_testing;