8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 27; |
use Jifty::Test tests => 29; |
12 |
|
use Data::Dump qw/dump/; |
13 |
|
|
14 |
use_ok('A3C::LDAP'); |
use_ok('A3C::LDAP'); |
15 |
|
|
17 |
|
|
18 |
isa_ok( $ldap, 'A3C::LDAP' ); |
isa_ok( $ldap, 'A3C::LDAP' ); |
19 |
|
|
20 |
|
isa_ok( $ldap->objectClass, 'HASH', 'have objectClass' ); |
21 |
|
isa_ok( $ldap->link, 'HASH', 'have link' ); |
22 |
|
|
23 |
|
diag "objectClass = ",dump( $ldap->objectClass ); |
24 |
|
diag "link = ",dump( $ldap->link ); |
25 |
|
|
26 |
ok( |
ok( |
27 |
$ldap->search( |
$ldap->search( |
28 |
base => 'dc=skole,dc=hr', |
base => 'dc=skole,dc=hr', |