use strict;
use warnings;
use Test::More;
require 'MyCode.pl';
*Net::LDAP::bind = \&ldapbind;
*Net::LDAP::new = \&ldapnew;
MyCode::bindToLDAP("hostname","port","cn=binddn","password");

sub ldapnew
{
	my $host = shift;
	cmp_ok($host,"hostname:port","Check that Net::LDAP::new receives the right params");
}

sub ldapbind
{
	my %params = @_;
	my %comparison =	{
					dn	=>	"cn=binddn",
					password=>	"password",
				};
	is_deeply(\%params,\%comparison,"Check that Net::LDAP::bind gets the right params");
}