Test program that shows classes that do not call their BUILD when subclassed

Perl6-BUILD-caller.txt

$ perl6 -e 'role Thrower { submethod BUILD(|c) { die; } }; use Test; for <Any Hash Set Int List Routine Mu> -> $name { my $type = ::($name); my $thing = $type.^mixin(Thrower); dies-ok {$thing.new }, "Expect BUILD on ({$thing.perl})" }'
ok 1 - Expect BUILD on (Any+{Thrower})
not ok 2 - Expect BUILD on (Hash+{Thrower})

# Failed test 'Expect BUILD on (Hash+{Thrower})'
# at -e line 1
not ok 3 - Expect BUILD on (Set+{Thrower})

# Failed test 'Expect BUILD on (Set+{Thrower})'
# at -e line 1
ok 4 - Expect BUILD on (Int+{Thrower})
not ok 5 - Expect BUILD on (List+{Thrower})

# Failed test 'Expect BUILD on (List+{Thrower})'
# at -e line 1
ok 6 - Expect BUILD on (Routine+{Thrower})
ok 7 - Expect BUILD on (Mu+{Thrower})