51Testing软件测试论坛

标题: function:如何编写验证网页上的filter功能 [打印本页]

作者: db_qtp 时间: 2012-3-16 06:24
标题: function:如何编写验证网页上的filter功能
现有1个scenario 要编写function 来验证网页上filter 功能是否正常. 这样的function 怎么样写比较好?
谢谢大家的指教

作者: db_qtp 时间: 2012-3-16 18:10
waitting for the answers

作者: 正在更新 时间: 2012-3-17 14:21
例如要过滤回帖内容中的“你好”2个字

set objChildobjects="此处是父窗口".Childobjects()
strInputContent="你好，楼主真是好人你好,呵呵你好啊啊" '要回复的内容
filtestr = "你好"  '要过滤的内容

msgbox  checkfilter(objChildobjects,strInputContent,filtestr)  '调用测试函数

set objChildobjects=nothing

function checkfilter(objChildobjects,strInputContent,filtestr)
  dim i
  i=0
do while i<objChildobjects.count
if  objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="回帖编辑框"  then  '类似这样判断  因为不知道LZ的具体测试对象
Childobjects(i).set strInputContent
      i=0
   do while i<objChildobjects.count

      if  objChildobjects(i).geroproperty("micclass")="webbutton" and objChildobjects(i).geroproperty("text")="发表回复"  then
            objChildobjects(i).click
               exit do
            end if
         i=i+1
      loop
   exit do
  end if
i=i+1
loop

dim getstr

getstr=""
  i=0
do while i<objChildobjects.count
if  objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="显示区域"  then

   getstr= objChildobjects(i).geroproperty("text")

         exit do

   end if
i=i+1
loop
'以上假设所有操作对象均存在
   if not  instr(getstr,filtestr,1) then
         checkfilter=1

else
checkfilter=0

end if

end function

作者: db_qtp 时间: 2012-3-17 18:32
回复 3# 正在更新

非常感谢你的回答。我现在就去qtp 中试试

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)