t/200_combined_in_roles.t

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