0

我是 VBScript 的新手，目前我已经创建了一个新的 VAPI-XP 测试 > 测试计划，在创建 VAPI 测试之后，我使用测试参数选项卡向我的测试添加了参数现在在测试脚本 (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 来代替 Scenario1 、 TC1 、 Regression ...

我无法使用参数，因为它已被弃用，而且我不知道使用 TestParameterFactory 对象

//用于从测试脚本添加添加参数的示例 vbscript，但它不起作用

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

有人可以建议我使用 CurrentTSTest obj 获取参数吗？

4

2 回答 2

3

你应该可以这样做：

 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 的格式而异。

于 2013-01-08T15:48:59.000 回答
0

成功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，只需传递当前测试 ID (intTestID) 即可访问参数选项卡

于 2013-01-22T06:26:04.320 回答