[gitmo/Moose.git] / t / 010_basics / 016_load_into_main.t

#!/usr/bin/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_like( sub { package main; eval 'use Moose' },
             qr/\QMoose does not export its sugar to the 'main' package/,
             'Moose warns when loaded from the main package' );

stderr_like( sub { package main; eval 'use Moose::Role' },
             qr/\QMoose::Role does not export its sugar to the 'main' package/,
             'Moose::Role warns when loaded from the main package' );
Commit	Line	Data
7ff56534	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
3d659f7f	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	}
7ff56534	12
eedb62c7	13	stderr_like( sub { package main; eval 'use Moose' },
	14	qr/\QMoose does not export its sugar to the 'main' package/,
	15	'Moose warns when loaded from the main package' );
f967bf02	16
eedb62c7	17	stderr_like( sub { package main; eval 'use Moose::Role' },
	18	qr/\QMoose::Role does not export its sugar to the 'main' package/,
	19	'Moose::Role warns when loaded from the main package' );