如何编写脚本判断是否产生错误

ktliang

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

sunqiang1024

接着使用检查点啊。

54111

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

dftx511619

楼上的 回答 挺好

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

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

getfly

楼上说的手动也是一种解决方法。
如果一定要做的话，验证也简单，我的方法是判断跳转后的页面对象是否存在。
我写过一个飞机票，道理是一样的，你看能不能用到。
'*'''''*************************************************************************************
''''   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 )

你看看对你有帮助没有！