uft代码自定义测试点
来源:互联网 发布:中国戏曲学院网络 编辑:程序博客网 时间:2024/06/04 01:09
'打开查询界面
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set DataTable("Order_No", dtGlobalSheet)
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
'定义出发地,目的地,姓名,日期
Dim form,form1,to1,to2,name,name1,date1,date2
'出发地的分别从Global和运行时得到
form = DataTable("Fly_From", dtGlobalSheet)
form1 = Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("text")
'判断两个出发地是否相同
If from1=from2 Then
Reporter.ReportEvent micPass,"出发地点相同","出发地点与选定出发地点相同"
else
Reporter.ReportEvent micFail,"出发地点不同","出发地点与选定出发地点不同"
End If
'目的地的分别从Global和运行时得到
to1 = DataTable("Fly_To", dtGlobalSheet)
to2 = Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")
'判断两个目的地是否相同
If to1=to2 Then
Reporter.ReportEvent micPass,"目的地相同","目的地与选定目的地相同"
else
Reporter.ReportEvent micFail,"目的地不相同","目的地与目的地不相同"
End If
'姓名的分别从Global和运行时得到
name = DataTable("Name", dtGlobalSheet)
name1 = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
'判断两个姓名是否相同
If name1=name Then
Reporter.ReportEvent micPass,"姓名相同","姓名与输入姓名相同"
else
Reporter.ReportEvent micFail,"姓名不相同","姓名与输入姓名不相同"
End If
'日期的分别从Global和运行时得到
date2 = Window("Flight Reservation").ActiveX("MaskEdBox").GetROProperty("text")
date2=left(date2,2)&mid(date2,4,2)&right(date2,2)
date1=DataTable("Date", dtGlobalSheet)
'判断两个日期是否相同
If date1=date2 Then
Reporter.ReportEvent micPass,"日期相同","日期相同"
else
Reporter.ReportEvent micFail,"日期不相同","日期不相同"
End If
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set DataTable("Order_No", dtGlobalSheet)
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
'定义出发地,目的地,姓名,日期
Dim form,form1,to1,to2,name,name1,date1,date2
'出发地的分别从Global和运行时得到
form = DataTable("Fly_From", dtGlobalSheet)
form1 = Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("text")
'判断两个出发地是否相同
If from1=from2 Then
Reporter.ReportEvent micPass,"出发地点相同","出发地点与选定出发地点相同"
else
Reporter.ReportEvent micFail,"出发地点不同","出发地点与选定出发地点不同"
End If
'目的地的分别从Global和运行时得到
to1 = DataTable("Fly_To", dtGlobalSheet)
to2 = Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("text")
'判断两个目的地是否相同
If to1=to2 Then
Reporter.ReportEvent micPass,"目的地相同","目的地与选定目的地相同"
else
Reporter.ReportEvent micFail,"目的地不相同","目的地与目的地不相同"
End If
'姓名的分别从Global和运行时得到
name = DataTable("Name", dtGlobalSheet)
name1 = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
'判断两个姓名是否相同
If name1=name Then
Reporter.ReportEvent micPass,"姓名相同","姓名与输入姓名相同"
else
Reporter.ReportEvent micFail,"姓名不相同","姓名与输入姓名不相同"
End If
'日期的分别从Global和运行时得到
date2 = Window("Flight Reservation").ActiveX("MaskEdBox").GetROProperty("text")
date2=left(date2,2)&mid(date2,4,2)&right(date2,2)
date1=DataTable("Date", dtGlobalSheet)
'判断两个日期是否相同
If date1=date2 Then
Reporter.ReportEvent micPass,"日期相同","日期相同"
else
Reporter.ReportEvent micFail,"日期不相同","日期不相同"
End If
0 0
- uft代码自定义测试点
- UFT设置自定义检查点
- 功能测试-UFT 工具
- 自动化测试工具-UFT
- UFT自动化测试框架
- UFT要点之同步点
- uft 函数资源库/验证点
- 使用UFT进行接口测试
- 软件功能测试UFT篇
- UFT工具测试Flight系统
- 自动化测试软件UFT实验
- WebServices测试之一-----UFT测试WEBSERVICES
- dotNet测试之二-------UFT GUI测试
- dotNet测试之三-------UFT API测试
- UFT
- UFT
- UFT
- UFT
- 面试
- 数据结构时间复杂度计算
- java面试题
- java
- scanf()函数的用法
- uft代码自定义测试点
- poj训练计划解题报告(做的不多,,,)
- java
- 周赛 2 【拓展GCD&&欧几里得数】
- 正则表达式
- 迷宫最终版本(暂时的)
- 在eclipse中打开文件所在的目录
- 【codevs4093】EZ的间谍网络 tarjan
- String,StringBuilder,StringBuffer三者的区别