Re^2: Testing Wrapped LDAP Classes

[yulivee07]

Update:
The Ldap Object looks like this before the searchUser (some details obfuscated):

$VAR1 = bless( {
                 'OPT' => {
                            'base' => somebase,
                            'idprefix' => 'cn',
                            'userid' => 'admin',
                            'charset' => 'ISO-8859-15',
                            'bindretry' => '3',
                            'ldaps' => 1,
                            'timeout' => '60',
                            'server' => someip,
                            'waitretry' => '5',
                           }
               }, 'Utils::Ldap::CompanyLdap' );

And it looks like that after the searchUser:

bless( {
   's_result' => bless( {
      'parent' => bless( {
         'net_ldap_version' => '3',
         'net_ldap_scheme' => 'ldaps',
         'net_ldap_debug' => 0,
         'net_ldap_onerror' => sub { "DUMMY" },
         'net_ldap_host' => someip,
         'net_ldap_uri' => someip,
         'net_ldap_resp' => {},
         'net_ldap_async' => 0,
         'net_ldap_port' => 636,
         'net_ldap_refcnt' => 0
         }, 'Net::LDAPS' ),
            'entries' => [
               bless( {                                               
+                                                                     
+                                
                  'changes' => [],
                  'changetype' => 'modify',
                  'asn' => {
                      'objectName' => 'uid=bla,ou=People,ou=foo,dc=bar
+,dc=baz,dc=com',
                      'attributes' => [
                         {'type' => 'uid',   'vals' => [ someuid ] },
                         {'type' => 'cnum',  'vals' => [ 'L07345897' ]
+ },
                         {'type' => 'freeze','vals' => [ 'false' ] },
                         {'type' => 'dn',    'vals' => ['uid=bla,c=us,
+ou=otherldap,o=baz.com' ] },
                         {'type' => 'email', 'vals' => [ [e-mail]'] },
                                       ]
                           }
                        }, 'Net::LDAP::Entry' ),
                          ],
           'errorMessage' => '',
           'ctrl_hash' => undef,
           'resultCode' => 0,
           'callback' => undef,
           'matchedDN' => '',
           'mesgid' => 2,
           'controls' => undef,
           'raw' => undef
           }, 'Net::LDAP::Search' ),
     'BIND' => 0,
     'errors' => '',
     'error' => '',
      'OPT' => {
               'base' => somebase,
               'idprefix' => 'cn',
               'userid' => 'admin',
               'charset' => 'ISO-8859-15',
               'bindretry' => 3,
               'ldaps' => 1,
               'timeout' => '60',
               'server' => someip,
               'waitretry' => '5',
               },
   }, 'Utils::Ldap::CompanyLdap' );

The 'entries' contain all the userids, I have just added one to demonstrate. Normally there would be more.