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

本人此次课没有去上，以下为同学的笔记，由于复制、粘贴，图片无法显示

严晓婷 [e-mail]

Hp5年qtp项目

 

Spy辅助属性windowID

强制属性不能达到识别的  通过辅助属性来识别

强制属性和辅助属性都无法唯一识别  ---- 调出坐标属性 location index-位置索引信息

 

Web中打开相同的ie属性会一模一样-----智能识别

强制-辅助-location index-智能识别

 

DelphiCalc—有个7 的

无法识别怎么办  user define - 对象映射

Delphi-Calc有小红点的计算器

使用虚拟对象---第一个平级对象、子对象

 

首先找有没有相应的插件，首先qtp是否把他认为一个windows对象，不认识则把他做成虚拟对象—测试窗口范围画下来，不是真对象，只是范围（换机器就不行了，不推荐使用）

 

录制问题： 点recording录制

画图录制签名----属于事件操作，鼠标点击不会录下来  只点了一下，click

手写板  签名

模拟录制模式--Track1轨迹  添加录制的相应的软件 开始录制轨迹

 

有的Button想要点击buttion的左下角右上角之类

使用低级录制，点击数字7 的四个角

 

普通录制  模拟录制  低级别录制

 

添加web add-in

项目很多用到的录制模式---web项目用到的

弹出的下拉菜单----我们无法去录制  设置web系统的录制级别  按照轨迹录制改成enabled

回放也要按照轨迹来回放

要首先打开qtp，然后再打开ie浏览器，才能识别到ie上的

 

对象共享；相同对象库，脚本移植性----自动化框架

VB-Calc

添加vb addin

对象捕获，

      

 

修改，copyto local然后修改

object对象库qtptest脚本recovery场景恢复resource资源函数 testcase测试用例、数据  testresult测试结果

 

F7步骤生成器

mid 从第i的位置选一个数

Len为

 

Global是全局还是局部的？---全局

 

Qtp必须vbscript lr必须c语言

 

 

Action为一个模块，每个模块有相应的表格  global是所有action都可以使用

参数化：

  针对action的action表的，还会去遍历global针对global表的

4*4=16遍

 

 

 

SystemUtil.Run "C:\Users\usera\Desktop\上课\VBCalc", "VB-Calc", "", "", 0

DimTestCase,i

TestCase =DataTable.Value("TestCase", "Global")

For i=1 tolen(TestCase)

VbWindow("Form1").VbButton(mid(TestCase,i,1)).Click

Next

 

VbWindow("Form1").VbButton("清   除").Click

VbWindow("Form1").Close

 

 

打开关闭太多怎么办，负荷太大，---跑完再关

 

Datatabel 操作方法

统计多少条数据  getsheetcount得到sheet行数，先锁定表  getsheet

SetCurrentRow设置当前行数

SystemUtil.Run "C:\Users\usera\Desktop\上课\VBCalc", "VB-Calc", "", "", 0

DimTestCase,i,Testcount

'获得行数

TestCount=DataTable.GetSheet("Global").GetRowCount

'遍历行数

For j=1toTestCount

'设置行数

DataTable.GetSheet ("Global").SetCurrentRow j

'运行每行

TestCase =DataTable.Value("TestCase", "Global")

    For i=1 to len(TestCase)

VbWindow("Form1").VbButton(mid(TestCase,i,1)).Click

    Next

VbWindow("Form1").VbButton("清   除").Click

Next

VbWindow("Form1").Close

 

 

Action表5个数据global表4个数据

跑几遍

Action中有数据怎么办

 

 

动态导入  必须是xls文件

 

1.      文件格式97 2003  xls

2.      参数文件名路径  源头表 目标表

 

DataTable.ImportSheet"C:\Users\usera\Desktop\上课\VBCalc\TestCase\testcase1.xls", "main","global"

SystemUtil.Run "C:\Users\usera\Desktop\上课\VBCalc\VB-Calc"

DimTestCase,i,Testcount

'获得行数

TestCount=DataTable.GetSheet("Global").GetRowCount

'遍历行数

For j=1toTestCount

'设置行数

DataTable.GetSheet ("Global").SetCurrentRow j

'运行每行

TestCase =DataTable.Value("TestCase", "Global")

    For i=1 to len(TestCase)

VbWindow("Form1").VbButton(mid(TestCase,i,1)).Click

    Next

VbWindow("Form1").VbButton("清   除").Click

Next

VbWindow("Form1").Close

 

 

 

 

下午讲如何把数据取出来

 

检查点放到对象库，不使用对象库时；实际和数据一样就行了

 

To-testobject

Ro-run-time object

 

getToproperty-获得对象属性—测试对象中某个属性值

setToproperty  设置

a =VbWindow("Form1").VbButton("2").GetTOProperty("text")

printa

 

VbWindow("Form1").VbButton("2").SetTOProperty "text",1

VbWindow("Form1").VbButton("2").Click

 

 

Getto

DimTestCase,i

TestCase =DataTable.Value("CalcStr","Global")

For i= 1to len(TestCase)

    

VbWindow("Form1").VbButton("2").SetTOProperty "text",mid(TestCase,i,1)

VbWindow("Form1").VbButton("2").Click

 

Next

 

获得实际运行的结果

DimTestCase,i,Expect

TestCase =DataTable.Value("CalcStr","Global")

Expect =DataTable.Value("ExpectResult","Global")

For i= 1to len(TestCase)

VbWindow("Form1").VbButton("2").SetTOProperty "text",mid(TestCase,i,1)

VbWindow("Form1").VbButton("2").Click

Next

Result =VbWindow("Form1").VbLabel("Label1").GetROProperty("text")

If  CDbl(Expect)=CDbl(Result) Then

        Reporter.ReportEvent micPass, "Check Result", "Expect Result is:"&Cstr(Expect)&" Actual Resultis:"&CStr(Result)

        Reporter.ReportEvent micFail, "Check Result", "Expect Result is:"&Cstr(Expect)& "Actual Resultis:"&CStr(Result)

        print "pass"

        else

          print "NG"

EndIf

printResult

 

打印出来----上面

 

 

检查点：

文本检查点---网页的文本，先打开qtp，再打开ie

录制状态才能检查点

修改识别文字

 

文本区域检查点

文字识别

 

位图检查点：

录入一个图片，作为预期

 

打开实际的图片

 

Viewdiffident为灰

restore layout

 

数据库检查点

2手工

C:\ProgramFiles\HP\QuickTestProfessional\samples\flight\appflight32.mdb

没有该数据库的时候需要新建一个该数据库；

 

Access数据库

 

使用vbscript来读取数据库中数据？

 

 

 

 

Xml检查点文件对比工具就可以

如果检查一个节点使用vbscript来写

 

 

实际使用时候，核对实际输出会使用：  getoutproporty checkproporty 或者自己写程序检查

 

 

同步点-录制时候使用：

不行

 

同步点就是，等待目标的一个属性变成指定的值  可以设置等待时间

 

 

 

 

今天讲环境变量

1.      运行软件时使用全路径，无法移植；要使移植性

2.      

Dim WorkFolder'定义环境变量

WorkFolder =Environment.Value("WorkFolder")

DataTable.ImportSheetWorkFolder&"\TestCase\testcase1.xls", "main","Global"

SystemUtil.RunWorkFolder&"\VB-Calc"

 

公共对象库每次都需要重新加一次？---全路径发生变化----绝对路径变成相对路径..\..\resourse.xxx

是QtpTest到Object的目录去，所以需要..退出，再..进入Object目录

如何显示出全部路径?1.先把全部删掉，随便添加一个工作目录，再到中添加后，选否就能显示出工作路径

 

1.             手动添加环境变量

2 导入外部文件  可以直接修改外部文件来修改环境变量

3 动态导入Environment.LoadFromFile"C:\Users\usera\Desktop\上课\VBCalc\Resource\Environment.xml",True'动态导入

F7中下面默认为全部导入；不是导入部分行的环境变量

Web测试东西：自动化

模块参数传递

主模块main接受的输入传递给子模块                 子模块login将output输入给主模块

 

运行时才用到

 

只有父子模块能参数传递

 

做登录检查，参数传递

 

Main自己的循环需要右击main来设置

 

使用spk看下自己独有的属性，再去描述

y:=42

html tag:= SPAN

innertext:=&username

 

描述性编程不强制上下文

强制显示申明  在最前面optionexplicit