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