[gitmo/Moose.git] / t / basics / load_into_main.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

is( exception {
    eval 'use Moose';
}, undef, "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;
b10dde3a	7	use Test::Fatal;
7ff56534	8
b10dde3a	9	is( exception {
d5733154	10	eval 'use Moose';
b10dde3a	11	}, undef, "export to main" );
d5733154	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;