autoloader.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..11\n";
# First we must set up some autoloader files
print FOO <<'EOT';
1;
1;
1;
# Let's define the package
require AutoLoader;
print "ok 1\n";
print "ok 2\n";
# Try an undefined method
eval {
};
print "ok 3\n";
# Used to be trouble with this
eval {
my $foo = new Foo;
die "oops";
};
print "not " unless $@ =~ /oops/;
print "ok 4\n";
# Pass regular expression variable to autoloaded function. This used
# to go wrong because AutoLoader used regular expressions to generate
# autoloaded filename.
"foo" =~ /(\w+)/;
print "ok 5\n";
print "ok 6\n";
print "ok 7\n";
print "ok 8\n";
print "ok 9\n";
# test recursive autoloads
package Foo;
BEGIN { b() }
sub a { print "ok 11\n"; }
1;
EOT
close(F);
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/bazmarkhian.al";
rmdir "$dir";
}