[Module-build-checkins] Module-Build/t extend.t,1.13,1.14

[Ken W. <kwi...@us...>]

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