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