#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use mop;

class FooMeta extends mop::class {
    method foo { 'FooMeta' }
}

class BarMeta extends mop::class {
    method foo { 'BarMeta' }
}

class Foo meta FooMeta { }

class Bar meta BarMeta { }

class Baz { }

class Foo::Sub extends Foo { }

class Foo::Sub2 extends Foo meta FooMeta { }

class Bar::Sub extends Bar { }

class Bar::Sub2 extends Bar meta BarMeta { }

class Baz::Sub extends Baz { }

isa_ok(mop::meta('Foo'), 'FooMeta');
ok(!mop::meta('Foo')->isa('BarMeta'));
isa_ok(mop::meta('Foo::Sub'), 'FooMeta');
ok(!mop::meta('Foo::Sub')->isa('BarMeta'));
isa_ok(mop::meta('Foo::Sub2'), 'FooMeta');
ok(!mop::meta('Foo::Sub2')->isa('BarMeta'));

isa_ok(mop::meta('Bar'), 'BarMeta');
ok(!mop::meta('Bar')->isa('FooMeta'));
isa_ok(mop::meta('Bar::Sub'), 'BarMeta');
ok(!mop::meta('Bar::Sub')->isa('FooMeta'));
isa_ok(mop::meta('Bar::Sub2'), 'BarMeta');
ok(!mop::meta('Bar::Sub2')->isa('FooMeta'));

isa_ok(mop::meta('Baz'), 'mop::class');
ok(!mop::meta('Baz')->isa('FooMeta'));
ok(!mop::meta('Baz')->isa('BarMeta'));
isa_ok(mop::meta('Baz::Sub'), 'mop::class');
ok(!mop::meta('Baz::Sub')->isa('FooMeta'));
ok(!mop::meta('Baz::Sub')->isa('BarMeta'));

eval "class Quux extends Foo meta BarMeta { }";
like($@, qr/Can't fix metaclass compatibility between Foo \(FooMeta\) and Quux \(BarMeta\)/);

done_testing;