t/basics/load_into_main.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Fatal;
   8
   9 is( exception {
  10     eval 'use Moose';
  11 }, undef, "export to main" );
  12
  13 isa_ok( main->meta, "Moose::Meta::Class" );
  14
  15 isa_ok( main->new, "main");
  16 isa_ok( main->new, "Moose::Object" );
  17
  18 done_testing;