--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/applayerprotocols/httptransportfw/Test/Acceptance/Iter1/Tc12.cpp Tue Feb 02 01:09:52 2010 +0200
@@ -0,0 +1,336 @@
+// Copyright (c) 2004-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:
+// Author: Franco.Bellu@symbian.com
+//
+//
+
+
+#include "Tc12.h"
+#include <http.h>
+#include "testservers.h"
+
+#include "csrvaddrval.h"
+
+_LIT8(KWapTestUrl, "http://WapTestIP");
+
+CHttpTestCase12::CHttpTestCase12(CScriptFile* aIniSettingsFile) :
+ CHttpTestTransBase(),
+ iIniSettingsFile(aIniSettingsFile)
+ {
+ }
+
+void CHttpTestCase12::DoRunL()
+ {
+ //open a Session
+ iSession.OpenL();
+ iEngine->Utils().LogIt(_L("Session Created(TC(12)(Default parameters)"));
+
+ //Get the iSession'string pool handle;
+ iMyStrP = iSession.StringPool();
+ //First test transaction
+ //Prepare anything needed for a correct POST Request based on TestCase5
+ //and submit it
+ OpenTestTransaction1L();
+ iTransaction.SubmitL();
+ CActiveScheduler::Start();
+ CloseTestTransaction1();
+
+ //Second test transaction
+ OpenTestTransaction2L();
+ iTransaction.SubmitL();
+ CActiveScheduler::Start();
+ CloseTestTransaction2();
+
+ //Third test transaction
+ OpenTestTransaction3L();
+ iTransaction.SubmitL();
+ CActiveScheduler::Start();
+ CloseTestTransaction3();
+
+ iSession.Close();
+ if (iTestFail==1)
+ {
+ User::Leave(-1);
+ }
+ iEngine->Utils().LogIt(_L("Session terminated"));
+ }
+
+TInt CHttpTestCase12::RunError(TInt aErr)
+ {
+ iEngine->Utils().LogIt(_L("\nTest failed with error code %d\n"), aErr);
+ return KErrNone;
+ }
+
+void CHttpTestCase12::DoCancel()
+ {
+ }
+
+CHttpTestCase12::~CHttpTestCase12()
+ {
+ }
+
+/** increment the value of iState and set active to create call to RunL
+ with new state value
+*/
+
+/** set this object active */
+void CHttpTestCase12::CompleteOwnRequest()
+ {
+ TRequestStatus* stat = &iStatus;
+ User::RequestComplete(stat,KErrNone);
+ if (!IsActive())
+ SetActive();
+ }
+
+/** sets base test name.
+ @param void
+ @return string - the test name
+*/
+const TDesC& CHttpTestCase12::TestName()
+ {
+ _LIT(KHeaderTestName,"Test Case 12 ");
+ return KHeaderTestName;
+ }
+
+
+TInt CHttpTestCase12::MHFRunError(TInt aError, RHTTPTransaction /*aTransaction*/,
+ const THTTPEvent& /*aEvent*/)
+ {
+ iEngine->Utils().LogIt(_L("\nTest failed with error code %d\n"), aError);
+ return KErrNone;
+ }
+
+void CHttpTestCase12::MHFRunL(RHTTPTransaction aTransaction,
+ const THTTPEvent& aEvent)
+ {
+ switch (aEvent.iStatus)
+ {
+ case THTTPEvent::EGotResponseHeaders:
+ {
+ // HTTP response headers have been received
+ iEngine->Utils().LogIt(_L("<EGotResponseHeaders>\n"));
+ TInt statusCode = aTransaction.Response().StatusCode();
+ iEngine->Utils().LogIt(_L("Status Code: %d \n"),statusCode);
+ DumpRespHeaders(aTransaction);
+ iEngine->SetCurrentStatusCode(statusCode);
+ } break;
+ case THTTPEvent::EGotResponseBodyData:
+ {
+ // Some (more) body data has been received (in the HTTP response)
+ iEngine->Utils().LogIt(_L("<EGotResponseBodyData received>\n"));
+ DumpRespHeaders(aTransaction);
+ // for each chunk of data received we have to empty the buffer
+ // before to be able to receive
+ MHTTPDataSupplier* body = aTransaction.Response().Body();
+ body->ReleaseData();
+
+ // DumpResponseBody(aTransaction);
+ } break;
+ case THTTPEvent::EResponseComplete:
+ {
+ // The transaction's response is complete
+ iEngine->Utils().LogIt(_L("<EResponseComplete received>\n"));
+ } break;
+ case THTTPEvent::ESucceeded:
+ {
+ iEngine->Utils().LogIt(_L("<ESucceeded Received from the VF>\n"));
+ CActiveScheduler::Stop();
+ } break;
+ case THTTPEvent::EFailed:
+ {
+ iEngine->Utils().LogIt(_L("<EFailed Received from the VF>\n"));
+ CActiveScheduler::Stop();
+ } break;
+ case KErrHttpRequestHasBody:
+ {
+ iEngine->Utils().LogIt(_L("<KErrHttpGetReqWithBody received from the VF>"));
+ } break;
+ case KErrHttpEntityHeaderMissingContentType:
+ {
+ iEngine->Utils().LogIt(_L("<KErrHttpNoEntityHeaderWithBodyContentType received from the VF>"));
+ } break;
+ case KErrHttpRequestBodyMissing:
+ {
+ iEngine->Utils().LogIt(_L("<KErrHttpPostReqWithoutBody received from the VF>"));
+ } break;
+ default:
+ {
+ iEngine->Utils().LogIt(_L("<unrecognised event>\n %d"),aEvent.iStatus);
+ if (aEvent.iStatus < THTTPEvent::ERedirectedPermanently)
+ {
+ iTestFail=1;
+ iEngine->Utils().LogIt(_L("Test Failed: The event received was not expected and it's not just a warning\n"));
+ iEngine->PressAnyKey();
+ CActiveScheduler::Stop();
+ }
+ }
+ break;
+ }
+ }
+
+void CHttpTestCase12::OpenTestTransaction2L()
+ {
+ // Literals used in the function
+ _LIT8(KUrlPath, "/perl/dumpform.pl");
+
+ // Replace the host name in the URL
+ HBufC8* newUrl8 = TSrvAddrVal::ReplaceHostNameL(KWapTestUrl(), iIniSettingsFile);
+ CleanupStack::PushL(newUrl8);
+ TPtr8 newUrlPtr8 = newUrl8->Des();
+ newUrlPtr8.Append(KUrlPath());
+
+ TUriParser8 testURI;
+ testURI.Parse(newUrlPtr8);
+
+ //open string this testcase needs
+ RStringF textPlain = iMyStrP.StringF(HTTP::ETextPlain,RHTTPSession::GetTable());
+ RStringF textHtml = iMyStrP.StringF(HTTP::ETextHtml,RHTTPSession::GetTable());
+ RStringF mimeType = iMyStrP.StringF(HTTP::EApplicationXWwwFormUrlEncoded,RHTTPSession::GetTable());
+
+ //open a Transaction in iSession
+ iTransaction = iSession.OpenTransactionL(testURI, *this,iMyStrP.StringF(HTTP::EPOST,RHTTPSession::GetTable()));
+ iEngine->Utils().LogIt(_L("Transaction (%d)Created in Session"),iTransaction.Id());
+
+ //Get a handle of the request in iTransaction
+ RHTTPRequest myRequest = iTransaction.Request();
+ RHTTPHeaders myHeaders = myRequest.GetHeaderCollection();
+
+ //provide some headers
+ THTTPHdrVal v2(textPlain);
+ THTTPHdrVal v3(textHtml);
+ THTTPHdrVal v4(6);
+ THTTPHdrVal v5(mimeType);
+
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v2);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v3);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EContentLength,RHTTPSession::GetTable()),v4);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EContentType,RHTTPSession::GetTable()), v5);
+
+ TSrvAddrVal::LogUsing8BitDesL(iEngine, newUrlPtr8);
+ iEngine->Utils().LogIt(_L("Method:Post"));
+ iEngine->Utils().LogIt(_L("Accept:test/plain,text/html"));
+ iEngine->Utils().LogIt(_L("Content-Type: application/x-www-form-urlencoded"));
+ iEngine->Utils().LogIt(_L("Content-Length: 6"));
+ CleanupStack::PopAndDestroy(newUrl8);
+ //NB: No body posted this whill generate the EFailed message we want to test
+ }
+
+void CHttpTestCase12::CloseTestTransaction2()
+ {
+ //close Transaction and session
+ iTransaction.Close();
+ iEngine->Utils().LogIt(_L("Transaction terminated\n"));
+ }
+
+void CHttpTestCase12::OpenTestTransaction1L()
+ {
+ // Literals used in the function
+ _LIT8(KUrlPath, "/");
+
+ // Replace the host name in the URL
+ HBufC8* newUrl8 = TSrvAddrVal::ReplaceHostNameL(KWapTestUrl(), iIniSettingsFile);
+ CleanupStack::PushL(newUrl8);
+ TPtr8 newUrlPtr8 = newUrl8->Des();
+ newUrlPtr8.Append(KUrlPath());
+
+ TUriParser8 testURI;
+ testURI.Parse(newUrlPtr8);
+
+ //get string handles this testcase needs
+ RStringF textPlain = iMyStrP.StringF(HTTP::ETextPlain,RHTTPSession::GetTable());
+ RStringF textHtml = iMyStrP.StringF(HTTP::ETextHtml,RHTTPSession::GetTable());
+
+ //open a Transaction in iSession
+ iTransaction = iSession.OpenTransactionL(testURI, *this,iMyStrP.StringF(HTTP::EGET,RHTTPSession::GetTable()));
+ iEngine->Utils().LogIt(_L("Transaction (%d)Created in Session"),iTransaction.Id());
+
+ //Get a handle of the request in iTransaction
+ RHTTPRequest myRequest = iTransaction.Request();
+ RHTTPHeaders myHeaders = myRequest.GetHeaderCollection();
+ //provide some headers
+ THTTPHdrVal v2(textPlain);
+ THTTPHdrVal v3(textHtml);
+ THTTPHdrVal v4(6);
+
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v2);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v3);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EContentLength,RHTTPSession::GetTable()),v4);
+
+ TSrvAddrVal::LogUsing8BitDesL(iEngine, newUrlPtr8);
+ iEngine->Utils().LogIt(_L("Method:GET"));
+ iEngine->Utils().LogIt(_L("Accept:test/plain,text/html"));
+ iEngine->Utils().LogIt(_L("Content-Length: 6"));
+ myRequest.SetBody(*this);
+ CleanupStack::PopAndDestroy(newUrl8);
+ }
+
+void CHttpTestCase12::CloseTestTransaction1()
+ {
+ //close Transaction and session
+ iTransaction.Close();
+ iEngine->Utils().LogIt(_L("Transaction terminated\n"));
+ }
+
+
+void CHttpTestCase12::OpenTestTransaction3L()
+ {
+ // Literals used in the function
+ _LIT8(KUrlPath, "/perl/dumpform.pl");
+
+ // Replace the host name in the URL
+ HBufC8* newUrl8 = TSrvAddrVal::ReplaceHostNameL(KWapTestUrl(), iIniSettingsFile);
+ CleanupStack::PushL(newUrl8);
+ TPtr8 newUrlPtr8 = newUrl8->Des();
+ newUrlPtr8.Append(KUrlPath());
+
+ TUriParser8 testURI;
+ testURI.Parse(newUrlPtr8);
+
+ //get string handles this testcase needs
+ RStringF textPlain = iMyStrP.StringF(HTTP::ETextPlain,RHTTPSession::GetTable());
+ RStringF textHtml = iMyStrP.StringF(HTTP::ETextHtml,RHTTPSession::GetTable());
+ RStringF mimeType = iMyStrP.StringF(HTTP::EApplicationXWwwFormUrlEncoded,RHTTPSession::GetTable());
+
+ //open a Transaction in iSession
+ iTransaction = iSession.OpenTransactionL(testURI, *this,iMyStrP.StringF(HTTP::EPOST,RHTTPSession::GetTable()));
+ iEngine->Utils().LogIt(_L("Transaction (%d)Created in Session"),iTransaction.Id());
+
+ //Get a handle of the request in iTransaction
+ RHTTPRequest myRequest = iTransaction.Request();
+ RHTTPHeaders myHeaders = myRequest.GetHeaderCollection();
+ //provide some headers
+ THTTPHdrVal v2(textPlain);
+ THTTPHdrVal v3(textHtml);
+ THTTPHdrVal v5(mimeType);
+
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v2);
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EAccept,RHTTPSession::GetTable()),v3);
+ //No Content-Length mandatory entity header for POST: this generates the
+ //failure;
+ myHeaders.SetFieldL(iMyStrP.StringF(HTTP::EContentType,RHTTPSession::GetTable()), v5);
+
+ TSrvAddrVal::LogUsing8BitDesL(iEngine, newUrlPtr8);
+ iEngine->Utils().LogIt(_L("Method:GET"));
+ iEngine->Utils().LogIt(_L("Accept:test/plain,text/html"));
+ iEngine->Utils().LogIt(_L("Content-Type : application/x-www-form-urlencoded"));
+ myRequest.SetBody(*this);
+ CleanupStack::PopAndDestroy(newUrl8);
+ }
+
+void CHttpTestCase12::CloseTestTransaction3()
+ {
+ //close Transaction and session
+ iTransaction.Close();
+ iEngine->Utils().LogIt(_L("Transaction terminated\n"));
+ }