Changelogging
[gitmo/Mouse.git] / t / 010_basics / 016_load_into_main.t
old mode 100755 (executable)
new mode 100644 (file)
index 58737b7..6e8de44
@@ -1,19 +1,21 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 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;
-}
+use Test::Exception;
 
-stderr_like( sub { package main; eval 'use Mouse' },
-             qr/\QMouse does not export its sugar to the 'main' package/,
-             'Mouse warns when loaded from the main package' );
+lives_ok {
+    eval 'use Mouse';
+} "export to main";
 
-stderr_like( sub { package main; eval 'use Mouse::Role' },
-             qr/\QMouse::Role does not export its sugar to the 'main' package/,
-             'Mouse::Role warns when loaded from the main package' );
+isa_ok( main->meta, "Mouse::Meta::Class" );
+
+isa_ok( main->new, "main");
+isa_ok( main->new, "Mouse::Object" );
+
+done_testing;