[catagits/Catalyst-Authentication-Store-LDAP.git] / t / 06-user_autoload.t

use strict;
use warnings;
use Test::More;

use Catalyst::Authentication::Store::LDAP::User;

my $message = 'I exist';

{
    package TestUser;
    use base 'Catalyst::Authentication::Store::LDAP::User';
    sub has_attribute {
        return unless pop eq 'exists';
        return $message;
    }
}

my $o = bless {}, 'TestUser';

is($o->exists, $message, 'AUTOLOAD proxies ok');

ok(my $meth = $o->can('exists'), 'can returns true');

is($o->$meth, $message, 'can returns right coderef');

done_testing;
Commit	Line	Data
17cead9e	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use Catalyst::Authentication::Store::LDAP::User;
	6
	7	my $message = 'I exist';
	8
	9	{
	10	package TestUser;
	11	use base 'Catalyst::Authentication::Store::LDAP::User';
	12	sub has_attribute {
	13	return unless pop eq 'exists';
	14	return $message;
	15	}
	16	}
	17
	18	my $o = bless {}, 'TestUser';
	19
	20	is($o->exists, $message, 'AUTOLOAD proxies ok');
	21
	22	ok(my $meth = $o->can('exists'), 'can returns true');
	23
	24	is($o->$meth, $message, 'can returns right coderef');
	25
e385da71	26	done_testing;