/[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

Annotation of /t/10-ldap.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 36 - (hide annotations)
Sun Mar 30 00:02:18 2008 UTC (14 years, 3 months ago) by dpavlin
File MIME type: application/x-troff
File size: 424 byte(s)
move LDAP stuff in own package
1 dpavlin 36 #!/usr/bin/env perl
2     use warnings;
3     use strict;
4    
5     =head1 DESCRIPTION
6    
7     test LDAP module
8    
9     =cut
10    
11     use Jifty::Test tests => 5;
12    
13     use_ok('A3C::LDAP');
14    
15     ok(
16     my $msg = A3C::LDAP->search(
17     base => 'dc=skole,dc=hr',
18     filter => '(objectClass=hrEduOrg)',
19     )
20     ), 'search';
21    
22     diag 'code: ', $msg->code, ' count: ', $msg->count;
23    
24     isa_ok( $msg, 'Net::LDAP::Search' );
25    
26     is( $msg->code, 0, 'code' );
27    
28     cmp_ok( $msg->count, '>', 1000, 'count' );
29    

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26