t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4
   5 {
   6     package My::Role;
   7     use Moose::Role;
   8 }
   9 {
  10     package SomeClass;
  11     use Moose -traits => 'My::Role';
  12 }
  13 {
  14     package SubClassUseBase;
  15     use base qw/SomeClass/;
  16 }
  17 {
  18     package SubSubClassUseBase;
  19     use Moose;
  20     use Test::More;
  21     use Test::Exception;
  22     lives_ok {
  23         extends 'SubClassUseBase';
  24     } 'Can extend non-moose class whos parent class is a Moose class with a meta role';
  25 }
  26