/[virtual-ldap]/t/ldap-koha.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/ldap-koha.t

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

revision 77 by dpavlin, Tue Feb 23 01:28:09 2010 UTC revision 89 by dpavlin, Thu May 6 06:22:09 2010 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 75;  use Test::More tests => 76;
7  use Data::Dump qw(dump);  use Data::Dump qw(dump);
8    
9  BEGIN {  BEGIN {
10          use_ok 'Net::LDAP';          use_ok 'Net::LDAP';
11  }  }
12    
13    our $config;
14    ok( require( ( shift @ARGV || 't/config.pl' ) ), 'config.pl' );
15    
16    diag "config ",dump($config);
17    
18  sub ldap_check_error {  sub ldap_check_error {
19          my $o = shift;          my $o = shift;
20          ok( ! $o->code, 'no errror' );          ok( ! $o->code, 'no errror' );
# Line 32  sub check_search_attributes { Line 37  sub check_search_attributes {
37    
38  sub search {  sub search {
39          my ($ldap,$search) = @_;          my ($ldap,$search) = @_;
40          ok( my $search = $ldap->search( filter => $search ), "search $search" );          ok( my $result = $ldap->search( filter => $search ), "search $search" );
41          ldap_check_error $search;          ldap_check_error $result;
42          ok( $search->entries, 'have results' );          ok( $result->entries, 'have results' );
43          return $search;          return $result;
44  }  }
45    
46  foreach my $search ( qw/  foreach my $search ( qw/
Legend:
Removed from v.77  
changed lines
  Added in v.89
  ViewVC Help
Powered by ViewVC 1.1.26