Yeah~~~ Can you see me？

重新发布不好使

另外本地图片还是没办法直接传上来，大打折扣啊，看来只能写写纯文字的东西

• android.permission.INTERNET
• android.permission.GET_TASKS

UI色彩与字体

1）UI字体、色彩要一致

2）整体色彩搭配要融为一体，起提示作用的部分要清楚醒目

3）不可修改的字段，统一使用灰色文字显示

窗口风格

1）所有窗口最大化、最小化风格要一致

2）报错页面的风格一致，最好有统一的报错页面

3）类似功能的窗口打开的风格要一致

4）相同功能在不同模块的名称要一致

5）子窗体应尽量在显示在主窗体的左上或居中放置

6）弹出式窗口尽量在不借助滚动条的情况下显示所有内容

7）窗体最小化/最大化时，控件也要随着窗体而缩放

布局

1）窗体控件布局和间距尽量与Windows标准保持一致

2）尽量采用Dock和锚点来让布局合理

3）尽量让窗体中显示大部分常用功能

菜单深度

1）菜单深度一般不要超过三层

2）菜单层次太多时应给出返回主窗口、主分支的快捷链接。

按钮

1）按钮风格相同，大小相似，字体一致

2）无效按钮要屏蔽

控件

1）各复选框和选项框按选择几率的高低而先后排列

2）复选框和选项框要有默认选项，并支持Tab选择

3）界面空间较小时使用下拉框而不用选择框

4）选项数较少时使用选项框，相反使用下拉列表框

文本框输入

必输项

1）必输项中不可为空，不可输入空格

2）必输项给出必输项标识（*）

字段长度

超过数据库规定长度时不允许输入

格式校验

1）身份证号、E-MAIL等特定字段的格式要符合需求的规定

日期格式

1）日期显示格式一致，如 ：yyyy-mm-dd

2）使用日期控件，尽量不是手工录入

特殊字符

1）输入区域输入特殊字符，插入数据库时不出错或提示不允许输入特殊字符。特殊字符包括：'"=~$%^%￥&#@等

英文输入

英文输入不区分大小写，不可输入汉字、数字及特殊字符

数值字段

只能输入+ - 0~9及功能键(BackSpace 光标)

字符字段

1）如果支持日韩文字，则要判断全角假名/半角假名

单行文本框/多行文本框

1) 长度合适，可以容纳相应文字，但不能超过数据库该字段长度，最好将可以输入的最大字符数标在旁边。建议单行文本框中当输入的字符超过一定长度时再输入无效；对于多行文本框给出最大字符数标识

附件

1）可正常添加符合格式的附件

2）附件可正常打开和保存，附件名较长时可正常操作

3）直接输入错误的附件地址，保存时应给出提示信息

4）附件打开/保存到本地时，文件名要显示原文件文件名

5) 附件上传时应作格式和大小的检查，如果格式不对或者附件大小超过最大值，页面应有提示。页面上要有支持上传附件格式和大小的标识。

密码输入

1）需在需求中定义密码是否允许为空或空格；密码是否允许特殊字符；是否区分大小写，密码的可输入长度

2）程序中应给出文字说明密码的可输入长度

鼠标

1）鼠标为不可点击状态时显示箭头，可点击状态显示手型；系统忙时显示沙漏形状

光标定位

1）打开新增（修改）页面时，光标初始定位在第一个待输入的文本区

2）因输入不正确提示用户重新输入时，光标默认focus在出错的输入区，并高亮全选该错误输入

3）若必输项未填写完毕就提交，应给出说明信息并能自动获得焦点

4）可写控件检测到非法输入后应给出说明并能自动获得焦点

TAB键

1）界面支持键盘自动浏览按钮功能。即TAB自动切换功能

就把测试工作做好本身而言，行业知识更重要
测试是质量保证的手段，而测试本身是不能产生效益的。了解行业知识，才能把握好需求，才能更好地站在客户的角度看待问题，而建立在这个前提下，才有可能通过测试，最大程度地保证产品质量。仅仅通过对一些测试原理、基础的测试技术的掌握是不可能覆盖业务逻辑的

引申个题外话，大家现在讨论何种自动化测试工具更好、要如何学习工具，其实也大可不必。是一样的道理，自动化测试本身也是手段，是一种工具，如何把测试思想、测试逻辑通过工具体现出来才是最重要的，掌握工具只是自己测试方式的延伸，是标而不是本。

目前比较流行的商用测试管理平台有HP QC、Borland SilkCentral、rational RQM等，功能都比较全面，但具体到实际应用却不一定是最适合的。

一个完善测试管理平台应该包含以下功能：

1. 明确的权限管理，针对不同角色设定系统的不同操作权限

2. 针对需求的管理、跟踪，并和后期的测试设计、Bug建立关联

3. 针对测试对象的版本迭代管理

4. 测试用例库管理

5. 测试执行过程管理

6. bug管理

7. 统计分析报表

8. 测试环境、资源管理

9. 系统的维护（导入、导出、备份等）

10. 工作日志平台

11. 技巧、知识库

测试工作的度量一直是测试管理的一个难点，我们如何衡量测试工作的质量呢？

一般来说，衡量测试工作成效的KPI参数有如下几个：

1.  工作时长

2.  测试设计，测试用例数（自动化脚本代码行数）

3.  发现故障数

4.  输出的测试文档数（典型故障分析、测试报告、发布说明、系统使用说明等）

5.  泄漏故障数

6.  产品版本测试收敛度

各部分的KPI比重如何分配？

从测试工作的目的来看，首先必须要对测试通过的产品质量进行保证，而下游客户是产品质量的最终检验方，所以测试泄漏故障数和故障严重程度应该作为测试工作成效的首要度量KPI。

其次，测试工作的主要目的是发现产品的故障，所以发现故障数应该作为第二KPI进行度量

但是不同测试人员承担的测试任务不同，不同模块的故障分布也会不同，所以该KPI还应该和故障严重程度、所属模块的故障出现频度等进行综合考量

第三主要的KPI应该测试收敛程度。

任何版本的产品周期都是有限制的，留给系统测试的时间有限，故障如果不能尽快收敛，对产品的正常发布就会造成严重影响，所以必须要求重点功能优先测试，故障及早收敛。

第四，测试设计

测试用例是否充分决定产品测试过程中是否能够覆盖完全。所以测试用例数也是一个重要的KPI

不过，完全通过数目衡量也不合理，测试用例的质量、用例细致程度等也需要有在度量时有一定的体现方式

工作时长和总结、输出等工作量上的指标可作为辅助参考KPI指标。

页面异常输入测试是系统测试的一个重要方面，但是因为比较繁杂，人工测试时往往难以完全覆盖，此时采用自动化测试，就有相当的优势了。

如下图就是一个典型的信息录入页面

其中就包括很多异常输入测试点：

名称不能包含特殊字符，固定的电话格式，固定的手机格式，银行账号（必须全为数字），付费号码长度限制，手机号码格式、长度限制，Email格式限制等

其实异常策略是有通用性的，现总结如下：

1. exp@@SpecialChar(e_chr)     包含特殊字符，e_chr为指定的特殊字符

2. exp@@StringLenMax(e_len)   字符串超过最大长度，e_len为最大长度值

3. exp@@ StringLenMin(e_len)   字符串不足最小长度，e_len为最小长度值

4. exp@@String                字符串包含数字（要求全字符）

5. exp@@Num                 字符串包含字符（要求全数字）

6. exp@@NumMax(e_max)    输入超过指定最大值，e_max，最大值

6. exp@@NumMin(e_min)    输入不足指定最大值，e_mmin，最小值

7. exp@@NumLenMax(e_len)    数值长度超限，e_len，长度最大值

8. exp@@NumLenMin(e_len)    数值长度不足，e_len，长度最小值

9. exp@@StringPre(e_pre)       字符串不为指定前缀，e_pre，前缀值

10. exp@@NumPre(e_pre)       数值不使用指定前缀，e_pre，前缀值

11. exp@@Email               数值不为标准Email格式

12. exp@@Need               必输入项，提供空字符串

具体实现上，在准备数据文件时，提供两种数据：

1.      每个字段的默认输入值，即正确值。也是自动化程序执行时默认输入的数据

2.      异常值，针对每个字段，提供该字段可能需要的异常策略，对所有异常进行遍历。

第一行为默认值，第二行为字段对应的异常策略

分三个函数来处理

1.      执行函数

Public Sub excep_OpUser()

              routingname = "企业用户输入－异常测试"

              ‘ 载入数据表数据的第2行

GE_SetCurRow OppDataFile,"企业用户",2

              Dim objStr,oScript,i

              set bjStr = CreateObject("Scripting.Dictionary")

              set Script. = CreateObject("Scripting.Dictionary")

              ‘ 根据数据表字段设置每个字段的QTP执行语句

              for i = 1 to DataTable.GetSheet("UserData").GetParameterCount

                     if DataTable.GetSheet("UserData").GetParameter(i)="企业名称" Then _

                             objStr.add DataTable.value(i,"UserData"),".WebEdit("opername").set "

                     。。。。

              Next

              ‘ 调用异常数据生成函数，返回值保存在dictionary对象oScript中

              Gen_excepData(objStr,oScript)

‘ 依次对含异常策略的字段进行异常测试

              For i = 0 to oScript.Count-1

                     Call OpUserSet(1,oScript(i))

              Next

              set bjStr = Nothing

              set Script. = Nothing

       End Sub

2.      异常数据生成函数

Public Function Gen_excepData(byval dObj,byRef oScript)

       ‘ 异常值，正确值，异常类型，异常参数

Dim errorValue,CorrectValue,expType,expPara

       Dim objName,scriptstr

       Dim i,j,expItem

       expItem = 0    ‘ 记录异常数

       Randomize

       for i = 1 to DataTable.GetSheet("UserData").GetParameterCount

              ‘ 第一行数据为默认正确数值

              CorrectValue = DataTable.GetSheet("UserData").GetParameter(i).ValueByRow(1)

              datatable.SetCurrentRow 2

              if Instr(Datatable.value(i,"UserData"),"exp@@")>0 Then

                     objName = dObj.Item(Datatable.value(i,"UserData"))

                     ‘ 同一字段多种异常策略的处理

                     arr1 = split (Datatable.value(i,"UserData"),"|",-1,1)

                     For j = 0 to Ubound(arr1)

                            ‘ 获取异常类型和异常参数

If RegExpTest("exp@@.{1,}\(.{1,}\)",arr1(j)) Then

                                   exptype = Mid(arr1(j),6,InStr(arr1(j),"(")-6)

                                   expPara = Mid(arr1(j),InStr(arr1(j),"(")+1,InStr(arr1(j),")")-InStr(arr1(j),"(")-1)

                            Else

                                   expType = replace(arr1(j),"exp@@","")

                            End If                  

                            ‘ 不同策略对应的数据生成

                            select Case expType

                            Case "SpecialChar"

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"%")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"'")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"/")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),":")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"*")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"&")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"?")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"""")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"<")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),">")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

                                   oScript.add "excepData" & expItem,scriptstr

                                   errorValue = Replace(CorrectValue,Right(CorrectValue,1),"|")

                                   scriptstr = objName + chr (34) + errorValue + chr(34)

                                   expItem = expItem + 1

自动化测试中，经常遇到页面需要输入时间，而这个时间很多时候是当前时间之后某个范围之类才有效。我们采用数据驱动时如果采用绝对时间，则数据复用性就很差了，数据需要经常修改。所以采用相对时间

下面的函数用于获取相对时间

'------------------------------------------------------------------------

'获取以当前时间为参照的偏移时间

'increTime: 偏移时间量，可使用负数 格式：day:hour:min:sec  如 1:3:8:23

'------------------------------------------------------------------------

Public Function GetTime(byval increTime)

       Dim y,m,d,h,n,s,timeArray

       timeArray = split(increTime,":",-1,1)

       d= timeArray(0)

       h= timeArray(1)

       n= timeArray(2)

       s= timeArray(3)

       GetTime = dateadd("d",d,now)

       GetTime = dateadd("h",h,GetTime)

       GetTime = dateadd("n",n,GetTime)

       GetTime = dateadd("s",s,GetTime)

       ' change to GE Time type

       Dim dateArr,timeArr

       timeArray = split(GetTime," ",-1,1)

       dateArr = split(timeArray(0),"-",-1,1)

       y = dateArr(0)

       m = ExpandByZero("L", dateArr(1),2)

       d = ExpandByZero("L", dateArr(2),2)

       timeArr = split(timeArray(1),":",-1,1)

       h = ExpandByZero("L", timeArr(0),2)

       n = ExpandByZero("L", timeArr(1),2)

       s = ExpandByZero("L", timeArr(2),2)

       GetTime = y  & "-" & m & "-" & d & " " & h & ":" & n & ":" & s

End Function

'------------------------------------------------------------------------

'以0扩展当前字符串

'way: 扩展方式 L-左扩，R-右扩

'OrigStr: 原字符串

'HopeLen: 扩展后字符长度

'------------------------------------------------------------------------

Public Function ExpandByZero(byval way,byval OrigStr,byval HopeLen)

   Dim i,ZeroStr

   ZeroStr = ""

   For i =1 to HopeLen - len(OrigStr)

              ZeroStr = ZeroStr & "0"

   Next

   If way = "L" Then

              ExpandByZero = ZeroStr & OrigStr

       elseif way = "R" Then

              ExpandByZero = OrigStr & ZeroStr

       else

              Exit Function

   End If

End Function

对于共同开发的自动化测试项目，实例方便的调用是很重要的。QTP采用的是vbscript脚本，所以也支持类，但是应为vbs并不支持类的继承，所以只能算作一种“拟类”。采用类对脚本进行封装，有很多好处，对于测试执行人员，可以通过项目情况对封装的类进行调用，而并不必关心类实现的细节。

此处对QTP类的使用进行一些总结。

'类名称

Class TestCase

       Private DataFile

       ' ----用例预置条件

       Private Function CasePrepare()

       End Function

       ' ----测试数据输入

       Public Function CaseData(byval RowNum)

       End Function

       ' ----测试执行

       Public Function CaseRun()

       End Function

       ' ----测试结果检查

       Public Function CaseCheck()

       End Function

       '获取测试用例号

       Public Property Get CaseID()

              CaseID = "TestCase_0001"

       End Property

       '获取测试用例名称

       Public Property Get CaseName()

              CaseName = "用户登录"

       End Property

       '----构造函数----

       Private Sub Class_Initialize() 

              DataFile = "C:\autotest\data.xls"

              Call CasePrepare()

    End Sub

       '----解构函数----

       Private Sub Class_Terminate()

       End Sub

End Class

其中Class_initialize为构造函数，类初始化时调用，此处预设了数据文件，并在此处调用了用例预置函数。

Class_Terminate为解构函数，一般用于释放类执行过程种占用的内存等

Property Get用于获取类的属性，此处获取该测试用例类的ID，和名称属性

模拟测试用例，类中包含了测试用例的几个部分：

CasePrepare： 测试预置条件，如测试用户登录，此处可以判断登录界面是否已经显示

Casedata: 测试数据准备，如测试用户登录，此处可以载入登录用户、登录密码等数据

CaseRun：测试执行，如测试用户登录，此处可以执行输入验证码，点击登录按钮等操作

CaseCheck：执行结果检查，如测试用户登录，此处可以对登录结果进行检查，如页面是否正确跳转，如用户、密码不对，是否正确显示提示信息等。

具体在QTP中的使用如下：

Dim CaseLogin

Set CaseLogin = New TestCase

CaseLogin.CaseData 2 ‘载入数据文件中的第2行数据作为测试输入

CaseLogin.CaseRun

If CaseLogin.CaseCheck Then

  Case_LogInfo “测试用例 ”CaseLogin. CaseID & “测试通过！”,MicPass

Else

Case_LogError “测试用例 ”CaseLogin. CaseID & “测试失败！”,MicFail

End If

BatchRun.vbs（转载请注明出处）

同目录下需存在runlist.txt文件，保存需要批量运行的test路径，形如：

c:\autotest\test1
c:\autotest\test2

------------------

On Error Resume Next
error.clear
Dim qtApp
Dim qtTest
Dim qtResultsOpt
Dim fso, MyFile,TestName
Const ForReading = 1, ForWriting = 2

Set WshShell = CreateObject("Wscrīpt.Shell")
WshShell.Popup "开始批量执行自动化测试脚本！", 3, "my AutoTest", 0 + 64

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch

qtApp.Visible = True
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

Set fso = CreateObject("scrīpting.FileSystemObject")
Set MyFile = fso.OpenTextFile(".\RunList.txt", ForReading, True)
Do While MyFile.AtEndOfStream <> True
 TestName = MyFile.ReadLine

 qtApp.Open TestName, True
 Set qtTest = qtApp.Test
 qtTest.Settings.Run.OnError = "Dialog"
 
 Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
 qtResultsOpt.ResultsLocation = TestName &"\AutoRes"
 
 qtTest.Run qtResultsOpt, True
 qtTest.close
 wait 1
Loop

MyFile.Close
qtApp.Quit

MsgBox "自动化测试脚本执行完毕！脚本测试结果存放在各自的AutoRes目录下，请用QTP result工具查看"

Set fso = Nothing
Set qtResultsOpt = Nothing  
Set qtTest = Nothing 
Set qtApp = Nothing
Set WshShell = Nothing