不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。
it is no use doing what you like, you have got to like what you do.
SQALogMessage
上一篇 /
下一篇 2007-02-05 16:02:56
/ 个人分类:Robot技术
SQALogMessage Utility Command
&~5lz.}3Q7Y0
SQALogMessage code%, message$, descrīption$51Testing软件测试网JR(xH1Q
51Testing软件测试网h/m|v/Z"ZD"P
例子:SQALogMessage sqaPass, "Fixed button float!", "Defect resolved"
code% ----让你在TM LOG结果栏插入一个结果标记
sqaPass or True----Inserts Pass in the Result column.
sqaFail or False---Inserts Fail in the Result column.
sqaWarning---------Inserts Warning in the Result column.
sqaNone------------Leaves the Result column blank for the message entry.
k)G6N
?*}051Testing软件测试网%Ng3Oy4j:w$k?k1d
message$ ------The message to insert in the log. The message appears
in the Event Type column of the log.
1B)ql6LrA@051Testing软件测试网"Dlw@%mJY$?
descrīption$ ------- A descrīption of the log message. The descrīption
appears in the Failure Descrīption field of the Log Event
Log Message dialog box.
9g*w_K Q!a-u|
Xi0
Sub Main
Dim Result As Integer
Dim Value As Variant
SQALogMessage sqaNone, "Starting test of Acme Application...", ""
Window SetContext, "Caption=Acme Inc.", ""
Result = SQAGetProperty ("Type=PushButton;Text=OK", "Enabled", Value)
If Result = sqaSuccess Then
If Value = TRUE Then
Result = sqaPass
Else
Result = sqaFail
End If
SQALogMessage Result, "Test to see if OK button is enabled", ""
Else
SQALogMessage sqaWarning, "Unable to perform OK button test", "Error" + Str$(Result) + ": " + Error$(Result)
End If
End Sub51Testing软件测试网sIc}+po ?'l|
相关阅读:
- 用Robot实现登陆界面的压力测试 (Spark.lee, 2007-1-05)
- 修改table中的数据,使用SQASetProperty函数 (Spark.lee, 2007-1-05)
- SQAWaitForPropertyvalue 函数使用 (Spark.lee, 2007-1-05)
- 函数调用 文件关联 (Spark.lee, 2007-1-05)
- SQAUtil.sbl (Spark.lee, 2007-1-05)
- SQADatapoolOpen参数解释 (Spark.lee, 2007-2-05)
- script structure(脚本结构) (Spark.lee, 2007-2-05)
- SQAfindobject函数解释 (Spark.lee, 2007-2-05)
- SQADatapoolRewind 函数解释 (Spark.lee, 2007-2-05)
- SQAConsoleWrite/clear函数解释 (Spark.lee, 2007-2-05)
收藏
举报
TAG:
Robot技术