X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fautoloader.t;h=3bf690bbdd96df9dd9263fa954e317c6ab38478b;hb=16579924bacbac87c34f3081a8f33dd89ca0fbcb;hp=47cace2024b0e24e4198403b183f7b755dbd1ead;hpb=853846ea710f8feaed8c98b358bdc8967dd522d2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/autoloader.t b/t/lib/autoloader.t
index 47cace2..3bf690b 100755
--- a/t/lib/autoloader.t
+++ b/t/lib/autoloader.t
@@ -6,7 +6,7 @@ BEGIN {
     unshift @INC, ("./$dir", "../lib");
 }
 
-print "1..9\n";
+print "1..11\n";
 
 # First we must set up some autoloader files
 mkdir $dir, 0755            or die "Can't mkdir $dir: $!";
@@ -88,12 +88,33 @@ print "ok 8\n";
 print "not " unless $foo->bazmarkhianish($1) eq 'foo';
 print "ok 9\n";
 
+# test recursive autoloads
+open(F, ">$dir/auto/Foo/a.al") or die;
+print F <<'EOT';
+package Foo;
+BEGIN { b() }
+sub a { print "ok 11\n"; }
+1;
+EOT
+close(F);
+
+open(F, ">$dir/auto/Foo/b.al") or die;
+print F <<'EOT';
+package Foo;
+sub b { print "ok 10\n"; }
+1;
+EOT
+close(F);
+Foo::a();
+
 # cleanup
 END {
 return unless $dir && -d $dir;
 unlink "$dir/auto/Foo/foo.al";
 unlink "$dir/auto/Foo/bar.al";
 unlink "$dir/auto/Foo/bazmarkhian.al";
+unlink "$dir/auto/Foo/a.al";
+unlink "$dir/auto/Foo/b.al";
 rmdir "$dir/auto/Foo";
 rmdir "$dir/auto";
 rmdir "$dir";