Moose-t-failing/030_roles/043_conflict_many_methods.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 use strict;
   6 use warnings;
   7
   8 use Test::More;
   9 $TODO = q{Mouse is not yet completed};
  10 use Test::Exception;
  11
  12 {
  13     package Bomb;
  14     use Mouse::Role;
  15
  16     sub fuse { }
  17     sub explode { }
  18
  19     package Spouse;
  20     use Mouse::Role;
  21
  22     sub fuse { }
  23     sub explode { }
  24
  25     package Caninish;
  26     use Mouse::Role;
  27
  28     sub bark { }
  29
  30     package Treeve;
  31     use Mouse::Role;
  32
  33     sub bark { }
  34 }
  35
  36 {
  37     package PracticalJoke;
  38     use Mouse;
  39
  40     ::throws_ok {
  41         with 'Bomb', 'Spouse';
  42     } qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/;
  43
  44     ::throws_ok {
  45         with (
  46             'Bomb', 'Spouse',
  47             'Caninish', 'Treeve',
  48         );
  49     } qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/;
  50 }
  51
  52 done_testing;