summaryrefslogtreecommitdiffstats
path: root/kabc/tests/testldapclient.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'kabc/tests/testldapclient.cpp')
-rw-r--r--kabc/tests/testldapclient.cpp161
1 files changed, 0 insertions, 161 deletions
diff --git a/kabc/tests/testldapclient.cpp b/kabc/tests/testldapclient.cpp
deleted file mode 100644
index df9fd6226..000000000
--- a/kabc/tests/testldapclient.cpp
+++ /dev/null
@@ -1,161 +0,0 @@
-/* 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 <tdeapplication.h>
-#include <kdebug.h>
-#include <tdecmdlineargs.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=*Ägypten MDK*)(sn=*Ä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"