Make coercion work for parameterized types
[gitmo/Mouse.git] / t / 038-main.t
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