|
From: Chris W. <la...@us...> - 2001-10-26 03:18:40
|
Update of /cvsroot/openinteract/SPOPS/t
In directory usw-pr-cvs1:/tmp/cvs-serv29484
Modified Files:
40_ldap.t
Log Message:
comments
Index: 40_ldap.t
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/t/40_ldap.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** 40_ldap.t 2001/09/20 14:56:17 1.10
--- 40_ldap.t 2001/10/26 03:18:37 1.11
***************
*** 88,96 ****
# Tests: 7 - 8
! my $ldap = Net::LDAP->new( $config->{LDAP_host},
port => $config->{LDAP_port} );
ok( $ldap, 'Connect to directory' );
! my @bind_args = ( $config->{LDAP_bind_dn} )
! ? ( $config->{LDAP_bind_dn}, password => $config->{LDAP_bind_password} )
: ();
my $ldap_msg = $ldap->bind( @bind_args );
--- 88,96 ----
# Tests: 7 - 8
! my $ldap = Net::LDAP->new( $config->{LDAP_host},
port => $config->{LDAP_port} );
ok( $ldap, 'Connect to directory' );
! my @bind_args = ( $config->{LDAP_bind_dn} )
! ? ( $config->{LDAP_bind_dn}, password => $config->{LDAP_bind_password} )
: ();
my $ldap_msg = $ldap->bind( @bind_args );
***************
*** 224,228 ****
is( scalar @USER_DATA, $iter_count, 'Iterate through objects' );
! # Now add two groups
my $public_group = eval { $GROUP_LDAP_CLASS->new({ cn => 'public',
--- 224,231 ----
is( scalar @USER_DATA, $iter_count, 'Iterate through objects' );
! # Now add two groups - it looks like Convert::ASN1 whines a little
! # under -w because we're setting uniquemember to an empty list,
! # but we have to do that so the group will meet its schema
! # requirements...
my $public_group = eval { $GROUP_LDAP_CLASS->new({ cn => 'public',
|