[catagits/Web-Simple.git] / t / buildall.t

use Test::More 'no_plan';

use Web::Simple 'Fork';

my @run;

sub Fork::BUILD { push @run, [ FORK => $_[1] ] }

@Knife::ISA = 'Fork';

@Spoon::ISA = 'Knife';

sub Spoon::BUILD { push @run, [ SPOON => $_[1] ] }

bless({}, 'Fork')->BUILDALL('data');

is_deeply(\@run, [ [ FORK => 'data' ] ], 'Single class ok');

@run = ();

bless({}, 'Spoon')->BUILDALL('data');

is_deeply(\@run, [ [ FORK => 'data' ], [ SPOON => 'data' ] ], 'Subclass ok');
Commit	Line	Data
14ebaf8a	1	use Test::More 'no_plan';
	2
	3	use Web::Simple 'Fork';
	4
	5	my @run;
	6
	7	sub Fork::BUILD { push @run, [ FORK => $_[1] ] }
	8
	9	@Knife::ISA = 'Fork';
	10
	11	@Spoon::ISA = 'Knife';
	12
	13	sub Spoon::BUILD { push @run, [ SPOON => $_[1] ] }
	14
	15	bless({}, 'Fork')->BUILDALL('data');
	16
	17	is_deeply(\@run, [ [ FORK => 'data' ] ], 'Single class ok');
	18
	19	@run = ();
	20
	21	bless({}, 'Spoon')->BUILDALL('data');
	22
	23	is_deeply(\@run, [ [ FORK => 'data' ], [ SPOON => 'data' ] ], 'Subclass ok');