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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Output;

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

stderr_is( sub { package main; eval 'use Moose::Role' },
           "Moose::Role does not export its sugar to the 'main' package.\n",
           '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
8b23f9f8	6	use Test::More tests => 2;
8b23f9f8	7	use Test::Output;
7ff56534	8
	9	stderr_is( sub { package main; eval 'use Moose' },
	10	"Moose does not export its sugar to the 'main' package.\n",
	11	'Moose warns when loaded from the main package' );
f967bf02	12
	13	stderr_is( sub { package main; eval 'use Moose::Role' },
	14	"Moose::Role does not export its sugar to the 'main' package.\n",
	15	'Moose::Role warns when loaded from the main package' );