关于Oracle存储过程测试

2/9/2008来源:Oracle教程人气:12234


  常规方式保存测试信息
  创建相关数据表
  创建数据表TestInfoLog,和序列号SEQ_TestInfoLog
  参考当前目录下的 TestInfoLog.sql ,运行这部分脚本。
  创建测试信息保存包
  创建一个测试信息保存的 Package
  参考当前目录下的 PKG_Test_Info.pck,编译这个包。
  具体例子
  例子1
  在一个PL/SQL块中使用测试包来保存测试信息,参考当前目录下的 example1.sql
  -- 简单使用的一个例子,结果查询 select * from TESTINFOLOG
  declare
  i integer :=1;
  begin
  PKG_Test_Info.clearAllLogInfo;
  PKG_Test_Info.setLogContext('匿名块测试','无',1);
  PKG_Test_Info.logInfo('i=1');
  PKG_Test_Info.logInfo('当前日期='To_char(sysdate,'yyyy-mm-dd'));
  end;
  
  例子2
  在一个存储过程中保存测试信息
  参考当前目录下的Test_PKG_Test_Info.PRc
  ---在存储过程中保存测试信息,结果查询 select * from TESTINFOLOG
  create or replace procedure Test_PKG_Test_Info(p_Param1 int,
  p_Param2 int,
  p_保存日志信息 int default 1) is
  begin
  if(p_保存日志信息)=1 then
  PKG_Test_Info.clearAllLogInfo;
  PKG_Test_Info.setLogContext('存储过程测试', 'Test_PKG_Test_Info', 1);
  
  PKG_Test_Info.logInfo('p_Param1='to_char(p_Param1)',p_Param2='
  to_char(p_Param2));
  end if;
  end ;
  卸载脚本
  参考 uninsall.sql ,假如需要卸载运行这个脚本
  其它的方式保存测试信息
  Log4plsql的介绍
  Log4plsql是一个open source的工具,是一个在Oralce PL/SQL 下实现的LOG框架。
  Log4plsql 是基于log4J 演化得来的。
  
  相关站点
  http://log4plsql.sourceforge.net/
  http://sourceforge.net/projects/log4plsql/
  Log4plsql来做测试。
  1.触发器的测试信息保存
  1个触发器的例子,在触发器中记录相关信息
  代码位于当前文件所在目录的 LOG_DML.sql
  
  CREATE OR REPLACE TRIGGER LOG_DML BEFORE
  INSERT OR UPDATE OR DELETE
  ON T_ESSAIS FOR EACH ROW
  BEGIN
  IF DELETING OR UPDATING THEN
  PLOG.INFO('T_ESSAIS:OLD:'USER':'ld.data);
  END IF;
  
  IF INSERTING OR UPDATING THEN
  PLOG.INFO('T_ESSAIS:NEW:'USER':':new.data);
  END IF;
  end;
  
  
  2.存储过程中测试信息保存
  在存储过程中进行日志操作,把相关存储过城的参数信息记录到日志数据表
  代码位于当前文件所在目录的 testAssert.sql
  create or replace procedure testAssert(p_Param1 int,p_Param2 varchar2)
  IS
  pCTX PLOG.LOG_CTX;
  BEGIN
  --假如 p_Param1<=1,那相关信息就将写入日志
  PLOG.ASSERT(pCTX, p_Param1>1, 'p_Param1>1 always false');
  --假如 p_Param2<>'man',那相关信息就将写入日志
  PLOG.ASSERT(p_Param2 = 'man', 'p_Param2<> man ');
  PLOG.ASSERT(1 is null, '1 is null always false');
  PLOG.ASSERT(NOT 1>1, 'NOT 1>1 never false');
  
  PLOG.ASSERT(1>2, '1>2 always false', -20001,
  pRaiseExceptionIfFALSE=>TRUE ,
  pLogErrorReplaceError=>FALSE);
  PLOG.ASSERT(1>3, 'Never test there is a raise in previous assert');
  END;
  
  3.实现了树型目录的日志例子
  代码位于当前文件所在目录的 testAssert2.sql
  /**
  * <p> purpose:这是一个在存储过程过程通过日志方式进行记录测试信息的例子,实现了树型目录的日志记录方式
  * </p>
  * <p>
  * 使用方式
  * <LI>编译该存储过程</LI>
  * <LI>
  * 删除TLOG表中的日志信息: delete from TLOG
  * </LI>
  * <LI>测试该存储过程
  * begin testassert2(10,'wdz123@hotmailcom');end;
  * </LI>
  * <LI>察看结果 select from tlog </LI>
  *</p>
  * @param p_Param1 是一个入口参数 ,它的值将被记录进入 日志中
  * @param p_Param2 是另外一个入口参数 ,它的值将被记录进入 日志中
  ***/
  create or replace procedure testAssert2(p_Param1 int, p_Param2 varchar2) IS
  v_CTX PLOG.LOG_CTX;
  v_Year varchar2(4);
  BEGIN
  ---设置日志信息的根结点名称
  v_CTX := PLOG.init('测试信息');
  ---构造树型日志的第2级
  PLOG.setBeginSection(v_CTX, 'procedure_testAssert2_测试信息');
  PLOG.setBeginSection(v_CTX, '检测入口参数');
  --假如 p_Param1<=1,那相关信息就将写入日志
  PLOG.ASSERT(v_CTX, p_Param1 > 1, 'p_Param1>1 always false');
  --假如 p_Param2<>'man',那相关信息就将写入日志
  PLOG.ASSERT(p_Param2 = 'man', 'p_Param2 <> man ');
  ---关闭树型日志的第2级目录
  PLOG.setEndSection(v_CTX, '检测入口参数');
  
  ---下面是根据实际业务需要进行一序列处理
  null; ---这里是一些业务处理代码
  ---end 相关实际业务处理
  
  ---检查业务处理结果
  --构造又一个2级树型日志目录
  PLOG.setBeginSection(v_CTX, '检查业务处理结果');
  ---这里是根据实际需要,对相关处理结果的检查代码
  select to_char(sysdate, 'YYYY') into v_Year from dual;
  PLOG.assert(v_CTX,
  v_Year = '2003',
  '当前年份应该是=2003,实际是=' v_Year);
  ---end 这里是根据实际需要,对相关处理结果的检查代码
  --关闭当前的树型日志的第2级目录
  PLOG.setEndSection(v_CTX, '检查业务处理结果');
  PLOG.setEndSection(v_CTX, 'procedure_testAssert2_测试信息');
  END;
  
  
  
  
  Log4plsql的应用
  由于PLOG 提供了assert的处理,因此可以考虑在存储过程和包中进行一些测试结果的检查,根据需要把测试结果保存下来,对于一些基于算法的存储过程的测试,可以考虑使用一些脚本来做一些自动化的回归测试。

  应用例子
  1.说明:
  这个例子可能不能应用起来(没有相关的数据库环境,缺少相应的包),但是可以open一些脚本出来,来说明相关的表达意思。假如是公司内部,可以在福州项目数据库下可以运行起来。
  2.参考文档
  参考 带申请的业主整合算法的测试,有申请,没有产权阁楼,没有产权分摊,不存在人口安置。
  相关存储过程/包
  PKG_ConDebugInfo.Normal_OwnerReq_Recursive
  PLOG包
  相关文档
  参考《测试__带申请的业主整合算法的测试.doc》
  测试数据的输入,采用手工的方式输入,根据需要也可以全部脚本生成。
  参考文档《测试__带申请的业主整合算法的测试.doc》列出的测试数据要求。
  测试数据的动态修改/生成,根据测试用例,动态改变/生成测试数据。
  参考 PKG_ConDebugInfo.Normal_Owner_UpdateData3
  测试结果的检查
  参考 PKG_ConDebugInfo.Normal_Owner_Check_Data3
  扩展
  为了基于pl/sql的测试信息做的更好。可以从以下几个方面来做。
  1.可以考虑自己去修改 Log4plsql提供的PLOG包,
  1.1修改数据表TLOG,增加一些字段保存其他信息(比如:可以保存客户端ip)。
  修改存储过程PLOG.addRow ,把相关信息保存到测试数据表。
  可以从后台获取一些运行环境信息,比如采取下面的类似方式获取一些信息
  SYS_CONTEXT('USERENV','CURRENT_USER')
  SYS_CONTEXT('userenv', 'ip_address')
  1.2增加其他一些方法
  根据实际需要可以往PLOG包增加其他一些方法,比如日志的删除之类的。
  最好还是另外包装1层,象上面的Oracle包PKG_ConDebug一样,定义1个包来做一些相关包装。
  2.修改视图 VLOG,按照具体要求来现显示一些测试结果信息。
  例如:创建下面的视图。
  create or replace view vlog2 as
  select
  LUSER 数据库用户,
  plog.getLevelInText(llevel) as 测试信息等级,
  LSECTION 日志目录,
  LTEXTE 错误信息,
  LDATE 产生错误时间
  from tlog a
  3.算法测试的自动化
  可以根据需要,增强上面Log4plsql的应用中关于测试数据的生成部分,并且做到据根据业务需要,测试测试数的生成可以带有随机性。或者按照要害用例为主来生成测试数据。