trAvis - MANAGER

Edit File: moose_w_metaclass.t

#!/usr/bin/perl use strict; use warnings; use Test::More; =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/^Bar already has a metaclass, but it does not inherit Moose::Meta::Class/, '... got the right error too'); } done_testing;