PACKAGE BODY: APPS.WIP_TEST_UTILITIES

Source

1 package body WIP_TEST_UTILITIES as
2   /* $Header: wiptestb.pls 115.7 2002/12/12 16:02:08 rmahidha ship $ */
3 
4 
5 procedure assert(condition boolean) is
6 begin
7   if(not condition) then
8     die('*** Assertion Failure ***') ;
9   end if ;
10 end assert ;
11 
12 
13 procedure die is
14 begin
15   raise PROGRAMMER_ERROR ;
16 end die ;
17 
18 
19 procedure die(message varchar2) is
20 begin
21 --  dbms_output.put_line(message) ;
22   die ;
23 end die ;
24 
25 
26 end WIP_TEST_UTILITIES ;