|
测试网站:http://www.suzhou.gov.cn
测试需求:
测试“政务新闻”栏目中的链接有效,验证打开页面的正确性,即打开页面中文章标题与链接相符。注:政务新闻会实时更新,要保证脚本能通用。
1. 录制脚本:点击一条政务新闻,打开新闻页面,验证新闻标题。
2. 实现“政务新闻”栏目中所有链接的验证。
3. 将已完成的脚本设成可重用Action,将对象仓库设成共享对象仓库,新建一个Test,调用该脚本。
脚本(修改后的),运行后提示第5行有问题。。
1,Dim a,b
2,Browser("中国苏州").Page("中国苏州").Link("政协苏州市第十二届委员会主席、副主...").Click
3,a=Browser("中国苏州").Page("中国苏州").Link("政协苏州市第十二届委员会主席、副主...").GetROProperty("innertext")
4,Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Page("政协苏州市第十二届委员会主席、副主席、秘书长简历").Sync
5,b=Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Page("政协苏州市第十二届委员会主席、副主席、秘书长简历").webtable("政协苏州市第十二届委员会主席、副主席、秘书长简历").webelement("政协苏州市第十二届委员会主席、副主席、秘书长简历").GetROProperty("innertext")
6,If instr(a,b,1) Then
7,reporter.ReportEvent pass,"判断正确性","正确"
8,else
9,reporter.ReportEvent erro,"判断正确性","错误"
10,End If
11,Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Close
12,Browser("中国苏州").Page("中国苏州").Sync
13,Browser("中国苏州").Close
[ 本帖最后由 walker1020 于 2008-1-15 13:56 编辑 ] |
|