--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/websrv_pub/hostlet_connection_api/tsrc/hostconnTester/src/testhostlet.cpp	Thu Jan 07 16:19:19 2010 +0200
@@ -0,0 +1,191 @@
+/*
+* Copyright (c) 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:      
+*
+*/
+//  CLASS HEADER
+#include "TestHostlet.h"
+
+//  EXTERNAL INCLUDES
+#include <Stiftestinterface.h>
+
+#include <SenTransportProperties.h>
+
+//  INTERNAL INCLUDES
+#include "hostconnTester.h"
+
+namespace
+    {
+    //_LIT8(KHostletEndpoint, "hostlet://UnitTestHostlet");
+    _LIT8(KHostletContract, "urn:nokia.com.serene:unit-test-hostlet");
+    }
+
+CTestHostlet* CTestHostlet::NewL(ChostconnTester* aTestSuite,
+                                 TInt (*ap2ServiceL) (ChostconnTester*, MSenHostletRequest&, MSenHostletResponse&),
+                                 TInt (*ap2OnServiceCompleteL) (ChostconnTester*, const TInt, TInt, const TDesC8&),
+                                 void (*ap2DescribeServiceL)(CSenXmlServiceDescription&))
+    {
+    CTestHostlet* pSelf = CTestHostlet::NewLC(aTestSuite, ap2ServiceL, ap2OnServiceCompleteL, ap2DescribeServiceL);
+    CleanupStack::Pop(pSelf);
+    return pSelf;
+    }
+
+CTestHostlet* CTestHostlet::NewLC(ChostconnTester* aTestSuite,
+                                  TInt (*ap2ServiceL) (ChostconnTester*, MSenHostletRequest&, MSenHostletResponse&),
+                                  TInt (*ap2OnServiceCompleteL) (ChostconnTester*, const TInt, TInt, const TDesC8&),
+                                  void (*ap2DescribeServiceL)(CSenXmlServiceDescription&))
+    {
+    CTestHostlet* pSelf = new (ELeave) CTestHostlet(aTestSuite, ap2ServiceL, ap2OnServiceCompleteL, ap2DescribeServiceL);
+    CleanupStack::PushL(pSelf);
+    pSelf->ConstructL();
+	    
+    return pSelf;
+    }
+
+CTestHostlet::CTestHostlet(ChostconnTester* aTestSuite,
+                           TInt (*ap2ServiceL) (ChostconnTester*, MSenHostletRequest&, MSenHostletResponse&),
+                           TInt (*ap2OnServiceCompleteL) (ChostconnTester*, const TInt, TInt, const TDesC8&),
+                           void (*ap2DescribeServiceL)(CSenXmlServiceDescription&))
+    : ipTestSuite(aTestSuite),
+      ip2ServiceL(ap2ServiceL),
+      ip2OnServiceCompleteL(ap2OnServiceCompleteL),
+      ip2DescribeServiceL(ap2DescribeServiceL)
+    {
+    }
+
+CTestHostlet::~CTestHostlet()
+    {
+    delete ipHostletDescription;
+    iRequests.ResetAndDestroy();
+    iResponses.ResetAndDestroy();
+    iRequestProps.ResetAndDestroy();
+    iRequestPropTypes.Reset();
+    iResponseProps.ResetAndDestroy();
+    iResponseCodes.Reset();
+    iTxnIds.Reset();
+    iCompletionCodes.Reset();
+    }
+
+void CTestHostlet::ConstructL()
+    {
+    ipHostletDescription = CSenXmlServiceDescription::NewL(KNullDesC8, KHostletContract);
+	//ipHostletDescription = CSenXmlServiceDescription::NewL(KHostletEndpoint, KNullDesC8);    	
+    ipHostletDescription->SetFrameworkIdL(KDefaultRestServicesFrameworkID);
+    }
+    
+
+void CTestHostlet::DescribeServiceL(CSenXmlServiceDescription& aSD) 
+    { 
+    if( ip2DescribeServiceL ) 
+    	{
+   		(*ip2DescribeServiceL)(aSD);
+    	}
+        else
+            {
+            aSD.SetEndPointL(Endpoint());
+            aSD.SetContractL(Contract()); 
+            aSD.SetFrameworkIdL(FrameworkId());	
+            }
+    }
+
+TPtrC8 CTestHostlet::Contract() const
+    {
+    return ipHostletDescription->Contract();
+    }
+
+TPtrC8 CTestHostlet::Endpoint() const
+    {
+    return ipHostletDescription->Endpoint();
+    }
+
+TInt CTestHostlet::ServiceL(MSenHostletRequest& aRequest, MSenHostletResponse& aResponse)
+    {
+    
+
+    iTxnIds.Append(aRequest.RequestId());
+    iResponseCodes.Append(KErrNone);
+    
+
+    	
+    TInt retVal(KErrNone);
+    // Setup default response, can be overridden by test case:
+    // Dummy response
+    TPtrC8 request = aRequest.RequestUtf8();
+
+
+    iRequests.Append(request.AllocL());
+    
+    MSenProperties::TSenPropertiesClassType propType;
+    TPtrC8 requestProperties = aRequest.Properties(propType);
+    iRequestProps.Append(requestProperties.AllocL());
+    iRequestPropTypes.Append(propType);
+    
+//    _LIT8(KResponseFmt, "<Response><ReplyMessage>ChostconnTester is alive.</ReplyMessage><Request>%S</Request></Response>");
+  	_LIT8(KResponseFmt, "<S:Envelope xmlns:S=\"http://schemas.xmlsoap.org/soap/envelope/\"><S:Header></S:Header><S:Body>testing text hostlet</S:Body></S:Envelope>");  
+    HBufC8* pResponse = HBufC8::NewLC(request.Length()+KResponseFmt().Length());
+    TInt appendError = iResponses.Append(pResponse);
+    if( appendError )
+        {
+        CleanupStack::PopAndDestroy(pResponse); // delete orphan HBufC8 / pResponse
+        }
+    else
+        {
+        CleanupStack::Pop(pResponse); // now owned by iResponses -array..
+        }        
+    
+    TPtr8 response = iResponses[iTxnIds.Count()-1]->Des();
+    response.Format(KResponseFmt, &request);
+    aResponse.SetResponseUtf8L(response, iResponseCodes[iTxnIds.Count()-1]); // by default, all requests are "accepted"
+      
+    if ( ip2ServiceL )
+        {
+        // NOTE(!): if RESPONSE CODE in aResponse is modified in YOUR test case,
+        // remember set iResponseCodes for this test hostlet instance in your test
+        //  case code (ServiceL callback)
+        retVal = (*ip2ServiceL)(ipTestSuite, aRequest, aResponse); 
+        }
+    TPtrC8 providedResponse = aResponse.ResponseUtf8();
+    
+    if ( iResponses[iTxnIds.Count()-1]->Compare(providedResponse) != 0 )
+        {
+        // response was altered by TEST CASE:
+        iResponses.Insert(aResponse.ResponseUtf8().AllocL(),iTxnIds.Count()-1);
+        }
+        
+        
+    RDebug::Print(_L("CTestHostlet::ServiceL received:"));
+    RDebug::RawPrint(request);
+    if (ipTestSuite->ipUsedHostletConnection)
+    {
+    	iRespondRetCode = ipTestSuite->ipUsedHostletConnection->RespondL(aResponse);
+    }
+    else
+		iRespondRetCode = ipTestSuite->ipHostletConnection->RespondL(aResponse); 
+   return retVal;
+    }
+
+void CTestHostlet::OnServiceCompleteL(const TInt aTxnId, 
+                                      TInt aCompletionCode, 
+                                      const TDesC8& aDesc)
+    {
+  
+    iCompletionCodes.Append(aCompletionCode); 
+    if( ip2OnServiceCompleteL )
+        {
+        (*ip2OnServiceCompleteL)( ipTestSuite, aTxnId, aCompletionCode, aDesc );
+        }
+    ipTestSuite->StopActiveScheduler(); // service provided
+    }
+    
+//  END OF FILE