[gitmo/Moose.git] / t / 010_basics / 016_load_into_main.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Exception;

lives_ok {
    eval 'use Moose';
} "export to main";

isa_ok( main->meta, "Moose::Meta::Class" );

isa_ok( main->new, "main");
isa_ok( main->new, "Moose::Object" );

done_testing;
Commit	Line	Data
7ff56534	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
a28e50e4	6	use Test::More;
d5733154	7	use Test::Exception;
7ff56534	8
d5733154	9	lives_ok {
	10	eval 'use Moose';
	11	} "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" );
f967bf02	17
a28e50e4	18	done_testing;