t/200_combined_in_roles.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4 use Test::Fatal;
   5
   6 {
   7     package ClassOne;
   8     use Moose::Role;
   9     use MooseX::Storage;
  10 }
  11 {
  12     package ClassTwo;
  13     use Moose::Role;
  14     use MooseX::Storage;
  15 }
  16
  17 is( exception {
  18     package CombineClasses;
  19     use Moose;
  20     with qw/ClassOne ClassTwo/;
  21 }, undef, 'Can include two roles which both use MooseX::Storage');
  22