关于Oracle存储过程测试

　2007-05-13 12:30:39　来源：WEB开发网　　　

核心提示： 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>

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