2012-12-14 56 views
0

我是VBScript的新手,目前我已經創建了一個新的VAPI-XP測試>測試計劃, 創建VAPI測試後,我已經使用測試向我的測試添加了參數參數選項卡 現在在測試腳本(VBSCRIPT)選項卡我需要獲得添加的參數使用currentTstTest添加參數對於VAPI-XP測試obj

任何人都可以幫助我! 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到位Scenario1,TC1,迴歸......

我無法使用PARAMS以來一直棄用,我已經沒有使用TestParameterFactory對象

//示例VBScript從測試腳本添加添加參數的想法,但它不工作

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

任何人都可以建議我使用CurrentTSTest obj獲取參數嗎?

回答

0

成功檢索到Default_Value PARAM從測試參數標籤

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)

+0

所以,你使用@ candita的解決方案,但隨後把它寫成你自己的,然後給你的答案作爲接受的答案? – Harrison

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 

你的情況可能與默認值的格式雖然有所不同。

+0

即可訪問參數選項卡!得到它感謝很多candita – Ganeshja