1 files changed, 114 insertions, 0 deletions
diff --git a/libtdepim/tests/testlinklocator.cpp b/libtdepim/tests/testlinklocator.cpp
new file mode 100644
index 000000000..548f61a9b
--- /dev/null
+++ b/libtdepim/tests/testlinklocator.cpp
@@ -0,0 +1,114 @@
+/* This file is part of the KDE project
+   Copyright (C) 2005 Ingo Kloecker <kloecker@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.
+*/
+
+// Test program for libtdepim/linklocator.*
+#include <linklocator.h>
+
+#include <kcmdlineargs.h>
+#include <kapplication.h>
+#include <kdebug.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <assert.h>
+
+static bool check(const TQString& txt, const TQString& a, const TQString& b)
+{
+  if (a == b) {
+    kdDebug() << txt << " : checking '" << a << "' against expected value '" << b << "'... " << "ok" << endl;
+  }
+  else {
+    kdDebug() << txt << " : checking '" << a << "' against expected value '" << b << "'... " << "KO !" << endl;
+    exit(1);
+  }
+  return true;
+}
+
+static bool checkGetEmailAddress( const TQString & input,
+                                  int atPos,
+                                  const TQString & expRetVal,
+                                  bool allowBadAtPos = false )
+{
+  if ( !allowBadAtPos && ( input[atPos] != '@' ) ) {
+    kdDebug() << "atPos (" << atPos << ") doesn't point to '@' in \""
+              << input << "\". Fix the check!" << endl;
+    exit(1);
+  }
+  LinkLocator ll( input, atPos );
+  const TQString retVal = ll.getEmailAddress();
+  check( "getEmailAddress() \"" + input + "\", " + TQString::number( atPos ),
+         retVal, expRetVal );
+  return true;
+}
+
+int main(int argc, char *argv[])
+{
+  KApplication::disableAutoDcopRegistration();
+  KCmdLineArgs::init( argc, argv, "testlinklocator", 0, 0, 0, 0 );
+  KApplication app( false, false );
+
+  // empty input
+  checkGetEmailAddress( TQString(), 0, TQString(), true );
+
+  // no '@' at scan position
+  checkGetEmailAddress( "foo@bar.baz", 0, TQString(), true );
+
+  // '@' in local part
+  checkGetEmailAddress( "foo@bar@bar.baz", 7, TQString() );
+
+  // empty local part
+  checkGetEmailAddress( "@bar.baz", 0, TQString() );
+  checkGetEmailAddress( ".@bar.baz", 1, TQString() );
+  checkGetEmailAddress( " @bar.baz", 1, TQString() );
+  checkGetEmailAddress( ".!#$%&'*+-/=?^_`{|}~@bar.baz", strlen(".!#$%&'*+-/=?^_`{|}~"), TQString() );
+
+  // allowed special chars in local part of address
+  checkGetEmailAddress( "a.!#$%&'*+-/=?^_`{|}~@bar.baz", strlen("a.!#$%&'*+-/=?^_`{|}~"), "a.!#$%&'*+-/=?^_`{|}~@bar.baz" );
+
+  // '@' in domain part
+  checkGetEmailAddress( "foo@bar@bar.baz", 3, TQString() );
+
+  // domain part without dot
+  checkGetEmailAddress( "foo@bar", 3, TQString() );
+  checkGetEmailAddress( "foo@bar.", 3, TQString() );
+  checkGetEmailAddress( ".foo@bar", 4, TQString() );
+  checkGetEmailAddress( "foo@bar ", 3, TQString() );
+  checkGetEmailAddress( " foo@bar", 4, TQString() );
+  checkGetEmailAddress( "foo@bar-bar", 3, TQString() );
+
+  // empty domain part
+  checkGetEmailAddress( "foo@", 3, TQString() );
+  checkGetEmailAddress( "foo@.", 3, TQString() );
+  checkGetEmailAddress( "foo@-", 3, TQString() );
+
+  // simple address
+  checkGetEmailAddress( "foo@bar.baz", 3, "foo@bar.baz" );
+  checkGetEmailAddress( "foo@bar.baz.", 3, "foo@bar.baz" );
+  checkGetEmailAddress( ".foo@bar.baz", 4, "foo@bar.baz" );
+  checkGetEmailAddress( "foo@bar.baz-", 3, "foo@bar.baz" );
+  checkGetEmailAddress( "-foo@bar.baz", 4, "foo@bar.baz" );
+  checkGetEmailAddress( "foo@bar.baz ", 3, "foo@bar.baz" );
+  checkGetEmailAddress( " foo@bar.baz", 4, "foo@bar.baz" );
+  checkGetEmailAddress( "foo@bar-bar.baz", 3, "foo@bar-bar.baz" );
+
+  printf("\nTest OK !\n");
+
+  return 0;
+}
+