added default {} keyword

[gitmo/Moose.git] / t / 021_moose_w_metaclass.t

#!/usr/bin/perl

use strict;
use warnings;

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

BEGIN {
    use_ok('Moose');           
}

=pod

This test demonstrates that Moose will respect 
a metaclass previously set with the metaclass 
pragma. 

It also checks an error condition where that 
metaclass must be a Moose::Meta::Class subclass
in order to work.

=cut


{
    package Foo::Meta;
    use strict;
    use warnings;

    use base 'Moose::Meta::Class';
    
    package Foo;
    use strict;
    use warnings;
    use metaclass 'Foo::Meta';
    ::use_ok('Moose');
}

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

{
    package Bar::Meta;
    use strict;
    use warnings;
    
    use base 'Class::MOP::Class';
    
    package Bar;
    use strict;
    use warnings;
    use metaclass 'Bar::Meta';
    eval 'use Moose;';
    ::ok($@, '... could not load moose without correct metaclass');
    ::like($@, 
        qr/^You already have a \&meta function\, but it does not return a Moose\:\:Meta\:\:Class/, 
        '... got the right error too');
}