Changelogging

[gitmo/Mouse.git] / t / 060_compat / 002_moose_respects_base.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;
$TODO = q{Mouse is not yet completed};
use Test::Exception;


=pod

This test demonstrates that Mouse will respect
a previously set @ISA using use base, and not
try to add Mouse::Object to it.

However, this is extremely order sensitive as
this test also demonstrates.

=cut

{
    package Foo;
    use strict;
    use warnings;

    sub foo { 'Foo::foo' }

    package Bar;
    use base 'Foo';
    use Mouse;

    sub new { (shift)->meta->new_object(@_) }

    package Baz;
    use Mouse;
    use base 'Foo';
}

my $bar = Bar->new;
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');
ok(!$bar->isa('Mouse::Object'), '... Bar is not Mouse::Object subclass');

my $baz = Baz->new;
isa_ok($baz, 'Baz');
isa_ok($baz, 'Foo');
isa_ok($baz, 'Mouse::Object');

done_testing;