關於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

　　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;