t/100_bugs/016_inheriting_from_roles.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::Exception;
   8
   9
  10
  11 {
  12     package My::Role;
  13     use Mouse::Role;
  14 }
  15 {
  16     package My::Class;
  17     use Mouse;
  18
  19     ::throws_ok {
  20         extends 'My::Role';
  21     } qr/You cannot inherit from a Mouse Role \(My\:\:Role\)/,
  22     '... this croaks correctly';
  23 }