Commit | Line | Data |
60ad2cb7 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | BEGIN { |
8 | eval "use Test::Output;"; |
9 | plan skip_all => "Test::Output is required for this test" if $@; |
10 | plan tests => 2; |
11 | } |
12 | |
13 | stderr_like( sub { package main; eval 'use Mouse' }, |
14 | qr/\QMouse does not export its sugar to the 'main' package/, |
15 | 'Mouse warns when loaded from the main package' ); |
16 | |
17 | stderr_like( sub { package main; eval 'use Mouse::Role' }, |
18 | qr/\QMouse::Role does not export its sugar to the 'main' package/, |
19 | 'Mouse::Role warns when loaded from the main package' ); |