georg_jezersek
11 years agoOccasional Contributor
Event not fireing when scripting
Hi I tried a sample script from TestComplete and it runs a onload event request. I try to ad the response event and the script is just not recognizing this one. Here is my sample script. The problem sub is ub GeneralEvents_OnLoadTestingResponse(Sender, User, Request) Please help :-)
Sub Main
dim startTime,loadTime
set Station1 = LoadTesting.Stations.ItemByName("Master")
set Station2 = LoadTesting.Stations.ItemByName("Station1")
set TestInstance = LoadTesting.Tests.TestByName("Test").CreateTestInstance
For i = 0 To 1
Set HTTPTask = LoadTesting.HTTPTask("Task")
if (i = 0) Then
Set TestInstance.User(i).Station = Station1
else
Set TestInstance.User(i).Station = Station2
end if
Set TestInstance.User(i).Task = HTTPTask
next
call TestInstance.Run("Distributed")
End Sub
Sub GeneralEvents_OnLoadTestingRequest(Sender, User, Request)
Call Log.Message("Request_" & Request.RequestID & " Header", Request.RequestHeader)
startTime = aqDateTime.Time
' The body is empty for all GET requests
Call Log.Message("Request_" & Request.RequestID & " Body", Request.RequestBody.Contents)
loadTime = aqDateTime.Time - startTime
Call Log.Message("Subroutine Request load time:" & loadTime & "ms")
MsgBox "OnLoad Request"
End Sub
Sub GeneralEvents_OnLoadTestingResponse(Sender, User, Request)
startTime = aqDateTime.Time
' The body is empty for all GET requests
Call Log.Message("Request_" & Request.RequestID & " Body", Request.RequestBody.Contents)
loadTime = aqDateTime.Time - startTime
Call Log.Message("Subroutine Response load time:" & loadTime & "ms")
MsgBox "Response"
End Sub
Sub Main
dim startTime,loadTime
set Station1 = LoadTesting.Stations.ItemByName("Master")
set Station2 = LoadTesting.Stations.ItemByName("Station1")
set TestInstance = LoadTesting.Tests.TestByName("Test").CreateTestInstance
For i = 0 To 1
Set HTTPTask = LoadTesting.HTTPTask("Task")
if (i = 0) Then
Set TestInstance.User(i).Station = Station1
else
Set TestInstance.User(i).Station = Station2
end if
Set TestInstance.User(i).Task = HTTPTask
next
call TestInstance.Run("Distributed")
End Sub
Sub GeneralEvents_OnLoadTestingRequest(Sender, User, Request)
Call Log.Message("Request_" & Request.RequestID & " Header", Request.RequestHeader)
startTime = aqDateTime.Time
' The body is empty for all GET requests
Call Log.Message("Request_" & Request.RequestID & " Body", Request.RequestBody.Contents)
loadTime = aqDateTime.Time - startTime
Call Log.Message("Subroutine Request load time:" & loadTime & "ms")
MsgBox "OnLoad Request"
End Sub
Sub GeneralEvents_OnLoadTestingResponse(Sender, User, Request)
startTime = aqDateTime.Time
' The body is empty for all GET requests
Call Log.Message("Request_" & Request.RequestID & " Body", Request.RequestBody.Contents)
loadTime = aqDateTime.Time - startTime
Call Log.Message("Subroutine Response load time:" & loadTime & "ms")
MsgBox "Response"
End Sub