[gitmo/Class-MOP.git] / t / 071_immutable_w_custom_metaclass.t

#!/usr/bin/perl

use strict;
use warnings;

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

BEGIN {
    use_ok('Class::MOP');
}

{
    package Meta::Baz;
    use strict;
    use warnings;
    use base 'Class::MOP::Class';
}

{
    package Bar;
    
    use strict;
    use warnings;
    use metaclass;           
    
    __PACKAGE__->meta->make_immutable;
    
    package Baz;
    
    use strict;
    use warnings;
    use metaclass 'Meta::Baz';    

    ::lives_ok {
        Baz->meta->superclasses('Bar');    
    } '... we survive the metaclass incompatability test';
}
Commit	Line	Data
373a16ae	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Class::MOP');
	11	}
	12
	13	{
	14	package Meta::Baz;
	15	use strict;
	16	use warnings;
	17	use base 'Class::MOP::Class';
	18	}
	19
	20	{
	21	package Bar;
	22
	23	use strict;
	24	use warnings;
	25	use metaclass;
	26
	27	__PACKAGE__->meta->make_immutable;
	28
	29	package Baz;
	30
	31	use strict;
	32	use warnings;
	33	use metaclass 'Meta::Baz';
	34
	35	::lives_ok {
	36	Baz->meta->superclasses('Bar');
	37	} '... we survive the metaclass incompatability test';
	38	}
	39
	40
	41