多个迭代时,一个迭代Pass,另一个迭代中用户终止了测试,结果还是Pass而不是Fail的解决方案

Class CheckUserAbort

 Sub Class_Terminate()

  If Setting("OnAbort") then

   Reporter.ReporterEvent micFail, _
   "The test has been stopped by the user", _
   "The test has been stopped by the user"

  End if

 End Sub

End Class

Dim CheckAbort

Set CheckAbort = new CheckUserAbort