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