51Testing软件测试论坛

标题: 如何编写脚本判断是否产生错误 [打印本页]

作者: ktliang 时间: 2008-3-28 16:51
标题: 如何编写脚本判断是否产生错误
情况是这样的，我正在编写对web的测试，其中有个注册时，判断重复的用户名注册是否成功。当然，期望值是不成功，并且页面不跳转，在页面上显示消息，可以对这个消息进行文本检查；但是如果成功了，页面跳转了，这时，我怎么知道页面是否跳转了----我想要的是不管怎么样结果都要停留在注册页面的。

作者: sunqiang1024 时间: 2008-3-28 17:19
接着使用检查点啊。

作者: 54111 时间: 2008-3-28 17:46
如果手工测试的时间明显小于录制脚本编辑脚本使用的时间，那么自动化测试没有必要，我的意思是不是所有的地方都需要用自动化测试

作者: dftx511619 时间: 2008-3-29 00:02
楼上的回答挺好

很奇怪，怎么现在的人只要一开始测试就首先想到---自动化测试，其实那些模块或者系统适合做自动化测试;那些不合适？

是需要很好的分析才能做决定的，比如：本楼主提出的问题，我觉得可以考虑手动的，当然是单一的这种测试

作者: getfly 时间: 2008-3-30 12:45
楼上说的手动也是一种解决方法。
如果一定要做的话，验证也简单，我的方法是判断跳转后的页面对象是否存在。
我写过一个飞机票，道理是一样的，你看能不能用到。
'*'''''*************************************************************************************
'''' Function Name: IsObjectExist
'''''' Description:          Judge the object is existing
'''''  Input Para:          objectExist=> an object
''''
''''  Output Para:       None
''''  Example:             IsObjectExist ( objectExist )
''''  Auther:             Hans Wang
'''' Create Date:       03/22/2008
'''' Modify History: None
'''' Releated Functions:
''''
''''**************************************************************************************
Function IsObjectExist ( objectExist, maxtime )
Dim t
t = 0
If objectExist.Exist(1) Then
   fs.WriteLine ( "The object: "  + " is exist!=====================")
   IsObjectExist = true
  else
   While ( objectExist.Exist(1) = false )'''计数
         ''wait (1)  '''' if you add this sentence, it should add one second for each cycle
         t = t+1
         'msgbox("OK")
         If t = maxtime Then
            IsObjectExist = False
            fs.WriteLine ( "The object: "  + " is not exist, so Exit this action.===")
            Exit Function
         End If
   Wend

   exit Function
End If
End Function

If IsObjectExist (Dialog("#32770"), 3 ) Then  ''''这里就是你可以加入网页跳转后的可以找到的对象，最好是唯一的。
            LoginAction = "SUCCESS"
            ElseIf IsObjectExist ( Dialog("Login").Dialog("Flight Reservations"), 5 ) Then  ‘’‘’这里是跳转不成功而爆出的错误，是我们可以预料的错误
               LoginAction = cstr( Filght_Login_ErrorMessage ( Dialog("Login").Dialog("Flight Reservations") ) )
                     Dialog("Login").Dialog("Flight Reservations").Close
            else
            LoginAction = "FALSE1"   ‘’‘’‘这个是我们预料不道的。可以加入截图的方法。
      End If
msgbox( LoginAction )

你看看对你有帮助没有！

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