UFT设置自定义检查点-程序员宅基地

'测试人员:XXX
'时间:2015-10-19
'模块:航班订票系统订单模块
'脚本主要功能:1、检查程序中图片里的自由女神像部分是否正常出现
' 2、输入详细信息,点击Insert Order按钮进行订票
' 3、检查新生成的订单号Order No是否为正整数,并用用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
' 4、检查Price*Ticket的价格是否等于Total




Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "102515"'输入日期
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"'选择起点
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"'选择终点
Window("Flight Reservation").WinButton("FLIGHT").Click'选择航班
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click'点击选择航班后的OK按钮
Window("Flight Reservation").WinEdit("Name:").Set "swl"'输入姓名
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"'输入票数
Window("Flight Reservation").WinRadioButton("First").Set'选择席位
Window("Flight Reservation").Static("Static").Check CheckPoint("Static_3")'添加位图检查点,检查程序中图片里的自由女神像部分是否正常出现;




'采用自定义检查点,检查Price*Ticket的价格是否等于Total,并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句
Dim Price,prices,Ticket,tickets,Total,totals   '声明变量并分配存储空间
Price=Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")'获取单价框内容
prices=mid(price,2)'Mid从字符串中返回指定数目的字符  从第二位读取单价框内容,去除dollar符号,只取数值位
msgbox"prices:"&prices'msgbox在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮。


Ticket=Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")'获取票数框内容
msgbox"tickets:"&Ticket


Total=Window("Flight Reservation").WinEdit("Total:").GetROProperty("text")'获取总价框内容
totals=mid(Total,2)'Mid从字符串中返回指定数目的字符  从第二位读取单价框内容,去除dollar符号,只取数值位
msgbox"totals:"&totals


msgbox "系统报价:"&totals& vbcrlf & "计算报价:"&prices*Ticket  '比较 总价 与 票数 X 单价


If abs(totals-cdbl(prices*ticket))<0.00001 Then    'ABS函数取绝对值
Reporter.ReportEvent micPass, "价格比较", "相等"'将定义的事件提交到结果日志中
Else
    Reporter.ReportEvent micFail, "价格比较", "不相等"
End If






'采用标准检查点,检查新生成的订单号Order No是否为正整数(【0-9】+)或\d;
'使用自定义检查点,并用if语句写出判定成功或者失败后的Reporter.ReportEvent报告语句,记录到测试结果中
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Activate
Window("Flight Reservation").WinEdit("Order No:").Check CheckPoint("Order No:")


Dim OrderNo
OrderNo=Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
Dim regEx
Set regEx=New regExp
regEx.Pattern="[0-9]+"


If regEx.test(OrderNo) Then
Reporter.ReportEvent micPass, "同为整数", "成功"
Else
Reporter.ReportEvent micFail, "不为整数", "失败"
End If
Window("Flight Reservation").WinButton("Button").Click
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/u011040172/article/details/49404579

智能推荐

Springboot计算机毕业设计微信小程序的新闻管理系统【附源码】开题+论文+mysql+程序+部署-程序员宅基地

文章浏览阅读668次,点赞10次,收藏13次。最后,针对新闻分类的精准性问题,系统将采用合理的分类标准和算法,实现新闻内容的自动分类和推荐,提高用户体验和新闻传播效果。通过本系统的开发与应用,旨在提升新闻传播的效率和效果,满足用户多样化的新闻需求。通过本研究的实施,预期能够取得以下成果:首先,成功开发一款基于微信小程序的新闻管理系统,实现新闻信息的快速发布与管理、用户权限的有效控制以及新闻分类的精准推荐;同时,系统提供的用户管理、新闻类型分类和新闻信息发布等功能,能够帮助新闻机构更好地组织和管理新闻内容,提高新闻发布的质量和效率。

银行家算法程序流程图_raptor银行家算法流程图-程序员宅基地

文章浏览阅读5.2k次,点赞5次,收藏28次。银行家算法程序流程图 _raptor银行家算法流程图

计算机网络—— DNS和CDN那些事_nds cdn-程序员宅基地

文章浏览阅读2k次,点赞2次,收藏2次。前言DNS:keyword:域名解析为IP地址。域名解析协议(DNS)用来把便于人们记忆的主机域名和电子邮件地址映射为计算机易于识别的IP地址。DNS是一种c/s的结构,客户机就是用户用于查找一个名字对应的地址,而服务器通常用于为别人提供查询服务。 ———百度百科CDN:keyword:就近, 降低拥塞。CDN的全称是Content Delivery Network,即内容分发网络。CDN是构建在现有网络基础之上的智能虚拟网络,依靠部署在各地的边缘服务器,通过中心平台的负载均衡、内容_nds cdn

在bootstrap的table表格中,设置文本内容居中_bootstrap table 文字剧中-程序员宅基地

文章浏览阅读2.9w次,点赞9次,收藏3次。可以在你需要居中的td中添加class text-center例如:```这里的内容在表格内居中了``` 或者在js中设置表格中所有内容居中,代码如下```$("td,th").addClass("text-center");```_bootstrap table 文字剧中

动态规划_动态规划方法是运筹学方法吗-程序员宅基地

文章浏览阅读1w次,点赞7次,收藏31次。1. 什么是动态规划从数学的视角来看,动态规划是一种运筹学方法,是在多轮决策过程中的最优方法。那么,什么是多轮决策呢?其实多轮决策的每一轮都可以看作是一个子问题。从分治法的视角来看,每个子问题必须相互独立。但在多轮决策中,这个假设显然不成立。这也是动态规划方法产生的原因之一。2. 最短路径问题接下来看一个非常典型的例子,最短路径问题。如下图所示:每个结点是一个位置,每条边是两个位置之间的距离。现在需要求解出一条由 A 到 G 的最短距离是多少。不难发现,我们需要求解的路线是由 A 到 G,这就_动态规划方法是运筹学方法吗

一些数组的操作技巧_清空数组改变原数组-程序员宅基地

文章浏览阅读237次。工作中大多数情况下都是对数组的操作,熟练掌握数组操作的奇淫技巧,对数组运用自如也能提高工作效率。数组去重(改变原数组)先讲两个ES6时代简单的去重方法,都是用Set结构完成: let letters = ['a', 'b', 'c', 'd', 'c', 'b', 'a']; let uniqueLetter = Array.from(new Set(letters)); console.log(uniqueLetter); let uniqueLetter1 = [_清空数组改变原数组

随便推点

关闭 win10自动更新、关闭激活_关闭win10自动更新工具v2.80-程序员宅基地

文章浏览阅读273次。做工控或者数据大屏、服务器之类的,都不想系统自动更新,不知不觉自动重启类。激活过了一段时间,又要重新激活这些事情,所以需要手工去关闭这些服务。_关闭win10自动更新工具v2.80

css鼠标经过样式记录_css设置td鼠标滑过样式-程序员宅基地

文章浏览阅读4.7k次。记录一个css鼠标进过hover属性页面的jsp代码如下:&lt;%@ page language="java" contentType="text/html; charset=utf-8" pageEncoding="utf-8"%&gt;&lt;!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http:/_css设置td鼠标滑过样式

Ubuntu下的svn图形界面客户端RabbitVCS_ubunturabbitvcs-nautilus3-程序员宅基地

文章浏览阅读1.3k次。用惯了windows下的TortoiseSVN,对Ubuntu下的命令行感觉用不惯,而且使用也不直观,找了个Ubuntu下的类似TortoiseSVN的软件:RabbitVCS。 1.添加到PPA sudo add-apt-repository ppa:rabbitvcs/ppa 2.安装包 sudo apt-get update sudo_ubunturabbitvcs-nautilus3

高并发中 QPS、TPS、RT、Load、PV、UV都是什么意思!_load 与 吞吐量-程序员宅基地

文章浏览阅读2.6k次,点赞3次,收藏10次。目录一、概述二、指标1、QPS(Queries Per Second)2、TPS (Transactions Per Second)2、RT(Res(onse Time)3、并发数4、吞吐量(Throughput)5、PV(Page View)6、UV(Unique Visitor)7、Load(系统负载)三、结束一、概述分布式、微服务、Service Mesh目前都是大家耳熟能详的词语了,现在随便一个互联网公司说出来大家都是在搞微服务。但我们搞来搞去_load 与 吞吐量

uniapp 对接高德实现搜索出现地址以及保存搜索记录_vue3uniapp集成高得地图搜索地址页面-程序员宅基地

文章浏览阅读571次。uniapp 对接高德实现搜索出现地址以及保存搜索记录_vue3uniapp集成高得地图搜索地址页面

RandomUtil随机数工具类-程序员宅基地

文章浏览阅读2.1k次。package com.imooc.test;import java.util.ArrayList;import java.util.List;import java.util.Random;public class RandomUtil { /** * 在一定范围内生成给定数量的不重复随机数, 如果开始到结束的数量少于num的数量会抛出数组越界的错误,..._randomutil.randowmint