发布新日志

  • QTP自动化测试流程(转)

    2008-08-07 15:26:18

    个人感觉很好,就转下来了

  • QTp中实现用户登录测试的脚本

    2008-08-07 15:24:53

    Dim  user_name,user_pwd,status
    user_name=DataTable("user_name", dtGlobalSheet)
    user_pwd=DataTable("user_pwd", dtGlobalSheet)
    Browser("用户登陆").Page("用户登陆").WebEdit("userId").Set (user_name)
    Browser("用户登陆").Page("用户登陆").WebEdit("userPass").SetSecure (user_pwd)
    Browser("用户登陆").Page("用户登陆").WebButton("登 录").Click
    status= Browser("用户登陆").Page("通讯录").WebElement("D1").Exist(2)
    If status=   "True"   Then
        Browser("用户登陆").Page("通讯录").Link("登出").Click
     Reporter.ReportEvent micPass,"用户名为:"&user_name&",用户密码:"& user_pwd,"登录成功"
     else
      Reporter.ReportEvent micFail,"用户名为:"&user_name&",用户密码:"& user_pwd,"登录不成功"
    End if

     

     

    上面使用到了 数据表的参数化  报告的优化等

    来源:http://007.1010zz.com/blog.php?do=showone&uid=2&type=blog&itemid=7

Open Toolbar