path: root/libemailfunctions/tests/testemail.cpp

/* This file is part of the KDE project
   Copyright (C) 2004 David Faure <[email protected]>

   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 libemailfunctions/email.h
#include "email.h"

#include <kcmdlineargs.h>
#include <kapplication.h>
#include <kdebug.h>

#include <stdio.h>
#include <stdlib.h>
#include <assert.h>

using namespace KPIM;

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 check(const TQString& txt, const TQStringList& a, const TQStringList& b)
{
  if ( a.join("\n") == b.join("\n") ) {
    kdDebug() << txt << " : checking list [ " << a.join( ", " ) << " ] against expected value [ " << b.join( ", " ) << " ]... " << "ok" << endl;
  }
  else {
    kdDebug() << txt << " : checking list [ " << a.join( ",\n" ) << " ] against expected value [ " << b.join( ",\n" ) << " ]... " << "KO !" << endl;
    exit(1);
  }
  return true;
}

static bool checkGetNameAndEmail(const TQString& input, const TQString& expName, const TQString& expEmail, bool expRetVal)
{
  TQString name, email;
  bool retVal = KPIM::getNameAndMail(input, name, email);
  check( "getNameAndMail " + input + " retVal", retVal?TQString::tqfromLatin1( "true" ):TQString::tqfromLatin1( "false" ), expRetVal?TQString::tqfromLatin1( "true" ):TQString::tqfromLatin1( "false" ) );
  check( "getNameAndMail " + input + " name", name, expName );
  check( "getNameAndMail " + input + " email", email, expEmail );
  return true;
}

// convert this to a switch instead but hey, nothing speedy in here is needed but still.. it would be nice
static TQString emailTestParseResultToString( EmailParseResult errorCode )
{
  if( errorCode == TooManyAts ) {
    return "TooManyAts";
  } else if( errorCode == TooFewAts ) {
    return "TooFewAts";
  } else if( errorCode == AddressEmpty ) {
    return "AddressEmpty";
  } else if( errorCode == MissingLocalPart ) {
    return "MissingLocalPart";
  } else if( errorCode == MissingDomainPart ) {
    return "MissingDomainPart";
  } else if( errorCode == UnbalancedParens ) {
    return "UnbalancedParens";
  } else if( errorCode == AddressOk ) {
    return "AddressOk";
  } else if( errorCode == UnclosedAngleAddr ) {
    return "UnclosedAngleAddr";
  } else if( errorCode == UnexpectedEnd ) {
    return "UnexpectedEnd";
  } else if( errorCode == UnopenedAngleAddr ) {
    return "UnopenedAngleAddr";
  } else if( errorCode == DisallowedChar ) {
    return "DisallowedChar";
  } else if( errorCode == UnexpectedComma ) {
    return "UnexpectedComma";
  } else if( errorCode == UnbalancedQuote ) {
    return "UnbalancedQuote";
  } else if( errorCode == InvalidDisplayName ) {
    return "InvalidDisplayName";
  }
  return "unknown error code";
}

static TQString simpleEmailTestParseResultToString( bool validEmail )
{
  if ( validEmail ) {
    return "true";
  }
  return "false";
}

static bool checkIsValidEmailAddress( const TQString& input, const TQString&  expErrorCode )
{
  EmailParseResult errorCode = KPIM::isValidEmailAddress( input );
  TQString errorC = emailTestParseResultToString( errorCode );
  check( "isValidEmailAddress " + input + " errorCode ", errorC , expErrorCode );
  return true;
}

static bool checkIsValidSimpleEmailAddress( const TQString& input, const TQString& expResult )
{
  bool validEmail = KPIM::isValidSimpleEmailAddress( input );
  TQString result = simpleEmailTestParseResultToString( validEmail );
  check( "isValidSimpleEmailAddress " + input + " result ", result, expResult );
  return true;
}

static bool checkGetEmailAddress( const TQString& input, const TQString& expResult )
{
  TQString emailAddress = KPIM::getEmailAddress( input );
  TQString result = emailAddress;
  check( "getEmailAddress " + input + " result ", result, expResult );
  return true;
}

static bool checkSplitEmailAddrList( const TQString& input, const TQStringList& expResult )
{
  TQStringList emailAddresses = KPIM::splitEmailAddrList( input );
  check( "splitEmailAddrList( \"" + input + "\" ) result ", emailAddresses, expResult );
  return true;
}

static bool checkNormalizeAddressesAndEncodeIDNs( const TQString& input, const TQString& expResult )
{
  TQString result = KPIM::normalizeAddressesAndEncodeIDNs( input );
  check( "normalizeAddressesAndEncodeIDNs( \"" + input + "\" ) result ", result, expResult );
  return true;
}

static bool checkNormalizeAddressesAndDecodeIDNs( const TQString& input, const TQString& expResult )
{
  TQString result = KPIM::normalizeAddressesAndDecodeIDNs( input );
  check( "normalizeAddressesAndDecodeIDNs( \"" + input + "\" ) result ", result, expResult );
  return true;
}

static bool checkQuoteIfNecessary( const TQString& input, const TQString& expResult )
{
  TQString result = quoteNameIfNecessary( input );
  check( "quoteNameIfNecessary " + input + " result ", result, expResult );
  return true;
}


int main(int argc, char *argv[])
{
  KApplication::disableAutoDcopRegistration();
  KCmdLineArgs::init( argc, argv, "testemail", 0, 0, 0, 0 );
  KApplication app( false, false );

  // Empty input
  checkGetNameAndEmail( TQString(), TQString(), TQString(), false );

  // Email only
  checkGetNameAndEmail( "[email protected]", TQString(), "[email protected]", false );

  // Normal case
  checkGetNameAndEmail( "David Faure <[email protected]>", "David Faure", "[email protected]", true );

  // Double-quotes
  checkGetNameAndEmail( "\"Faure, David\" <[email protected]>", "Faure, David", "[email protected]", true );
  checkGetNameAndEmail( "<[email protected]> \"David Faure\"", "David Faure", "[email protected]", true );

  // Parenthesis
  checkGetNameAndEmail( "[email protected] (David Faure)", "David Faure", "[email protected]", true );
  checkGetNameAndEmail( "(David Faure) [email protected]", "David Faure", "[email protected]", true );
  checkGetNameAndEmail( "My Name (me) <[email protected]>", "My Name (me)", "[email protected]", true ); // #93513

  // Nested tqparenthesis as per https://intevation.de/roundup/kolab/issue858
  checkGetNameAndEmail( "[email protected] (David (The Man) Faure)", "David (The Man) Faure", "[email protected]", true );

  // Double-quotes inside tqparenthesis
  checkGetNameAndEmail( "[email protected] (David \"Crazy\" Faure)", "David \"Crazy\" Faure", "[email protected]", true );
  checkGetNameAndEmail( "(David \"Crazy\" Faure) [email protected]", "David \"Crazy\" Faure", "[email protected]", true );

  // Parenthesis inside double-quotes
  checkGetNameAndEmail( "\"Faure (David)\" <[email protected]>", "Faure (David)", "[email protected]", true );
  checkGetNameAndEmail( "<[email protected]> \"Faure (David)\"", "Faure (David)", "[email protected]", true );

  // Space in email
  checkGetNameAndEmail( "David Faure < [email protected] >", "David Faure", "[email protected]", true );

  // Check that '@' in name doesn't confuse it
  checkGetNameAndEmail( "[email protected] (a@b)", "a@b", "[email protected]", true );
  // Interestingly, this isn't supported.
  //checkGetNameAndEmail( "\"a@b\" <[email protected]>", "a@b", "[email protected]", true );

  // While typing, when there's no '@' yet
  checkGetNameAndEmail( "foo", "foo", TQString(), false );
  checkGetNameAndEmail( "foo <", "foo", TQString(), false );
  checkGetNameAndEmail( "foo <b", "foo", "b", true );

  // If multiple emails are there, only return the first one
  checkGetNameAndEmail( "\"Faure, David\" <[email protected]>, KHZ <[email protected]>", "Faure, David", "[email protected]", true );

  // domain literals also need to work
  checkGetNameAndEmail( "Matt Douhan <matt@[123.123.123.123]>", "Matt Douhan", "matt@[123.123.123.123]", true );

  // @ inside the comment
  checkGetNameAndEmail( "\"Matt@Douhan\" <[email protected]>", "Matt@Douhan", "[email protected]", true );

  // No '@'
  checkGetNameAndEmail(  "foo <distlist>", "foo", "distlist", true );

  // To many @'s
  checkIsValidEmailAddress( "matt@@fruitsalad.org", "TooManyAts" );

  // To few @'s
  checkIsValidEmailAddress( "mattfruitsalad.org", "TooFewAts" );

  // An empty string
  checkIsValidEmailAddress( TQString() , "AddressEmpty" );

  // email address starting with a @
  checkIsValidEmailAddress( "@mattfruitsalad.org", "MissingLocalPart" );

  // make sure that starting @ and an additional @ in the same email address don't conflict
  // trap the starting @ first and break
  checkIsValidEmailAddress( "@[email protected]", "MissingLocalPart" );

  // email address ending with a @
  checkIsValidEmailAddress( "mattfruitsalad.org@", "MissingDomainPart" );

  // make sure that ending with@ and an additional @ in the email address don't conflict
  checkIsValidEmailAddress( "[email protected]@", "MissingDomainPart" );

  // unbalanced Parens
  checkIsValidEmailAddress( "mattjongel)@fruitsalad.org", "UnbalancedParens" );

  // unbalanced Parens the other way around
  checkIsValidEmailAddress( "mattjongel(@fruitsalad.org", "UnbalancedParens" );

  // Correct parens just to make sure it works
  checkIsValidEmailAddress( "matt(jongel)@fruitsalad.org", "AddressOk" );

  // Check that anglebrackets are closed
  checkIsValidEmailAddress( "matt douhan<[email protected]", "UnclosedAngleAddr" );

  // Check that angle brackets are closed the other way around
  checkIsValidEmailAddress( "matt douhan>[email protected]", "UnopenedAngleAddr" );

  // Check that angle brackets are closed the other way around, and anglebrackets in domainpart
  // instead of local part
  checkIsValidEmailAddress( "matt douhan matt@<fruitsalad.org", "UnclosedAngleAddr" );

  // check that a properly formated anglebrackets situation is OK
  checkIsValidEmailAddress( "matt douhan<[email protected]>", "AddressOk" );

  // a full email address with comments angle brackets and the works should be valid too
  checkIsValidEmailAddress( "Matt (jongel) Douhan <[email protected]>", "AddressOk" );

  // Double quotes
  checkIsValidEmailAddress( "\"Matt Douhan\" <[email protected]>", "AddressOk" );

  // Double quotes inside parens
  checkIsValidEmailAddress( "Matt (\"jongel\") Douhan <[email protected]>", "AddressOk" );

  // DOuble quotes not closed
  checkIsValidEmailAddress( "Matt \"jongel Douhan <[email protected]>", "UnbalancedQuote" );

  // Parens inside double quotes
  checkIsValidEmailAddress( "Matt \"(jongel)\" Douhan <[email protected]>", "AddressOk" );

  // Space in email
  checkIsValidEmailAddress( "Matt Douhan < [email protected] >", "AddressOk" );

  // @ is allowed inisde doublequotes
  checkIsValidEmailAddress( "\"matt@jongel\" <[email protected]>", "AddressOk" );

  // anglebrackets inside dbl quotes
  checkIsValidEmailAddress( "\"matt<blah blah>\" <[email protected]>", "AddressOk" );

  // a , inside a double quoted string is OK, how do I know this? well Ingo says so
  // and it makes sense since it is also a seperator of email addresses
  checkIsValidEmailAddress( "\"Douhan, Matt\" <[email protected]>", "AddressOk" );

  // Domains literals also need to work
  checkIsValidEmailAddress( "Matt Douhan <matt@[123.123.123.123]>", "AddressOk" );

  // Typo in domain literal address
  checkIsValidEmailAddress( "Matt Douhan <matt@[123.123.123,123]>", "UnexpectedComma" );

  // Some more insane tests but still valid so they must work
  checkIsValidEmailAddress( "Matt Douhan <\"m@att\"@jongel.com>", "AddressOk" );

  // BUG 99657
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );

  // BUG 98720
  checkIsValidEmailAddress( "mailto:@mydomain", "DisallowedChar" );

  // correct error msg when a comma is inside <>
  checkIsValidEmailAddress( "Matt Douhan <matt@fruitsalad,org>", "UnexpectedComma" );

  //several commentlevels
  checkIsValidEmailAddress( "Matt Douhan (hey(jongel)fibbel) <[email protected]>", "AddressOk" );

  // several comment levels and one (the outer) being unbalanced
  checkIsValidEmailAddress( "Matt Douhan (hey(jongel)fibbel <[email protected]>", "UnbalancedParens" );

  // several comment levels and one (the inner) being unbalanced
  checkIsValidEmailAddress( "Matt Douhan (hey(jongelfibbel) <[email protected]>", "UnbalancedParens" );

  // an error inside a double quote is no error
  checkIsValidEmailAddress ( "Matt Douhan \"(jongel\" <[email protected]>", "AddressOk" );

  // inside a quoted string double quotes are only allowed in pairs as per rfc2822
  checkIsValidEmailAddress( "Matt Douhan \"jongel\"fibbel\" <[email protected]>", "UnbalancedQuote" );

  // a questionmark is valid in an atom
  checkIsValidEmailAddress ( "Matt? <[email protected]>", "AddressOk" );

  // weird but OK
  checkIsValidEmailAddress( "\"testing, \\\"testing\" <[email protected]>", "AddressOk" );

  // escape a quote to many to see if it makes it invalid
  checkIsValidEmailAddress( "\"testing, \\\"testing\\\" <[email protected]>", "UnbalancedQuote" );

  // escape a parens and thus make a comma appear
  checkIsValidEmailAddress( "Matt (jongel, fibbel\\) <[email protected]>", "UnbalancedParens" );

  // several errors inside doublequotes
  checkIsValidEmailAddress( "Matt \"(jongel,\\\" < fibbel\\\\)\" <[email protected]>", "AddressOk" );

  // BUG 105705
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );

  // underscore at the end of local part
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );

  // how about ( comment ) in the domain part
  checkIsValidEmailAddress( "matt_@(this is a cool host)fruitsalad.org", "AddressOk" );

  // To quote rfc2822 the test below is aesthetically displeasing, but perfectly legal.
  checkIsValidEmailAddress( "Pete(A wonderful \\) chap) <pete(his account)@silly.test(his host)>", "AddressOk" );

  // quoted pair or not quoted pair
  checkIsValidEmailAddress( "\"jongel '\\\" fibbel\" <[email protected]>", "AddressOk" );
  checkIsValidEmailAddress( "\"jongel '\" fibbel\" <[email protected]>", "UnbalancedQuote" );

  // full atext support according to rfc2822
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "#[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "%[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "&[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "'[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "*[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "/[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "^[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "`[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "{[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "|[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "}[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "[email protected]", "AddressOk" );
  checkIsValidEmailAddress( "matt%[email protected]", "AddressOk" );

  //bug 105405
  checkIsValidEmailAddress( "[foobar] <[email protected]>", "InvalidDisplayName" );
  checkIsValidEmailAddress( "matt \"[foobar]\" Douhan <[email protected]>", "AddressOk" );

  checkIsValidEmailAddress( "Matt Douhan <matt\"@@\"fruitsalad.org>", "TooFewAts" );

  // checks for "pure" email addresses in the form of [email protected]
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( TQString::fromUtf8("test@täst.invalid"), "true" );
  // non-ASCII char as first char of IDN
  checkIsValidSimpleEmailAddress( TQString::fromUtf8("i_want@øl.invalid"), "true" );
  checkIsValidSimpleEmailAddress( "matt@[123.123.123.123]", "true" );
  checkIsValidSimpleEmailAddress( "matt@[3.3.3.3]", "true" );
  checkIsValidSimpleEmailAddress( "matt@[4.4.4.4]", "true" );
  checkIsValidSimpleEmailAddress( "matt@[192.168.254.254]", "true" );
  checkIsValidSimpleEmailAddress( "\"matt\"@fruitsalad.org", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "\"-matt\"@fruitsalad.org", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "Matt Douhan <[email protected]>", "false" );
  // BUG 105705
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  // Check the defined chars for atext according to rfc2822
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "#[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "%[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "&[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "'[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "*[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "/[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "^[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "`[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "{[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "|[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "}[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  // BUG 108476
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );
  checkIsValidSimpleEmailAddress( "[email protected]", "true" );

  // check if the pure email address is wrong
  checkIsValidSimpleEmailAddress( "mattfruitsalad.org", "false" );
  checkIsValidSimpleEmailAddress( "matt@[123.123.123.123", "false" );
  checkIsValidSimpleEmailAddress( "[email protected]]", "false" );
  checkIsValidSimpleEmailAddress( "\"[email protected]", "false" );
  checkIsValidSimpleEmailAddress( "matt\"@fruitsalad.org", "false" );
  checkIsValidSimpleEmailAddress( TQString(), "false" );

  // and here some insane but still valid cases
  checkIsValidSimpleEmailAddress( "\"m@tt\"@fruitsalad.org", "true" );

  checkIsValidSimpleEmailAddress( "matt\"@@\"fruitsalad.org", "false" );

  // check the getEmailAddress address method
  checkGetEmailAddress( "[email protected]", "[email protected]" );
  checkGetEmailAddress( "Matt Douhan <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "\"Matt Douhan <blah blah>\" <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "\"Matt <blah blah>\" <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "Matt Douhan (jongel) <[email protected]", TQString() );
  checkGetEmailAddress( "Matt Douhan (m@tt) <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "\"Douhan, Matt\" <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "\"Matt Douhan (m@tt)\" <[email protected]>", "[email protected]" );
  checkGetEmailAddress( "\"Matt Douhan\" (matt <[email protected]>", TQString() );
  checkGetEmailAddress( "Matt Douhan <matt@[123.123.123.123]>", "matt@[123.123.123.123]" );

  // check the splitEmailAddrList method
  checkSplitEmailAddrList( "[email protected] (Kloecker, Ingo)", TQStringList() << "[email protected] (Kloecker, Ingo)" );
  checkSplitEmailAddrList( "Matt Douhan <[email protected]>, Foo Bar <[email protected]>", TQStringList() << "Matt Douhan <[email protected]>" << "Foo Bar <[email protected]>" );
  checkSplitEmailAddrList( "\"Matt, Douhan\" <[email protected]>, Foo Bar <[email protected]>", TQStringList() << "\"Matt, Douhan\" <[email protected]>" << "Foo Bar <[email protected]>" );

  // check checkNormalizeAddressesAndEncodeIDNs
  checkNormalizeAddressesAndEncodeIDNs( "[email protected]", "[email protected]" );
  checkNormalizeAddressesAndEncodeIDNs( "Matt Douhan <[email protected]>", "Matt Douhan <[email protected]>" );
  checkNormalizeAddressesAndEncodeIDNs( "Matt Douhan (jongel) <[email protected]>", "Matt Douhan (jongel) <[email protected]>" );
  checkNormalizeAddressesAndEncodeIDNs( "Matt Douhan (jongel,fibbel) <[email protected]>", "Matt Douhan (jongel,fibbel) <[email protected]>" );
  checkNormalizeAddressesAndEncodeIDNs( "[email protected] (jongel,fibbel)", "\"jongel,fibbel\" <[email protected]>" );
  checkNormalizeAddressesAndEncodeIDNs( "[email protected] (\"jongel,fibbel\")", "\"jongel,fibbel\" <[email protected]>" );

  // check checkNormalizeAddressesAndDecodeIDNs
  checkNormalizeAddressesAndDecodeIDNs( "=?us-ascii?Q?Surname=2C=20Name?= <[email protected]>", "\"Surname, Name\" <[email protected]>" );
  checkNormalizeAddressesAndDecodeIDNs( "=?iso-8859-1?B?5Hf8b2xmLPZBbmRyZWFz?= <[email protected]>", TQString::fromUtf8("\"äwüolf,öAndreas\" <[email protected]>") );

  // check the "quote if necessary" method
  checkQuoteIfNecessary( "Matt Douhan", "Matt Douhan");
  checkQuoteIfNecessary( "Douhan, Matt", "\"Douhan, Matt\"");
  checkQuoteIfNecessary( "Matt \"jongel\" Douhan", "\"Matt \\\"jongel\\\" Douhan\"");
  checkQuoteIfNecessary( "Matt \\\"jongel\\\" Douhan", "\"Matt \\\"jongel\\\" Douhan\"");
  checkQuoteIfNecessary( "trailing '\\\\' should never occur \\", "\"trailing '\\\\' should never occur \\\"");
  checkQuoteIfNecessary( "\"don't quote again\"", "\"don't quote again\"" );
  checkQuoteIfNecessary( "\"leading double quote", "\"\\\"leading double quote\"" );
  checkQuoteIfNecessary( "trailing double quote\"", "\"trailing double quote\\\"\"" );

  printf("\nTest OK !\n");

  return 0;
}