// Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// Name of test harness: T_MIUT03

// Component: IMCM

// Owner: KP

// Brief description of test harness:

// Tests TImMessageField - tests for valid internet email addresses.

// Detailed description of test harness:

// As above.

// Functions not tested:

// ValidInternetEmailAddressChar(const TChar& aChar);	

// ValidSubjectLineChar(const TChar& aChar);

// GetValidInternetEmailAddressFromString(TDesC&, TInt&)

// GetValidInternetEmailAddressFromString(TDesC&, TInt&, TInt&)

// GetValidInternetEmailAddressFromString(TDesC&, TInt&, TInt&, TInt&)

// ValidAliasName(const TDesC16& aAliasName);

// ValidAliasName(const TDesC16& aAliasName, TInt& rFirstBadCharPos);

// Input files required to run test harness:

// None

// Intermediate files produced while running test harness:

// <DRIVE>:\msgtest\T_MIUT03\T_IMCM.log

// Output files produced by running test harness:

// <DRIVE>:\msglogs\T_MIUT03.<PLATFORM>.<VARIANT>.LOG.txt

// Description of how to build test harness:

// cd \msg\imcm\

// bldmake bldfiles

// abld test build

// Description of how to run test harness:

// The following instructions are the same for all platforms:

// 1. Build T_DB test harness from COMMDB component:

// cd \commdb\group

// bldmake bldfiles

// abld test build t_db

// 2. Build the test utilities:

// cd \msg\testutils\group\

// bldmake bldfiles

// abld build

// WINS running instructions:

// 1. \epoc32\release\wins\<VARIANT>\T_MIUT03.exe can be used at the command prompt

// or executable can be run from Windows Explorer.

// All other platform running instructions:

// 1. Copy \epoc32\release\<PLATFORM>\<VARIANT>\T_MIUT03.exe onto the other platform

// 2. Copy \epoc32\release\<PLATFORM>\<VARIANT>\MSVTESTUTILS.DLL into 

// <DRIVE>:\system\libs on the other platform

// 3. Copy \epoc32\release\<PLATFORM>\<VARIANT>\EMAILTESTUTILS.DLL into 

// <DRIVE>:\system\libs on the other platform

// 4. Run T_MIUT03.exe on the other platform

// 

//

#include "emailtestutils.h"

#include "miutpars.h"   // TImMessageField

#include <miutlog.h>

#include "miuthdr.h"    // CImHeader

// local variables etc //

RTest test(_L("MIUT03 - Test TImMessageField class"));

LOCAL_D CTrapCleanup* theCleanup;

LOCAL_D CImLog* log;

LOCAL_D CEmailTestUtils* testUtils;

 //added test steps for PDEF119208:Can't send email with a especial symbol ">" in Your name field. 

 _LIT(KMiutFrom, "ralph>< <ralph-greenwell@psion.com>");

 _LIT(KMiutFrom1, "ralph<> <ralph-greenwell@psion.com>");

 _LIT(KMiutFrom2, "ralph> <ralph-greenwell@psion.com>");

 _LIT(KMiutFrom3, "ralph>>> <ralph-greenwell@psion.com>");

 _LIT(KMiutFrom4, "ralph< <ralph-greenwell@psion.com>");

 _LIT(KMiutFrom5, "ralph<<< <ralph-greenwell@psion.com>");

_LIT(KMiutFrom6, "David Noble Worrrkman <workmad3@gmail.com>");

//

LOCAL_C void ResultOfTest(TBool aResult,TInt aTestNo)

	{

	TBuf8<80> buf;

	_LIT8(KIMCMTestPassed, "PASSED Test %d");

	_LIT8(KIMCMTestFailed, "FAILED Test %d");

	if (aResult)

		{

		buf.AppendFormat(KIMCMTestPassed, aTestNo);

		test.Printf(TRefByValue<const TDesC>_L("Passed test %d\n"),aTestNo);

		log->AppendComment(buf);

		}

	else

		{

		buf.AppendFormat(KIMCMTestFailed, aTestNo);

		test.Printf(TRefByValue<const TDesC>_L("Failed test %d\n"),aTestNo);

		log->AppendComment(buf);

		}

	}

LOCAL_C TBool PassedTest(TBool aPassedTest, TDesC& aString, TBool aPass)

	{

	TBuf8<256> buf;

	TBuf8<256> stringBuf;

	if (aPass)

		{

		if (!aPassedTest)

			{

			_LIT8(KString, "\t\tString not valid: %S");

			stringBuf.Copy(aString);

			buf.AppendFormat(KString, &stringBuf);

			log->AppendError(buf,-1);

			}

		}

	else

		{

		if (aPassedTest)

			{

			_LIT8(KString, "\t\tString valid: %S");

			stringBuf.Copy(aString);

			buf.AppendFormat(KString, &stringBuf);

			log->AppendError(buf,-1);

			}

		}

	return (aPassedTest==aPass);

	}

LOCAL_C TBool CompareBadCharPos(TDesC& aString, TInt aBadPos1, TInt aBadPos2)

	{

	if (aBadPos1!=aBadPos2)

		{

		_LIT8(KString, "\t\tIncorrect bad character position in: %S");

		TBuf8<256> buf;

		TBuf8<256> stringBuf;

		stringBuf.Copy(aString);

		buf.AppendFormat(KString, &stringBuf);

		log->AppendError(buf,aBadPos1);

		}

	return (aBadPos1==aBadPos2);

	}

LOCAL_C TBool CompareFirstLastPos(TDesC& aString, TInt aFirstCharPos1, TInt aLastCharPos1, TInt aFirstCharPos2, TInt aLastCharPos2)

	{

	TBuf8<256> buf;

	TBuf8<256> stringBuf;

	if (aFirstCharPos1!=aFirstCharPos2)

		{

		_LIT8(KString, "\t\tIncorrect first character position in: %S");

		stringBuf.Copy(aString);

		buf.AppendFormat(KString, &stringBuf);

		log->AppendError(buf,aFirstCharPos1);

		}

	if (aLastCharPos1!=aLastCharPos2)

		{

		_LIT8(KString, "\t\tIncorrect last character position in: %S");

		stringBuf.SetLength(0);

		buf.SetLength(0);

		stringBuf.Copy(aString);

		buf.AppendFormat(KString, &stringBuf);

		log->AppendError(buf,aLastCharPos1);

		}

	return ((aFirstCharPos1==aFirstCharPos2)&&(aLastCharPos1==aLastCharPos2));

	}

LOCAL_C TBool CompareExtractedEmailAddress(TPtrC aExtractedString, TDesC& aString, TBool aPass)

	{

	TBuf<256> extractedStringBuf;

	extractedStringBuf.Copy(aExtractedString);

	_LIT8(KString, "\t\tWrong email address extracted : %S");

	if (((extractedStringBuf!=aString) & aPass)|((extractedStringBuf==aString) & !aPass))

		{

		TBuf8<256> buf;

		TBuf8<256> stringBuf;

		stringBuf.Copy(extractedStringBuf);

		buf.AppendFormat(KString, &stringBuf);

		log->AppendError(buf,-1);

		return EFalse;

		}

	return (((extractedStringBuf==aString) & aPass)|((extractedStringBuf!=aString) & !aPass));

	}

//

// TImMessageField Test Functions //

//

LOCAL_C TInt TestValidInternetEmailAddressFunction1(TBool aTest)

	{

	// This test tests the ValidInternetEmailAddress(TDesC&) function

	TBuf8<80> buf;

	_LIT8(KTest, "\tValidInternetEmailAddress(TDesC&) Test (Test %d)");

	buf.AppendFormat(KTest, aTest);

	log->AppendComment(buf);

	TBool result = ETrue;

	TImMessageField testMessageField;

	CImHeader* header = CImHeader::NewLC();

 	header->SetFromL(KMiutFrom);

 	header->SetFromL(KMiutFrom1);

 	header->SetFromL(KMiutFrom2);

 	header->SetFromL(KMiutFrom3);

 	header->SetFromL(KMiutFrom4);	

 	header->SetFromL(KMiutFrom5);		

	header->SetFromL(KMiutFrom6);		

	TBuf<80> string=_L("an.email@address.com");	// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

 	//added test steps for PDEF119205:Can't send email with a especial symbol ">" in Your name field.

 	string=_L("ralph>< <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

 	string=_L("ralph<> <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

 	string=_L("ralph> <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

 	string=_L("ralph>>> <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

 	string=_L("ralph< <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

 	string=_L("ralph<<< <ralph-greenwell@psion.com>");

 	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

	string=_L("David Noble Worrrkman <workmad3@gmail.com>");

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(header->From()),string,ETrue);

	string=_L("An alias <an.email@address.com> (a comment)");	// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("stuff <an.email@address>");		// valid 

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("<an.email@address.com> (a comment)");	// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("  <an.email@address> no brackets");	// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

/*	string=_L("send to test@psion.com by Thursday");	// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

*/

	string=_L("test@Psion <test@psion.com> (test@Psion)");	// valid - should extract "<test@psion.com>"

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("\"Genet, Jean\"<test@psion.com> (test@Psion)");	// valid - should extract "<test@psion.com>"

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

/*	string=_L("test test.psion.comç (test@Psion)");	// valid - illegal char in alias, but all chars in email address are actually valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("@ @ab bc@ a@c &<a@b>@");			// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

*/	

	string=_L("@ <ab@cd>");						// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L(" <a@c> @");						// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("(comment before) an.email@address.com no brackets");	// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("(comment before) an.email@address.com (a comment)");		// no alias

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("a@bc");							// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("ab@c");							// valid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("an.email@address>");				// illegal

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<an.email@address");				// illegal

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<@address.com>");				// illegal - "@" character not surrounded by other char

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<address.com@>");				// illegal - "@" character not surrounded by other char

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<an.address.com>");				// illegal - no "@" character

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<@>");							// illegal - no substring surrounding "@"

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("  <an.email@address a comment");	// invalid - missing close angled bracket

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("an.email@address> a comment");	// invalid - missing open angled bracket

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("test@Psion <test@@psion.com> (test@Psion)");	// invalid - 2 '@' characters

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("\" Genet,Jean \" <test@@psion.com> (test@Psion)");	// invalid - 2 '@' characters

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("\"Jean Genet\" <test@psion@com> (test@Psion)");	// invalid - 2 '@' characters

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("test@Psion <test.psion.com> (test@Psion)");	// invalid - since <> don't contain legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("");							// invalid - return empty string

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("\"\" <>");					// invalid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("<>");						// invalid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("A random bit of text");		// invalid

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("test@Psion <çtest@psion.com> (test@Psion)");			// invalid illegal char

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("test@Psion <test.psion.comç> (test@Psion)");		// invalid - illegal char

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("some stuff çtest@psion.com");		// invalid illegal char

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("word @ @start end@ test@home <test>");			// invalid - <> don't contain a valid email address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("@ <abc>");					// invalid - <> don't contain a valid email address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L(" <abc> @");					// invalid - <> don't contain a valid email address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("an.email@address.com, another.email@address.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("an.email@address.com.another.email@address.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("an.email@address.com,another.email@address.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

/*	// this test should be invalid but it isn't at the moment (26/04/99)

	string=_L("an.email@address.com another.email@address.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

  */

	// new cases following changes for more rigourous checking

	string=_L("testing.@symbian.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("testing.one.two@symbian-uk.com");		// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("~test@uk~symbian.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	string=_L("c?e^o@megabytes.com");		// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("f#%ko$$!!.???@smartphone.com");		// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, ETrue);

	string=_L("clever.mobile@sm@rtphone.com");		// illegal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string), string, EFalse);

	ResultOfTest(result, aTest);

	CleanupStack::PopAndDestroy(header);

	return result;

	}

	LOCAL_C TInt TestValidInternetEmailAddressFunction2(TBool aTest)

	{

	// This test tests the ValidInternetEmailAddress(TDesC&, TInt&) function

	TBuf8<80> buf;

	_LIT8(KTest, "\tValidInternetEmailAddress(TDesC&, TInt&) Test (Test %d)");

	buf.AppendFormat(KTest, aTest);

	log->AppendComment(buf);

	TBool result = ETrue;

	TInt badCharPos = 0;

	TImMessageField testMessageField;

	TBuf<80> string=_L("an.email@address.com");	// legal address

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("An alias <an.email@address.com> (a comment)");	// legal address

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 10);

	string=_L("stuff <an.email@address>");		// valid 

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 7);

	string=_L("<an.email@address.com> (a comment)");	// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 1);

	string=_L("  <an.email@address> no brackets");	// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 3);

/*	string=_L("send to test@psion.com by Thursday");	// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 8);

*/

	string=_L("test@Psion <test@psion.com> (test@Psion)");	// valid - should extract "<test@psion.com>"

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 12);

	string=_L("\"Genet, Jean\"<test@psion.com> (test@Psion)");	// valid - should extract "<test@psion.com>"

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 14);

/*	string=_L("test test.psion.comç (test@Psion)");	// valid - illegal char in alias, but all chars in email address are actually valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 18);

	string=_L("@ @ab bc@ a@c &<a@b>@");			// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 16);

*/	

	string=_L("@ <ab@cd>");						// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 3);

	string=_L(" <a@c> @");						// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 2);

	string=_L("(comment before) an.email@address.com no brackets");	// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 17);

	string=_L("(comment before) an.email@address.com (a comment)");		// no alias

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 17);

	string=_L("a@bc");							// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("ab@c");							// valid

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, ETrue);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("an.email@address>");				// illegal

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("<an.email@address");				// illegal

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("<@address.com>");				// illegal - "@" character not surrounded by other char

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, -1);

	string=_L("<address.com@>");				// illegal - "@" character not surrounded by other char

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, -1);

	string=_L("<an.address.com>");				// illegal - no "@" character

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, -1);

	string=_L("<@>");							// illegal - no substring surrounding "@"

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, -1);

	string=_L("  <an.email@address a comment");	// invalid - missing close angled bracket

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 2);

	string=_L("an.email@address> a comment");	// invalid - missing open angled bracket

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 0);

	string=_L("test@Psion <test@@psion.com> (test@Psion)");	// invalid - 2 '@' characters

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 12);

	string=_L("\" Genet,Jean \" <test@@psion.com> (test@Psion)");	// invalid - 2 '@' characters

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 16);

	string=_L("\"Jean Genet\" <test@psion@com> (test@Psion)");	// invalid - 2 '@' characters

	badCharPos = 0;

	result &= PassedTest(testMessageField.ValidInternetEmailAddress(string, badCharPos), string, EFalse);

	result &= CompareBadCharPos(string, badCharPos, 14);

	string=_L("test@Psion <test.psion.com> (test@Psion)");	// invalid - since <> don't contain legal address