qtp中的期望值和预期值的比较

1。录制脚本

2。修改脚本

3。执行脚本

4。分析测试报告

5。回报发现缺陷

2。对text 进行参数化

Dim i  //定义变量，

Dim outPutValue ' du qu xi tong shi ji shu chu xin xi
Dim getPutValue 'huo qu xi tong yu qi zhi  de bian liang
For i=1 to DataTable.GetSheet("Action1").GetRowCount  //遍历表用for 循环

Browser("Browser").Page("Page").WebEdit("TextBox1").Set DataTable("p_Text", dtLocalSheet)
Browser("Browser").Page("Page").WebEdit("TextBox2").Set DataTable("p_Text1", dtLocalSheet)
Browser("Browser").Page("Page").WebButton("login").Click

Browser("Browser").Page("Page").Output CheckPoint("Page_3")

getPutValue=datatable.Value("result","Action1")
outPutValue=DataTable.Value("PageChecked_Text",dtLocalSheet)// page_3的实际值

 

 If  trim(getPutValue)=trim(outPutValue)  Then //注意这里要用trim 函数防止有空格比较不错来
   msgbox  getPutValue &"++++" &outPutValue

else
  msgbox "aaa"  //不能用strcmp（str1，str2） 比较是对象比较，因此在这里不能用。
 End If

datatable.GetSheet("Action1").SetNextRow   //他是datatable移向下一行的，没有他数据只会直走第一行
Next

Browser("Browser").Page("Page_2").WebEdit("TextBox1").Set "aabc"
Browser("Browser").Page("Page_2").WebButton("back").Click
Browser("Browser").Page("Page_3").Sync
Browser("Browser").Close