[Openinteract-commits] CVS: SPOPS/t 40_ldap.t,1.10,1.11

[Chris W. <la...@us...>]

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',