Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^1: Testing Wrapped LDAP Classes

by yulivee07 (Sexton)
on Dec 06, 2016 at 11:13 UTC ( [id://1177301] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub search_ldap {                                                     
    +                                                                     
    +                                                                 
        my ( $self, $ldap ) = @_; 
    ...
        return $ldap;
     
    }
    
  2. or download this
    my $m = Mock::Sub->new;                 
    my $ldap = Utils::Ldap::CompanyLdap->new;                             
    +                                                                     
    +                                                                     
    +       
    ...
                                         
    is $mocked_sub->called, 1, "searchUser() called ok";