## Include script - trans4 response data in one chunk, single SDU
#
# Body data -
# response_data_1_driver.txt
#
# Header data- 
# Content-Type : application/vnd.wap.wmlc
#
# The method will be in the Null state
#
SCRIPT trans4_response_singlechunk_singlesdu_driver
#
# Expect the S-MethodResult.ind primitive - first the headers event...
#
	EXPECT
		INVOCATION TransactionRunL
			VALIDATE aTransaction trans4
			VALIDATE aEvent EGotResponseHeaders
		ENDINVOCATION
	ENDEXPECT
#
# ...then the body data event
#
	EXPECT
		INVOCATION TransactionRunL
			VALIDATE aTransaction trans4
			VALIDATE aEvent EGotResponseBodyData
		ENDINVOCATION
	ENDEXPECT
#
# Check the status code and the content-type header and server header
#
	SLEEP 500
	SEND
		INVOKE trans4 GetStatusCode
			VALIDATE :RETURN: 200
		ENDINVOKE
		INVOKE trans4 GetHeaderL
			PARAMETER aFieldName Content-Type
			VALIDATE aFieldType RStringF
			VALIDATE aFieldValue application/vnd.wap.wmlc
			PARAMETER aPart 0
			VALIDATE :RETURN: ETrue
		ENDINVOKE
		INVOKE trans4 GetHeaderL
			PARAMETER aFieldName Server
			VALIDATE aFieldType RStringF
			VALIDATE aFieldValue bunny
			PARAMETER aPart 0
			VALIDATE :RETURN: ETrue
		ENDINVOKE
	ENDSEND
#
# Get the response body data supplier and the data
#
	SEND
		INVOKE trans4 GetBody
			STOREITEM :RETURN: respBody4
		ENDINVOKE
		INVOKE respBody4 MHTTPDataSupplier::OverallDataSize
			VALIDATE :RETURN: 150
		ENDINVOKE
		INVOKE respBody4 MHTTPDataSupplier::GetNextDataPart
			VALIDATE aDataPart <$file$C:\HttpTest\wsp_pr_hnd_driver\response_data_1_driver.txt$file$>
			VALIDATE :RETURN: ETrue
		ENDINVOKE
	ENDSEND
	SEND
		INVOKE respBody4 MHTTPDataSupplier::ReleaseData
		ENDINVOKE
	ENDSEND
#
# Expect the response complete event
#
	EXPECT
		INVOCATION	TransactionRunL
			VALIDATE aTransaction trans4
			VALIDATE aEvent EResponseComplete
		ENDINVOCATION
	ENDEXPECT
#
# Expect the succeeded event
#
	EXPECT
		INVOCATION	TransactionRunL
			VALIDATE aTransaction trans4
			VALIDATE aEvent ESucceeded
		ENDINVOCATION
	ENDEXPECT
ENDSCRIPT
