[gitmo/Moose.git] / t / 022_moose_respects_base.t

#!/usr/bin/perl

use strict;
use warnings;

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

BEGIN {
    use_ok('Moose');           
}

{
    package Foo;
    use strict;
    use warnings;
    
    sub foo { 'Foo::foo' }
    
    package Bar;
    use strict;
    use warnings;
    use Moose;
    
    use base 'Foo';
}

my $bar = Bar->new;
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');
Commit	Line	Data
7eaef7ad	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 3;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose');
	11	}
	12
	13	{
	14	package Foo;
	15	use strict;
	16	use warnings;
	17
	18	sub foo { 'Foo::foo' }
	19
	20	package Bar;
	21	use strict;
	22	use warnings;
	23	use Moose;
	24
	25	use base 'Foo';
	26	}
	27
	28	my $bar = Bar->new;
	29	isa_ok($bar, 'Bar');
	30	isa_ok($bar, 'Foo');