51Testing软件测试论坛

标题: UFT demo（二） [打印本页]
作者: Mario洁    时间: 2018-3-12 16:12
标题: UFT demo（二）
利用自动化框架对demo进行修改，框架分为6个部分，分别为commonlib，testcase，testlog，testo
bject，testpic，testscript

commonlib存放自定义函数

testcase存放测试用例

testlog存在测试日志

testobject存放对象库

testpic存放错误截图

testscript存放测试脚本

目的在于把测试脚本分拆，用函数封装主要功能，框架总体积缩小，方便自动化测试，脚本如下：

外部运行脚本启动UFT，自动执行用例：
  1. 1 Dim qtapp
  2. 2 Set qtapp=CreateObject("quicktest.application")
  3. 3 qtapp.Launch
  4. 4 qtapp.Visible=True
  5. 5 qtapp.Open "C:\AutoTest\testscript\Flight-Demo"
  6. 6 qtapp.Test.Run
  7. 7 qtapp.Quit
  8. 8 Set qtapp = nothing
  9. 复制代码
  10. 控制脚本，脚本主体框架：

  12. 复制代码
  13. 1 Option explicit
  14. 2 '1、目录生成
  15. 3 Dim testpath,testpaths
  16. 4 testpath = Environment.Value("TestDir")
  17. 5 testpaths = split(testpath,"testscript")
  18. 6 ExecuteFile testpaths(0)&"commonlib\createfolder.vbs"
  19. 7 createfolder testpaths(0)&"testlog"
  20. 8 createfolder testpaths(0)&"testpic"
  21. 9
  22. 10 '2、测试用例加载
  23. 11 '判断测试用例是否存在
  24. 12 ExecuteFile testpaths(0)&"commonlib\loadcase.vbs"
  25. 13 loadcase testpaths(0)&"testcase\testCases.xls","Login"
  26. 14
  27. 15 '3、生成日志
  28. 16 ExecuteFile testpaths(0)&"commonlib\logPrint.vbs"
  29. 17 ExecuteFile testpaths(0)&"commonlib\ErrHandle.vbs"
  30. 18
  31. 19 '4、应用程序启动
  32. 20 logPrint("开始进入功能：flight登陆功能")
  33. 21 ExecuteFile testpaths(0)&"commonlib\OpenApp.vbs"
  34. 22 OpenApp "flight4b.exe","C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4b",""
  35. 23
  36. 24 '5、测试对象加载(如果有对象库，则通过loadtsr方法加载）
  37. 25 ExecuteFile testpaths(0)&"commonlib\loadtsr.vbs"
  38. 26 ExecuteFile testpaths(0)&"testscript\login.vbs"
  39. 复制代码
  40. 测试脚本主体：

  42. 复制代码
  43. 1 Dim WarnStaticLogin,WarnStaticPassword,CheckValue,ExpectValue,ActualValue
  44. 2 ExecuteFile testpaths(0)&"commonlib\object.vbs"
  45. 3 ExecuteFile testpaths(0)&"commonlib\function.vbs"
  46. 4
  47. 5
  48. 6 logPrint("执行登陆条件：错误的用户名，正确的密码")
  49. 7 With Dialog(MyDialog)
  50. 8     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,5)
  51. 9     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,6)
  52. 10     .WinButton(MyButton).Click
  53. 11 End With
  54. 12 WarnStaticLogin = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_login).GetROProperty("regexpwndtitle")
  55. 13 If WarnStaticLogin = "Agent name must be at least 4 characters long." Then
  56. 14     CheckValue = "Agent name must be at least 4 characters long."
  57. 15     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,8)
  58. 16     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,7)
  59. 17     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,8)
  60. 18     If ExpectValue = ActualValue Then
  61. 19         CheckValue = "Pass"
  62. 20             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,9)
  63. 21         else
  64. 22             CheckValue = "Fail"
  65. 23             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,9)
  66. 24     End If
  67. 25     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
  68. 26     
  69. 27     ExitTest
  70. 28 End If
  71. 29
  72. 30 logPrint("执行登陆条件：正确的用户名，错误的密码")
  73. 31 wait 5
  74. 32 With Dialog(MyDialog)
  75. 33     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,5)
  76. 34     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,6)
  77. 35     .WinButton(MyButton).Click
  78. 36 End With
  79. 37 WarnStaticPassword = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_password).GetROProperty("regexpwndtitle")
  80. 38 If WarnStaticPassword = "Password must be at least 4 characters long" Then
  81. 39     CheckValue = "Password must be at least 4 characters long"
  82. 40     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,8)
  83. 41     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,7)
  84. 42     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,8)
  85. 43     If ExpectValue = ActualValue Then
  86. 44         CheckValue = "Pass"
  87. 45             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,9)
  88. 46         else
  89. 47             CheckValue = "Fail"
  90. 48             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,9)
  91. 49         End If
  92. 50     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click   
  93. 51 else
  94. 52     ExitTest
  95. 53 End If
  96. 54
  97. 55
  98. 56 logPrint("执行登陆条件：正确的用户名、密码")
  99. 57 wait 5
  100. 58 With Dialog(MyDialog)
  101. 59     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,5)
  102. 60     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,6)
  103. 61     .WinButton(HelpButton).Click
  104. 62     .Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
  105. 63     .WinButton(MyButton).Click
  106. 64 End With
  107. 65 If  Window(MyWindow).Exist(5) Then
  108. 66     CheckValue = "成功登录"
  109. 67     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,8)
  110. 68     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,7)
  111. 69     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,8)
  112. 70     If ExpectValue = ActualValue Then
  113. 71         CheckValue = "Pass"
  114. 72             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,9)
  115. 73         else
  116. 74             CheckValue = "Fail"
  117. 75             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,9)
  118. 76         End if
  119. 77     Window(MyWindow).WinMenu(MyMenu).Select "File;Exit"
  120. 78 else
  121. 79     ExitTest
  122. 80 End If
  123. 81 logPrint("登陆用例执行完毕")
  124. 复制代码
  125. createfolder.vbs创建文件夹：

  127. 复制代码
  128. 1 Option Explicit
  129. 2 Sub createfolder(folderpath)
  130. 3 Dim fso,f
  131. 4 Dim blfolderexist
  132. 5 Set fso = CreateObject("scripting.filesystemobject")
  133. 6 blfolderexist =  fso.FolderExists(folderpath)
  134. 7 If blfolderexist Then
  135. 8     MsgBox folderpath&"已存在"
  136. 9     fso.DeleteFolder(folderpath)
  137. 10 End If
  138. 11 Set f = fso.CreateFolder(folderpath)
  139. 12 Set fso = Nothing
  140. 13 End Sub
  141. 复制代码
  142. ErrHandle.vbs日志：

  144. 复制代码
  145. 1 Public Function ErrHandle()
  146. 2     If Err.Number <> 0 Then
  147. 3             logPrint "Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Description
  148. 4             Err.Clear
  149. 5     End If
  150. 6 End Function
  151. 复制代码
  152. loadcase.vbs确定测试用例的存在：

  154. 复制代码
  155. 1 Sub loadcase(casepath,casename)
  156. 2     Dim fso,blcaseexist
  157. 3     Set fso = CreateObject("scripting.filesystemobject")
  158. 4     blcaseexist = fso.FileExists(testpaths(0)&"testcase\testCases.xls")
  159. 5     If blcaseexist Then
  160. 6        DataTable.ImportSheet casepath,"Login","login"
  161. 7     Else
  162. 8        Reporter.ReportEvent micFail,"Login Test","测试用例不存在"
  163. 9        ExitTest
  164. 10     End If
  165. 11     Set fso = nothing
  166. 12 End Sub
  167. 复制代码
  168. loadtsr.vbs调用对象库：

  170. 1 Sub loadtsr(tsrname)
  171. 2     RepositoriesCollection.RemoveAll
  172. 3     RepositoriesCollection.Add tsrname
  173. 4 End Sub
  174. logPrint.vbs日志：

  176. 复制代码
  177. 1 Public Function logPrint(ByVal logMessage)
  178. 2     Dim fso,logFile
  179. 3     Set fso=CreateObject("scripting.filesystemobject")
  180. 4     Set logFile = fso.OpenTextFile(testpaths(0)&"testlog\runtime.log",8,true)
  181. 5     logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
  182. 6     logFile.Close
  183. 7 End Function
  184. 复制代码
  185. OpenApp.vbs打开应用程序，之所以不用systemutil.Run，是为了方便把已打开的程序关闭：

复制代码

作者: Mario洁    时间: 2018-3-12 16:12
  1. 复制代码
  2. 1 Sub OpenApp(AppName,AppPath,AppParam)
  3. 2 Dim gobj,wsh,proc
  4. 3 Dim i
  5. 4 On error resume next
  6. 5 Set gobj=GetObject("winmgmts:\\.\root\cimv2")
  7. 6 Set wsh=CreateObject("wscript.shell")
  8. 7 Set proc=gobj.execquery("select * from win32_process where name="&"'"&AppName&"'")
  9. 8 For each i in proc
  10. 9 systemutil.CloseProcessByName(AppName)
  11. 10 wscript.quit
  12. 11 Next
  13. 12 systemutil.Run AppPath,AppParam
  14. 13 End Sub
  15. 复制代码
  16. function.vbs对excel操作：

  18. 复制代码
  19. 1 Function ReadExcel(filepath,sheetname,x,y)
  20. 2 Dim ObjExcel,SrcExcel,ExcValue
  21. 3 Set ObjExcel = CreateObject("Excel.Application")
  22. 4 ObjExcel.Visible = false
  23. 5 Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
  24. 6 SrcExcel.Worksheets(sheetname).Activate
  25. 7 ExcValue = SrcExcel.Worksheets(sheetname).Cells(x,y).Value
  26. 8 ReadExcel = ExcValue
  27. 9 ObjExcel.DisplayAlerts = false
  28. 10 ObjExcel.Save
  29. 11 ObjExcel.Quit
  30. 12 Set ObjExcel = nothing
  31. 13 Set SrcExcel = nothing
  32. 14 End Function
  33. 15
  34. 16 Function DoExcel(filepath,sheetname,x,y)
  35. 17 Dim ObjExcel,SrcExcel
  36. 18 Set ObjExcel = CreateObject("Excel.Application")
  37. 19 ObjExcel.Visible = false
  38. 20 Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
  39. 21 SrcExcel.Worksheets(sheetname).Activate
  40. 22 SrcExcel.Worksheets(sheetname).Cells(x,y).Value = CheckValue
  41. 23 ObjExcel.DisplayAlerts = false
  42. 24 ObjExcel.Save
  43. 25 ObjExcel.Quit
  44. 26 Set ObjExcel = nothing
  45. 27 Set SrcExcel = nothing
  46. 28 End Function
  47. 复制代码
  48. object.vbs DP编程：

  50. 复制代码
  51. 1 Option Explicit
  52. 2 Dim MyDialog,MyName,MyPwd,MyButton,MyWindow,MyMenu,Flight_Reservations_Dialog,WarnStatic_login,WarnStatic_password,ConfirmButton,CancelButton,HelpButton
  53. 3 Set MyDialog = Description.Create()
  54. 4 MyDialog("text").value="Login"
  55. 5 Set MyName = Description.Create()
  56. 6 MyName("nativeclass").value = "Edit"
  57. 7 MyName("attached text").value = "Agent Name:"
  58. 8 Set MyPwd = Description.Create()
  59. 9 MyPwd("nativeclass").value = "Edit"
  60. 10 MyPwd("attached text").value= "Password:"
  61. 11 Set MyButton = Description.Create()
  62. 12 MyButton("text").value = "OK"
  63. 13 MyButton("nativeclass").value="Button"
  64. 14 Set MyWindow = Description.Create()
  65. 15 MyWindow("regexpwndtitle").value = "Flight Reservation"
  66. 16 Set MyMenu = Description.Create()
  67. 17 MyMenu("menuobjtype").value = "2"
  68. 18 Set Flight_Reservations_Dialog = Description.Create()
  69. 19 Flight_Reservations_Dialog("text").value = "Flight Reservations"
  70. 20 Flight_Reservations_Dialog("regexpwndtitle").value = "Flight Reservations"
  71. 21 Set WarnStatic_login = Description.Create()
  72. 22 WarnStatic_login("nativeclass").value = "Static"
  73. 23 WarnStatic_login("text").value = "Agent name must be at least 4 characters long."
  74. 24 Set WarnStatic_password = Description.Create()
  75. 25 WarnStatic_password("nativeclass").value = "Static"
  76. 26 WarnStatic_password("text").value = "Password must be at least 4 characters long"
  77. 27 Set CancelButton = Description.Create()
  78. 28 CancelButton("regexpwndtitle").value = "Cancel"
  79. 29 Set ConfirmButton = Description.Create()
  80. 30 ConfirmButton("regexpwndtitle").value = "确定"
  81. 31 Set HelpButton = Description.Create()
  82. 32 HelpButton("regexpwndtitle").value = "Help"
复制代码

作者: 梦想家    时间: 2018-5-14 08:48
学习



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2