51testing自动化测试学习第三天

严小婷

2013.10.27

QTP第三天



环境变量设置、使用、导入

语句导入：

Environment.LoadFromFile("C:\Users\usera\Desktop\qtp3\Test1\环境变量.xml")

workfolder1 = Environment.Value("workfolder1")





导入DataTable

DataTable.ImportSheet
workfolder1&"\TestCase.xls", "main", "Global"





Action传参的使用

MainAction(Action1)进行insert call to new Action，name为login，选择After the current step

MainAction(Action1)的Action properties的Parameter添加INPUT1和OUTPUT1

login(子Action)的Action properties的Parameter添加INPUT2
和OUTPUT2

login(子Action)的call properties—Parameter---(参数化为MainAction的变量)



MainAction的内容如下：

Parameter("INPUT1")="test1"

RunAction
"login", oneIteration, Parameter("INPUT1"),
Parameter("OUTPUT1")

print
Parameter("OUTPUT1")



子Action内容如下：

'If
Parameter("INPUT2 ")="hi" Then

'
Parameter("OUTPUT2")="pass"

'
else

'
Parameter("OUTPUT2")="faile"

'End
If





往报告中添加内容：成功OR失败

reporter.ReportEvent micPass,"Login pass","Login
successful"

reporter.ReportEvent micFail,"Login fail","Login
failed"





描述性编程

WebElement("innertext:="&uname,"y:=42")





‘直接描述性编程

‘计算器的的代码:



Dim
calcstr,lens,i,Expect,actual

calcstr=datatable("calcstr")

Expect=datatable("Expect")

lens=len(calcstr)



SystemUtil.CloseProcessByName "calc.exe"

SystemUtil.Run "calc"

Window("text:=计算器").Activate

Window("text:=计算器").WinButton("text:=C").Click



For i = 1
To lens


Select Case mid(calcstr,i,1)


Case "+"
Window("text:=计算器").WinButton("text:=\"&mid(calcstr,i,1)).Click


Case "*"
Window("text:=计算器").WinButton("text:=\"&mid(calcstr,i,1)).Click


case Else
Window("text:=计算器").WinButton("text:="&mid(calcstr,i,1)).Click


End Select

Next



actual=Window("text:=计算器").WinEdit("nativeclass:=Edit").GetROProperty("text")

'print
actual

'print
Expect

If
cdbl(actual)= cdbl(Expect) Then

Reporter.ReportEvent micPass, "OK", "OK"

Else

Reporter.ReportEvent micFail, "NO", "NO"

End
If





‘使用对象描述性编程

‘计算器的的代码:

SystemUtil.CloseProcessByName "calc.exe"

SystemUtil.Run "calc"

Window("text:=计算器").Activate

Window("text:=计算器").WinButton("text:=C").Click



Dim
mywindow,mybutton,objCol,i
'
定义



Set
mywindow=description.Create()'创建虚拟对象

Set
mybutton=description.Create()

mywindow("Class Name").value="Window"'进行对象属性描述

mywindow("text").value="计算器"



mybutton("Class Name").value="WinButton"

'mybutton("text").value="1"

mybutton("text").value="\d+"'正则表达式

mybutton("x").value="62"



'Window(mywindow).WinButton(mybutton).Click'使用

Set
objCol=Window(mywindow).ChildObjects(mybutton)

For i=0 to
objCol.count-1


objCol(i).Click

Next

Set mywindow=nothing'释放

Set
mybutton=nothing





‘使用对象描述性编程

‘随机回帖



Dim
mylink,mylinks,MyValue

set
mylink=description.Create()

mylink("x").value=62

mylink("href").value="http://172.168.1.202:8000/upload/read\.php\?tid=\d+"

Set
mylinks=Browser(":=").Page(":=").WebTable("html
tag:=TABLE","Index:=2").ChildObjects(mylink)

Randomize ' Initialize
random-number generator.

MyValue =
Int((mylinks.count * Rnd) ) '
Generate random value between 1 and 6.

'print
MyValue

'print
mylinks.count

'print
(cstr(mylinks(MyValue).GetRoProperty("href")))

Browser(":=").Navigate
(cstr(mylinks(MyValue).GetRoProperty("href")))





错误处理方法1:

On Error
Resume Next'进行忽略错误



Dim
result

result=1/0'错误

result=1/2

print
Err.number'错误号

print
Err.Description'错误内容

Err.Clear'错误清楚

print
Err.Description



On Error
GoTo 0'取消忽略错误



错误处理方法2

File—settings—run



错误处理方法3：场景恢复

触发事件

恢复操作

恢复后运行设置

恢复

具体步骤如下自行探索（图片上传比较难）

事先判断button能不能用，能用就点击，不能就不点击

RegisterUserFunc "WinButton", "Click", "MyClick"
,True

Window("Flight
Reservation").WinButton("Button_2").Click

Window("Flight
Reservation").WinButton("FLIGHT").Click

Function
MyClick (objButton)

If
objButton.GetROProperty("enabled") Then


Reporter.ReportEvent micDone, "Button satus", "enabled"


MyClick=objButton.Click


else


Reporter.ReportEvent micWarning, "Button satus",
"disabled"

End If

End
Function