t/buildall.t

   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');