写段QTP脚本与大家一起分享
生活随笔
收集整理的這篇文章主要介紹了
写段QTP脚本与大家一起分享
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
Dim b,c ic=datatable.GetSheet("Action1").GetRowCount For i=1 to ic Browser("新浪郵箱").Page("新浪郵箱").WebEdit("u").Set DataTable("user", dtLocalSheet) Browser("新浪郵箱").Page("新浪郵箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet) Browser("新浪郵箱").Page("新浪郵箱").WebButton("登 錄").Click Browser("新浪郵箱").Page("經(jīng)典再現(xiàn)_新浪郵箱").Link("這里").Click a = Browser("新浪郵箱").Page("經(jīng)典再現(xiàn)_新浪郵箱").Check (CheckPoint("jdzytony")) b=abs(a) c=abs(DataTable("result", dtLocalSheet)) If (b=c) Then?reporter.ReportEvent micdone ,"成功:","執(zhí)行與預(yù)期一致！" Else ?reporter.ReportEvent micFail ,"錯(cuò)誤：","第"&i&"個(gè)用例實(shí)際執(zhí)行結(jié)果與預(yù)期不一致！" End If Browser("新浪郵箱").Page("新浪郵箱_2").WebButton("收郵件").Click Browser("新浪郵箱").Page("新浪郵箱_2").Image("btQuit.gif").Click DataTable.GetSheet("Action1").SetNextRow Next
轉(zhuǎn)載于:https://blog.51cto.com/tester2test/137614
總結(jié)
以上是生活随笔為你收集整理的写段QTP脚本与大家一起分享的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Silverlight 2 Dispat
- 下一篇： s3c2440移植MQTT