[gitmo/Moose.git] / t / 010_basic_class_setup.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 16;
use Test::Exception;

BEGIN {
    use_ok('Moose');           
}

{
    package Foo;
    use Moose;
}

can_ok('Foo', 'meta');
isa_ok(Foo->meta, 'Moose::Meta::Class');

ok(!Foo->meta->has_method('meta'), '... we get the &meta method from Moose::Object');
ok(Foo->isa('Moose::Object'), '... Foo is automagically a Moose::Object');

foreach my $function (qw(
						 extends
    	                 has 
	                     before after around
	                     blessed confess
						 type subtype as where
	                     )) {
    ok(!Foo->meta->has_method($function), '... the meta does not treat "' . $function . '" as a method');
}
Commit	Line	Data
bc1e29b5	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
a15dff8d	6	use Test::More tests => 16;
bc1e29b5	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose');
	11	}
	12
	13	{
	14	package Foo;
	15	use Moose;
	16	}
	17
	18	can_ok('Foo', 'meta');
	19	isa_ok(Foo->meta, 'Moose::Meta::Class');
	20
	21	ok(!Foo->meta->has_method('meta'), '... we get the &meta method from Moose::Object');
	22	ok(Foo->isa('Moose::Object'), '... Foo is automagically a Moose::Object');
	23
	24	foreach my $function (qw(
	25	extends
	26	has
	27	before after around
	28	blessed confess
a15dff8d	29	type subtype as where
bc1e29b5	30	)) {
	31	ok(!Foo->meta->has_method($function), '... the meta does not treat "' . $function . '" as a method');
	32	}
	33