Commit | Line | Data |
fde8e43f |
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; |