調用reporter文件進行操作

$:<<(File.expand_path(File.join(File.dirname(__FILE__),'..','..','..','a'))).gsub("/",'\\')

require 'reporter'

#參見 使用win32ole操作Excel-2

=begin #*******************************************************************
' **  函數名：HandleReportByEqual
' **  輸  入：  stepInfo - 當前執行的步驟，對應測試報告中Sheet_測試結果的步驟列內容
' **                       expect - 對應測試報告中Sheet_測試結果的期望結果列內容
' **                       actual - 經校驗如果對象不存在，對應測試報告中Sheet_測試結果的實際結果列內容                
' **  功能描述：根據期望值與實際值是否相等判斷執行結果，並向測試報告中寫入相關信息
' **  創建人： 
' **  創建日期：2009-10-30
' **  修改記錄：  
=end   #************************************************************************

def handleReportByEqual(stepNo,stepInfo,expect,actual,errinfo)
      if expect ==actual #and Err.Number==0
        #如果期望值=實際值，則說明通過校驗，向測試報告寫入正確的信息
           @@obj.reporter("Pass","#{stepNo}.#{stepInfo}",expect,actual,"恭喜你成功了啊~~~")
      else
          #如果期望值!=實際值，則說明沒有通過校驗，向測試報告寫入錯誤的信息
          @@obj.reporter("Fail","#{stepNo}.#{stepInfo}",expect,actual,"完蛋了 你錯了 你要檢查代碼了")
        
     end
 end

=begin #*******************************************************************
' **  函數名：HandleReportByErrNumber
' **  輸  入：obj - 對象
' **                       stepInfo - 當前執行的步驟，對應測試報告中Sheet_測試結果的步驟列內容
' **                     expect - 對應測試報告中Sheet_測試結果的期望結果列內容
' **                    errorResult - 經校驗對象不存在時的實際結果，對應測試報告中Sheet_測試結果的實際結果列內容                
' **  功能描述：根據對象是否存在判斷執行結果，並向測試報告中寫入相關信息
' **  創建人： 
' **  創建日期：2009 - 10 -30
' **  修改記錄
=end #************************************************************************

def handleReportByErrNumber(stepNo,stepInfo,expect,errorResult,errinfo)
    if (Err.Number).to_s != "0"
         if errinfo==nil  then errinfo = """" end
             @@obj.reporter("Fail","#{stepNo}.#{stepInfo}",expect,errorResult,errinfo)           
       else
         @@obj.reporter("Pass","#{stepNo}.#{stepInfo}",expect,expect,"恭喜你成功了啊~~~")
      end
end

=begin #*******************************************************************
' **  函數名：HandleReportByObjExist
' **  輸  入：obj - 對象
' **                      stepInfo - 當前執行的步驟，對應測試報告中Sheet_測試結果的步驟列內容
' **                  expect - 對應測試報告中Sheet_測試結果的期望結果列內容
' **                  errorResult - 經校驗如果對象不存在，對應測試報告中Sheet_測試結果的實際結果列內容                
' **  功能描述：根據對象是否存在判斷執行結果，如果對象存在說明通過校驗，並向測試報告中寫入相關信息
' **  創建人： 
' **  創建日期：2009-10-30
' **  修改記錄：
=end   #************************************************************************

def handleReportByObjExist(obj,stepNo,stepInfo,expect,errorResult,errinfo)
    if obj.exist?
        #如果對象不存在，說明通過校驗，向測試報告寫入正確的信息
        @@obj.reporter("Pass","#{stepNo}.#{stepInfo}",expect,expect,"恭喜你成功了啊~~~")
    Else
        #如果對象不存在，說明沒有通過校驗，向測試報告寫入錯誤的信息
        @@obj.reporter("Fail","#{stepNo}.#{stepInfo}",expect,errorResult,errinfo)    
        #Err.Clear        
    end
end
=begin #'*******************************************************************
' **  函數名：HandleReportByObjNotExist
' **  輸  入：obj - 對象
' **                    stepInfo - 當前執行的步驟，對應測試報告中Sheet_測試結果的步驟列內容
' **                  expect - 對應測試報告中Sheet_測試結果的期望結果列內容
' **                  errorResult - 經校驗如果對象不存在，對應測試報告中Sheet_測試結果的實際結果列內容                
' **  功能描述：根據對象是否存在判斷執行結果，如果對象不存在說明通過校驗，並向測試報告中寫入相關信息
'                                通常用在刪除後，判斷對象是否存在
' **  創建人： 
' **  創建日期：2009-10-30
' **  修改記錄：
=end   # ************************************************************************

def handleReportByObjNotExist(obj,stepNo,stepInfo,expect,errorResult,errinfo)
    if obj.exist?         
        #如果對象存在，說明沒有通過校驗，向測試報告寫入錯誤的信息
        @@obj.reporter("Fail","#{stepNo}.#{stepInfo}",expect,errorResult,errinfo)    
        Err.Clear        
    else
        #如果對象不存在，說明沒有通過校驗，向測試報告寫入正確的信息
        @@obj.reporter("Pass","#{stepNo}.#{stepInfo}",expect,expect,"恭喜你成功了啊~~~")
    end
end