自动化的困惑

金朝阳

 

以前的日子里，在jira中报了一些bug，但是接到上级的通知：我们这里的测试要做成全自动化的那种，包括bug的提交也只能通过工具。

于是，我在最短的时间里，熟悉了一下QTP，然后在把QTP和TD8连通（通过QTP的运行结果向TD里面提交bug）再参照网上的一些QTP视频学习资料后，写下了下面的一个最简单的弱智测试脚本：

Dim i'定义行号
Dim outputvalue '定义读取系统实际的提示信息的变量
Dim  istatus '定义读取系统预期提示信息的变量
For i =1  to datatable.GetSheet("Action1").getrowcount

 

Browser("登录页").Page("登录页").WebEdit("j_abbreviation").Set DataTable("slm", dtLocalSheet)

Browser("登录页").Page("登录页").WebEdit("j_username").Set DataTable("username", dtLocalSheet)

Browser("登录页").Page("登录页").WebEdit("j_password").SetSecure DataTable("password", dtLocalSheet)

Browser("登录页").Page("登录页").WebButton("登录").Click

Browser("登录页").Page("登录页_2").Sync

Browser("登录页").Page("登录页_3").Output CheckPoint("登录页_2")'插入文本属输出点
outputvalue=datatable("outmsg",dtLocalSheet)'将实际输出值赋予变量outputvalue

istatus=datatable("status",dtLocalSheet)'将预期输出值赋予变量istatus

 

If  outputvalue<> istatus Then

    reporter.ReportEvent 1,"登录功能测试","预期值为："+istatus+", 实际值为："+outputvalue

END IF

datatable.GetSheet("Action1").setnextrow'获取action1中的下一行数据

 

next

Browser("登录页").Close

 

感觉通过QTP写测试脚本的前期的工作量真是太大。在小公司里真是不可取，老板或者上司首先要我们做的是保证经过测试的产品发布出去是稳定可靠的，测试工具仅仅是为方便工作才使用的，测试工具的还是要测试人员的测试思想去驱动它。比如为了验证QTP的数据库检查点还要在机器上安装sqlserver或者oracle等数据库的客户端然后再连接到数据库的服务器，然后再插入数据库检查点真是太麻烦，其实我觉得其实只要连接到数据库服务器select一下就可以了？为什么非常通过QTP去做这些操作呢？

如果在大的公司里面人力资源比较充足的话，可以安排几个测试人员专门去编写和维护这些测试的脚本也未尝不可的。对我个人来说决定以后不再会学习和使用诸如QTP之类的自动化测试工具了。