关于Oracle存储过程测试

　　常规方式保存测试信息

　　创建相关数据表

　　创建数据表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

　　卸载脚本

　　参考 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

　　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

　　---设置日志信息的根结点名称

　　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, '检查业务处理结果');

　　---这里是根据实际需要，对相关处理结果的检查代码

　　'当前年份应该是=2003,实际是=' || v_year);

　　---end 这里是根据实际需要，对相关处理结果的检查代码

　　--关闭当前的树型日志的第2级目录

　　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，按照具体要求来现显示一些测试结果信息。

　　例如：创建下面的视图。

　　3．算法测试的自动化

　　可以根据需要，增强上面log4plsql的应用中关于测试数据的生成部分，并且做到据根据业务需要，测试测试数的生成可以带有随机性。或者按照关键用例为主来生成测试数据。