Rational中DataPool的介绍与实际应用-续(2)

原创 2004年04月28日 00:02:00

'$Include "sqautil.sbh"<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

Sub <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />Main

    Dim Result As Integer

    Dim dp_id as Long

    Dim dp_Result as Long

   

   

    Dim strMessage as String

    Dim vSText as string

   

    Dim cnn As object

    Dim Rst As object

 

  Dim strLink As String

    Dim strSql As String

   

    Dim strName as String

    Dim strPassWord as String

  

    'Initially Recorded: 2004-4-24  10:30:51

    'Script Name: Four

   

    strLink = "连接字符串"

   

    Set cnn = CreateObject("ADODB.Connection")

    Set Rst = CreateObject("ADODB.Recordset")

 

    cnn.Open strLink

    Rst.CursorLocation = 0

    Rst.LockType = 1

    Rst.CursorType = 2

 

   

   

     On Error Goto Last

     StartApplication "xxx"

   

     Window SetContext, "Caption=登陆", ""

    

     dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)

   

     dp_Result = SQADatapoolFetch (dp_id)

    

     if (dp_Result = 0) then

          while dp_Result <>  sqaDpEOF

   

                dp_Result = SQADatapoolValue (dp_id, "name", strName)

                dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)

                dp_Result = SQADatapoolFetch (dp_id)

          

               

                     

                InputKeys strName

                EditBox Click, "ObjectIndex=1", "Coords=34,9"

                InputKeys strPassWord

                PushButton Click, "Text=登陆"

               

                strMessage = "用户名:" + strName + "; 密码:" + strPassWord 

               

                strSql = "select * from login where name = "" " + strName + " "" and password = """ + strPassWord + """"

                Rst.open strSql, cnn

   

   

                Window SetContext, "Caption=登陆;Class=#32770", ""

                这个函数是作为插入验证点,验证点为窗体提示信息,没有用window image来作为验证点,是因为无法把该脚本进行模块化,存入shl文件中,将来多平台使用。

                SQAGetProperty  "Label", "Text", vSText

                             

               

                如果rst.RecordCount返回值为1,说明此用户在数据库中存在

                测试用例分为成功,失败的测试用例,失败的测试用例中即使数据

错误,但有预期输出就是成功的用例,所以写入result report中的信

息分为三种,成功,失败,预期失败,对于程序中有不是预期的窗

体,用程序自动关闭掉,继续执行,这里安全的做法做标志然后关

闭整个软件,重新启动软件,测试脚本从失败处继续执行

                     if Rst.RecordCount= 1 then

                        if (vSText="登陆成功") then

                           PushButton Click, "Text=确定"

                           SQALogMessage sqaPass, "测试数据为" + strMessage + "的测试用例执行成功", "项目名称"

                        else

                           '出现异常窗体,该用例测试失败

                           SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败", "项目名称"

                           SQAGetProperty "Window", "Text", vSText  

                           SQALogMessage sqaFail, "出现错误窗体:"+ vSText, "项目名称"

                           Window CloseWin, "Caption=" + vSText, ""

 

                        end if  

                     else

                        if (vSText="登陆失败") then

                           '数据错误,用例执行失败,软件功能正常

                           PushButton Click, "Text=确定"   

                           SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败但软件功能正常", "项目名称"

                        else

                           '出现异常窗体,该用例测试失败

                           SQALogMessage sqaFail, "测试数据为" + strMessage + "的测试用例执行失败", "项目名称"

                           SQAGetProperty "Window", "Text", vSText  

                           SQALogMessage sqaFail, "出现错误窗体:"+ vSText, "项目名称"

                           Window CloseWin, "Caption=" + vSText, "" 

                        end if  

                     end if

               

          wend

   

          dp_Result = SQADatapoolClose (dp_id)

    else

         SQALogMessage sqaFail, "数据池打开失败", "项目名称"

    end if

 

Last:

      SQALogMessage sqaFail, "测试脚本发生异常,测试脚本执行失败", "项目名称"    

 

   

End Sub

 

 

总结:

      上边脚本是对登陆功能测试自动化初步优化后的代码,后边还要做的是脚本模块化,函数话,功能分切。脚本过大不容易维护,把其中连接数据库,处理datapool功能写成函数提供其他工程使用。其实也可以把测试数据存入文本文件,word,excel等文件中,然后读出处理模拟datapool功能,但开发脚本工程量大。datapool提供自动生成数据功能和能够和工程结合是它的优点,但很困难多个工程共享datapool

Rational Rose 四种视图与UML9种图的关系

由于原先对uml的理解不够深刻,视频看到的时候没有对rose使用方面重视,所以在实际画图的过程中出现了一些问题。第一遍画图所出现的问题很多,比如把各种图分别保存,没有理解rose中4种视图的含义,以及...
  • gao454917848
  • gao454917848
  • 2014年04月29日 16:38
  • 2630

谈谈FFT到底有何用(吴臻志)--很宽泛的介绍FFT应用

谈谈FFT到底有何用 谨以此献给一直在致力于FFT算法芯片设计的同行们   FFT(快速傅里叶变换)是数字信号处理的超级经典算法,学过DSP或者芯片设计的人大多知道这个算法。但是,大家是否想过,...
  • w15778225
  • w15778225
  • 2014年05月03日 17:01
  • 3641

Servlet介绍以及简单实例

Servlet介绍以及简单实例目录Servlet介绍以及简单实例 HTTP Web响应模式 Servlet工作流程 Servlet接口访问方式介绍:GET/POST Servlet配置部署 在web....
  • u013891695
  • u013891695
  • 2016年11月04日 17:13
  • 1264

应用 Rational 工具简化基于 J2EE 的项目

  • 2009年08月25日 18:46
  • 1.35MB
  • 下载

Delphi 8.Net 与SQL Server 2000的实际应用(续)

  • 2006年01月13日 09:51
  • 542KB
  • 下载

Delphi8.Net与SQLServer2000的实际应用(续)

  • 2006年02月23日 15:31
  • 517KB
  • 下载

Delphi8.Net与SQLServer2000的实际应用(续)

  • 2004年11月09日 07:37
  • 500KB
  • 下载

自动化测试QTP11介绍以及实际应用

  • 2014年08月26日 15:01
  • 5.86MB
  • 下载

C#手册 本书介绍了C#相关基础与实际应用,也有相关的图例显示。

  • 2008年11月18日 17:35
  • 1.12MB
  • 下载

Datax与hadoop2.x兼容部署与实际项目应用工作记录分享

一、概述     Hadoop的版本更新挺快的,已经到了2.4,但是其周边工具的更新速度还是比较慢的,一些旧的周边工具版本对hadoop2.x的兼容性做得还不完善,特别是sqoop。最近,在为had...
  • u011596455
  • u011596455
  • 2017年12月21日 21:02
  • 40
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Rational中DataPool的介绍与实际应用-续(2)
举报原因:
原因补充:

(最多只允许输入30个字)