Добавление параметра для теста VAPI-XP с использованием currentTstTest obj

Я новичок в VBScript, в настоящее время я создал новый тест VAPI-XP> План тестирования. После создания теста VAPI я добавил параметры в свой тест, используя вкладку "Параметры теста". Теперь на вкладке "Сценарий теста" (VBSCRIPT) мне нужно получить добавленный параметр

Может кто-нибудь мне помочь!! Pls

VBSCRIPT

Sub Test_Main(Debug, CurrentTestSet, CurrentTSTest, CurrentRun)
On Error Resume Next
TDOutput.Clear
return = XTools.run("D:\ACoE RnD Team\Eclipse Workspace\SilkTest\InitScript.bat","Scenario1 TC1 Regression RunAllIterations 0 0 firefox 3.6 WINDOWS")

Мне нужно перенести мои параметры теста в Xtools.run вместо сценария 1, TC1, регрессии...

Я не могу использовать params, так как он устарел, и я не имею представления об использовании объекта TestParameterFactory

// Пример vbscript для добавления параметра добавления из тестового скрипта, но он не работает

Set testParamsFactory = supportParamTest.TestParameterFactory
Set parameter = testParamsFactory.AddItem(Null)
parameter.Name = "name"
parameter.Description = "desc"
parameter.Post

Может ли кто-нибудь предложить мне получить параметры с помощью CurrentTSTest obj?

Источник

2 ответа

Решение

Успешно восстановлено Default_Value параметр из вкладки параметров теста

Set SetTestParameter = TestFactory.Item(intTestID)
Set TestParamsFactory = SetTestParameter.TestParameterFactory
Set IterateparameterValue = TestParamsFactory.NewList("")

for each IterateParam in gobjIterateparameterValue
     ParamFieldDefaultValue = IterateParam.DefaultValue
     TDOutput.Print (ParamFieldDefaultValue)
 next

Оно работает! Без использования CurrentTSTest obj, для доступа к вкладке параметров достаточно просто передать текущий идентификатор теста (intTestID)

Источник

Вы должны быть в состоянии сделать это так:

 Set aParam = CurrentTSTest
  Set paramValueFct = aParam.ParameterValueFactory
  Set lst = paramValueFct.NewList("")

  For Each param In lst
        With param
          TDOutput.Print("Name: " & .Name & ", Value: " & .DefaultValue)
        End With
  Next

Ваш пробег может варьироваться в зависимости от формата этого DefaultValue.

Источник
Другие вопросы по тегам