unshift @INC, $dir;
}
-use Test::More tests => 13;
+use Test::More tests => 17;
# First we must set up some autoloader files
my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
EOT
close(BAZ);
+open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawilla.al' ))
+ or die "Can't open blech file: $!";
+print BLECH <<'EOT';
+package Foo;
+sub blechanawilla { compilation error (
+EOT
+close(BLECH);
+
+# This is just to keep the old SVR3 systems happy; they may fail
+# to find the above file so we duplicate it where they should find it.
+open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawil.al' ))
+ or die "Can't open blech file: $!";
+print BLECH <<'EOT';
+package Foo;
+sub blechanawilla { compilation error (
+EOT
+close(BLECH);
+
# Let's define the package
package Foo;
require AutoLoader;
AutoLoader->import( 'AUTOLOAD' );
sub new { bless {}, shift };
+sub foo;
+sub bar;
+sub bazmarkhianish;
package main;
my $foo = new Foo;
+my $result = $foo->can( 'foo' );
+ok( $result, 'can() first time' );
is( $foo->foo, 'foo', 'autoloaded first time' );
is( $foo->foo, 'foo', 'regular call' );
+is( $result, \&Foo::foo, 'can() returns ref to regular installed sub' );
eval {
$foo->will_fail;
};
like( $@, qr/^Can't locate/, 'undefined method' );
+$result = $foo->can( 'will_fail' );
+ok( ! $result, 'can() should fail on undefined methods' );
+
# Used to be trouble with this
eval {
my $foo = new Foo;
is( $foo->bazmarkhianish($1), 'foo', 'for any method call' );
is( $foo->bazmarkhianish($1), 'foo', '(again)' );
+# Used to retry long subnames with shorter filenames on any old
+# exception, including compilation error. Now AutoLoader only
+# tries shorter filenames if it can't find the long one.
+eval {
+ $foo->blechanawilla;
+};
+like( $@, qr/syntax error/, 'require error propagates' );
+
# test recursive autoloads
open(F, '>', File::Spec->catfile( $fulldir, 'a.al'))
or die "Cannot make 'a' file: $!";
# cleanup
END {
return unless $dir && -d $dir;
- rmtree $fulldir;
+ rmtree $dir;
}