use warnings;
use Test::More;
+use Test::Exception;
-BEGIN {
- eval "use Test::Output;";
- plan skip_all => "Test::Output is required for this test" if $@;
- plan tests => 1;
-}
+lives_ok {
+ eval 'use Moose';
+} "export to main";
-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' );
+isa_ok( main->meta, "Moose::Meta::Class" );
+
+isa_ok( main->new, "main");
+isa_ok( main->new, "Moose::Object" );
+
+done_testing;