use strict;
use warnings;
-use Test::More tests => 2;
-use Test::Output;
+use Test::More;
+use Test::Exception;
-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' );
+lives_ok {
+ eval 'use Moose';
+} "export to main";
-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' );
+isa_ok( main->meta, "Moose::Meta::Class" );
+
+isa_ok( main->new, "main");
+isa_ok( main->new, "Moose::Object" );
+
+done_testing;