7 use Catalyst::Authentication::Store::LDAP::Backend;
11 my $server = LDAPTest::spawn_server();
13 my $back = Catalyst::Authentication::Store::LDAP::Backend->new(
14 { 'ldap_server' => LDAPTest::server_host(),
15 'binddn' => 'anonymous',
16 'bindpw' => 'dontcarehow',
18 'user_basedn' => 'ou=foobar',
19 'user_filter' => '(&(objectClass=person)(uid=%s))',
20 'user_scope' => 'one',
21 'user_field' => 'uid',
26 my $user = $back->find_user( { username => 'somebody' } );
27 is($user->for_session, 'somebody', 'persist_in_session unset: for_session ok');
29 my $back_persist_username = Catalyst::Authentication::Store::LDAP::Backend->new(
30 { ldap_server => LDAPTest::server_host(),
31 binddn => 'anonymous',
32 bindpw => 'dontcarehow',
34 user_basedn => 'ou=foobar',
35 user_filter => '(&(objectClass=person)(uid=%s))',
39 persist_in_session => 'username',
42 $user = $back_persist_username->find_user( { username => 'somebody' } );
43 is($user->for_session, 'somebody',
44 "persist_in_session 'username': for_session ok");
46 my $back_persist_all = Catalyst::Authentication::Store::LDAP::Backend->new(
47 { ldap_server => LDAPTest::server_host(),
48 binddn => 'anonymous',
49 bindpw => 'dontcarehow',
51 user_basedn => 'ou=foobar',
52 user_filter => '(&(objectClass=person)(uid=%s))',
56 persist_in_session => 'all',
59 $user = $back_persist_all->find_user( { username => 'somebody' } );
60 is_deeply($user->for_session,
62 persist_in_session => 'all',
66 "persist_in_session 'all': for_session ok");