51Testing软件测试论坛

标题: 对象库编程自动转化为描述性编程1.0 改进版 [打印本页]

作者: mklodoss    时间: 2009-3-26 23:59
标题: 对象库编程自动转化为描述性编程1.0 改进版
本帖最后由 mklodoss 于 2010-10-11 14:29 编辑

感谢大家的支持,和所提的意见,特别是OnLonely做了一些改进,现在可以进行筛选属性了。内有说明。
作者: onlonely    时间: 2009-3-27 23:02
转换前:
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("UserName").Set "timon"
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("Password").SetSecure "49cce5f07c0c7fbbfc925d3b26c982c56f12a0e5b4aefb5e"
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").Link("登      录").Click
Browser("家务中心 - eHome 网家 — 记录家庭成长").Page("家务中心 - eHome 网家 — 记录家庭成长").Link("退出").Click
转换后:
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdit("name:=UserName").Set "timon"
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdi("name:=Password").SetSecure "49cce5f07c0c7fbbfc925d3b26c982c56f12a0e5b4aefb5e"
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").Link("text:=登      录").Click
Browser("name:=家务中心 - eHome 网家 — 记录家庭成长").Page("title:=家务中心 - eHome 网家 — 记录家庭成长").Link("text:=退出").Click


不错不错,最终代码比较满意了,,不过仍然感觉有个易用性不得不改
就是:当我取消选择一个属性的时候,应该自动应用我取消的属性,而不应该需要点击应用,
因为那样给我带来了太多无价值的操作.
作者: mklodoss    时间: 2009-3-28 08:56
呵呵,现在不用点应用也可以了。
作者: onlonely    时间: 2009-3-28 10:25
标题: 回复 3# 的帖子
我都成为你的测试人员了.

继续报告错误:
如图,我对象库中明明有index属性的,可导入后,却没有index属性.其他属性能识别,为什么index这么重要的属性就不识别呢.

作者: mklodoss    时间: 2009-3-28 11:30
呵呵,谢谢你。能不能把你的xml文件发给我下。就是不能显示index属性的。
softtestddj@163.com
没装Qtp,没有调试环境啊。呵呵。
作者: mklodoss    时间: 2009-3-28 13:19
标题: 回4#
我都成为你的测试人员了
  
呵呵,重新上传。增加index,location的属性。
作者: onlonely    时间: 2009-3-28 15:01
标题: 回复 6# 的帖子
缺陷不完测试不止!
有如下代码:
'--------------------------准备通用数据----------------------------
Dim testname

testname = "eHome 网家 — 记录家庭成长"                                          '测试模块全名
set allpage=browser("name:=(.)*").page("title:=(.)*")                              '全部页面变量
set testpage=browser("name:="&testname).page("title:="&testname)   '测试页面变量
'msgbox(testpage.GettoProperty("title"))                                               '调试语句
'-----------------------------------------------------------------------
'--------------------------脚本开始---------------------------------
testpage.Link("新用户登录").Click
testpage.WebEdit("UserName").Set "testsn0301"
testpage.WebEdit("assword").SetSecure "49cdc58638958a7ad18f8be3795801be74bb024a60eeaeae98c3"
testpage.Link("登      录").Click
testpage.Link("退出").Click

缺陷描述:

1,如上面那样的,经过少许编辑的代码.你会发现,是无法转换的.
建议,采用替换的方式,匹配对象,如{Link("退出"),并且不要区分大小写},替换成转换后的内容{Link("text:=退出","index:=0")}

2,转换窗口应该支持{ctrl+a}这样的快捷键.

[ 本帖最后由 onlonely 于 2009-3-28 15:08 编辑 ]
作者: onlonely    时间: 2009-3-29 09:14
标题: 回复 7# 的帖子
哎呀,忘了,如果出现相同对象名,不同对象属性就麻烦了.
作者: mklodoss    时间: 2009-3-29 10:56
回8#,你说的没错,考虑到这个原因才没有直接替换,呵呵,更新
1,增加了文本编辑的行号显示。
2,增加对大小写的支持。
3,增加Ctrl+A全选。

作者: hsjzfling    时间: 2009-3-30 18:28
还没下载用过,进来看看了就顺便问一下,该工具是否有考虑到不同web page/frame及Object Identification设置下的问题。例如Browser和Page对象默认是没有强制识别属性的,而是通过CreationTime属性识别,那么一个Browser("eHome 网家 — 记录家庭成长")对象很可能name属性值根本就不是eHome 网家 — 记录家庭成长。不同设置下可能会出现Browser("eHome 网家 — 记录家庭成长_2")这样的对象,很显然,其name属性值也不会是eHome 网家 — 记录家庭成长_2
如下的转换很可能就导致脚本无法运行:

原帖由 onlonely 于 2009-3-27 23:02 发表

转换前:
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("UserName").Set "timon"

转换后:
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdit("name:=UserName").Set "timon"


LZ是否也解决掉了这样的问题~~
或者说,使用该工具前需要先导入一个规定好的QTP配置文件,才能去录制脚本,再改成DP方式

[ 本帖最后由 hsjzfling 于 2009-3-30 18:31 编辑 ]
作者: mklodoss    时间: 2009-3-30 23:36
可以先录制脚本,然后只要导入相关对象库的xml文件就可以。web/page都有很多属性 ,你可以选,CreationTime也可以。
作者: zitong    时间: 2009-4-9 15:53
我在转化的时候遇到一个问题,我将xml文件导入后,在转化窗口中怎么不能识别汉字呀。比如:对象库脚本:
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试网-中国软件测试人的精神家园").Link("软件测试技术").Click
Browser("软件测试技术 - 51Testing软件测试网-中国软件测试").Page("软件测试技术 - 51Testing软件测试网-中国软件测试").Link("测试用例设计思维").Click

粘贴到转换窗口就变成这样了:
Browser("51Testing?????-????????????").Page("51Testing?????-????????????").Link("??????").Click
Browser("?????? - 51Testing?????-??????").Page("?????? - 51Testing?????-??????").Link("????????").Click

这是怎么回事呢?我装的xp的英文操作系统,与这个有关么?




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2