调用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