You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdelibs/kabc/tests/testldapclient.cpp

162 lines
4.8 KiB

/* This file is part of the KDE project
Copyright (C) 2005 David Faure <faure@kde.org>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License version 2 as published by the Free Software Foundation.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
*/
#include "testldapclient.h"
#include <kapplication.h>
#include <kdebug.h>
#include <kcmdlineargs.h>
#include <tqeventloop.h>
#include <assert.h>
#include <stdlib.h>
int main(int argc, char *argv[])
{
TDEApplication::disableAutoDcopRegistration();
TDECmdLineArgs::init(argc,argv,"testldapclient", 0, 0, 0, 0);
TDEApplication app;
TestLDAPClient test;
test.setup();
test.runAll();
test.cleanup();
kdDebug() << "All tests OK." << endl;
return 0;
}
void TestLDAPClient::setup()
{
}
void TestLDAPClient::runAll()
{
testIntevation();
}
bool TestLDAPClient::check(const TQString& txt, TQString a, TQString b)
{
if (a.isEmpty())
a = TQString::null;
if (b.isEmpty())
b = TQString::null;
if (a == b) {
kdDebug() << txt << " : checking '" << a << "' against expected value '" << b << "'... " << "ok" << endl;
}
else {
kdDebug() << txt << " : checking '" << a << "' against expected value '" << b << "'... " << "KO !" << endl;
cleanup();
exit(1);
}
return true;
}
void TestLDAPClient::cleanup()
{
mClient = 0;
}
void TestLDAPClient::testIntevation()
{
kdDebug() << k_funcinfo << endl;
mClient = new LdapClient( this );
mClient->setHost( "ca.intevation.de" );
mClient->setPort( "389" );
mClient->setBase( "o=Intevation GmbH,c=de" );
// Same list as in kaddressbook's ldapsearchdialog
TQStringList attrs;
attrs << "l" << "Company" << "co" << "department" << "description" << "mail" << "facsimileTelephoneNumber" << "cn" << "homePhone" << "mobile" << "o" << "pager" << "postalAddress" << "st" << "street" << "title" << "uid" << "telephoneNumber" << "postalCode" << "objectClass";
// the list from ldapclient.cpp
//attrs << "cn" << "mail" << "givenname" << "sn" << "objectClass";
mClient->setAttrs( attrs );
// Taken from LdapSearch
//TQString mSearchText = TQString::fromUtf8( "Till" );
//TQString filter = TQString( "&(|(objectclass=person)(objectclass=groupOfNames)(mail=*))(|(cn=%1*)(mail=%2*)(givenName=%3*)(sn=%4*))" )
// .arg( mSearchText ).arg( mSearchText ).arg( mSearchText ).arg( mSearchText );
// For some reason a fromUtf8 broke the search for me (no results).
// But this certainly looks fishy, it might break on non-utf8 systems.
TQString filter = "&(|(objectclass=person)(objectclass=groupofnames)(mail=*))(|(cn=*<2A>gypten MDK*)(sn=*<2A>gypten MDK*))";
connect( mClient, TQT_SIGNAL( result( const KABC::LdapObject& ) ),
this, TQT_SLOT( slotLDAPResult( const KABC::LdapObject& ) ) );
connect( mClient, TQT_SIGNAL( done() ),
this, TQT_SLOT( slotLDAPDone() ) );
connect( mClient, TQT_SIGNAL( error( const TQString& ) ),
this, TQT_SLOT( slotLDAPError( const TQString& ) ) );
mClient->startQuery( filter );
kapp->eventLoop()->enterLoop();
delete mClient; mClient = 0;
}
// from kaddressbook... ugly though...
static TQString asUtf8( const TQByteArray &val )
{
if ( val.isEmpty() )
return TQString::null;
const char *data = val.data();
//TQString::fromUtf8() bug workaround
if ( data[ val.size() - 1 ] == '\0' )
return TQString::fromUtf8( data, val.size() - 1 );
else
return TQString::fromUtf8( data, val.size() );
}
static TQString join( const KABC::LdapAttrValue& lst, const TQString& sep )
{
TQString res;
bool already = false;
for ( KABC::LdapAttrValue::ConstIterator it = lst.begin(); it != lst.end(); ++it ) {
if ( already )
res += sep;
already = TRUE;
res += asUtf8( *it );
}
return res;
}
void TestLDAPClient::slotLDAPResult( const KABC::LdapObject& obj )
{
TQString cn = join( obj.attrs[ "cn" ], ", " );
kdDebug() << " cn:" << cn << endl;
assert( !obj.attrs[ "mail" ].isEmpty() );
TQString mail = join( obj.attrs[ "mail" ], ", " );
kdDebug() << " mail:" << mail << endl;
assert( mail.contains( '@' ) );
}
void TestLDAPClient::slotLDAPError( const TQString& err )
{
kdDebug() << k_funcinfo << err << endl;
::exit( 1 );
}
void TestLDAPClient::slotLDAPDone()
{
kdDebug() << k_funcinfo << endl;
kapp->eventLoop()->exitLoop();
}
#include "testldapclient.moc"