# -*- perl -*-

# t/001_load.t - check module loading and create testing directory

use Test::More tests => 4;

BEGIN { use_ok( 'Method::Autoload' ); }

my $object;
$object=Method::Autoload->new(packages=>[qw{My::Bar My::Foo}]);
isa_ok ($object, 'Method::Autoload');

is($object->foo, "My::Bar::foo", 'AUTOLOAD from inline package');
is($object->bar, "My::Bar::bar", 'AUTOLOAD from inline package');

package My::Foo;
sub foo {"My::Foo::foo"};
1;

package My::Bar;
sub foo {"My::Bar::foo"};
sub bar {"My::Bar::bar"};
1;