[gitmo/Moo.git] / t / buildall.t

use strictures 1;
use Test::More;

my @ran;

{
  package Foo; use Class::Tiny; sub BUILD { push @ran, 'Foo' }
  package Bar; use Class::Tiny; extends 'Foo'; sub BUILD { push @ran, 'Bar' }
  package Baz; use Class::Tiny; extends 'Bar';
  package Quux; use Class::Tiny; extends 'Baz'; sub BUILD { push @ran, 'Quux' }
}

my $o = Quux->new;

is(ref($o), 'Quux', 'object returned');
is_deeply(\@ran, [ qw(Foo Bar Quux) ], 'BUILDs ran in order');

done_testing;
Commit	Line	Data
098a367b	1	use strictures 1;
	2	use Test::More;
	3
	4	my @ran;
	5
	6	{
	7	package Foo; use Class::Tiny; sub BUILD { push @ran, 'Foo' }
	8	package Bar; use Class::Tiny; extends 'Foo'; sub BUILD { push @ran, 'Bar' }
	9	package Baz; use Class::Tiny; extends 'Bar';
	10	package Quux; use Class::Tiny; extends 'Baz'; sub BUILD { push @ran, 'Quux' }
	11	}
	12
	13	my $o = Quux->new;
	14
	15	is(ref($o), 'Quux', 'object returned');
	16	is_deeply(\@ran, [ qw(Foo Bar Quux) ], 'BUILDs ran in order');
	17
	18	done_testing;