【软件测试自动化-QTP NOTE 13】 == 如何创建高效的Test-Data Dictionary 1st ==

最新推荐文章于 2024-10-18 15:25:29 发布

Tachibana814

最新推荐文章于 2024-10-18 15:25:29 发布

阅读量648

点赞数 2

文章标签： dictionary 软件测试 excel application browser login

本文链接：https://blog.csdn.net/Tachibana814/article/details/7546167

版权

众所周知，Excel是非常有效的数据管理工具，当然它也为QTP提供了强大的调用接口，但是如果QTP直接调用Excel对象管理数据就会显得毫无效率，数据将会被生硬的一遍又一遍的遍历。那如何高效的去调用excel和管理测试数据，这里常常会引用到Dictionary对象。

Dim d                   '创建一个变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加键和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...

以QTP SAMPLE APPLICATION :http://newtours.demoaut.com/

With Data
    .Add "UserName", "test"
    .Add "Password", "test"
    .Add "PassCount", "2"
    .Add "FromPort", "Frankfurt"
    .Add "FromMonth", "December"
    .Add "FromDay", "9"
    .Add "ToPort", "Paris"
    .Add "ToMonth", "December"
    .Add "ToDay", "27"
    .Add "ServClass", "Coach"
    .Add "Airline", "Unified Airlines"
End With

SystemUtil.Run "iexplore.exe", "http://newtours.demoaut.com", "", "", 3
 
With Browser("title:=Welcome: Mercury Tours").Page("micclass:=Page")
    If .Exist(5) Then
        .WebEdit("name:=userName").Set Data("UserName") 'UserName = test
        .WebEdit("name:=password").Set Data("Password") 'Password = test
        .Image("name:=login").Click
    End If
End With
 
Data.RemoveAll
Set Data = Nothing