/[A3C]/t/10-ldap.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/10-ldap.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 39 by dpavlin, Sun Mar 30 00:02:18 2008 UTC revision 40 by dpavlin, Sun Mar 30 15:02:55 2008 UTC
# Line 8  test LDAP module Line 8  test LDAP module
8    
9  =cut  =cut
10    
11  use Jifty::Test tests => 5;  use Jifty::Test tests => 16;
12    
13  use_ok('A3C::LDAP');  use_ok('A3C::LDAP');
14    
15    ok( my $ldap = A3C::LDAP->new, 'new' );
16    
17    isa_ok( $ldap, 'A3C::LDAP' );
18    
19  ok(  ok(
20          my $msg = A3C::LDAP->search(          $ldap->search(
21                  base    => 'dc=skole,dc=hr',                  base    => 'dc=skole,dc=hr',
22                  filter  => '(objectClass=hrEduOrg)',                  filter  => '(objectClass=hrEduOrg)',
23          )          )
24  ), 'search';  ), 'search';
25    
26  diag 'code: ', $msg->code, ' count: ', $msg->count;  isa_ok( $ldap, 'A3C::LDAP' );
   
 isa_ok( $msg, 'Net::LDAP::Search' );  
   
 is( $msg->code, 0, 'code' );  
27    
28  cmp_ok( $msg->count, '>', 1000, 'count' );  cmp_ok( $ldap->count, '>', 1000, 'count' );
29    
30    foreach my $i ( 1 .. 10 ) {
31            ok( my $entry = $ldap->next, "next $i" );
32    #       $entry->dump;
33    }

Legend:
Removed from v.39  
changed lines
  Added in v.40

  ViewVC Help
Powered by ViewVC 1.1.26