use warnings;
use strict;

use lib '.';

use Mock::Sub;
use Test::More;
use Utils::Ldap::CompanyLdap;

my $m = Mock::Sub->new;
my $ldap = Utils::Ldap::CompanyLdap->new;

my $mocked_sub = $m->mock(
    'Utils::Ldap::CompanyLdap::searchGetEntries'
);
$mocked_sub->return_value(qw(steve mike dave));

read_users();

is $mocked_sub->called, 1, "searchGetEntries() called ok";

sub read_users { 
    for my $entry ($ldap->searchGetEntries()){
        print "$entry\n";
    }
}

done_testing();