[Module-build-checkins] Module-Build/t extend.t,1.13,1.14
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-04-21 01:53:06
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13003/t Modified Files: extend.t Log Message: Fix a subclass-of-subclass bug in subclass() Index: extend.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- extend.t 14 Apr 2005 16:58:22 -0000 1.13 +++ extend.t 21 Apr 2005 01:52:58 -0000 1.14 @@ -7,7 +7,7 @@ require $common_pl; } -use Test::More tests => 50; +use Test::More tests => 52; use Module::Build; ok 1; @@ -29,6 +29,16 @@ $build->dispatch('realclean'); +# Make sure the subclass can be subclassed +my $build2class = ref($build)->subclass + ( + code => "sub ACTION_loop2 {}", + class => 'MBB', + ); +can_ok( $build2class, 'ACTION_loop' ); +can_ok( $build2class, 'ACTION_loop2' ); + + { # Make sure globbing works in filenames $build->test_files('*t*'); |