1 package WIP_TEST_UTILITIES AUTHID CURRENT_USER as
2 /* $Header: wiptests.pls 115.6 2002/12/12 16:01:55 rmahidha ship $ */
3
4
5 -- Whether or not to execute the test code that is embedded in normal
6 -- packages. Using this boolean, we can embed test code that does a lot of
7 -- extra work without worrying about it causing a performance problem later.
8 EXECUTE_TEST_CODE boolean := false ;
9
10
11 -- Throws PROGRAMMER_ERROR if the condition is false.
12 procedure assert(condition boolean) ;
13
14 -- Throws PROGRAMMER_ERROR.
15 procedure die ;
16
17 -- Throws PROGRAMMER_ERROR after printing message.
18 procedure die(message varchar2) ;
19
20 PROGRAMMER_ERROR exception ;
21
22
23 end WIP_TEST_UTILITIES ;