如何验证ｈｔｍｌ ｓｏｕｒｃｅ里的某段语句
比如我测一个ｗｅｂ ｐａｇｅ，然后我ｖｉｅｗ ｓｏｕｒｃｅ，我想ｃｈｅｃｋ一下这个ｈｔｍｌ ｓｏｕｒｃｅ里某一两句东东是否和预期的一样，该怎么做呢？我只知道ｃｈｅｃｋｐｏｉｎｔ里有ｃｈｅｃｋ某段ｐａｇｅ表面的文字，但是因为文字可能还包括链接等，所以我想ｑｔｐ应该可以去验证ｈｔｍｌ ｓｏｕｒｃｅ里的某段东西是不是正确吧？高手指教哈！ 好象自动化测试不是这么用的……要是真这么干的话，我宁肯直接去项目的源文件中去读取那些jsp文件 好像不行啊.....你也说了QTP是检查html表面文字,但是到了html source里就不算表面的文字了,是属性了 那比如我要验证页面上有这么一段东西(比如就我们当前这个页面)：51Testing软件测试论坛 » »
我想一下子验证字和链接是否正确，我的想法是验证这段东东的html source是否和我预期的一样……不知有没有办法……因为以前我用过一个开源的自动化工具selenium，可以很方便的做这个。。。 以google主页的html source为例
Set XmlHttp=CreateObject("MSxml2.XMLHTTP")
XmlHttp.Open "GET","http://www.google.cn",false
XmlHttp.Send
a=XmlHttp.ResponseText
把a然后writeline保存到一个txt文件里
''''txt读某行的函数
Public Function R_file(path,hangshu)
Dim fso
set fso=CreateObject("Scripting.FileSystemObject")
set file=fso.opentextfile(path,1)
For i=1 to hangshu-1 step 1
file.skipline
next
R_file=file.readline
file.close
set fso=nothing
End Function
''''例如读第二行
a=R_file("c:\a.txt",2)
然后用正则表达式去对比
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置为不区分大小写。
regEx.Global = True ' 设置全局适用。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 对 Matches 集合进行迭代。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
RegExpTest("写入你预期的htmlsource", a) 这个简单啊...插个检查点,设置成检查文字和链接不就完了.........QTP很好实现,这个最基本了,看看帮助吧
页:
[1]
