X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F016_load_into_main.t;h=419872167007752d23ad09722ddf004d624ab47a;hb=b558f8a652d9137478278100dd94c3222a566d49;hp=683ae4bc8e1de6f41a31b3edcc09f9c7a87351de;hpb=f967bf02b15e00825e3d96467e2c82a0e5371ba8;p=gitmo%2FMoose.git

diff --git a/t/010_basics/016_load_into_main.t b/t/010_basics/016_load_into_main.t
index 683ae4b..4198721 100644
--- a/t/010_basics/016_load_into_main.t
+++ b/t/010_basics/016_load_into_main.t
@@ -4,17 +4,15 @@ use strict;
 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 => 2;
-}
+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" );
 
-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->new, "main");
+isa_ok( main->new, "Moose::Object" );
+
+done_testing;