常规方式保存测试信息；

　　创建相关数据表；

　　创建数据表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/SQ下实现的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
　　/**
　　*

purpose:这是一个在存储过程过程通过日志方式进行记录测试信息的例子，实现了树型目录的日志记录方式
　　*

　　*

　　* 使用方式
　　*

编译该存储过程
　　*

　　* 删除TLOG表中的日志信息： delete from TLOG
　　*
　　*

测试该存储过程
　　* begin testassert2(10,’wdz123@hotmailcom’);end;
　　*
　　*

察看结果 select from tlog
　　*

　　* @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;