forked from utPLSQL/utPLSQL
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathut_assert_processor.pkb
More file actions
147 lines (122 loc) · 5.15 KB
/
Copy pathut_assert_processor.pkb
File metadata and controls
147 lines (122 loc) · 5.15 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
create or replace package body ut_assert_processor as
/*
utPLSQL - Version X.X.X.X
Copyright 2016 - 2017 utPLSQL Project
Licensed under the Apache License, Version 2.0 (the "License"):
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
*/
type tt_nls_params is table of nls_session_parameters%rowtype;
g_session_params tt_nls_params;
g_asserts_called ut_assert_results := ut_assert_results();
g_nulls_are_equal boolean_not_null := gc_default_nulls_are_equal;
function nulls_are_equal return boolean is
begin
return g_nulls_are_equal;
end;
procedure nulls_are_equal(a_setting boolean_not_null) is
begin
g_nulls_are_equal := a_setting;
end;
function get_aggregate_asserts_result return integer is
l_result integer := ut_utils.tr_success;
begin
ut_utils.debug_log('ut_assert_processor.get_aggregate_asserts_result');
for i in 1 .. g_asserts_called.count loop
l_result := greatest(l_result, g_asserts_called(i).result);
exit when l_result = ut_utils.tr_error;
end loop;
return l_result;
end get_aggregate_asserts_result;
procedure clear_asserts is
begin
ut_utils.debug_log('ut_assert_processor.clear_asserts');
g_asserts_called.delete;
end;
function get_asserts_results return ut_assert_results is
l_asserts_results ut_assert_results := ut_assert_results();
begin
ut_utils.debug_log('ut_assert_processor.get_asserts_results: .count='||g_asserts_called.count);
l_asserts_results := g_asserts_called;
clear_asserts();
return l_asserts_results;
end get_asserts_results;
procedure add_assert_result(a_assert_result ut_assert_result) is
begin
ut_utils.debug_log('ut_assert_processor.add_assert_result');
g_asserts_called.extend;
g_asserts_called(g_asserts_called.last) := a_assert_result;
end;
procedure report_failure(a_message in varchar2) is
begin
add_assert_result(ut_assert_result(ut_utils.tr_failure, a_message));
end;
function get_session_parameters return tt_nls_params is
l_session_params tt_nls_params;
begin
select nsp.parameter, nsp.value
bulk collect into l_session_params
from nls_session_parameters nsp
where parameter
in ( 'NLS_DATE_FORMAT', 'NLS_TIMESTAMP_FORMAT', 'NLS_TIMESTAMP_TZ_FORMAT');
return l_session_params;
end;
procedure set_xml_nls_params is
insuf_privs exception;
pragma exception_init(insuf_privs, -1031);
begin
g_session_params := get_session_parameters();
begin
execute immediate q'[alter session set events '19119 trace name context forever, level 0x8']';
exception
when insuf_privs then NULL;
end;
execute immediate 'alter session set nls_date_format = '''||ut_utils.gc_date_format||'''';
execute immediate 'alter session set nls_timestamp_format = '''||ut_utils.gc_timestamp_format||'''';
execute immediate 'alter session set nls_timestamp_tz_format = '''||ut_utils.gc_timestamp_tz_format||'''';
end;
procedure reset_nls_params is
insuf_privs exception;
pragma exception_init(insuf_privs, -1031);
begin
begin
execute immediate q'[alter session set events '19119 trace name context off']';
exception
when insuf_privs then NULL;
end;
if g_session_params is not null then
for i in 1 .. g_session_params.count loop
execute immediate 'alter session set '||g_session_params(i).parameter||' = '''||g_session_params(i).value||'''';
end loop;
end if;
end;
function who_called_expectation return varchar2 is
c_call_stack constant varchar2(32767) := dbms_utility.format_call_stack();
l_caller_stack_line varchar2(4000);
l_caller_type_and_name varchar2(4000);
l_line_no integer;
l_owner varchar2(1000);
l_object_name varchar2(1000);
c_expectation_search_pattern constant varchar2(50) := '(.*\.UT_EXPECTATION[A-Z0-9#_$]*\s)+(.*)\s';
begin
l_caller_stack_line := regexp_substr( c_call_stack, c_expectation_search_pattern, 1, 1, 'm', 2);
l_line_no := to_number( regexp_substr(l_caller_stack_line,'^\dx[0-9a-f]+\s+(\d+)',subexpression => 1) );
l_caller_type_and_name := substr( l_caller_stack_line, 23 );
if l_caller_stack_line like '%.%' then
l_owner := regexp_substr(l_caller_stack_line,'\s(\w+)\.(\w|\.)+$',subexpression => 1);
l_object_name := regexp_substr(l_caller_stack_line,'\s(\w+)\.((\w|\.)+)$',subexpression => 2);
end if;
return
case when l_owner is not null and l_object_name is not null and l_line_no is not null then
'at "' || l_owner || '.' || l_object_name || '", line '|| l_line_no || ' ' ||
ut_metadata.get_source_definition_line(l_owner, l_object_name, l_line_no)
end;
end;
end;
/