mirror of https://github.com/axmolengine/axmol.git
201 lines
15 KiB
Plaintext
201 lines
15 KiB
Plaintext
'设置Log文件路径及文件名，可从命令行传入，需改为：Set logFileObj=GetLogObj(argObj(0))
|
||
Set logso = CreateObject("Scripting.FileSystemObject")
|
||
LogFile = logso.GetAbsolutePathName("Res1\Log\LogFile.html")
|
||
PngFile = logso.GetAbsolutePathName("qtp_win32.png")
|
||
ResultPath = logso.GetAbsolutePathName("Res1")
|
||
TestPath = logso.GetAbsolutePathName("")
|
||
|
||
projpath = Trim(Left(TestPath,Len(TestPath)-43))
|
||
|
||
|
||
projpath = projpath & "Debug.win32"
|
||
projfile = projpath & "\TestCpp.exe"
|
||
'Msgbox projpath
|
||
'SystemUtil.Run "TestCpp.exe","",projpath
|
||
|
||
set WshShell = wscript.createobject("wscript.shell")
|
||
WshShell.CurrentDirectory = projpath
|
||
WshShell.run projfile,1,false
|
||
|
||
'Set argObj = WScript.Arguments
|
||
'Set logFileObj=GetLogObj(argObj(0))
|
||
'Set logFileObj=GetLogObj(LogFile)
|
||
'Response "--- Start a new batch task at " & Date & " " & Time
|
||
'Response "Console logs are saved in " & LogFile
|
||
' 从配置文件读入各种参数
|
||
Set ConfigParameters = CreateObject("Scripting.Dictionary")
|
||
ConfigFile = "config.ini"
|
||
ReadTestsFromConfigFile ConfigFile , ConfigParameters
|
||
'Response "Reading Test Configurations From " & ConfigFile
|
||
|
||
' 运行测试
|
||
RunTest
|
||
'CloseLogObj logFileObj
|
||
|
||
' 发送Email
|
||
SendMail LogFile , PngFile
|
||
|
||
|
||
|
||
'----------------------------------------------------------------------------------
|
||
' 读取配置文件
|
||
Function ReadTestsFromConfigFile( ByVal ConfigFile , ByRef ConfigParameters )
|
||
Set GetParameters = ConfigParameters
|
||
Dim fso, f, lineStr, isValid
|
||
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
If Not fso.FileExists(ConfigFile) Then
|
||
Response ConfigFile & " not found"
|
||
Exit Function
|
||
End If
|
||
Dim TestCount
|
||
TestCount=0
|
||
Set f=fso.OpenTextFile(ConfigFile,1,False)
|
||
'Open file for read, if not existed, don't created it.
|
||
Do While f.AtEndOfStream <> True
|
||
lineStr = f.ReadLine()
|
||
lineStr=Trim(lineStr)
|
||
If lineStr<>"" Then
|
||
'not empty line
|
||
'If InStr(1,lineStr,"#") = 1 Then
|
||
'begin with "#"
|
||
'TestCount = TestCount + 1
|
||
'TestPathStr=Trim(Right(lineStr,Len(lineStr)-1))
|
||
'GetParameters.Add TestCount, TestPathStr
|
||
If InStr(1,lineStr,"smtpserver=") = 1 Then
|
||
smtpserver = Trim(Right(lineStr,Len(lineStr)-11))
|
||
GetParameters.Add "smtpserver", smtpserver
|
||
ElseIf InStr(1,lineStr,"sendusername=") = 1 Then
|
||
sendusername = Trim(Right(lineStr,Len(lineStr)-13))
|
||
GetParameters.Add "sendusername", sendusername
|
||
ElseIf InStr(1,lineStr,"sendpassword=") = 1 Then
|
||
sendpassword = Trim(Right(lineStr,Len(lineStr)-13))
|
||
GetParameters.Add "sendpassword", sendpassword
|
||
ElseIf InStr(1,lineStr,"Email_Address=") = 1 Then
|
||
Email_Address = Trim(Right(lineStr,Len(lineStr)-14))
|
||
GetParameters.Add "Email_Address", Email_Address
|
||
End If
|
||
End If
|
||
Loop
|
||
f.Close
|
||
'GetParameters.Add "TestCount", TestCount
|
||
Set ReadTestsFromConfigFile = GetParameters
|
||
End Function
|
||
|
||
' 通过AOM调用QTP执行测试
|
||
Function RunTest
|
||
Dim qtApp
|
||
Dim qtTest
|
||
Dim qtResultsOpt
|
||
stime = Now
|
||
sdate = Year(stime) & "." & Month(stime) & "." & Day(stime) & "_" & Hour(stime) & "." & Minute(stime) & "." & Second(stime)
|
||
|
||
Set qtApp = CreateObject("QuickTest.Application")
|
||
qtApp.Launch
|
||
qtApp.Visible = True
|
||
Response "Launching QTP..."
|
||
|
||
'TestCount = ConfigParameters.Item("TestCount")
|
||
'For I=1 To TestCount
|
||
'TestPath = "L:\cocos2d-x\tools\JenkinsScript\Windows\qtp_win32"
|
||
arr = Split(TestPath,";")
|
||
testfile = arr(0)
|
||
qtApp.Open testfile, True
|
||
Set qtTest = qtApp.Test
|
||
Response "-------------------------"
|
||
Response "Opening Test " & arr(0)
|
||
|
||
Set oParams = qtApp.Test.ParameterDefinitions.GetParameters()
|
||
If UBound(arr) = 1 Then
|
||
ParamArr = Split(arr(1),",")
|
||
paramCount = UBound(ParamArr)
|
||
For K=0 to paramCount
|
||
oParam = Split(ParamArr(K),"=")
|
||
ParamName = oParam(0)
|
||
ParamValue = oParam(1)
|
||
oParams.Item(ParamName).Value = ParamValue
|
||
Next
|
||
End If
|
||
|
||
'ResultPath = "L:\cocos2d-x\tools\JenkinsScript\Windows\qtp_win32\Res1"
|
||
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
|
||
qtResultsOpt.ResultsLocation = ResultPath
|
||
Response "The Result of Test " & testfile & " will be save in " & ResultPath
|
||
|
||
qtTest.Run qtResultsOpt, True, oParams ' Run the test
|
||
Response "Runing Test " & testfile
|
||
|
||
Response testfile & "End Running With " & qtTest.LastRunResults.Status & "Status"
|
||
Response "Parameter List:"
|
||
For P = 1 to oParams.Count
|
||
Response oParams.Item(P).Name & "=" & oParams.Item(P).Value
|
||
Next
|
||
|
||
qtTest.Close
|
||
Response "Closing Test " & testfile
|
||
Response "-------------------------"
|
||
qtApp.Quit
|
||
Set oParams = Nothing
|
||
Set qtResultsOpt = Nothing
|
||
Set qtTest = Nothing
|
||
Set qtApp = Nothing
|
||
End Function
|
||
|
||
' 写日志
|
||
Function Response(ByVal msg)
|
||
' logFileObj.WriteLine Date & " " & Time & ": " & msg
|
||
If isRunInCmd Then
|
||
WScript.Echo Date & " " & Time & ": " & msg
|
||
End If
|
||
End Function
|
||
|
||
' 创建日志文件
|
||
Function GetLogObj(ByVal cfilePath)
|
||
Dim fso, runtimeLog
|
||
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
|
||
If Not fso.FileExists(cfilePath) Then
|
||
fso.CreateTextFile(cfilePath)
|
||
End If
|
||
|
||
runtimeLog=cfilepath
|
||
Set GetLogObj = fso.OpenTextFile(runtimeLog, 8, True) 'open file for appending.
|
||
End Function
|
||
|
||
' 关闭日志文件
|
||
Function CloseLogObj(ByVal cfile)
|
||
cfile.Close
|
||
End Function
|
||
|
||
' 发送邮件
|
||
Function SendMail(LogFile , PngFile)
|
||
Set oMessage=WScript.CreateObject("CDO.Message")
|
||
Set oConf=WScript.CreateObject("CDO.Configuration")
|
||
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
Set pso = CreateObject("Scripting.FileSystemObject")
|
||
|
||
'创建CDO.Configuration对象后，需要设置邮件服务器的端口、用户帐号等相关信息
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/serverport")=25
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="redmine@cocos2d-x.org"
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="cocos2d-x.org"
|
||
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=1
|
||
oConf.Fields.Update()
|
||
|
||
'通过CDO的 Message对象设置邮件主题、附件、发送人等信息
|
||
oMessage.Configuration = oConf
|
||
oMessage.To = "739657621@qq.com"
|
||
oMessage.From = "redmine@cocos2d-x.org"
|
||
oMessage.Subject = "QTRunner Notification"
|
||
file = fso.GetAbsolutePathName(LogFile)
|
||
Set fso = Nothing
|
||
oMessage.AddAttachment( file )
|
||
picture = pso.GetAbsolutePathName(PngFile)
|
||
Set pso = Nothing
|
||
oMessage.AddAttachment( picture )
|
||
|
||
TextBody = "QTRunner Finish! See attachment for logs."
|
||
oMessage.TextBody = TextBody
|
||
oMessage.Send()
|
||
End Function |