[gitmo/Mouse.git] / t / 001_mouse / 038-main.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

BEGIN {
    eval "use Test::Output;";
    plan skip_all => "Test::Output is required for this test" if $@;
    plan tests => 2;
}

stderr_is(
    sub { package main; eval 'use Mouse' },
    "Mouse does not export its sugar to the 'main' package.\n",
    'Mouse warns when loaded from the main package',
);

stderr_is(
    sub { package main; eval 'use Mouse::Role' },
    "Mouse::Role does not export its sugar to the 'main' package.\n",
    'Mouse::Role warns when loaded from the main package',
);
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