All files (92.02% covered at 851 hits/line)
78 files in total. 2482 relevant lines. 2284 lines covered and 198 lines missed
+
Codestin Search App +Generated 2019-08-25T14:25:33++All files (95.04% lines covered at 588 hits/line)
102 files in total.4741 relevant lines. 4506 lines covered (including 20 lines partially covered ) and 235 lines missed.+ ++UT3.UT
93.2 % lines covered
103 relevant lines. 96 lines covered and 7 lines missed+
- +
package body ut is- +
- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
g_nls_date_format varchar2(4000);- -
+ +- + 1 +
+gc_fail_on_errors constant boolean := false;- -
+function version return varchar2 is+- -
+beging_result_line_no binary_integer;+- 1 -
+return ut_utils.gc_version;g_result_lines ut_varchar2_list := ut_varchar2_list();+- -
-end;- + +
- +
+function version return varchar2 is- -
-function expect(a_actual in anydata, a_message varchar2 := null) return ut_expectation_anydata is- -
begin- - 21 -
-return ut_expectation_anydata(ut_data_value_anydata.get_instance(a_actual), a_message);- + +
- + 117 +
+ +return ut_runner.version();- -
end;- + +
- + +
- +
+function expect(a_actual in anydata, a_message varchar2 := null) return ut_expectation_compound is- -
-function expect(a_actual in blob, a_message varchar2 := null) return ut_expectation_blob is- -
begin- - 21 -
-return ut_expectation_blob(ut_data_value_blob(a_actual), a_message);- + +
- + 109 +
+ +return ut_expectation_compound(ut_data_value_anydata(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in blob, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in boolean, a_message varchar2 := null) return ut_expectation_boolean is- -
begin- - 76 -
-return ut_expectation_boolean(ut_data_value_boolean(a_actual), a_message);- + +
- + 23 +
+ +return ut_expectation(ut_data_value_blob(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in boolean, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in clob, a_message varchar2 := null) return ut_expectation_clob is- -
begin- - 44 -
-return ut_expectation_clob(ut_data_value_clob(a_actual), a_message);- + +
- + 29 +
+ +return ut_expectation(ut_data_value_boolean(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in clob, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in date, a_message varchar2 := null) return ut_expectation_date is- -
begin- - 45 -
-return ut_expectation_date(ut_data_value_date(a_actual), a_message);- + +
- + 48 +
+ +return ut_expectation(ut_data_value_clob(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in date, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in number, a_message varchar2 := null) return ut_expectation_number is- -
begin- - 314 -
-return ut_expectation_number(ut_data_value_number(a_actual), a_message);- + +
- + 42 +
+ +return ut_expectation(ut_data_value_date(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in number, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in timestamp_unconstrained, a_message varchar2 := null) return ut_expectation_timestamp is- -
begin- - 45 -
-return ut_expectation_timestamp(ut_data_value_timestamp(a_actual), a_message);- + +
- + 122 +
+ +return ut_expectation(ut_data_value_number(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in timestamp_unconstrained, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in timestamp_ltz_unconstrained, a_message varchar2 := null) return ut_expectation_timestamp_ltz is- -
begin- - 47 -
-return ut_expectation_timestamp_ltz(ut_data_value_timestamp_ltz(a_actual), a_message);- + +
- + 42 +
+ +return ut_expectation(ut_data_value_timestamp(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in timestamp_ltz_unconstrained, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in timestamp_tz_unconstrained, a_message varchar2 := null) return ut_expectation_timestamp_tz is- -
begin- - 43 -
-return ut_expectation_timestamp_tz(ut_data_value_timestamp_tz(a_actual), a_message);- + +
- + 44 +
+ +return ut_expectation(ut_data_value_timestamp_ltz(a_actual), a_message);- -
end;- + +
- -
- -
-function expect(a_actual in varchar2, a_message varchar2 := null) return ut_expectation_varchar2 is- + +
- +
+ +function expect(a_actual in timestamp_tz_unconstrained, a_message varchar2 := null) return ut_expectation is- -
begin- - 194 -
-return ut_expectation_varchar2(ut_data_value_varchar2(a_actual), a_message);- + +
- + 40 +
+ +return ut_expectation(ut_data_value_timestamp_tz(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in varchar2, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in sys_refcursor, a_message varchar2 := null) return ut_expectation_refcursor is- -
begin- - 19 -
-return ut_expectation_refcursor(ut_data_value_refcursor(a_actual), a_message);- + +
- + 57 +
+ +return ut_expectation(ut_data_value_varchar2(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in sys_refcursor, a_message varchar2 := null) return ut_expectation_compound is- -
-function expect(a_actual in yminterval_unconstrained, a_message varchar2 := null) return ut_expectation_yminterval is- -
begin- - 37 -
-return ut_expectation_yminterval(ut_data_value_yminterval(a_actual), a_message);- + +
- + 153 +
+ +return ut_expectation_compound(ut_data_value_refcursor(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in yminterval_unconstrained, a_message varchar2 := null) return ut_expectation is- -
-function expect(a_actual in dsinterval_unconstrained, a_message varchar2 := null) return ut_expectation_dsinterval is- -
begin- - 37 -
-return ut_expectation_dsinterval(ut_data_value_dsinterval(a_actual), a_message);- + +
- + 34 +
+ +return ut_expectation(ut_data_value_yminterval(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in dsinterval_unconstrained, a_message varchar2 := null) return ut_expectation is- -
-procedure fail(a_message in varchar2) is- -
begin- - 1 -
-ut_expectation_processor.report_failure(a_message);- + +
- + 34 +
+ +return ut_expectation(ut_data_value_dsinterval(a_actual), a_message);- -
end;- + +
- + +
- +
+function expect(a_actual in json_element_t , a_message varchar2 := null) return ut_expectation_json is- -
-procedure run_autonomous(- -
+a_paths ut_varchar2_list, a_reporter ut_reporter_base, a_color_console integer,begin+ +- + 23 +
+return ut_expectation_json(ut_data_value_json(a_actual), a_message);- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings, a_test_file_mappings ut_file_mappings,end;+- -
+a_include_objects ut_varchar2_list, a_exclude_objects ut_varchar2_list+- -
+) isprocedure fail(a_message in varchar2) is+- -
-pragma autonomous_transaction;- -
begin- - 26 -
+ +ut_runner.run(- + 1 +
+ +ut_expectation_processor.report_failure(a_message);- +
+end;- -
+a_paths, a_reporter, ut_utils.int_to_boolean(a_color_console), a_coverage_schemes,+- -
+a_source_file_mappings, a_test_file_mappings, a_include_objects, a_exclude_objectsprocedure raise_if_packages_invalidated is+- -
-);- - 25 -
+rollback;e_package_invalidated exception;+ +- +
+pragma exception_init (e_package_invalidated, -04068);- -
-end;- -
-- -
-procedure run_autonomous(- -
+a_paths ut_varchar2_list, a_reporter ut_reporter_base, a_color_console integer,begin+ +- + 113 +
+ +if ut_expectation_processor.invalidation_exception_found() then- + 1 +
+ +ut_expectation_processor.reset_invalidation_exception();- + 1 +
+raise e_package_invalidated;- -
+a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,end if;+- -
+a_include_objects ut_varchar2_list, a_exclude_objects ut_varchar2_listend;+- -
+) is+- -
+pragma autonomous_transaction;+- -
-begin- - 3 -
+ut_runner.run(procedure run_autonomous(+ +- +
+a_paths ut_varchar2_list,- -
+a_paths, a_reporter, ut_utils.int_to_boolean(a_color_console), a_coverage_schemes,a_reporter in out nocopy ut_reporter_base,+- -
+a_source_files, a_test_files, a_include_objects, a_exclude_objectsa_color_console integer,+- -
-);- - 3 -
+rollback;a_coverage_schemes ut_varchar2_list,+ +- +
+a_source_file_mappings ut_file_mappings,- -
+end;a_test_file_mappings ut_file_mappings,+- -
+a_include_objects ut_varchar2_list,+- -
+function run(a_exclude_objects ut_varchar2_list,+- -
+a_reporter ut_reporter_base := null, a_color_console integer := 0,a_client_character_set varchar2,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,a_random_test_order integer,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_random_test_order_seed positive,+- -
-) return ut_varchar2_rows pipelined is- - 2 -
-l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());- - 2 -
+l_paths ut_varchar2_list := ut_varchar2_list(sys_context('userenv', 'current_schema'));a_tags varchar2 := null+ +- +
+ +) is- +
+pragma autonomous_transaction;- -
-l_lines sys_refcursor;- -
-l_line varchar2(4000);- -
begin- - 2 -
+ +run_autonomous(- + 102 +
+ +a_reporter := coalesce(a_reporter,ut_documentation_reporter());- + 102 +
+ +ut_runner.run(- +
+a_paths,- -
+l_paths, l_reporter, a_color_console,ut_reporters(a_reporter),+- -
+a_coverage_schemes, a_source_file_mappings, a_test_file_mappings, a_include_objects, a_exclude_objectsut_utils.int_to_boolean(a_color_console),+- -
-);- - 2 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 104 -
-loop- - 104 -
-fetch l_lines into l_line;- - 104 -
-exit when l_lines%notfound;- - 102 -
+pipe row(l_line);a_coverage_schemes,+ +- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+gc_fail_on_errors,- -
-end loop;- - 2 -
+close l_lines;a_client_character_set,+ +- +
+false,- -
+end;ut_utils.int_to_boolean(a_random_test_order),+- -
+a_random_test_order_seed,+- -
+function run(a_tags+- -
-a_reporter ut_reporter_base := null, a_color_console integer := 0,- -
+a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,);+ +- + 101 +
+rollback;- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nullend;+- -
-) return ut_varchar2_rows pipelined is- - 1 -
-l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());- - 1 -
+l_paths ut_varchar2_list := ut_varchar2_list(sys_context('userenv', 'current_schema'));+ +- +
+ +procedure run_autonomous(- +
+a_paths ut_varchar2_list,- -
+l_lines sys_refcursor;a_reporter in out nocopy ut_reporter_base,+- -
+l_line varchar2(4000);a_color_console integer,+- -
-begin- - 1 -
+run_autonomous(a_coverage_schemes ut_varchar2_list,+ +- +
+a_source_files ut_varchar2_list,- -
+l_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,a_test_files ut_varchar2_list,+- -
+a_include_objects, a_exclude_objectsa_include_objects ut_varchar2_list,+- -
-);- - 1 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 56 -
-loop- - 56 -
-fetch l_lines into l_line;- - 56 -
-exit when l_lines%notfound;- - 55 -
-pipe row(l_line);- -
-end loop;- - 1 -
-close l_lines;- -
-end;- -
-- -
+function run(a_exclude_objects ut_varchar2_list,+ +- +
+ +a_client_character_set varchar2,- +
+ +a_random_test_order integer,- +
+ +a_random_test_order_seed positive,- +
+ +a_tags varchar2 := null- +
+ +) is- +
+ +pragma autonomous_transaction;- +
+ +begin- + 10 +
+ +a_reporter := coalesce(a_reporter,ut_documentation_reporter());- + 10 +
+ +ut_runner.run(- +
+a_paths,- -
+a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console integer := 0,ut_reporters(a_reporter),+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,ut_utils.int_to_boolean(a_color_console),+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_coverage_schemes,+- -
-) return ut_varchar2_rows pipelined is- - 2 -
+l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());ut_file_mapper.build_file_mappings(a_source_files),+ +- +
+ut_file_mapper.build_file_mappings(a_test_files),- -
+l_lines sys_refcursor;a_include_objects,+- -
+l_line varchar2(4000);a_exclude_objects,+- -
-begin- - 2 -
+run_autonomous(gc_fail_on_errors,+ +- +
+a_client_character_set,- -
+a_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,false,+- -
+a_include_objects, a_exclude_objectsut_utils.int_to_boolean(a_random_test_order),+- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- - 2 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 51 -
-loop- - 51 -
-fetch l_lines into l_line;- - 51 -
-exit when l_lines%notfound;- - 49 -
+ +pipe row(l_line);- + 10 +
+ +rollback;- +
+ +end;- +
+- -
-end loop;- - 2 -
+close l_lines;function get_report_outputs( a_cursor sys_refcursor ) return varchar2 is+ +- +
+l_clob clob;- -
+end;l_item_type varchar2(32767);+- -
+l_result varchar2(4000);+- -
-function run(- -
-a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console integer := 0,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null- -
-) return ut_varchar2_rows pipelined is- - 1 -
-l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());- -
-l_lines sys_refcursor;- -
-l_line varchar2(4000);- -
begin- - 1 -
-run_autonomous(- -
-a_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,- -
+ +a_include_objects, a_exclude_objects- + 18750 +
+ +if g_result_line_no is null then- + 16627 +
+ +fetch a_cursor into l_clob, l_item_type;- + 16627 +
+ +if a_cursor%notfound then- + 81 +
+ +close a_cursor;- + 81 +
+ +g_result_line_no := null;- + 81 +
+ +g_result_lines := ut_varchar2_list();- + 81 +
+ +raise_if_packages_invalidated();- + 80 +
+ +raise no_data_found;- +
+ +end if;- + 16546 +
+ +g_result_lines := ut_utils.clob_to_table(l_clob, ut_utils.gc_max_storage_varchar2_len);- + 16546 +
+g_result_line_no := g_result_lines.first;- -
-);- - 1 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 28 -
-loop- - 28 -
-fetch l_lines into l_line;- - 28 -
-exit when l_lines%notfound;- - 27 -
-pipe row(l_line);- -
-end loop;- - 1 -
-close l_lines;- +
+ +end if;- +
+ +- + 18669 +
+ +if g_result_line_no is not null then- + 18669 +
+ +l_result := g_result_lines(g_result_line_no);- + 18669 +
+ +g_result_line_no := g_result_lines.next(g_result_line_no);- +
+ +end if;- + 18669 +
+ +return l_result;- -
end;- + +
- -
- + +
- + +
function run(- +
+a_reporter ut_reporter_base := null,- -
+a_path varchar2, a_reporter ut_reporter_base := null, a_color_console integer := 0,a_color_console integer := 0,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,a_coverage_schemes ut_varchar2_list := null,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_source_file_mappings ut_file_mappings := null,+- -
-) return ut_varchar2_rows pipelined is- - 23 -
-l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());- - 22 -
+l_paths ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));a_test_file_mappings ut_file_mappings := null,+ +- +
+ +a_include_objects ut_varchar2_list := null,- +
+a_exclude_objects ut_varchar2_list := null,- -
+l_lines sys_refcursor;a_client_character_set varchar2 := null,+- -
+l_line varchar2(4000);a_random_test_order integer := 0,+- -
-begin- - 22 -
+run_autonomous(a_random_test_order_seed positive := null,+ +- +
+a_tags varchar2 := null- -
-l_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,- -
+a_include_objects, a_exclude_objects) return ut_varchar2_rows pipelined is+ +- + 3 +
+l_reporter ut_reporter_base := a_reporter;- -
-);- - 21 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 19012 -
-loop- - 19012 -
-fetch l_lines into l_line;- - 19012 -
-exit when l_lines%notfound;- - 18991 -
+pipe row(l_line);l_results sys_refcursor;+ +- +
+ +begin- + 3 +
+ +run_autonomous(- +
+ +ut_varchar2_list(),- +
+ +l_reporter,- +
+a_color_console,- -
-end loop;- - 21 -
+close l_lines;a_coverage_schemes,+ +- +
+a_source_file_mappings,- -
+end;a_test_file_mappings,+- -
+a_include_objects,+- -
+function run(a_exclude_objects,+- -
+a_path varchar2, a_reporter ut_reporter_base := null, a_color_console integer := 0,a_client_character_set,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,a_random_test_order,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_random_test_order_seed,+- -
-) return ut_varchar2_rows pipelined is- - 1 -
-l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());- - 1 -
-l_paths ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));- -
-l_lines sys_refcursor;- -
-l_line varchar2(4000);- -
-begin- - 1 -
+run_autonomous(a_tags+ +- +
+ +);- + 3 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 3 +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 90 +
+ +loop- + 90 +
+ +pipe row( get_report_outputs( l_results ) );- +
+end loop;- -
-l_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,- -
+a_include_objects, a_exclude_objectsend if;+ +- +
+return;- -
-);- - 1 -
-l_lines := ut_output_buffer.get_lines_cursor(l_reporter.reporter_id);- - 27 -
-loop- - 27 -
-fetch l_lines into l_line;- - 27 -
-exit when l_lines%notfound;- - 26 -
+pipe row(l_line);end;+ +- +
+ +- +
+ +function run(- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console integer := 0,- +
+a_coverage_schemes ut_varchar2_list := null,- -
-end loop;- - 1 -
+close l_lines;a_source_files ut_varchar2_list,+ +- +
+a_test_files ut_varchar2_list,- -
+end;a_include_objects ut_varchar2_list := null,+- -
+a_exclude_objects ut_varchar2_list := null,+- -
+procedure run(a_client_character_set varchar2 := null,+- -
+a_reporter ut_reporter_base := null, a_color_console boolean := false,a_random_test_order integer := 0,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,a_random_test_order_seed positive := null,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_tags varchar2 := null+- -
-) is- -
-begin- - 2 -
+ut.run() return ut_varchar2_rows pipelined is+ +- + 1 +
+ +l_reporter ut_reporter_base := a_reporter;- +
+l_results sys_refcursor;- -
-ut_varchar2_list(sys_context('userenv', 'current_schema')), a_reporter, a_color_console,- -
+a_coverage_schemes, a_source_file_mappings, a_test_file_mappings, a_include_objects, a_exclude_objectsbegin+ +- + 1 +
+run_autonomous(- -
+);ut_varchar2_list(),+- -
+end;l_reporter,+- -
+a_color_console,+- -
+procedure run(a_coverage_schemes,+- -
+a_reporter ut_reporter_base := null, a_color_console boolean := false,a_source_files,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,a_test_files,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_include_objects,+- -
+) isa_exclude_objects,+- -
-begin- - 1 -
+ut.run(a_client_character_set,+ +- +
+a_random_test_order,- -
+ut_varchar2_list(sys_context('userenv', 'current_schema')), a_reporter, a_color_console,a_random_test_order_seed,+- -
+a_coverage_schemes, a_source_files, a_test_files, a_include_objects, a_exclude_objectsa_tags+- -
);- -
-end;- -
-- -
-procedure run(- -
+ +a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,- + 1 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 1 +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 30 +
+ +loop- + 30 +
+pipe row( get_report_outputs( l_results ) );- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,end loop;+- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null- -
-) is- - 16 -
+l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());end if;+ +- +
+ +return;- +
+end;- -
-begin- - 16 -
+ut_runner.run(+ +- +
+function run(- -
+a_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,a_paths ut_varchar2_list,+- -
+a_include_objects, a_exclude_objectsa_reporter ut_reporter_base := null,+- -
-);- - 16 -
+ut_output_buffer.lines_to_dbms_output(l_reporter.reporter_id);a_color_console integer := 0,+ +- +
+a_coverage_schemes ut_varchar2_list := null,- -
+end;a_source_file_mappings ut_file_mappings := null,+- -
+a_test_file_mappings ut_file_mappings := null,+- -
+procedure run(a_include_objects ut_varchar2_list := null,+- -
+a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,a_exclude_objects ut_varchar2_list := null,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,a_client_character_set varchar2 := null,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_random_test_order integer := 0,+- -
-) is- - 2 -
+l_reporter ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());a_random_test_order_seed positive := null,+ +- +
+a_tags varchar2 := null- -
-begin- - 2 -
+ut_runner.run() return ut_varchar2_rows pipelined is+ +- + 6 +
+l_reporter ut_reporter_base := a_reporter;- -
+a_paths, l_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,l_results sys_refcursor;+- -
-a_include_objects, a_exclude_objects- -
-);- - 2 -
+ut_output_buffer.lines_to_dbms_output(l_reporter.reporter_id);begin+ +- + 6 +
+ +run_autonomous(- +
+a_paths,- -
+end;l_reporter,+- -
+a_color_console,+- -
+procedure run(a_coverage_schemes,+- -
+a_path varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,a_source_file_mappings,+- -
+a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,a_test_file_mappings,+- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nulla_include_objects,+- -
-) is- - 13 -
+l_paths ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));a_exclude_objects,+ +- +
+a_client_character_set,- -
-begin- - 13 -
+ut.run(a_random_test_order,+ +- +
+a_random_test_order_seed,- -
+l_paths, a_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,a_tags+- -
-a_include_objects, a_exclude_objects- -
);- -
-end;- -
-- -
+ +procedure run(- + 6 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 6 +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 158 +
+ +loop- + 158 +
+pipe row( get_report_outputs( l_results ) );- -
+a_path varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,end loop;+- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
+a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := nullend if;+ +- +
+return;- -
-) is- -
+l_paths ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));end;+ +- +
+- -
-begin- -
+ut.run(function run(+ +- +
+a_paths ut_varchar2_list,- -
+l_paths, a_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,a_reporter ut_reporter_base := null,+- -
+a_include_objects, a_exclude_objectsa_color_console integer := 0,+- -
+);a_coverage_schemes ut_varchar2_list := null,+- -
+end;a_source_files ut_varchar2_list,+- -
+a_test_files ut_varchar2_list,+- -
+procedure set_nls isa_include_objects ut_varchar2_list := null,+- -
-begin- - 2 -
-if g_nls_date_format is null then- - 1 -
+select nsp.valuea_exclude_objects ut_varchar2_list := null,+ +- +
+ +a_client_character_set varchar2 := null,- +
+a_random_test_order integer := 0,- -
+into g_nls_date_formata_random_test_order_seed positive := null,+- -
+from nls_session_parameters nspa_tags varchar2 := null+- -
-where parameter = 'NLS_DATE_FORMAT';- -
-end if;- +
+ +) return ut_varchar2_rows pipelined is- 1 -
+execute immediate 'alter session set nls_date_format = '''||ut_utils.gc_date_format||'''';l_reporter ut_reporter_base := a_reporter;+ +- +
+l_results sys_refcursor;- -
-end;- -
-- -
-procedure reset_nls is- -
begin- - 1 -
-if g_nls_date_format is not null then- + +
- 1 -
+execute immediate 'alter session set nls_date_format = '''||g_nls_date_format||'''';run_autonomous(+ +- +
+ +a_paths,- +
+ +l_reporter,- +
+ +a_color_console,- +
+a_coverage_schemes,- -
-end if;- - 1 -
+g_nls_date_format := null;a_source_files,+ +- +
+a_test_files,- -
+end;a_include_objects,+- -
+a_exclude_objects,+- -
end ut;UT3.UT_RUNNER
75.68 % covered
37 relevant lines. 28 lines covered and 9 lines missed-
- -
-package body ut_runner is- -
-- -
-/*- -
-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.- -
-*/- -
-- -
-/**- -
-* Private functions- -
-*/- -
-function to_ut_object_list(a_names ut_varchar2_list) return ut_object_names is- -
-l_result ut_object_names;- -
-begin- - 94 -
-if a_names is not null then- - 1 -
-l_result := ut_object_names();- - 2 -
-for i in 1 .. a_names.count loop- +
+ +a_client_character_set,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- +
+ +);- 1 -
-l_result.extend;- +
+ +if l_reporter is of (ut_output_reporter_base) then- 1 -
-l_result(l_result.last) := ut_object_name(a_names(i));- +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 44 +
+ +loop- + 44 +
+ +pipe row( get_report_outputs( l_results ) );- -
end loop;- + +
- -
end if;- - 94 -
-return l_result;- + +
- +
+ +return;- -
end;- -
-- -
-- + +
- -
- -
-/**- -
-* Public functions- -
-*/- -
-function version return varchar2 is- + +
- +
+ +function run(- +
+ +a_path varchar2,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console integer := 0,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_file_mappings ut_file_mappings := null,- +
+ +a_test_file_mappings ut_file_mappings := null,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_random_test_order integer := 0,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- +
+ +) return ut_varchar2_rows pipelined is- + 63 +
+ +l_reporter ut_reporter_base := a_reporter;- +
+ +l_results sys_refcursor;- -
begin- -
-return ut_utils.gc_version;- + +
- + 63 +
+ +run_autonomous(- +
+ +ut_varchar2_list(a_path),- +
+ +l_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- +
+ +);- + 62 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 62 +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 18260 +
+ +loop- + 18260 +
+ +pipe row( get_report_outputs( l_results ) );- +
+ +end loop;- +
+ +end if;- +
+ +return;- -
end;- + +
- -
- -
-procedure run(- -
-a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- -
-) is- -
-l_items_to_run ut_run;- -
-l_listener ut_event_listener;- + +
- +
+ +function run(- +
+ +a_path varchar2,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console integer := 0,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_files ut_varchar2_list,- +
+ +a_test_files ut_varchar2_list,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_random_test_order integer := 0,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- +
+ +) return ut_varchar2_rows pipelined is- + 8 +
+ +l_reporter ut_reporter_base := a_reporter;- +
+ +l_results sys_refcursor;- -
begin- -
-begin- - 49 -
-ut_output_buffer.cleanup_buffer();- + +
- + 8 +
+ +run_autonomous(- +
+ +ut_varchar2_list(a_path),- +
+ +l_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_files,- +
+ +a_test_files,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- +
+ +);- + 8 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 8 +
+ +l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();- + 168 +
+ +loop- + 168 +
+ +pipe row( get_report_outputs( l_results ) );- +
+ +end loop;- +
+ +end if;- +
+ +return;- +
+ +end;- -
- - 48 -
-ut_console_reporter_base.set_color_enabled(a_color_console);- - 48 -
-if a_reporters is null or a_reporters.count = 0 then- -
-l_listener := ut_event_listener(ut_reporters(ut_documentation_reporter()));- -
-else- - 48 -
-l_listener := ut_event_listener(a_reporters);- -
-end if;- - 48 -
-l_items_to_run := ut_run(- -
-ut_suite_manager.configure_execution_by_path(a_paths),- + +
- +
+ +procedure run(- +
+ +a_paths ut_varchar2_list,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_file_mappings ut_file_mappings := null,- +
+ +a_test_file_mappings ut_file_mappings := null,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- +
+ +) is- + 32 +
+ +l_reporter ut_reporter_base := a_reporter;- +
+ +begin- + 32 +
+ +if a_force_manual_rollback then- + 2 +
+ +l_reporter := coalesce(l_reporter,ut_documentation_reporter());- + 2 +
+ +ut_runner.run(- -
a_paths,- -
-ut_utils.convert_collection(a_coverage_schemes),- -
-to_ut_object_list(a_exclude_objects),- -
-to_ut_object_list(a_include_objects),- -
-set(a_source_file_mappings),- -
-set(a_test_file_mappings)- + +
- +
+ +ut_reporters(l_reporter),- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +gc_fail_on_errors,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- - 47 -
-l_items_to_run.do_execute(l_listener);- -
-- - 47 -
-ut_utils.cleanup_temp_tables;- - 47 -
-ut_output_buffer.close(l_listener.reporters);- -
-exception- - 1 -
-when others then- - 1 -
-ut_utils.cleanup_temp_tables;- - 1 -
-ut_output_buffer.close(l_listener.reporters);- - 1 -
-dbms_output.put_line(dbms_utility.format_error_backtrace);- - 1 -
-dbms_output.put_line(dbms_utility.format_error_stack);- - 1 -
-raise;- -
-end;- - 47 -
-if a_fail_on_errors and l_items_to_run.result in (ut_utils.tr_failure, ut_utils.tr_error) then- -
-raise_application_error(ut_utils.gc_some_tests_failed, 'Some tests failed');- + +
- +
+ +else- + 30 +
+ +run_autonomous(- +
+ +a_paths,- +
+ +l_reporter,- +
+ +ut_utils.boolean_to_int(a_color_console),- +
+ +a_coverage_schemes,- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +ut_utils.boolean_to_int(a_random_test_order),- +
+ +a_random_test_order_seed,- +
+ +a_tags- +
+ +);- -
end if;- + +
- + 32 +
+ +if l_reporter is of (ut_output_reporter_base) then- + 32 +
+ +treat(l_reporter as ut_output_reporter_base).lines_to_dbms_output();- +
+ +end if;- + 32 +
+ +raise_if_packages_invalidated();- -
end;- + +
- -
- + +
- -
procedure run(- -
-a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- + +
- +
+ +a_paths ut_varchar2_list,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_files ut_varchar2_list,- +
+ +a_test_files ut_varchar2_list,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- -
) is- + +
- + 4 +
+ +l_reporter ut_reporter_base := a_reporter;- -
begin- - 5 -
-run(- -
-a_paths, a_reporters, a_color_console, a_coverage_schemes,- + +
- + 4 +
+ +ut.run(- +
+ +a_paths,- +
+ +l_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- -
ut_file_mapper.build_file_mappings(a_source_files),- + +
- -
ut_file_mapper.build_file_mappings(a_test_files),- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- + +
- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- + +
- -
end;- + +
- -
- + +
- -
procedure run(- -
-a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- + +
- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_file_mappings ut_file_mappings := null,- +
+ +a_test_file_mappings ut_file_mappings := null,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- -
) is- + +
- -
begin- - 42 -
-run(- - 1 -
-a_paths, ut_reporters(coalesce(a_reporter,ut_documentation_reporter())),- -
-a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- -
-);- -
-end;- -
-- -
-procedure run(- -
-a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- -
-) is- -
-begin- - 5 -
-run(- - 1 -
-a_paths, ut_reporters(coalesce(a_reporter,ut_documentation_reporter())),- -
-a_color_console, a_coverage_schemes, a_source_files, a_test_files,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- + +
- + 11 +
+ +ut.run(- +
+ +ut_varchar2_list(),- +
+ +a_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- + +
- -
end;- -
-- + +
- -
- + +
- -
procedure run(- -
-a_path in varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- + +
- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_files ut_varchar2_list,- +
+ +a_test_files ut_varchar2_list,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- -
) is- + +
- -
begin- -
-run(- -
-ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),- -
-a_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- + +
- +
+ +ut.run(- +
+ +ut_varchar2_list(),- +
+ +a_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_files,- +
+ +a_test_files,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- -
-end run;- + +
- +
+ +end;- -
- + +
- -
procedure run(- -
-a_path in varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- + +
- +
+ +a_path varchar2,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_file_mappings ut_file_mappings := null,- +
+ +a_test_file_mappings ut_file_mappings := null,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- -
) is- + +
- -
begin- -
-run(- -
-ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),- -
-a_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- + +
- + 14 +
+ +ut.run(- +
+ +ut_varchar2_list(a_path),- +
+ +a_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_file_mappings,- +
+ +a_test_file_mappings,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- -
-end run;- + +
- +
+ +end;- -
- + +
- -
procedure run(- -
-a_path in varchar2, a_reporters in ut_reporters, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- + +
- +
+ +a_path varchar2,- +
+ +a_reporter ut_reporter_base := null,- +
+ +a_color_console boolean := false,- +
+ +a_coverage_schemes ut_varchar2_list := null,- +
+ +a_source_files ut_varchar2_list,- +
+ +a_test_files ut_varchar2_list,- +
+ +a_include_objects ut_varchar2_list := null,- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+ +a_client_character_set varchar2 := null,- +
+ +a_force_manual_rollback boolean := false,- +
+ +a_random_test_order boolean := false,- +
+ +a_random_test_order_seed positive := null,- +
+ +a_tags varchar2 := null- -
) is- + +
- -
begin- - 1 -
-run(- - 1 -
-ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),- -
-a_reporters, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- + +
- + 3 +
+ +ut.run(- +
+ +ut_varchar2_list(a_path),- +
+ +a_reporter,- +
+ +a_color_console,- +
+ +a_coverage_schemes,- +
+ +a_source_files,- +
+ +a_test_files,- +
+ +a_include_objects,- +
+ +a_exclude_objects,- +
+ +a_client_character_set,- +
+ +a_force_manual_rollback,- +
+ +a_random_test_order,- +
+ +a_random_test_order_seed,- +
+ +a_tags- -
);- -
-end run;- + +
- +
+ +end;- -
- -
-procedure run(- -
-a_path in varchar2, a_reporters in ut_reporters, a_color_console boolean := false,- -
-a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,- -
-a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false- -
-) is- + +
- +
+ +- +
+ +procedure set_nls is- -
begin- -
-run(- -
-ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),- -
-a_reporters, a_color_console, a_coverage_schemes, a_source_files, a_test_files,- -
-a_include_objects, a_exclude_objects, a_fail_on_errors- -
-);- -
-end run;- + +
- + 4 +
+ +if g_nls_date_format is null then- + 4 +
+ +select nsp.value- +
+ +into g_nls_date_format- +
+ +from nls_session_parameters nsp- +
+ +where parameter = 'NLS_DATE_FORMAT';- +
+ +end if;- + 4 +
+ +execute immediate 'alter session set nls_date_format = '''||ut_utils.gc_date_format||'''';- +
+ +end;- -
- -
end ut_runner;+UT3.UT_COVERAGE
68.18 % covered
66 relevant lines. 45 lines covered and 21 lines missed+ +
- +
+ +procedure reset_nls is- +
+ +begin- + 4 +
+ +if g_nls_date_format is not null then- + 4 +
+ +execute immediate 'alter session set nls_date_format = '''||g_nls_date_format||'''';- +
+ +end if;- + 4 +
+ +g_nls_date_format := null;- +
+ +end;- +
+ +- +
+end ut;UT3.UT_RUNNER
93.5 % lines covered
123 relevant lines. 115 lines covered (including 1 lines partially covered ) and 8 lines missed+
- -
+package body ut_coverage ispackage body ut_runner is+- -
+/*+- -
+utPLSQL - Version X.X.X.X/*+- -
+Copyright 2016 - 2017 utPLSQL ProjectutPLSQL - Version 3+- -
+Copyright 2016 - 2019 utPLSQL Project+- -
+Licensed under the Apache License, Version 2.0 (the "License"):+- -
+you may not use this file except in compliance with the License.Licensed under the Apache License, Version 2.0 (the "License"):+- -
+You may obtain a copy of the License atyou 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- + +
- +
+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,Unless required by applicable law or agreed to in writing, software+- -
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.distributed under the License is distributed on an "AS IS" BASIS,+- -
+See the License for the specific language governing permissions andWITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.+- -
+limitations under the License.See the License for the specific language governing permissions and+- -
+*/limitations under the License.+- -
+*/+- -
+-- The source query has two important transformations done in it.+- -
+-- the flag: to_be_skipped ='Y' is set for a line of code that is badly reported by DBMS_PROFILER as executed 0 times./**+- -
+-- This includes lines that are:* Private functions+- -
+-- - PACKAGE, PROCEDURE, FUNCTION definition line,*/+- -
+-- - BEGIN, END of a blockfunction to_ut_object_list(a_names ut_varchar2_list, a_schema_names ut_varchar2_rows) return ut_object_names is+- -
+-- Another transformation is adjustment of line number for TRIGGER body.l_result ut_object_names;+- -
+-- DBMS_PROFILER is reporting line numbers for triggers not as defined in DBA_SOURCE, its usign line numbers as defined in DBA_TRIGGERSl_object_name ut_object_name;+- -
--- the DBA_TRIGGERS does not contain the trigger specification lines, only lines that define the trigger body.- -
--- the query adjusts the line numbers for triggers by finding first occurrence of begin|declare|compound in the trigger body line.- -
--- The subquery is optimized by:- -
--- - COALESCE function -> it will execute only for TRIGGERS- -
--- - scalar subquery cache -> it will only execute once for one trigger source code.- -
-function get_populate_sources_tmp_sql(a_coverage_options ut_coverage_options) return varchar2 is- -
-l_result varchar2(32767);- -
-l_full_name varchar2(100);- -
begin- - 7 -
-if a_coverage_options.file_mappings is not null and a_coverage_options.file_mappings.count > 0 then- - 4 -
-l_full_name := 'f.file_name';- -
+ +else- + 116 +
+ +if a_names is not empty then- + 3 +
+ +l_result := ut_object_names();- + 6 +
+ +for i in 1 .. a_names.count loop- + 3 +
+ +l_object_name := ut_object_name(a_names(i));- + 3 +
+ +if l_object_name.owner is null then- +
+ +for i in 1 .. cardinality(a_schema_names) loop- +
+ +l_result.extend;- +
+ +l_result(l_result.last) := ut_object_name(a_schema_names(i)||'.'||l_object_name.name);- +
+ +end loop;- +
+ +else- + 3 +
+l_result.extend;- 3 -
+l_full_name := 'lower(s.owner||''.''||s.name)';l_result(l_result.last) := l_object_name;+- -
-end if;- - 7 -
+l_result := 'end if;+ +- +
+end loop;- -
-insert /*+ append */ into ut_coverage_sources_tmp(full_name,owner,name,line,text, to_be_skipped)- -
+select *end if;+ +- + 116 +
+return l_result;- -
+from (end;+- -
+select '||l_full_name||q'[,+- -
+s.owner,procedure finish_run(a_run ut_run, a_force_manual_rollback boolean) is+- -
-s.name,- -
-s.line -- -
-coalesce(- -
-case when type!='TRIGGER' then 0 end,- -
-(select min(t.line) - 1- -
-from all_source t- -
-where t.owner = s.owner and t.type = s.type and t.name = s.name- -
-and regexp_like( t.text, '[A-Za-z0-9$#_]*(begin|declare|compound).*','i'))- -
+) as line,begin+ +- + 116 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_finalize, a_run);- + 117 +
+ +ut_metadata.reset_source_definition_cache;- + 116 +
+ +ut_utils.read_cache_to_dbms_output();- + 222 +
+ +ut_coverage_helper.cleanup_tmp_table();- + 232 +
+ +ut_compound_data_helper.cleanup_diff();- + 116 +
+ +if not a_force_manual_rollback then- + 114 +
+ +rollback;- + 114 +
+ut_utils.cleanup_session_temp_tables;- -
+s.text,end if;+- -
+caseend;+- -
+when+- -
+-- to avoid execution of regexp_like on every line+- -
+-- first do a rough check for existence of search pattern keyword/**+- -
+(lower(s.text) like '%procedure%'* Public functions+- -
+or lower(s.text) like '%function%'*/+- -
+or lower(s.text) like '%begin%'function version return varchar2 is+- -
-or lower(s.text) like '%end%'- -
+or lower(s.text) like '%package%'begin+ +- + 118 +
+return ut_utils.gc_version;- -
+) andend;+- -
+regexp_like(+- -
-s.text,- -
-'^\s*(((not)?\s*(overriding|final|instantiable)\s*)*(static|constructor|member)?\s*(procedure|function)|package(\s+body)|begin|end(\s+\S+)?\s*;)', 'i'- -
-)- -
+then 'Y'function version_compatibility_check( a_requested varchar2, a_current varchar2 := null ) return integer is+ +- + 16 +
+ +l_result boolean := false;- + 16 +
+ +l_requested ut_utils.t_version := ut_utils.to_version(a_requested);- + 15 +
+l_current ut_utils.t_version := ut_utils.to_version(coalesce(a_current,version()));- -
-end as to_be_skipped- -
-from all_source s]';- - 7 -
-if a_coverage_options.file_mappings is not null and a_coverage_options.file_mappings.count > 0 then- - 4 -
-l_result := l_result || '- -
+join table(:file_mappings) fbegin+ +- + 14 +
+ +if l_requested.major = l_current.major- + 1 +
+ +and (l_requested.minor < l_current.minor or l_requested.minor is null- + 1 +
+ +or l_requested.minor = l_current.minor and (l_requested.bugfix <= l_current.bugfix or l_requested.bugfix is null)) then- + 10 +
+l_result := true;- -
-on s.name = f.object_name- -
+and s.type = f.object_typeend if;+ +- + 14 +
+return ut_utils.boolean_to_int(l_result);- -
+and s.owner = f.object_ownerend;+- -
+where 1 = 1';+- -
-else- - 3 -
+l_result := l_result || 'procedure run(+ +- +
+a_paths ut_varchar2_list,- -
+where s.owner in (select upper(t.column_value) from table(:l_schema_names) t)';a_reporters ut_reporters,+- -
-end if;- - 7 -
+l_result := l_result || q'[a_color_console boolean := false,+ +- +
+a_coverage_schemes ut_varchar2_list := null,- -
+and s.type not in ('PACKAGE', 'TYPE', 'JAVA SOURCE')a_source_file_mappings ut_file_mappings := null,+- -
+--Exclude calls to utPLSQL framework, Unit Test packages and objects from a_exclude_list parameter of coverage reportera_test_file_mappings ut_file_mappings := null,+- -
-and (s.owner, s.name) not in (select el.owner, el.name from table(:l_skipped_objects) el)]';- - 7 -
-if a_coverage_options.include_objects is null then- - 6 -
+l_result := l_result || 'a_include_objects ut_varchar2_list := null,+ +- +
+ +a_exclude_objects ut_varchar2_list := null,- +
+a_fail_on_errors boolean := false,- -
+and :include_objects is null';a_client_character_set varchar2 := null,+- -
-else- - 1 -
+l_result := l_result || 'a_force_manual_rollback boolean := false,+ +- +
+a_random_test_order boolean := false,- -
+and (s.owner, s.name) in (select il.owner, il.name from table(:include_objects) il)';a_random_test_order_seed positive := null,+- -
-end if;- - 7 -
+l_result := l_result || 'a_tags varchar2 := null+ +- +
+) is- -
+)l_run ut_run;+- -
-where line > 0';- - 7 -
+return l_result;l_coverage_schema_names ut_varchar2_rows;+ +- + 116 +
+l_exclude_object_names ut_object_names := ut_object_names();- -
-end;- -
+l_include_object_names ut_object_names;+ +- + 116 +
+l_paths ut_varchar2_list := ut_varchar2_list();- -
-function is_tmp_table_populated return boolean is- -
+l_result integer;l_random_test_order_seed positive;+ +- + 116 +
+l_tags ut_varchar2_rows := ut_varchar2_rows();- -
begin- -
-select 1 into l_result from ut_coverage_sources_tmp where rownum = 1;- -
-return (l_result = 1);- -
-exception- -
-when no_data_found then- -
+ +return false;- + 232 +
+ +ut_event_manager.initialize();- + 116 +
+ +if a_reporters is not empty then- + 232 +
+ +for i in 1 .. a_reporters.count loop- + 116 +
+ +ut_event_manager.add_listener( a_reporters(i) );- +
+end loop;- -
-end;- -
+else+ +- +
+ut_event_manager.add_listener( ut_documentation_reporter() );- -
-procedure populate_tmp_table(a_coverage_options ut_coverage_options, a_skipped_objects ut_object_names) is- -
+pragma autonomous_transaction;end if;+ +- + 116 +
+ut_event_manager.add_listener( ut_session_info() );- -
-l_schema_names ut_varchar2_rows;- -
-begin- - 7 -
-delete from ut_coverage_sources_tmp;- - 7 -
-l_schema_names := coalesce(a_coverage_options.schema_names, ut_varchar2_rows(sys_context('USERENV','CURRENT_SCHEMA')));- - 7 -
-if a_coverage_options.file_mappings is not empty then- +
+ +- + 116 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_initialize);- + 116 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_debug, ut_run_info());- + 116 +
+ +if a_random_test_order_seed is not null then- 4 -
-execute immediate get_populate_sources_tmp_sql(a_coverage_options) using a_coverage_options.file_mappings, a_skipped_objects, a_coverage_options.include_objects;- -
-else- - 3 -
+execute immediate get_populate_sources_tmp_sql(a_coverage_options) using l_schema_names, a_skipped_objects, a_coverage_options.include_objects;l_random_test_order_seed := a_random_test_order_seed;+ +- + 112 +
+ +elsif a_random_test_order then- +
+ +dbms_random.seed( to_char(systimestamp,'yyyyddmmhh24missffff') );- +
+l_random_test_order_seed := trunc(dbms_random.value(1, 1000000000));- -
end if;- - 7 -
-commit;- -
+ +end;- + 116 +
+ +if a_paths is null or a_paths is empty or a_paths.count = 1 and a_paths(1) is null then- + 21 +
+l_paths := ut_varchar2_list(sys_context('userenv', 'current_schema'));- -
-- -
-- -
+/**else+ +- + 196 +
+ +for i in 1..a_paths.count loop- + 101 +
+l_paths := l_paths multiset union ut_utils.string_to_table(a_string => a_paths(i),a_delimiter => ',');- -
+* Public functionsend loop;+- -
+*/end if;+- -
+procedure coverage_start is+- -
-begin- - 4 -
-ut_coverage_helper.coverage_start('utPLSQL Code coverage run '||ut_utils.to_string(systimestamp));- -
+end;begin+ +- + 232 +
+ +ut_expectation_processor.reset_invalidation_exception();- + 116 +
+ut_utils.save_dbms_output_to_cache();- -
- -
-procedure coverage_start_develop is- -
-begin- -
+ +ut_coverage_helper.coverage_start_develop();- + 116 +
+ +ut_console_reporter_base.set_color_enabled(a_color_console);- + 116 +
+ +if a_coverage_schemes is not empty then- + 1 +
+l_coverage_schema_names := ut_utils.convert_collection(a_coverage_schemes);- -
-end;- -
+else+ +- + 115 +
+l_coverage_schema_names := ut_suite_manager.get_schema_names(l_paths);- -
+procedure coverage_pause isend if;+- -
-begin- - 28 -
-ut_coverage_helper.coverage_pause();- -
-end;- + +
- + 116 +
+ +if a_exclude_objects is not empty then- +
+ +l_exclude_object_names := to_ut_object_list(a_exclude_objects, l_coverage_schema_names);- +
+end if;- -
-procedure coverage_resume is- -
-begin- - 28 -
+ut_coverage_helper.coverage_resume();+ +- + 116 +
+ +if a_tags is not null then- + 16 +
+l_tags := l_tags multiset union distinct ut_utils.convert_collection(- -
+end;ut_utils.trim_list_elements(ut_utils.filter_list(ut_utils.string_to_table(a_tags,','),ut_utils.gc_word_no_space))+- -
+);+- -
-procedure coverage_stop is- -
-begin- - 8 -
-ut_coverage_helper.coverage_stop();- -
+end;end if;+ +- + 116 +
+ +l_exclude_object_names := l_exclude_object_names multiset union all ut_suite_manager.get_schema_ut_packages(l_coverage_schema_names);- +
+ +- + 116 +
+l_include_object_names := to_ut_object_list(a_include_objects, l_coverage_schema_names);- -
- -
+ +procedure coverage_stop_develop is- + 116 +
+l_run := ut_run(- -
-begin- - 1 -
+ut_coverage_helper.coverage_stop_develop();null,+ +- +
+l_paths,- -
+end;l_coverage_schema_names,+- -
+l_exclude_object_names,+- -
+function get_coverage_data(a_coverage_options ut_coverage_options) return t_coverage isl_include_object_names,+- -
-l_line_calls ut_coverage_helper.unit_line_calls;- - 7 -
-l_result t_coverage;- - 7 -
-l_new_unit t_unit_coverage;- - 7 -
+l_skipped_objects ut_object_names := ut_object_names();set(a_source_file_mappings),+ +- +
+ +set(a_test_file_mappings),- +
+ +a_client_character_set,- +
+l_random_test_order_seed,- -
+l_tags+- -
+type t_source_lines is table of binary_integer;);+- -
-line_no binary_integer;- -
-begin- -
- - 7 -
+ +if not ut_coverage_helper.is_develop_mode() then- + 116 +
+ +ut_suite_manager.configure_execution_by_path(l_paths, l_run.items, l_random_test_order_seed, l_tags);- + 115 +
+ +if a_force_manual_rollback then- + 2 +
+l_run.set_rollback_type( a_rollback_type => ut_utils.gc_rollback_manual, a_force => true );- -
---skip all the utplsql framework objects and all the unit test packages that could potentially be reported by coverage.- -
-l_skipped_objects := ut_utils.get_utplsql_objects_list() multiset union all coalesce(a_coverage_options.exclude_objects, ut_object_names());- -
-end if;- +
+ +end if;- -
- -
---prepare global temp table with sources- - 7 -
-if ut_coverage_helper.is_develop_mode() or not is_tmp_table_populated() then- - 7 -
-populate_tmp_table(a_coverage_options, l_skipped_objects);- -
-end if;- + +
- + 115 +
+ +l_run.do_execute();- -
- - 340 -
+ +for src_object in (- + 115 +
+ +finish_run(l_run, a_force_manual_rollback);- +
+ +exception- + 2 +
+ +when others then- + 1 +
+ +finish_run(l_run, a_force_manual_rollback);- + 1 +
+ +dbms_output.put_line(dbms_utility.format_error_backtrace);- + 1 +
+dbms_output.put_line(dbms_utility.format_error_stack);- 1 -
+select o.owner, o.name, o.full_name, max(o.line) lines_count,raise;+- -
-cast(- -
-collect(decode(to_be_skipped, 'Y', to_char(line))) as ut_varchar2_list- -
+) to_be_skipped_listend;+ +- + 1/2 + 115 +
+ +if a_fail_on_errors and l_run.result in (ut_utils.gc_failure, ut_utils.gc_error) then- + 1 +
+raise_application_error(ut_utils.gc_some_tests_failed, 'Some tests failed');- -
+from ut_coverage_sources_tmp oend if;+- -
+group by o.owner, o.name, o.full_nameend;+- -
-) loop- + +
- +
+procedure rebuild_annotation_cache(a_object_owner varchar2, a_object_type varchar2 := null) is- -
---get coverage data- - 326 -
+l_line_calls := ut_coverage_helper.get_raw_coverage_data( src_object.owner, src_object.name );begin+ +- + 2 +
+ut_annotation_manager.rebuild_annotation_cache(a_object_owner, coalesce(a_object_type,'PACKAGE'));- -
+end;+- -
---if there is coverage, we need to filter out the garbage (badly indicated data from dbms_profiler)- - 326 -
+if l_line_calls.count > 0 then+ +- +
+procedure purge_cache(a_object_owner varchar2 := null, a_object_type varchar2 := null) is- -
---remove lines that should not be indicted as meaningful- -
-for i in 1 .. src_object.to_be_skipped_list.count loop- -
-if src_object.to_be_skipped_list(i) is not null then- -
-l_line_calls.delete(src_object.to_be_skipped_list(i));- -
+end if;begin+ +- + 1 +
+ +ut_annotation_manager.purge_cache(a_object_owner, a_object_type);- +
+ +end;- +
+ +- +
+function get_suites_info(a_owner varchar2 := null, a_package_name varchar2 := null) return ut_suite_items_info pipelined is- -
+end loop;l_cursor sys_refcursor;+- -
-end if;- -
-- - 326 -
-if not l_result.objects.exists(src_object.full_name) then- - 326 -
-l_result.objects(src_object.full_name) := l_new_unit;- - 326 -
-l_result.objects(src_object.full_name).owner := src_object.owner;- - 326 -
-l_result.objects(src_object.full_name).name := src_object.name;- -
-end if;- - 326 -
-l_result.total_lines := l_result.total_lines + src_object.lines_count;- - 326 -
-l_result.objects(src_object.full_name).total_lines := src_object.lines_count;- -
---map to results- - 326 -
-line_no := l_line_calls.first;- - 326 -
-if line_no is null then- - 326 -
-l_result.uncovered_lines := l_result.uncovered_lines + src_object.lines_count;- - 326 -
+l_result.objects(src_object.full_name).uncovered_lines := src_object.lines_count;l_results ut_suite_items_info;+ +- + 3 +
+ +c_bulk_limit constant integer := 100;- +
+ +begin- + 3 +
+ +l_cursor := ut_suite_manager.get_suites_info( nvl(a_owner,sys_context('userenv', 'current_schema')), a_package_name );- + 3 +
+ +loop- + 3 +
+ +fetch l_cursor bulk collect into l_results limit c_bulk_limit;- + 13 +
+ +for i in 1 .. l_results.count loop- + 10 +
+ +pipe row (l_results(i));- +
+ +end loop;- + 3 +
+ +exit when l_cursor%notfound;- +
+ +end loop;- + 3 +
+ +close l_cursor;- + 3 +
+ +return;- +
+end;- -
-else- -
-loop- -
+exit when line_no is null;+ +- +
+ +function is_test(a_owner varchar2, a_package_name varchar2, a_procedure_name varchar2) return boolean is- + 7 +
+l_result boolean := false;- +
+ +begin- + 7 +
+ +if a_owner is not null and a_package_name is not null and a_procedure_name is not null then- -
- -
-if l_line_calls(line_no) > 0 then- -
-l_result.covered_lines := l_result.covered_lines + 1;- -
-l_result.executions := l_result.executions + l_line_calls(line_no);- -
-l_result.objects(src_object.full_name).covered_lines := l_result.objects(src_object.full_name).covered_lines + 1;- -
-l_result.objects(src_object.full_name).executions := l_result.objects(src_object.full_name).executions + l_line_calls(line_no);- -
-elsif l_line_calls(line_no) = 0 then- -
-l_result.uncovered_lines := l_result.uncovered_lines + 1;- -
+ +l_result.objects(src_object.full_name).uncovered_lines := l_result.objects(src_object.full_name).uncovered_lines + 1;- + 4 +
+ +l_result := ut_suite_manager.suite_item_exists( a_owner, a_package_name, a_procedure_name );- +
+ +- +
+ +end if;- +
+ +- + 7 +
+ +return l_result;- +
+end;- -
-end if;- -
-l_result.objects(src_object.full_name).lines(line_no) := l_line_calls(line_no);- -
- -
-line_no := l_line_calls.next(line_no);- -
+ +end loop;- +
+ +function is_suite(a_owner varchar2, a_package_name varchar2) return boolean is- + 6 +
+ +l_result boolean := false;- +
+ +begin- + 6 +
+if a_owner is not null and a_package_name is not null then- -
-end if;- + +
- + 4 +
+l_result := ut_suite_manager.suite_item_exists( a_owner, a_package_name );- +
- -
+end loop;end if;+- -
- - 7 + +
- + 6
+return l_result;- -
+end get_coverage_data;end;+- +
- -
end;UT3.UT_COVERAGE_HELPER
53.85 % covered
26 relevant lines. 14 lines covered and 12 lines missed-
- -
-package body ut_coverage_helper is- -
-/*- -
-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.- -
-*/- -
-- -
-g_coverage_id integer;- -
-g_develop_mode boolean not null := false;- -
-g_is_started boolean not null := false;- -
-- -
-function is_develop_mode return boolean is- -
-begin- - 14 -
-return g_develop_mode;- -
-end;- -
-- -
-function is_started return boolean is- -
-begin- -
-return g_is_started;- -
-end;- -
-- -
-procedure coverage_start_internal(a_run_comment varchar2) is- +
+ +function has_suites(a_owner varchar2) return boolean is- + 5 +
+ +l_result boolean := false;- -
begin- - 1 -
-dbms_profiler.start_profiler(run_comment => a_run_comment, run_number => g_coverage_id);- - 1 -
-g_is_started := true;- - 1 -
-coverage_pause();- -
-end;- + +
- + 5 +
+ +if a_owner is not null then- -
- -
-procedure coverage_start(a_run_comment varchar2) is- -
-begin- + +
- 4 -
-if not g_is_started then- -
-g_develop_mode := false;- -
-coverage_start_internal(a_run_comment);- -
-end if;- -
-end;- +
+ +l_result := ut_suite_manager.suite_item_exists( a_owner );- -
- -
-procedure coverage_start_develop is- -
-begin- -
-if not g_is_started then- -
-g_develop_mode := true;- -
-coverage_start_internal('utPLSQL Code coverage run in development MODE '||ut_utils.to_string(systimestamp));- + +
- -
end if;- -
-end;- + +
- -
- -
-procedure coverage_pause is- -
-l_return_code binary_integer;- -
-begin- - 29 -
-if not g_develop_mode then- -
-l_return_code := dbms_profiler.pause_profiler();- -
-end if;- + +
- + 5 +
+ +return l_result;- -
end;- + +
- -
- -
-procedure coverage_resume is- -
-l_return_code binary_integer;- -
-begin- - 28 -
-l_return_code := dbms_profiler.resume_profiler();- -
-end;- -
-- -
-procedure coverage_stop is- + +
- +
+ +function get_reporters_list return tt_reporters_info pipelined is- + 1 +
+ +l_owner varchar2(128) := upper(ut_utils.ut_owner());- +
+ +l_reporters ut_reporters_info;- +
+ +l_result t_reporter_rec;- -
begin- - 7 -
-if not g_develop_mode then- -
-g_is_started := false;- -
-dbms_profiler.stop_profiler();- -
-end if;- + +
- + 4 +
+ +loop- + 4 +
+ +l_reporters := ut_utils.get_child_reporters( l_reporters );- + 4 +
+ +exit when l_reporters is null or l_reporters.count = 0;- + 18 +
+ +for i in 1 .. l_reporters.count loop- + 15 +
+ +if l_reporters(i).is_instantiable = 'Y' then- + 12 +
+ +l_result.reporter_object_name := l_owner||'.'||l_reporters(i).object_name;- + 12 +
+ +l_result.is_output_reporter := l_reporters(i).is_output_reporter;- + 12 +
+ +pipe row( l_result );- +
+ +end if;- +
+ +end loop;- +
+ +end loop;- -
end;- + +
- -
- -
-procedure coverage_stop_develop is- + +
- +
+ +function hash_suite_path(a_path varchar2, a_random_seed positiven) return varchar2 is- + 16 +
+ +l_start_pos pls_integer := 1;- + 16 +
+ +l_end_pos pls_integer := 1;- +
+ +l_result varchar2(4000);- +
+ +l_item varchar2(4000);- + 16 +
+ +l_at_end boolean := false;- -
begin- - 1 -
-g_develop_mode := false;- - 1 -
-g_is_started := false;- - 2 -
-dbms_profiler.stop_profiler();- + +
- + 16 +
+ +if a_random_seed is null then- +
+ +l_result := a_path;- +
+ +end if;- + 16 +
+ +if a_path is not null then- + 36 +
+ +loop- + 36 +
+ +l_end_pos := instr(a_path,'.',l_start_pos);- + 36 +
+ +if l_end_pos = 0 then- + 16 +
+ +l_end_pos := length(a_path)+1;- + 16 +
+ +l_at_end := true;- +
+ +end if;- + 36 +
+ +l_item := substr(a_path,l_start_pos,l_end_pos-l_start_pos);- + 36 +
+ +if l_item is not null then- + 36 +
+ +l_result :=- +
+ +l_result ||- +
+ +ut_utils.get_hash( to_char( dbms_utility.get_hash_value( l_item, 1, a_random_seed ) ) );- +
+ +end if;- + 36 +
+ +exit when l_at_end;- + 20 +
+ +l_result := l_result || chr(0);- + 20 +
+ +l_start_pos := l_end_pos + 1;- +
+ +end loop;- +
+ +end if;- + 16 +
+ +return l_result;- -
end;- + +
- -
- -
-function get_raw_coverage_data(a_object_owner varchar2, a_object_name varchar2) return unit_line_calls is- -
-type coverage_row is record (- -
-line binary_integer,- -
-calls number(38,0)- -
-);- -
-type coverage_rows is table of coverage_row;- -
-l_tmp_data coverage_rows;- -
-l_results unit_line_calls;- -
-begin- - 326 -
-select d.line#,- -
--- This transformation addresses two issues:- -
--- 1. dbms_profiler shows multiple unit_number for single code unit;- -
--- to address this, we take a sum od all units by name- -
--- 2. some lines show 0 total_occur while they were executed (time > 0)- -
--- in this case we show 1 to indicate that there was execution even if we don't know how many there were- -
-case when sum(d.total_occur) = 0 and sum(d.total_time) > 0 then 1 else sum(d.total_occur) end total_occur- -
-bulk collect into l_tmp_data- -
-from plsql_profiler_units u- -
-join plsql_profiler_data d- -
-on u.runid = d.runid- -
-and u.unit_number = d.unit_number- -
-where u.runid = g_coverage_id- -
-and u.unit_owner = a_object_owner- -
-and u.unit_name = a_object_name- -
---exclude specification- -
-and u.unit_type not in ('PACKAGE SPEC', 'TYPE SPEC', 'ANONYMOUS BLOCK')- -
-group by d.line#;- - 326 -
-for i in 1 .. l_tmp_data.count loop- -
-l_results(l_tmp_data(i).line) := l_tmp_data(i).calls;- -
-end loop;- - 326 -
-return l_results;- -
-end;- -
end;+UT3.UT_COVERAGE_REPORTER_BASE
100 % covered
16 relevant lines. 16 lines covered and 0 lines missed+ +
- +
+end ut_runner;UT3.UT_SUITE_ITEM_INFO
100 % lines covered
12 relevant lines. 12 lines covered and 0 lines missed+
- -
+type body ut_coverage_reporter_base istype body ut_suite_item_info is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+constructor function ut_suite_item_info(a_object_owner varchar2, a_object_name varchar2, a_item_name varchar2,+- -
+overriding final member procedure before_calling_run(self in out nocopy ut_coverage_reporter_base, a_run ut_run) asa_item_description varchar2, a_item_type varchar2, a_item_line_no integer, a_path varchar2, a_disabled_flag integer,+- +
+ +a_tags ut_varchar2_rows) return self as result is- -
begin- - 4 -
-(self as ut_reporter_base).before_calling_run(a_run);- - 8 -
-ut_coverage.coverage_start();- + +
- + 10 +
+ +self.object_owner := a_object_owner;- + 10 +
+ +self.object_name := a_object_name;- + 10 +
+ +self.item_name := a_item_name;- + 10 +
+ +self.item_description := a_item_description;- + 10 +
+ +self.item_type := a_item_type;- + 10 +
+ +self.item_line_no := a_item_line_no;- + 10 +
+ +self.path := a_path;- + 10 +
+ +self.disabled_flag := a_disabled_flag;- + 10 +
+ +self.tags := case- + 1 +
+ +when a_tags is null then null- + 1 +
+ +when a_tags.count = 0 then null- +
+ +else ut_utils.to_string(ut_utils.table_to_clob(a_tags,',') ,a_quote_char => null)- +
+ +end;- + 10 +
+ +return;- -
end;- -
-- -
-overriding final member procedure before_calling_before_all(self in out nocopy ut_coverage_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 2 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_before_all (self in out nocopy ut_coverage_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 2 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_before_each(self in out nocopy ut_coverage_reporter_base, a_suite in ut_test) is- -
-begin- - 6 -
+ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_before_each (self in out nocopy ut_coverage_reporter_base, a_suite in ut_test) is- -
-begin- - 6 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_before_test(self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 2 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_before_test (self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 2 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_test_execute(self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 8 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_test_execute (self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 8 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_after_test(self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 2 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_after_test (self in out nocopy ut_coverage_reporter_base, a_test in ut_test) is- -
-begin- - 2 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_after_each(self in out nocopy ut_coverage_reporter_base, a_suite in ut_test) is- -
-begin- - 6 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_after_each (self in out nocopy ut_coverage_reporter_base, a_suite in ut_test) is- -
-begin- - 6 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
-overriding final member procedure before_calling_after_all(self in out nocopy ut_coverage_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 2 -
-ut_coverage.coverage_resume();- -
-end;- -
-overriding final member procedure after_calling_after_all (self in out nocopy ut_coverage_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 2 -
-ut_coverage.coverage_pause();- -
-end;- -
-- -
end;+UT3.UT_CONSOLE_REPORTER_BASE
71.43 % covered
7 relevant lines. 5 lines covered and 2 lines missed+
end;+UT3.UT_ANNOTATION_CACHE_MANAGER
95.12 % lines covered
41 relevant lines. 39 lines covered and 2 lines missed+
- -
+type body ut_console_reporter_base ispackage body ut_annotation_cache_manager as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+static procedure set_color_enabled(a_flag boolean) isprocedure update_cache(a_object ut_annotated_object) is+- -
-begin- - 48 -
+ut_ansiconsole_helper.color_enabled(a_flag);l_cache_id integer;+ +- + 415 +
+l_timestamp timestamp := systimestamp;- -
+end;pragma autonomous_transaction;+- -
-- -
-member procedure print_red_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- -
begin- - 95 -
+ +self.print_text(ut_ansiconsole_helper.red(a_text));- + 415 +
+ +update ut_annotation_cache_schema s- +
+ +set s.max_parse_time = l_timestamp- +
+where s.object_type = a_object.object_type and s.object_owner = a_object.object_owner;- -
-end;- -
- -
+ +member procedure print_green_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- + 415 +
+ +if sql%rowcount = 0 then- + 5 +
+insert into ut_annotation_cache_schema s- -
-begin- - 64 -
+self.print_text(ut_ansiconsole_helper.green(a_text));(object_owner, object_type, max_parse_time)+ +- +
+values (a_object.object_owner, a_object.object_type, l_timestamp);- -
+end;end if;+- +
- -
-member procedure print_yellow_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- -
-begin- - 13 -
-self.print_text(ut_ansiconsole_helper.yellow(a_text));- -
-end;- +
+ +-- if not in trigger, or object has annotations- + 415 +
+ +if ora_sysevent is null or a_object.annotations is not null and a_object.annotations.count > 0 then- + +
- + 376 +
+ +update ut_annotation_cache_info i- +
+set i.parse_time = l_timestamp,- -
+member procedure print_blue_text(self in out nocopy ut_console_reporter_base, a_text varchar2) isi.is_annotated = case when a_object.annotations is not empty then 'Y' else 'N' end+- -
-begin- -
+self.print_text(ut_ansiconsole_helper.red(a_text));where (i.object_owner, i.object_name, i.object_type)+ +- +
+in ((a_object.object_owner, a_object.object_name, a_object.object_type))- -
+end;returning cache_id into l_cache_id;+- -
- -
+ +member procedure print_cyan_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- + 376 +
+if sql%rowcount = 0 then- -
-begin- - 13 -
+self.print_text(ut_ansiconsole_helper.cyan(a_text));+ +- + 85 +
+insert into ut_annotation_cache_info- -
+end;(cache_id, object_owner, object_name, object_type, parse_time, is_annotated)+- -
+values (ut_annotation_cache_seq.nextval, a_object.object_owner, a_object.object_name, a_object.object_type, l_timestamp,+- -
+member procedure print_magenta_text(self in out nocopy ut_console_reporter_base, a_text varchar2) iscase when a_object.annotations is not empty then 'Y' else 'N' end+- -
-begin- -
+self.print_text(ut_ansiconsole_helper.magenta(a_text));)+ +- +
+returning cache_id into l_cache_id;- -
+end;end if;+- +
- -
end;UT3.UT_EVENT_LISTENER
94 % covered
50 relevant lines. 47 lines covered and 3 lines missed-
- -
-type body ut_event_listener is- -
-/*- -
-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- +
+ +end if;- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 415 +
+ +delete from ut_annotation_cache c where cache_id = l_cache_id;- -
- -
-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.- -
-*/- -
-- -
-constructor function ut_event_listener(self in out nocopy ut_event_listener, a_reporters ut_reporters) return self as result is- -
-begin- - 77 -
-reporters := a_reporters;- - 77 -
-return;- -
-end;- -
-- -
-overriding member procedure fire_before_event(self in out nocopy ut_event_listener, a_event_name varchar2, a_item ut_suite_item_base) is- -
-begin- - 1024 -
-self.fire_event('before', a_event_name, a_item);- -
-end;- -
-- -
-overriding member procedure fire_after_event(self in out nocopy ut_event_listener, a_event_name varchar2, a_item ut_suite_item_base) is- -
-begin- - 1024 -
-self.fire_event('after', a_event_name, a_item);- -
-end;- -
-- -
-overriding member procedure fire_event(self in out nocopy ut_event_listener, a_event_timing varchar2, a_event_name varchar2, a_item ut_suite_item_base) is- -
-begin- - 3992 -
-for i in 1..self.reporters.count loop- - 1944 -
-if a_event_timing = 'before' then- - 973 -
-if a_event_name = ut_utils.gc_run then- - 48 -
-self.reporters(i).before_calling_run(treat(a_item as ut_run));- - 924 -
-elsif a_event_name = ut_utils.gc_suite then- - 130 -
-self.reporters(i).before_calling_suite(treat(a_item as ut_logical_suite));- - 794 -
-elsif a_event_name = ut_utils.gc_before_all then- - 22 -
-self.reporters(i).before_calling_before_all(treat(a_item as ut_logical_suite));- - 772 -
-elsif a_event_name = ut_utils.gc_before_each then- - 134 -
-self.reporters(i).before_calling_before_each(treat(a_item as ut_test));- - 638 -
-elsif a_event_name = ut_utils.gc_test then- - 203 -
-self.reporters(i).before_calling_test(treat(a_item as ut_test));- - 435 -
-elsif a_event_name = ut_utils.gc_before_test then- - 59 -
-self.reporters(i).before_calling_before_test(treat(a_item as ut_test));- - 376 -
-elsif a_event_name = ut_utils.gc_test_execute then- - 163 -
-self.reporters(i).before_calling_test_execute(treat(a_item as ut_test));- - 213 -
-elsif a_event_name = ut_utils.gc_after_test then- - 59 -
-self.reporters(i).before_calling_after_test(treat(a_item as ut_test));- - 154 -
-elsif a_event_name = ut_utils.gc_after_each then- - 134 -
-self.reporters(i).before_calling_after_each(treat(a_item as ut_test));- - 20 -
-elsif a_event_name = ut_utils.gc_after_all then- - 20 -
-self.reporters(i).before_calling_after_all(treat(a_item as ut_logical_suite));- -
-else- -
-raise_application_error(ut_utils.gc_invalid_rep_event_name,'Invalid reporting event name - '|| nvl(a_event_name,'NULL'));- -
-end if;- - 972 -
-elsif a_event_timing = 'after' then- - 972 -
-if a_event_name = ut_utils.gc_run then- - 48 -
-self.reporters(i).after_calling_run(treat(a_item as ut_run));- - 924 -
-elsif a_event_name = ut_utils.gc_suite then- - 130 -
-self.reporters(i).after_calling_suite(treat(a_item as ut_logical_suite));- - 794 -
-elsif a_event_name = ut_utils.gc_before_all then- - 22 -
-self.reporters(i).after_calling_before_all(treat(a_item as ut_logical_suite));- - 772 -
-elsif a_event_name = ut_utils.gc_before_each then- - 134 -
-self.reporters(i).after_calling_before_each(treat(a_item as ut_test));- - 638 -
-elsif a_event_name = ut_utils.gc_test then- - 203 -
-self.reporters(i).after_calling_test(treat(a_item as ut_test));- - 435 -
-elsif a_event_name = ut_utils.gc_before_test then- - 59 -
-self.reporters(i).after_calling_before_test(treat(a_item as ut_test));- + +
- + 415 +
+ +if a_object.annotations is not null and a_object.annotations.count > 0 then- 376 -
-elsif a_event_name = ut_utils.gc_test_execute then- - 163 -
-self.reporters(i).after_calling_test_execute(treat(a_item as ut_test));- - 213 -
-elsif a_event_name = ut_utils.gc_after_test then- - 59 -
-self.reporters(i).after_calling_after_test(treat(a_item as ut_test));- - 154 -
-elsif a_event_name = ut_utils.gc_after_each then- - 134 -
-self.reporters(i).after_calling_after_each(treat(a_item as ut_test));- - 20 -
-elsif a_event_name = ut_utils.gc_after_all then- - 20 -
-self.reporters(i).after_calling_after_all(treat(a_item as ut_logical_suite));- -
-else- -
-raise_application_error(ut_utils.gc_invalid_rep_event_name,'Invalid reporting event name - '|| nvl(a_event_name,'NULL'));- -
-end if;- -
-else- -
-raise_application_error(ut_utils.gc_invalid_rep_event_time,'Invalid reporting event time - '|| nvl(a_event_timing,'NULL'));- -
-end if;- -
-end loop;- -
-- -
-end fire_event;- -
-- -
end;UT3.UT_EXECUTABLE
100 % covered
53 relevant lines. 53 lines covered and 0 lines missed-
- -
-type body ut_executable is- -
-/*- -
-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.- -
-*/- -
-- -
-constructor function ut_executable(- -
-self in out nocopy ut_executable, a_context ut_suite_item,- -
-a_procedure_name varchar2, a_associated_event_name varchar2- -
-) return self as result is- -
-begin- - 4270 -
-self.associated_event_name := a_associated_event_name;- - 4270 -
-self.owner_name := a_context.object_owner;- - 4270 -
-self.object_name := a_context.object_name;- - 4270 -
-self.procedure_name := a_procedure_name;- - 4270 -
-return;- -
-end;- -
-- -
-member function is_defined return boolean is- -
-begin- - 2059 -
-return self.procedure_name is not null and self.object_name is not null;- -
-end;- -
-- -
-member function is_valid(self in out nocopy ut_executable) return boolean is- - 627 -
-l_result boolean := false;- - 627 -
-l_message_part varchar2(4000) := 'Call params for ' || self.associated_event_name || ' are not valid: ';- -
-begin- -
-- - 627 -
-if self.object_name is null then- - 1 -
-self.error_stack := l_message_part || 'package is not defined';- - 626 -
-elsif not ut_metadata.package_valid(self.owner_name, self.object_name) then- - 3 -
-self.error_stack := l_message_part || 'package does not exist or is invalid: ' ||upper(self.owner_name||'.'||self.object_name);- - 623 -
-elsif self.procedure_name is null then- - 1 -
-self.error_stack := l_message_part || 'procedure is not defined';- - 622 -
-elsif not ut_metadata.procedure_exists(self.owner_name, self.object_name, self.procedure_name) then- - 5 -
-self.error_stack := l_message_part || 'package missing procedure '- -
-|| upper(self.owner_name || '.' || self.object_name || '.' ||self.procedure_name);- -
-else- - 617 -
-l_result := true;- -
-end if;- -
-- - 627 -
-return l_result;- -
-end is_valid;- -
-- -
-member function form_name return varchar2 is- -
-begin- - 36 -
+return ut_metadata.form_name(owner_name, object_name, procedure_name);insert into ut_annotation_cache+- -
+end;(cache_id, annotation_position, annotation_name, annotation_text, subobject_name)+- -
+select l_cache_id, a.position, a.name, a.text, a.subobject_name+- -
+member procedure do_execute(self in out nocopy ut_executable, a_item in out nocopy ut_suite_item, a_listener in out nocopy ut_event_listener_base) isfrom table(a_object.annotations) a;+- -
-l_completed_without_errors boolean;- -
-begin- - 544 -
+l_completed_without_errors := self.do_execute(a_item, a_listener);end if;+ +- + 415 +
+ +commit;- +
+end;- -
+end do_execute;+- +
- -
-member function do_execute(self in out nocopy ut_executable, a_item in out nocopy ut_suite_item, a_listener in out nocopy ut_event_listener_base) return boolean is- -
+l_statement varchar2(4000);procedure reset_objects_cache(a_objects ut_annotation_objs_cache_info) is+ +- + 85 +
+l_timestamp timestamp := systimestamp;- -
+l_status number;pragma autonomous_transaction;+- -
-l_cursor_number number;- - 1102 -
-l_owner varchar2(200) := self.owner_name;- - 1102 -
-l_object_name varchar2(200) := self.object_name;- - 1102 -
-l_procedure_name varchar2(200) := self.procedure_name;- +
+ +begin- -
- - 1102 -
+ +l_completed_without_errors boolean := true;- + 85 +
+ +delete from ut_annotation_cache c- +
+ +where c.cache_id- +
+ +in (select i.cache_id- +
+from ut_annotation_cache_info i- -
+l_start_transaction_id varchar2(250);join table (a_objects) o+- -
+l_end_transaction_id varchar2(250);on o.object_name = i.object_name+- -
+procedure save_dbms_output isand o.object_type = i.object_type+- -
+l_status number;and o.object_owner = i.object_owner+- -
+l_line varchar2(32767););+- -
-begin- - 614 -
-dbms_lob.createtemporary(self.serveroutput, true, dur => dbms_lob.session);- -
- - 817 -
-loop- - 817 -
-dbms_output.get_line(line => l_line, status => l_status);- - 817 -
+ +exit when l_status = 1;- + 85 +
+ +update ut_annotation_cache_schema s- +
+ +set s.max_parse_time = l_timestamp- +
+ +where (s.object_owner, s.object_type)- +
+ +in (- +
+select o.object_owner, o.object_type- +
+ +from table(a_objects) o- +
+ +);- -
- - 203 -
-if l_line is not null then- - 202 -
-ut_utils.append_to_clob(self.serveroutput, l_line);- -
-end if;- -
-- - 203 -
-dbms_lob.writeappend(self.serveroutput,1,chr(10));- -
-end loop;- -
+ +end save_dbms_output;- + 85 +
+ +if sql%rowcount = 0 then- + 1 +
+ +insert into ut_annotation_cache_schema s- +
+ +(object_owner, object_type, max_parse_time)- +
+ +select distinct o.object_owner, o.object_type, l_timestamp- +
+from table(a_objects) o;- -
-begin- - 1102 -
-if self.is_defined() then- - 614 -
+l_start_transaction_id := dbms_transaction.local_transaction_id(true);end if;+ +- +
+ +- + 85 +
+merge into ut_annotation_cache_info i- -
---listener - before call to executable- - 614 -
+a_listener.fire_before_event(self.associated_event_name, a_item);using (select o.object_name, o.object_type, o.object_owner+ +- +
+from table(a_objects) o ) o- -
-- - 614 -
+ut_metadata.do_resolve(a_owner => l_owner, a_object => l_object_name, a_procedure_name => l_procedure_name);on (o.object_name = i.object_name+ +- +
+and o.object_type = i.object_type- -
-- - 614 -
+l_statement :=and o.object_owner = i.object_owner)+ +- +
+when matched then- -
+'declare' || chr(10) ||update+- -
+' l_error_stack varchar2(32767);' || chr(10) ||set parse_time = l_timestamp,+- -
+' l_error_backtrace varchar2(32767);' || chr(10) ||is_annotated = 'N'+- -
+'begin' || chr(10) ||when not matched then insert+- -
+' begin' || chr(10) ||(cache_id, object_owner, object_name, object_type, parse_time, is_annotated)+- -
+' ' || ut_metadata.form_name(l_owner, l_object_name, l_procedure_name) || ';' || chr(10) ||values (ut_annotation_cache_seq.nextval, o.object_owner, o.object_name, o.object_type, l_timestamp, 'N');+- -
-' exception' || chr(10) ||- -
+' when others then ' || chr(10) ||+ +- + 85 +
+commit;- -
+' l_error_stack := dbms_utility.format_error_stack;' || chr(10) ||end;+- -
+' l_error_backtrace := dbms_utility.format_error_backtrace;' || chr(10) ||+- -
+' --raise on ORA-04068, ORA-04061: existing state of packages has been discarded to avoid unrecoverable session exception' || chr(10) ||function get_cached_objects_list(a_object_owner varchar2, a_object_type varchar2, a_parsed_after timestamp := null) return ut_annotation_objs_cache_info is+- -
+' if l_error_stack like ''%ORA-04068%'' or l_error_stack like ''%ORA-04061%'' then' || chr(10) ||l_result ut_annotation_objs_cache_info;+- -
-' raise;' || chr(10) ||- -
+' end if;' || chr(10) ||begin+ +- + 893 +
+select ut_annotation_obj_cache_info(- -
+' end;' || chr(10) ||object_owner => i.object_owner,+- -
+' :a_error_stack := l_error_stack;' || chr(10) ||object_name => i.object_name,+- -
+' :a_error_backtrace := l_error_backtrace;' || chr(10) ||object_type => i.object_type,+- -
+'end;';needs_refresh => 'N',+- -
-- - 614 -
+ut_utils.debug_log('ut_executable.do_execute l_statement: ' || l_statement);parse_time => i.parse_time+ +- +
+)- +
+ +bulk collect into l_result- +
+ +from ut_annotation_cache_info i- +
+ +where i.object_owner = a_object_owner- +
+ +and i.object_type = a_object_type- +
+ +and (i.parse_time > a_parsed_after or a_parsed_after is null);- + 893 +
+ +return l_result;- +
+ +end;- -
- - 614 -
-l_cursor_number := dbms_sql.open_cursor;- - 614 -
-dbms_sql.parse(l_cursor_number, statement => l_statement, language_flag => dbms_sql.native);- - 614 -
-dbms_sql.bind_variable(l_cursor_number, 'a_error_stack', to_char(null), 32767);- - 614 -
-dbms_sql.bind_variable(l_cursor_number, 'a_error_backtrace', to_char(null), 32767);- -
-- - 614 -
-l_status := dbms_sql.execute(l_cursor_number);- - 614 -
-dbms_sql.variable_value(l_cursor_number, 'a_error_stack', self.error_stack);- - 614 -
-dbms_sql.variable_value(l_cursor_number, 'a_error_backtrace', self.error_backtrace);- - 614 -
+ +dbms_sql.close_cursor(l_cursor_number);- +
+ +function get_cache_schema_info(a_object_owner varchar2, a_object_type varchar2) return t_cache_schema_info is- +
+l_result t_cache_schema_info;- -
-- - 614 -
-save_dbms_output;- -
-- - 614 -
+l_completed_without_errors := (self.error_stack||self.error_backtrace) is null;begin+ +- +
+ +begin- + 327 +
+ +select *- +
+into l_result- -
+from ut_annotation_cache_schema s+- -
---listener - after call to executable- - 614 -
-a_listener.fire_after_event(self.associated_event_name, a_item);- -
-- - 614 -
-l_end_transaction_id := dbms_transaction.local_transaction_id();- - 614 -
-if l_start_transaction_id != l_end_transaction_id or l_end_transaction_id is null then- - 9 -
+a_item.add_transaction_invalidator(self.form_name());where s.object_type = a_object_type and s.object_owner = a_object_owner;+ +- +
+ +exception- + 6 +
+ +when no_data_found then- + 3 +
+ +null;- +
+ +end;- + 327 +
+return l_result;- -
+end if;end;+- -
-end if;- -
- - 1102 -
+ +return l_completed_without_errors;- +
+ +procedure set_fully_refreshed(a_object_owner varchar2, a_object_type varchar2) is- +
+pragma autonomous_transaction;- -
-end do_execute;- -
+begin+ +- + 13 +
+update ut_annotation_cache_schema s- -
+member function get_error_stack_trace return varchar2 isset s.full_refresh_time = s.max_parse_time+- -
-begin- - 1159 -
-return rtrim(self.error_stack||self.error_backtrace, chr(10));- -
+end;where s.object_owner = a_object_owner+ +- +
+ +and s.object_type = a_object_type;- + 13 +
+commit;- -
end;UT3.UT_EXPECTATION_RESULT
92.86 % covered
14 relevant lines. 13 lines covered and 1 lines missed-
- -
-type body ut_expectation_result is- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- +
+ +end;- -
- -
-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- + +
- +
+ +procedure remove_from_cache(a_objects ut_annotation_objs_cache_info) is- +
+ +pragma autonomous_transaction;- +
+ +begin- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 388 +
+ +delete from ut_annotation_cache_info i- +
+ +where exists (- +
+ +select 1 from table (a_objects) o- +
+ +where o.object_name = i.object_name- +
+ +and o.object_type = i.object_type- +
+ +and o.object_owner = i.object_owner- +
+ +);- -
- -
-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.- -
-*/- + +
- + 388 +
+ +commit;- +
+ +end;- -
- -
-constructor function ut_expectation_result(self in out nocopy ut_expectation_result, a_status integer, a_description varchar2, a_message clob)- -
-return self as result is- + +
- +
+ +function get_annotations_parsed_since(a_object_owner varchar2, a_object_type varchar2, a_parsed_after timestamp) return sys_refcursor is- +
+ +l_results sys_refcursor;- -
begin- - 943 -
-self.status := a_status;- - 943 -
-self.description := a_description;- - 943 -
-self.message := a_message;- - 943 -
-if self.status = ut_utils.tr_failure then- - 288 -
-self.caller_info := ut_expectation_processor.who_called_expectation(dbms_utility.format_call_stack());- -
-end if;- - 943 -
-return;- + +
- + 317 +
+ +open l_results for- +
+ +select ut_annotated_object(- +
+ +i.object_owner, i.object_name, i.object_type, i.parse_time,- +
+ +cast(- +
+ +collect(- +
+ +ut_annotation(- +
+ +c.annotation_position, c.annotation_name, c.annotation_text, c.subobject_name- +
+ +) order by c.annotation_position- +
+ +) as ut_annotations- +
+ +)- +
+ +) as annotated_object- +
+ +from ut_annotation_cache_info i- +
+ +join ut_annotation_cache c on i.cache_id = c.cache_id- +
+ +where i.object_owner = a_object_owner and i.object_type = a_object_type- +
+ +and (i.parse_time > a_parsed_after or a_parsed_after is null)- +
+ +group by i.object_owner, i.object_type, i.object_name, i.parse_time;- + 317 +
+ +return l_results;- -
end;- + +
- -
- -
-member function get_result_clob(self in ut_expectation_result) return clob is- -
-l_result clob;- + +
- +
+ +procedure purge_cache(a_object_owner varchar2, a_object_type varchar2) is- +
+ +l_filter varchar2(32767);- +
+ +l_cache_filter varchar2(32767);- +
+ +pragma autonomous_transaction;- -
begin- - 72 -
-if self.description is not null then- - 10 -
-ut_utils.append_to_clob(l_result, '"'||self.description||'"');- - 10 -
-if self.message is not null then- - 10 -
-ut_utils.append_to_clob(l_result, chr(10));- -
-end if;- + +
- + 2 +
+ +if a_object_owner is null and a_object_type is null then- +
+ +l_filter := ':a_object_owner is null and :a_object_type is null';- +
+ +l_cache_filter := l_filter;- +
+ +else- + 2 +
+ +l_filter := case when a_object_owner is null then ':a_object_owner is null' else 'object_owner = :a_object_owner' end;- + 2 +
+ +l_filter := l_filter || ' and ' || case when a_object_type is null then ':a_object_type is null' else 'object_type = :a_object_type' end;- + 2 +
+ +l_cache_filter := ' c.cache_id in (select i.cache_id from ut_annotation_cache_info i where ' || l_filter || ' )';- -
end if;- - 72 -
-ut_utils.append_to_clob(l_result, self.message);- - 72 -
-return l_result;- -
-end;- + +
- + 2 +
+ +execute immediate 'delete from ut_annotation_cache c where ' || l_cache_filter- +
+ +using a_object_owner, a_object_type;- -
- -
-member function get_result_lines(self in ut_expectation_result) return ut_varchar2_list is- -
-begin- - 18 -
-return ut_utils.clob_to_table(get_result_clob(), 4000 );- -
-end;- + +
- + 2 +
+ +execute immediate ' delete from ut_annotation_cache_info i where ' || l_filter- +
+ +using a_object_owner, a_object_type;- -
- -
-member function result return integer is- -
-begin- -
-return self.status;- + +
- + 2 +
+ +execute immediate ' delete from ut_annotation_cache_schema s where ' || l_filter- +
+ +using a_object_owner, a_object_type;- +
+ +- + 2 +
+ +commit;- -
end;- + +
- -
- -
end;+UT3.UT_LOGICAL_SUITE
72.34 % covered
47 relevant lines. 34 lines covered and 13 lines missed+ +
- +
+end;UT3.UT_ANNOTATION_MANAGER
98.86 % lines covered
88 relevant lines. 87 lines covered and 1 lines missed+
- -
+type body ut_logical_suite aspackage body ut_annotation_manager as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_logical_suite(------------------------------+- -
+self in out nocopy ut_logical_suite,a_object_owner varchar2, a_object_name varchar2, a_name varchar2, a_description varchar2 := null, a_path varchar2--private definitions+- -
+) return self as result is+- +
+ +function user_can_see_whole_schema( a_schema_name varchar2 ) return boolean is- -
begin- - 94 -
-self.self_type := $$plsql_unit;- - 94 -
-self.init(a_object_owner, a_object_name, a_name, a_description, a_path, ut_utils.gc_rollback_auto, false);- - 94 -
-self.items := ut_suite_items();- - 94 -
+ +return;- + 345 +
+ +return sys_context('userenv','current_schema') = a_schema_name- + 1 +
+ +or ut_metadata.user_has_execute_any_proc()- + 1 +
+or ut_metadata.is_object_visible('dba_objects');- +
end;- +
- -
-member function is_valid(self in out nocopy ut_logical_suite) return boolean is- -
-begin- -
+return true;function get_non_existing_objects( a_object_owner varchar2, a_object_type varchar2 ) return ut_annotation_objs_cache_info is+ +- + 265 +
+ +l_objects_view varchar2(200) := ut_metadata.get_objects_view_name();- + 265 +
+l_object_to_delete ut_annotation_objs_cache_info := ut_annotation_objs_cache_info();- -
+end;l_cached_objects ut_annotation_objs_cache_info;+- +
+ +begin- + 265 +
+ +l_cached_objects := ut_annotation_cache_manager.get_cached_objects_list( a_object_owner, a_object_type );- -
- -
-member function item_index(a_name varchar2) return pls_integer is- - 49 -
-l_item_index pls_integer := self.items.first;- - 49 -
-c_lowered_name constant varchar2(4000 char) := lower(trim(a_name));- -
+ +l_result pls_integer;- + 265 +
+ +if l_cached_objects is not empty then- + 262 +
+execute immediate 'select /*+ cardinality(i '||ut_utils.scale_cardinality(cardinality(l_cached_objects))||') */- -
-begin- - 49 -
-while l_item_index is not null loop- - 44 -
-if self.items(l_item_index).name = c_lowered_name then- - 44 -
-l_result := l_item_index;- - 44 -
+exit;value(i)+ +- +
+ +from table( :l_data ) i- +
+ +where- +
+ +not exists (- +
+select 1 from '||l_objects_view||q'[ o- -
-end if;- -
+l_item_index := self.items.next(l_item_index);where o.owner = i.object_owner+ +- +
+and o.object_name = i.object_name- -
-end loop;- - 49 -
+return l_result;and o.object_type = i.object_type+ +- +
+and o.owner = ']'||ut_utils.qualified_sql_name(a_object_owner)||q'['- -
+end item_index;and o.object_type = ']'||ut_utils.qualified_sql_name(a_object_type)||q'['+- -
+)]'+- -
+member procedure add_item(self in out nocopy ut_logical_suite, a_item ut_suite_item) isbulk collect into l_object_to_delete+- -
-begin- - 844 -
-self.items.extend;- - 844 -
+self.items(self.items.last) := a_item;using l_cached_objects;+ +- +
+ +end if;- + 265 +
+return l_object_to_delete;- +
end;- +
- -
+overriding member function do_execute(self in out nocopy ut_logical_suite, a_listener in out nocopy ut_event_listener_base) return boolean isfunction get_objects_to_refresh(+- -
+l_suite_savepoint varchar2(30);a_object_owner varchar2,+- -
+l_item_savepoint varchar2(30);a_object_type varchar2,+- -
+l_completed_without_errors boolean;a_modified_after timestamp+- -
-begin- - 34 -
+ut_utils.debug_log('ut_logical_suite.execute');) return ut_annotation_objs_cache_info is+ +- + 327 +
+l_ut_owner varchar2(250) := ut_utils.ut_owner;- -
-- - 34 -
-a_listener.fire_before_event(ut_utils.gc_suite,self);- - 34 -
+self.start_time := current_timestamp;l_refresh_needed boolean;+ +- + 327 +
+ +l_objects_view varchar2(200) := ut_metadata.get_objects_view_name();- +
+l_cached_objects ut_annotation_objs_cache_info;- +
+ +l_result ut_annotation_objs_cache_info;- +
+ +begin- + 327 +
+ +ut_event_manager.trigger_event( 'get_objects_to_refresh - start' );- -
- - 68 -
-for i in 1 .. self.items.count loop- -
--- execute the item (test or suite)- - 34 -
-self.items(i).do_execute(a_listener);- -
-end loop;- -
-- - 34 -
-self.calc_execution_result();- - 34 -
+ +self.end_time := current_timestamp;- + 327 +
+ +l_refresh_needed := ( ut_trigger_check.is_alive() = false ) or a_modified_after is null;- + 327 +
+ +l_cached_objects := ut_annotation_cache_manager.get_cached_objects_list( a_object_owner, a_object_type, a_modified_after );- + 327 +
+ +if l_refresh_needed then- +
+--limit the list to objects that exist and are visible to the invoking user- -
-- - 34 -
+a_listener.fire_after_event(ut_utils.gc_suite,self);--enrich the list by info about cache validity+ +- + 29 +
+execute immediate- -
-- - 34 -
+return l_completed_without_errors;'select /*+ cardinality(i '||ut_utils.scale_cardinality(cardinality(l_cached_objects))||') */+ +- +
+'||l_ut_owner||q'[.ut_annotation_obj_cache_info(- -
+end;object_owner => o.owner,+- -
+object_name => o.object_name,+- -
+overriding member procedure calc_execution_result(self in out nocopy ut_logical_suite) isobject_type => o.object_type,+- -
+l_result integer(1);needs_refresh => 'Y',+- -
-begin- - 132 -
-if self.items is not null and self.items.count > 0 then- - 391 -
-for i in 1 .. self.items.count loop- - 259 -
+self.results_count.sum_counter_values( self.items(i).results_count );parse_time => c.parse_time+ +- +
+ +)- +
+ +from ]'||l_objects_view||' o- +
+left join table( cast(:l_cached_objects as '||l_ut_owner||q'[.ut_annotation_objs_cache_info ) ) c- -
-end loop;- - 132 -
+l_result := self.results_count.result_status();on o.owner = c.object_owner+ +- +
+and o.object_name = c.object_name- -
+elseand o.object_type = c.object_type+- -
---if suite is empty then it's successful (no errors)- -
+l_result := ut_utils.tr_success;where o.owner = ']'||ut_utils.qualified_sql_name(a_object_owner)||q'['+ +- +
+and o.object_type = ']'||ut_utils.qualified_sql_name(a_object_type)||q'['- -
+end if;and case when o.last_ddl_time < cast(c.parse_time as date) then 'N' else 'Y' end = 'Y'+- -
-- - 132 -
-self.result := l_result;- -
+end;and ]'+ +- + 1 +
+ +|| case- + 1 +
+when a_modified_after is null- -
+then ':a_modified_after is null'+- -
+overriding member procedure mark_as_errored(self in out nocopy ut_logical_suite, a_listener in out nocopy ut_event_listener_base, a_error_stack_trace varchar2) iselse 'o.last_ddl_time >= cast(:a_modified_after as date)'+- -
-begin- -
-ut_utils.debug_log('ut_logical_suite.fail');- -
-a_listener.fire_before_event(ut_utils.gc_suite, self);- -
-self.start_time := current_timestamp;- -
-for i in 1 .. self.items.count loop- -
--- execute the item (test or suite)- -
+self.items(i).mark_as_errored(a_listener, a_error_stack_trace);end+ +- +
+ +bulk collect into l_result using l_cached_objects, a_modified_after;- +
+ +else- + 298 +
+ +l_result := l_cached_objects;- +
+ +end if;- + 327 +
+ +ut_event_manager.trigger_event('get_objects_to_refresh - end (count='||l_result.count||')');- + 327 +
+return l_result;- -
-end loop;- -
-self.calc_execution_result();- -
-self.end_time := self.start_time;- -
-a_listener.fire_after_event(ut_utils.gc_suite, self);- -
end;- + +
- + +
- +
+ +function get_sources_to_annotate(a_object_owner varchar2, a_object_type varchar2, a_objects_to_refresh ut_annotation_objs_cache_info) return sys_refcursor is- +
+ +l_result sys_refcursor;- + 85 +
+ +l_sources_view varchar2(200) := ut_metadata.get_source_view_name();- +
+l_card natural;- -
-overriding member function get_error_stack_traces return ut_varchar2_list is- -
begin- -
+ +return ut_varchar2_list();- + 85 +
+ +l_card := ut_utils.scale_cardinality(cardinality(a_objects_to_refresh));- + 85 +
+open l_result for- -
+end;q'[select x.name, x.text+- -
+from (select /*+ cardinality( r ]'||l_card||q'[ )*/+- -
+overriding member function get_serveroutputs return clob iss.name, s.text, s.line,+- -
-begin- -
+return null;max(case when s.text like '%--%\%%' escape '\'+ +- +
+and regexp_like(s.text,'^\s*--\s*%')- -
+end;then 'Y' else 'N' end+- -
+)+- -
+overriding member function get_transaction_invalidators return ut_varchar2_list isover(partition by s.name) is_annotated+- -
+l_result ut_varchar2_list;from table(:a_objects_to_refresh) r+- -
+l_child_results ut_varchar2_list;join ]'||l_sources_view||q'[ s+- -
-begin- - 2 -
-l_result := self.transaction_invalidators;- - 5 -
-for i in 1 .. self.items.count loop- - 3 -
-l_child_results := self.items(i).get_transaction_invalidators();- - 9 -
-for j in 1 .. l_child_results.count loop- - 6 -
-if l_child_results(j) not member of l_result then- - 8 -
+l_result.extend; l_result(l_result.last) := l_child_results(j);on s.name = r.object_name+ +- +
+ +and s.owner = r.object_owner- +
+ +and s.type = r.object_type- +
+ +where s.owner = ']'||ut_utils.qualified_sql_name(a_object_owner)||q'['- +
+ +and s.type = ']'||ut_utils.qualified_sql_name(a_object_type)||q'['- +
+ +) x- +
+where x.is_annotated = 'Y'- -
+end if;order by x.name, x.line]'+- -
+end loop;using a_objects_to_refresh;+- -
-end loop;- - 2 +
+ +- + 85
+return l_result;- +
end;- +
- -
end;UT3.UT_OBJECT_NAME
100 % covered
8 relevant lines. 8 lines covered and 0 lines missed-
- -
-type body ut_object_name 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.- -
-*/- -
-constructor function ut_object_name(self in out nocopy ut_object_name, owner varchar2, name varchar2) return self as result is- -
-begin- - 432 -
-self.owner := upper(owner);- - 432 -
-self.name := upper(name);- - 432 -
-return;- -
-end;- -
-- -
-constructor function ut_object_name(self in out nocopy ut_object_name, a_unit_name varchar2) return self as result is- -
-begin- - 1 -
-self.owner := upper(regexp_substr(a_unit_name,'[^\.]+', 1, 1));- - 1 -
-self.name := upper(regexp_substr(a_unit_name,'[^\.]+', 1, 2));- - 1 -
-return;- +
+ +procedure build_annot_cache_for_sources(- +
+ +a_object_owner varchar2,- +
+ +a_object_type varchar2,- +
+ +a_sources_cursor sys_refcursor- +
+ +) is- +
+ +l_annotations ut_annotations;- + 216 +
+ +c_lines_fetch_limit constant integer := 10000;- +
+ +l_lines dbms_preprocessor.source_lines_t;- +
+ +l_names dbms_preprocessor.source_lines_t;- +
+ +l_name varchar2(250);- +
+ +l_object_lines dbms_preprocessor.source_lines_t;- + 216 +
+ +l_parse_time date := sysdate;- +
+ +pragma autonomous_transaction;- +
+ +begin- + 216 +
+ +loop- + 216 +
+ +fetch a_sources_cursor bulk collect into l_names, l_lines limit c_lines_fetch_limit;- + 16196 +
+ +for i in 1 .. l_names.count loop- + 15980 +
+ +if l_names(i) != l_name then- + 211 +
+ +l_annotations := ut_annotation_parser.parse_object_annotations(l_object_lines, a_object_type);- + 211 +
+ +ut_annotation_cache_manager.update_cache(- +
+ +ut_annotated_object(a_object_owner, l_name, a_object_type, l_parse_time, l_annotations)- +
+ +);- + 211 +
+ +l_object_lines.delete;- +
+ +end if;- +
+ +- + 15980 +
+ +l_name := l_names(i);- + 15980 +
+ +l_object_lines(l_object_lines.count+1) := l_lines(i);- +
+ +end loop;- + 216 +
+ +exit when a_sources_cursor%notfound;- +
+ +- +
+ +end loop;- + 216 +
+ +if a_sources_cursor%rowcount > 0 then- + 204 +
+ +l_annotations := ut_annotation_parser.parse_object_annotations(l_object_lines, a_object_type);- + 204 +
+ +ut_annotation_cache_manager.update_cache(- +
+ +ut_annotated_object(a_object_owner, l_name, a_object_type, l_parse_time, l_annotations)- +
+ +);- + 204 +
+ +l_object_lines.delete;- +
+ +end if;- + 216 +
+ +close a_sources_cursor;- -
end;- + +
- -
- + +
- -
- - 1 -
-map member function identity return varchar2 is- + +
- +
+ +procedure validate_annotation_cache(- +
+ +a_object_owner varchar2,- +
+ +a_object_type varchar2,- +
+ +a_modified_after timestamp := null- +
+ +) is- +
+ +l_objects_to_refresh ut_annotation_objs_cache_info;- + 327 +
+ +l_modified_after timestamp := a_modified_after;- -
begin- - 1353 -
-return owner||'.'||name;- -
-end;- -
end;UT3.UT_REPORTER_BASE
100 % covered
29 relevant lines. 29 lines covered and 0 lines missed-
- -
-type body ut_reporter_base is- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- + 327 +
+ +if ut_annotation_cache_manager.get_cache_schema_info(a_object_owner, a_object_type).full_refresh_time is null then- + 10 +
+ +l_modified_after := null;- +
+ +end if;- -
- -
-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- + +
- + 327 +
+ +l_objects_to_refresh := get_objects_to_refresh(a_object_owner, a_object_type, l_modified_after);- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 327 +
+ +ut_event_manager.trigger_event('validate_annotation_cache - start (l_objects_to_refresh.count = '||l_objects_to_refresh.count||')');- -
- -
-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.- -
-*/- + +
- -
- -
-final member procedure init(self in out nocopy ut_reporter_base, a_self_type varchar2) is- -
-begin- - 55 -
-self.self_type := a_self_type;- - 55 -
-self.reporter_id := sys_guid();- - 55 -
-self.start_date := sysdate();- - 55 -
-return;- -
-end;- + +
- + 327 +
+ +if user_can_see_whole_schema( a_object_owner ) then- +
+ +--Remove non existing objects from cache only when user can see whole schema- + 265 +
+ +ut_annotation_cache_manager.remove_from_cache( get_non_existing_objects( a_object_owner, a_object_type ) );- +
+ +end if;- -
- -
-member procedure print_text(self in out nocopy ut_reporter_base, a_text varchar2) is- -
-begin- - 45615 -
-ut_output_buffer.send_line(self,a_text);- -
-end;- + +
- +
+ +--if some source needs parsing and putting into cache- + 327 +
+ +if l_objects_to_refresh.count > 0 then- +
+ +--Delete annotations for objects that are to be refreshed- + 85 +
+ +ut_annotation_cache_manager.reset_objects_cache(l_objects_to_refresh);- +
+ +--Rebuild cache from objects source- + 85 +
+ +build_annot_cache_for_sources(- +
+ +a_object_owner, a_object_type,- +
+ +get_sources_to_annotate(a_object_owner, a_object_type, l_objects_to_refresh)- +
+ +);- +
+ +end if;- -
- -
-member procedure print_clob(self in out nocopy ut_reporter_base, a_clob clob) is- -
-l_lines ut_varchar2_list;- -
-begin- - 166 -
-if a_clob is not null and dbms_lob.getlength(a_clob) > 0 then- - 54 -
-l_lines := ut_utils.clob_to_table(a_clob);- - 44825 -
-for i in 1 .. l_lines.count loop- - 44771 -
-self.print_text(l_lines(i));- -
-end loop;- + +
- + 327 +
+ +if l_modified_after is null then- + 18 +
+ +if user_can_see_whole_schema( a_object_owner ) then- + 13 +
+ +ut_annotation_cache_manager.set_fully_refreshed( a_object_owner, a_object_type );- +
+ +else- +
+ +-- if user cannot see full schema - we dont mark it as fully refreshed- +
+ +-- it will get refreshed each time until someone with proper privs will refresh it- + 5 +
+ +null;- +
+ +end if;- -
end if;- + +
- + 327 +
+ +ut_event_manager.trigger_event('validate_annotation_cache - end');- -
end;- + +
- -
- -
--- run hooks- -
-member procedure before_calling_run(self in out nocopy ut_reporter_base, a_run in ut_run) is- -
-begin- - 42 -
-null;- -
-end;- -
-- -
--- suite hooks- -
-member procedure before_calling_suite(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- + +
- +
+ +------------------------------------------------------------- +
+ +--public definitions- +
+ +------------------------------------------------------------- +
+ +procedure rebuild_annotation_cache(a_object_owner varchar2, a_object_type varchar2) is- -
begin- - 16 -
-null;- + +
- + 10 +
+ +validate_annotation_cache( a_object_owner, a_object_type );- -
end;- + +
- -
- -
-member procedure before_calling_before_all(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 20 -
-null;- -
-end;- -
-member procedure after_calling_before_all (self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 9 -
-null;- -
-end;- + +
- +
+ +procedure trigger_obj_annotation_rebuild is- +
+ +l_sql_text ora_name_list_t;- +
+ +l_parts binary_integer;- +
+ +l_restricted_users ora_name_list_t;- -
- -
-member procedure before_calling_before_each(self in out nocopy ut_reporter_base, a_suite in ut_test) is- -
-begin- + +
- +
+ +function get_source_from_sql_text(a_object_name varchar2, a_sql_text ora_name_list_t, a_parts binary_integer) return sys_refcursor is- +
+ +l_sql_clob clob;- 128 -
-null;- -
-end;- -
-member procedure after_calling_before_each (self in out nocopy ut_reporter_base, a_suite in ut_test) is- -
-begin- +
+ +l_sql_lines ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_result sys_refcursor;- +
+ +begin- 128 -
-null;- -
-end;- +
+ +if a_parts > 0 then- + 747 +
+ +for i in 1..a_parts loop- + 619 +
+ +ut_utils.append_to_clob(l_sql_clob, a_sql_text(i));- +
+ +end loop;- + 128 +
+ +l_sql_clob := ut_utils.replace_multiline_comments(l_sql_clob);- +
+ +-- replace comment lines that contain "-- create or replace"- + 128 +
+ +l_sql_clob := regexp_replace(l_sql_clob, '^.*[-]{2,}\s*create(\s+or\s+replace).*$', modifier => 'mi');- +
+ +-- remove the "create [or replace] [[non]editionable] " so that we have only "type|package" for parsing- +
+ +-- needed for dbms_preprocessor- + 128 +
+ +l_sql_clob := regexp_replace(l_sql_clob, '^(.*?\s*create(\s+or\s+replace)?(\s+(editionable|noneditionable))?\s+?)((package|type).*)', '\5', 1, 1, 'ni');- + 128 +
+ +l_sql_lines := ut_utils.convert_collection( ut_utils.clob_to_table(l_sql_clob) );- +
+ +end if;- + 128 +
+ +open l_result for- +
+ +select a_object_name as name, column_value||chr(10) as text from table(l_sql_lines);- + 128 +
+ +return l_result;- +
+ +end;- -
- -
--- test hooks- -
-member procedure before_calling_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 161 -
-null;- -
-end;- + +
- +
+ +function get_source_for_object(a_object_owner varchar2, a_object_name varchar2, a_object_type varchar2) return sys_refcursor is- +
+ +l_result sys_refcursor;- + 3 +
+ +l_sources_view varchar2(200) := ut_metadata.get_source_view_name();- +
+ +begin- + 3 +
+ +open l_result for- +
+ +q'[select :a_object_name, s.text- +
+ +from ]'||l_sources_view||q'[ s- +
+ +where s.type = :a_object_type- +
+ +and s.owner = :a_object_owner- +
+ +and s.name = :a_object_name- +
+ +order by s.line]'- +
+ +using a_object_name, a_object_type, a_object_owner, a_object_name;- + 3 +
+ +return l_result;- +
+ +end;- -
- -
-member procedure before_calling_before_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 57 -
-null;- -
-end;- -
-member procedure after_calling_before_test (self in out nocopy ut_reporter_base, a_test in ut_test) is- + +
- -
begin- - 57 -
-null;- + +
- + 254 +
+ +if ora_dict_obj_type in ('PACKAGE','PROCEDURE','FUNCTION','TYPE') then- +
+ +$if dbms_db_version.version < 12 $then- +
+ +l_restricted_users := ora_name_list_t(- +
+ +'ANONYMOUS','APPQOSSYS','AUDSYS','DBSFWUSER','DBSNMP','DIP','GGSYS','GSMADMIN_INTERNAL',- +
+ +'GSMCATUSER','GSMUSER','ORACLE_OCM','OUTLN','REMOTE_SCHEDULER_AGENT','SYS','SYS$UMF',- +
+ +'SYSBACKUP','SYSDG','SYSKM','SYSRAC','SYSTEM','WMSYS','XDB','XS$NULL');- +
+ +$else- + 254 +
+ +select username bulk collect into l_restricted_users- +
+ +from all_users where oracle_maintained = 'Y';- +
+ +$end- + 254 +
+ +if ora_dict_obj_owner member of l_restricted_users then- +
+ +return;- +
+ +end if;- +
+ +- + 254 +
+ +if ora_sysevent = 'CREATE' then- + 128 +
+ +l_parts := ORA_SQL_TXT(l_sql_text);- + 128 +
+ +build_annot_cache_for_sources(- +
+ +ora_dict_obj_owner, ora_dict_obj_type,- +
+ +get_source_from_sql_text(ora_dict_obj_name, l_sql_text, l_parts)- +
+ +);- + 126 +
+ +elsif ora_sysevent = 'ALTER' then- + 3 +
+ +build_annot_cache_for_sources(- +
+ +ora_dict_obj_owner, ora_dict_obj_type,- +
+ +get_source_for_object(ora_dict_obj_owner, ora_dict_obj_name, ora_dict_obj_type)- +
+ +);- + 123 +
+ +elsif ora_sysevent = 'DROP' then- + 123 +
+ +ut_annotation_cache_manager.remove_from_cache(- +
+ +ut_annotation_objs_cache_info(- +
+ +ut_annotation_obj_cache_info(ora_dict_obj_owner, ora_dict_obj_name, ora_dict_obj_type, 'Y', null)- +
+ +)- +
+ +);- +
+ +end if;- +
+ +end if;- -
end;- + +
- -
- -
-member procedure before_calling_test_execute(self in out nocopy ut_reporter_base, a_test in ut_test) is- + +
- +
+ +function get_annotated_objects(a_object_owner varchar2, a_object_type varchar2, a_modified_after timestamp) return sys_refcursor is- +
+ +l_cursor sys_refcursor;- -
begin- - 155 -
-null;- -
-end;- -
-member procedure after_calling_test_execute (self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 155 -
-null;- -
-end;- -
-- -
-member procedure before_calling_after_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 57 -
-null;- -
-end;- -
-member procedure after_calling_after_test (self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 57 -
-null;- -
-end;- -
-- -
-member procedure after_calling_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
-begin- - 20 -
-null;- -
-end;- -
-- -
---suite hooks continued- -
-member procedure before_calling_after_each(self in out nocopy ut_reporter_base, a_suite in ut_test) is- -
-begin- - 128 -
-null;- -
-end;- -
-member procedure after_calling_after_each (self in out nocopy ut_reporter_base, a_suite in ut_test) is- -
-begin- - 128 -
-null;- -
-end;- -
-- -
-member procedure before_calling_after_all(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 18 -
-null;- -
-end;- -
-member procedure after_calling_after_all (self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 9 -
-null;- -
-end;- + +
- + 317 +
+ +ut_event_manager.trigger_event('get_annotated_objects - start: a_modified_after='||ut_utils.to_string(a_modified_after));- + 317 +
+ +validate_annotation_cache(a_object_owner, a_object_type, a_modified_after);- -
- -
-member procedure after_calling_suite(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-begin- - 16 -
-null;- + +
- +
+ +--pipe annotations from cache- + 317 +
+ +l_cursor := ut_annotation_cache_manager.get_annotations_parsed_since(a_object_owner, a_object_type, a_modified_after);- + 317 +
+ +ut_event_manager.trigger_event('get_annotated_objects - end');- + 317 +
+ +return l_cursor;- -
end;- + +
- -
- -
--- run hooks continued- -
-member procedure after_calling_run (self in out nocopy ut_reporter_base, a_run in ut_run) is- + +
- +
+ +procedure purge_cache(a_object_owner varchar2, a_object_type varchar2) is- -
begin- - 42 -
-ut_output_buffer.close(self);- + +
- + 2 +
+ +ut_annotation_cache_manager.purge_cache(a_object_owner, a_object_type);- -
end;- + +
- -
- -
end;+UT3.UT_RESULTS_COUNTER
100 % covered
26 relevant lines. 26 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_ANNOTATION_PARSER
97.26 % lines covered
73 relevant lines. 71 lines covered and 2 lines missed+
- -
+type body ut_results_counter aspackage body ut_annotation_parser as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+constructor function ut_results_counter(self in out nocopy ut_results_counter) return self as result is+- -
-begin- - 1188 -
-self.disabled_count := 0;- - 1188 -
-self.success_count := 0;- - 1188 -
-self.failure_count := 0;- - 1188 -
-self.errored_count := 0;- - 1188 -
-self.warnings_count := 0;- - 1188 -
-return;- -
-end;- +
+ +------------------------------- +
+ +--private definitions- -
- -
-member procedure set_counter_values(self in out nocopy ut_results_counter, a_status integer) is- -
-begin- - 231 -
-self.disabled_count := case when a_status = ut_utils.tr_disabled then 1 else 0 end;- - 231 -
-self.success_count := case when a_status = ut_utils.tr_success then 1 else 0 end;- - 231 -
-self.failure_count := case when a_status = ut_utils.tr_failure then 1 else 0 end;- - 231 -
+ +self.errored_count := case when a_status = ut_utils.tr_error then 1 else 0 end;- +
+ +type tt_comment_list is table of varchar2(32767) index by binary_integer;- +
+ +- + 1 +
+ +gc_annotation_qualifier constant varchar2(1) := '%';- + 1 +
+ +gc_annot_comment_pattern constant varchar2(30) := '^( |'||chr(09)||')*-- *('||gc_annotation_qualifier||'.*?)$'; -- chr(09) is a tab character- + 1 +
+ +gc_comment_replacer_patter constant varchar2(50) := '{COMMENT#%N%}';- + 1 +
+ +gc_comment_replacer_regex_ptrn constant varchar2(25) := '{COMMENT#(\d+)}';- + 1 +
+ +gc_regexp_identifier constant varchar2(50) := '[a-zA-Z][a-zA-Z0-9#_$]*';- + 1 +
+ +gc_annotation_block_pattern constant varchar2(200) := '(({COMMENT#.+}'||chr(10)||')+)( |'||chr(09)||')*(procedure|function)\s+(' ||- +
+ +gc_regexp_identifier || ')';- + 1 +
+ +gc_annotation_pattern constant varchar2(50) := gc_annotation_qualifier || gc_regexp_identifier || '[ '||chr(9)||']*(\(.*?\)\s*?$)?';- +
+ +- +
+- -
+end;procedure add_annotation(+- -
+a_annotations in out nocopy ut_annotations,+- -
+member procedure sum_counter_values(self in out nocopy ut_results_counter, a_item ut_results_counter) isa_position positiven,+- -
-begin- - 334 -
-self.disabled_count := self.disabled_count + a_item.disabled_count;- - 334 -
-self.success_count := self.success_count + a_item.success_count;- - 334 -
-self.failure_count := self.failure_count + a_item.failure_count;- - 334 -
-self.errored_count := self.errored_count + a_item.errored_count;- - 334 -
+self.warnings_count := self.warnings_count + a_item.warnings_count;a_comment varchar2,+ +- +
+ +a_subobject_name varchar2 := null- +
+ +) is- +
+ +l_annotation_str varchar2(32767);- +
+ +l_annotation_text varchar2(32767);- +
+l_annotation_name varchar2(1000);- -
+end;begin+- +
+ +-- strip everything except the annotation itself (spaces and others)- + 6031 +
+ +l_annotation_str := regexp_substr(a_comment, gc_annotation_pattern, 1, 1, modifier => 'i');- + 6031 +
+ +if l_annotation_str is not null then- -
- -
-member procedure increase_warning_count(self in out nocopy ut_results_counter) is- -
-begin- - 6 -
+self.warnings_count := self.warnings_count + 1;- -
-end;- -
-- -
+member function total_count return integer is-- get the annotation name and it's parameters if present+ +- + 6031 +
+ +l_annotation_name := lower(regexp_substr(l_annotation_str ,'%(' || gc_regexp_identifier || ')', subexpression => 1));- + 6031 +
+l_annotation_text := trim(regexp_substr(l_annotation_str, '\((.*?)\)\s*$', subexpression => 1));- -
-begin- -
---skip warnings here- - 27 -
+return self.disabled_count + self.success_count + self.failure_count + self.errored_count;+ +- + 6031 +
+ +a_annotations.extend;- + 6031 +
+a_annotations( a_annotations.last) :=- -
+end;ut_annotation(a_position, l_annotation_name, l_annotation_text, a_subobject_name);+- -
-- -
-member function result_status return integer is- -
-l_result integer;- -
-begin- - 179 -
-if self.errored_count > 0 then- - 50 -
-l_result := ut_utils.tr_error;- - 129 -
-elsif self.failure_count > 0 then- - 8 -
-l_result := ut_utils.tr_failure;- - 121 -
-elsif self.success_count > 0 then- - 118 -
-l_result := ut_utils.tr_success;- - 3 -
-elsif self.disabled_count > 0 then- - 3 -
-l_result := ut_utils.tr_disabled;- -
-else- -
-l_result := ut_utils.tr_error;- -
end if;- - 179 -
-return l_result;- -
-end;- -
-- -
end;UT3.UT_RUN
53.85 % covered
52 relevant lines. 28 lines covered and 24 lines missed-
- -
-type body ut_run 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.- -
-*/- -
-- -
-constructor function ut_run(- -
-self in out nocopy ut_run,- -
-a_items ut_suite_items,- -
-a_run_paths ut_varchar2_list := null,- -
-a_schema_names ut_varchar2_rows := null,- -
-a_exclude_objects ut_object_names := null,- -
-a_include_objects ut_object_names := null,- -
-a_project_file_mappings ut_file_mappings := null,- -
-a_test_file_mappings ut_file_mappings := null- -
-) return self as result is- -
-l_coverage_schema_names ut_varchar2_rows;- -
-l_coverage_options ut_coverage_options;- -
-l_exclude_objects ut_object_names;- -
-begin- - 48 -
-l_coverage_schema_names := coalesce(a_schema_names, get_run_schemes());- - 48 -
-l_exclude_objects := coalesce(a_exclude_objects,ut_object_names());- -
-- - 48 -
-self.run_paths := a_run_paths;- - 48 -
-self.self_type := $$plsql_unit;- - 48 -
-self.items := a_items;- - 48 -
-self.results_count := ut_results_counter();- - 48 -
-self.test_file_mappings := coalesce(a_test_file_mappings, ut_file_mappings());- - 48 -
-self.coverage_options := ut_coverage_options(- -
-l_coverage_schema_names,- -
-l_exclude_objects multiset union all ut_suite_manager.get_schema_ut_packages(l_coverage_schema_names),- -
-a_include_objects,- -
-a_project_file_mappings- -
-);- - 48 -
-return;- -
-end;- -
-- -
-overriding member function do_execute(self in out nocopy ut_run, a_listener in out nocopy ut_event_listener_base) return boolean is- -
-l_completed_without_errors boolean;- -
-begin- - 47 -
-ut_utils.debug_log('ut_run.execute');- -
-- - 47 -
+a_listener.fire_before_event(ut_utils.gc_run, self);- +
+ +end;- -
- - 47 -
+self.start_time := current_timestamp;- -
-- -
--- clear anything that might stay in the session's cache- - 94 -
-ut_expectation_processor.clear_expectations;- -
-- - 122 -
-for i in 1 .. self.items.count loop- - 75 -
-l_completed_without_errors := self.items(i).do_execute(a_listener);- -
+end loop;procedure delete_processed_comments( a_comments in out nocopy tt_comment_list, a_annotations ut_annotations ) is+ +- + 429 +
+ +l_loop_index binary_integer := 1;- +
+ +begin- + 429 +
+ +l_loop_index := a_annotations.first;- + 4929 +
+ +while l_loop_index is not null loop- + 4500 +
+ +a_comments.delete( a_annotations(l_loop_index).position );- + 4500 +
+l_loop_index := a_annotations.next( l_loop_index );- -
-- - 47 -
+self.calc_execution_result();end loop;+ +- +
+end;- -
- - 47 -
+ +self.end_time := current_timestamp;- +
+procedure add_annotations(- -
-- - 47 -
+a_listener.fire_after_event(ut_utils.gc_run, self);a_annotations in out nocopy ut_annotations,+ +- +
+a_source varchar2,- -
-- - 47 -
+return l_completed_without_errors;a_comments tt_comment_list,+ +- +
+a_subobject_name varchar2 := null- -
-end;- -
+) is+ +- + 3705 +
+l_loop_index binary_integer := 1;- -
+overriding member procedure calc_execution_result(self in out nocopy ut_run) isl_annotation_index binary_integer;+- -
-l_result integer(1);- -
begin- - 47 -
-if self.items is not null and self.items.count > 0 then- - 122 -
-for i in 1 .. self.items.count loop- - 75 -
+ +self.results_count.sum_counter_values( self.items(i).results_count );- +
+ +-- loop while there are unprocessed comment blocks- + 8205 +
+ +while 0 != nvl(regexp_instr(srcstr => a_source- +
+ +,pattern => gc_comment_replacer_regex_ptrn- +
+,occurrence => l_loop_index- -
-end loop;- - 47 -
+l_result := self.results_count.result_status();,subexpression => 1)+ +- +
+,0) loop- -
-else- -
---if suite is empty then it's successful (no errors)- -
-l_result := ut_utils.tr_success;- -
-end if;- -
- - 47 -
+ +self.result := l_result;- +
+ +-- define index of the comment block and get it's content from cache- + 4500 +
+ +l_annotation_index := regexp_substr( a_source ,gc_comment_replacer_regex_ptrn ,1 ,l_loop_index ,subexpression => 1);- + 4500 +
+ +add_annotation( a_annotations, l_annotation_index, a_comments( l_annotation_index ), a_subobject_name );- + 4500 +
+ +l_loop_index := l_loop_index + 1;- +
+end loop;- -
-end;- + +
- +
+end add_annotations;- -
+overriding member procedure mark_as_errored(self in out nocopy ut_run, a_listener in out nocopy ut_event_listener_base, a_error_stack_trace varchar2) is+- -
-begin- -
+ut_utils.debug_log('ut_run.fail');procedure add_procedure_annotations(a_annotations in out nocopy ut_annotations, a_source clob, a_comments in out nocopy tt_comment_list) is+ +- +
+l_proc_comments varchar2(32767);- -
-- -
-a_listener.fire_before_event(ut_utils.gc_run, self);- -
+self.start_time := current_timestamp;l_proc_name varchar2(250);+ +- +
+ +l_annot_proc_ind number;- +
+l_annot_proc_block varchar2(32767);- -
-- -
-for i in 1 .. self.items.count loop- -
-self.items(i).mark_as_errored(a_listener, a_error_stack_trace);- -
+end loop;begin+ +- +
+ +-- loop through procedures and functions of the package and get all the comment blocks just before it's declaration- + 429 +
+ +l_annot_proc_ind := 1;- + 4134 +
+loop- -
-- -
-self.calc_execution_result();- -
+self.end_time := self.start_time;--find annotated procedure index+ +- + 4134 +
+ +l_annot_proc_ind := regexp_instr(srcstr => a_source- +
+,pattern => gc_annotation_block_pattern- -
-- -
+a_listener.fire_after_event(ut_utils.gc_run, self);,occurrence => 1+ +- +
+,modifier => 'i'- -
-end;- -
+,position => l_annot_proc_ind);+ +- + 4134 +
+exit when l_annot_proc_ind = 0;- -
+member function get_run_schemes return ut_varchar2_rows is+- -
-l_schema varchar2(128);- - 47 -
+c_current_schema constant varchar2(128) := sys_context('USERENV','CURRENT_SCHEMA');--get the annotations with procedure name+ +- + 3705 +
+l_annot_proc_block := regexp_substr(srcstr => a_source- -
+l_path varchar2(32767);,pattern => gc_annotation_block_pattern+- -
+l_schemes ut_varchar2_rows;,position => l_annot_proc_ind+- -
-begin- - 47 -
-if run_paths is not null then- -
-l_schemes := ut_varchar2_rows();- -
-for i in 1 .. self.run_paths.count loop- -
-l_path := self.run_paths(i);- -
-if regexp_like(l_path, '^([A-Za-z0-9$#_]+)?:') then- -
-l_schema := regexp_substr(l_path, '^([A-Za-z0-9$#_]+)?:',subexpression => 1);- -
-if l_schema is not null then- -
-l_schema := sys.dbms_assert.schema_name(upper(l_schema));- -
-else- -
+l_schema := c_current_schema;,occurrence => 1+ +- +
+ +,modifier => 'i');- +
+ +- +
+ +--extract the annotations- + 3705 +
+ +l_proc_comments := trim(regexp_substr(srcstr => l_annot_proc_block- +
+ +,pattern => gc_annotation_block_pattern- +
+ +,modifier => 'i'- +
+ +,subexpression => 1));- +
+ +--extract the procedure name- + 3705 +
+ +l_proc_name := trim(regexp_substr(srcstr => l_annot_proc_block- +
+,pattern => gc_annotation_block_pattern- -
+end if;,modifier => 'i'+- -
+else,subexpression => 5));+- -
-begin- -
-l_schema := sys.dbms_assert.schema_name(upper(regexp_substr(l_path, '^[A-Za-z0-9$#_]+')));- -
-exception- -
-when sys.dbms_assert.invalid_schema_name then- -
+l_schema := c_current_schema;+ +- +
+ +-- parse the comment block for the syntactically correct annotations and store them as an array- + 3705 +
+ +add_annotations(a_annotations, l_proc_comments, a_comments, l_proc_name);- +
+ +- + 3705 +
+l_annot_proc_ind := instr(a_source, ';', l_annot_proc_ind + length(l_annot_proc_block) );- -
+end;end loop;+- -
+end add_procedure_annotations;+- -
-end if;- -
-l_schemes.extend;- -
+l_schemes(l_schemes.last) := l_schema;+ +- +
+ +function extract_and_replace_comments(a_source in out nocopy clob) return tt_comment_list is- +
+l_comments tt_comment_list;- -
+end loop;l_comment_pos binary_integer;+- -
-else- - 47 -
-l_schemes := ut_varchar2_rows(c_current_schema);- -
-end if;- - 47 -
-return l_schemes;- -
-- -
+end;l_comment_line binary_integer;+ +- +
+ +l_comment_replacer varchar2(50);- + 429 +
+ +l_source clob := a_source;- +
+ +begin- + 429 +
+ +l_comment_pos := 1;- + 6460 +
+loop- -
- -
+ +overriding member function get_error_stack_traces return ut_varchar2_list is- + 6460 +
+l_comment_pos := regexp_instr(srcstr => a_source- -
-begin- -
+return ut_varchar2_list();,pattern => gc_annot_comment_pattern+ +- +
+,occurrence => 1- -
+end;,modifier => 'm'+- -
+,position => l_comment_pos);+- -
-overriding member function get_serveroutputs return clob is- -
-begin- -
+return null;+ +- + 6460 +
+ +exit when l_comment_pos = 0;- +
+- -
+end;-- position index is shifted by 1 because gc_annot_comment_pattern contains ^ as first sign+- +
+ +-- but after instr index already points to the char on that line- + 6031 +
+ +l_comment_pos := l_comment_pos-1;- + 6031 +
+ +l_comment_line := length(substr(a_source,1,l_comment_pos))-length(replace(substr(a_source,1,l_comment_pos),chr(10)))+1;- + 6031 +
+ +l_comments(l_comment_line) := trim(regexp_substr(srcstr => a_source- +
+ +,pattern => gc_annot_comment_pattern- +
+ +,occurrence => 1- +
+ +,position => l_comment_pos- +
+ +,modifier => 'm'- +
+ +,subexpression => 2));- -
- -
-- -
end;UT3.UT_SUITE
88.1 % covered
42 relevant lines. 37 lines covered and 5 lines missed-
- -
-type body ut_suite as- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- + 6031 +
+ +l_comment_replacer := replace(gc_comment_replacer_patter, '%N%', l_comment_line);- -
- -
-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- + +
- + 6031 +
+ +l_source := regexp_replace(srcstr => a_source- +
+ +,pattern => gc_annot_comment_pattern- +
+ +,replacestr => l_comment_replacer- +
+ +,position => l_comment_pos- +
+ +,occurrence => 1- +
+ +,modifier => 'm');- + 6031 +
+ +dbms_lob.freetemporary(a_source);- + 6031 +
+ +a_source := l_source;- + 6031 +
+ +dbms_lob.freetemporary(l_source);- + 6031 +
+ +l_comment_pos := l_comment_pos + length(l_comment_replacer);- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- +
+ +end loop;- -
- -
-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.- -
-*/- + +
- + 429 +
+ +ut_utils.debug_log(a_source);- + 429 +
+ +return l_comments;- +
+ +end extract_and_replace_comments;- -
- -
-constructor function ut_suite (- -
-self in out nocopy ut_suite , a_object_owner varchar2 := null, a_object_name varchar2, a_name varchar2, a_path varchar2, a_description varchar2 := null,- -
-a_rollback_type integer := null, a_disabled_flag boolean := false, a_before_all_proc_name varchar2 := null,- -
-a_after_all_proc_name varchar2 := null- -
-) return self as result is- -
-begin- - 320 -
-self.self_type := $$plsql_unit;- - 320 -
-self.init(a_object_owner, a_object_name, a_name, a_description, a_path, a_rollback_type, a_disabled_flag);- - 320 -
-self.before_all := ut_executable(self, a_before_all_proc_name, ut_utils.gc_before_all);- - 320 -
-self.items := ut_suite_items();- - 320 -
-self.after_all := ut_executable(self, a_after_all_proc_name, ut_utils.gc_after_all);- - 320 -
-return;- -
-end;- + +
- +
+ +------------------------------------------------------------- +
+ +--public definitions- +
+ +------------------------------------------------------------- -
- -
-overriding member function is_valid(self in out nocopy ut_suite) return boolean is- -
-l_is_valid boolean;- + +
- +
+ +function parse_object_annotations(a_source clob) return ut_annotations is- + 429 +
+ +l_source clob := a_source;- +
+ +l_comments tt_comment_list;- + 429 +
+ +l_annotations ut_annotations := ut_annotations();- +
+ +l_result ut_annotations;- +
+ +l_comment_index positive;- -
begin- - 97 -
-l_is_valid :=- - 1 -
-( not self.before_all.is_defined() or self.before_all.is_valid() ) and- - 1 -
-( not self.after_all.is_defined() or self.after_all.is_valid() );- - 97 -
-return l_is_valid;- -
-end;- + +
- -
- -
-overriding member function do_execute(self in out nocopy ut_suite, a_listener in out nocopy ut_event_listener_base) return boolean is- -
-l_suite_savepoint varchar2(30);- -
-l_item_savepoint varchar2(30);- -
-l_suite_step_without_errors boolean;- + +
- + 429 +
+ +l_source := ut_utils.replace_multiline_comments(l_source);- -
- -
-procedure propagate_error(a_error_stack_trace varchar2) is- -
-begin- - 9 -
-for i in 1..self.items.count loop- - 6 -
-self.items(i).mark_as_errored(a_listener, a_error_stack_trace);- -
-end loop;- -
-end;- -
-begin- - 98 -
-ut_utils.debug_log('ut_suite.execute');- - 98 -
-a_listener.fire_before_event(ut_utils.gc_suite,self);- + +
- +
+ +-- replace all single line comments with {COMMENT#12} element and store it's content for easier processing- +
+ +-- this call modifies l_source- + 429 +
+ +l_comments := extract_and_replace_comments(l_source);- -
- - 98 -
-self.start_time := current_timestamp;- + +
- + 429 +
+ +add_procedure_annotations(l_annotations, l_source, l_comments);- -
- - 98 -
-if self.get_disabled_flag() then- - 3 -
-for i in 1 .. self.items.count loop- - 2 -
-self.items(i).do_execute(a_listener);- -
-end loop;- - 1 -
-ut_utils.debug_log('ut_suite.execute - disabled');- -
-else- + +
- + 429 +
+ +delete_processed_comments(l_comments, l_annotations);- -
- - 97 -
-if self.is_valid() then- + +
- +
+ +--at this point, only the comments not related to procedures are left, so we process them all as top-level- + 429 +
+ +l_comment_index := l_comments.first;- + 1960 +
+ +while l_comment_index is not null loop- + 1531 +
+ +add_annotation( l_annotations, l_comment_index, l_comments( l_comment_index ) );- + 1531 +
+ +l_comment_index := l_comments.next(l_comment_index);- +
+ +end loop;- -
- - 97 -
-l_suite_savepoint := self.create_savepoint_if_needed();- + +
- + 429 +
+ +dbms_lob.freetemporary(l_source);- -
- -
---includes listener calls for before and after actions- - 97 -
-l_suite_step_without_errors := self.before_all.do_execute(self, a_listener);- + +
- + 429 +
+ +select value(x) bulk collect into l_result from table(l_annotations) x order by x.position;- -
- - 97 -
-if l_suite_step_without_errors then- - 311 -
-for i in 1 .. self.items.count loop- - 217 -
-self.items(i).do_execute(a_listener);- -
-end loop;- -
-else- - 3 -
-propagate_error(self.before_all.get_error_stack_trace());- -
-end if;- + +
- + 429 +
+ +return l_result;- +
+ +end parse_object_annotations;- -
- - 97 -
-l_suite_step_without_errors := self.after_all.do_execute(self, a_listener);- - 97 -
-if not l_suite_step_without_errors then- - 1 -
-self.put_warning(self.after_all.get_error_stack_trace());- + +
- +
+ +function parse_object_annotations(a_source_lines dbms_preprocessor.source_lines_t, a_object_type varchar2) return ut_annotations is- +
+ +l_processed_lines dbms_preprocessor.source_lines_t;- +
+ +l_source clob;- + 416 +
+ +l_annotations ut_annotations := ut_annotations();- +
+ +ex_package_is_wrapped exception;- +
+ +pragma exception_init(ex_package_is_wrapped, -24241);- +
+ +source_text_is_empty exception;- +
+ +pragma exception_init(source_text_is_empty, -24236);- +
+ +begin- + 416 +
+ +if a_source_lines.count > 0 then- +
+ +--convert to post-processed source clob- +
+ +begin- +
+ +--get post-processed source- + 416 +
+ +if a_object_type = 'TYPE' then- + 10 +
+ +l_processed_lines := a_source_lines;- +
+ +else- + 406 +
+ +l_processed_lines := sys.dbms_preprocessor.get_post_processed_source(a_source_lines);- -
end if;- -
-- - 97 -
-self.rollback_to_savepoint(l_suite_savepoint);- -
-- -
-else- -
-propagate_error(ut_utils.table_to_clob(self.get_error_stack_traces()));- -
-end if;- + +
- +
+ +--convert to clob- + 16678 +
+ +for i in 1..l_processed_lines.count loop- + 16262 +
+ +ut_utils.append_to_clob(l_source, replace(l_processed_lines(i), chr(13)||chr(10), chr(10)));- +
+ +end loop;- +
+ +--parse annotations- + 416 +
+ +l_annotations := parse_object_annotations(l_source);- + 416 +
+ +dbms_lob.freetemporary(l_source);- +
+ +exception- +
+ +when ex_package_is_wrapped or source_text_is_empty then- +
+ +null;- +
+ +end;- -
end if;- - 98 -
-self.calc_execution_result();- - 98 -
-self.end_time := current_timestamp;- - 98 -
-a_listener.fire_after_event(ut_utils.gc_suite,self);- -
-- - 98 -
-return l_suite_step_without_errors;- -
-end;- -
-- -
-overriding member function get_error_stack_traces(self ut_suite) return ut_varchar2_list is- -
-l_stack_traces ut_varchar2_list := ut_varchar2_list();- -
-begin- -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.before_all.get_error_stack_trace());- -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.after_all.get_error_stack_trace());- -
-return l_stack_traces;- -
-end;- -
-- -
-overriding member function get_serveroutputs return clob is- -
-l_outputs clob;- -
-begin- - 1 -
-ut_utils.append_to_clob(l_outputs, self.before_all.serveroutput );- - 1 -
-ut_utils.append_to_clob(l_outputs, self.after_all.serveroutput );- - 1 -
-return l_outputs;- + +
- + 416 +
+ +return l_annotations;- -
end;- + +
- -
- -
end;+UT3.UT_SUITE_ITEM
96.67 % covered
30 relevant lines. 29 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_TRIGGER_CHECK
100 % lines covered
7 relevant lines. 7 lines covered and 0 lines missed+
- -
+type body ut_suite_item aspackage body ut_trigger_check is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
- -
-member procedure init(self in out nocopy ut_suite_item, a_object_owner varchar2, a_object_name varchar2, a_name varchar2, a_description varchar2, a_path varchar2, a_rollback_type integer, a_disabled_flag boolean) is- -
-begin- - 1140 -
-self.object_owner := a_object_owner;- - 1140 -
-self.object_name := lower(trim(a_object_name));- - 1140 -
-self.name := lower(trim(a_name));- - 1140 -
-self.description := a_description;- - 1140 -
-self.path := nvl(lower(trim(a_path)), self.object_name);- - 1140 -
-self.rollback_type := a_rollback_type;- - 1140 -
-self.disabled_flag := ut_utils.boolean_to_int(a_disabled_flag);- - 1140 -
-self.results_count := ut_results_counter();- - 1140 -
-self.warnings := ut_varchar2_list();- - 1140 -
-self.transaction_invalidators := ut_varchar2_list();- -
-end;- -
-- -
-member procedure set_disabled_flag(self in out nocopy ut_suite_item, a_disabled_flag boolean) is- -
-begin- -
-self.disabled_flag := ut_utils.boolean_to_int(a_disabled_flag);- -
-end;- -
-- -
-member function get_disabled_flag return boolean is- -
-begin- - 323 -
-return ut_utils.int_to_boolean(self.disabled_flag);- -
-end;- -
-- -
-final member procedure do_execute(self in out nocopy ut_suite_item, a_listener in out nocopy ut_event_listener_base) is- -
-l_completed_without_errors boolean;- -
-begin- - 329 -
-l_completed_without_errors := self.do_execute(a_listener);- -
-end;- -
-- -
-member function create_savepoint_if_needed return varchar2 is- -
-l_savepoint varchar2(30);- -
-begin- - 280 -
-if self.rollback_type = ut_utils.gc_rollback_auto then- - 260 -
-l_savepoint := ut_utils.gen_savepoint_name();- - 260 -
-execute immediate 'savepoint ' || l_savepoint;- -
-end if;- - 280 -
-return l_savepoint;- -
-end;- -
-- -
-member procedure rollback_to_savepoint(self in out nocopy ut_suite_item, a_savepoint varchar2) is- -
-ex_savepoint_not_exists exception;- -
-pragma exception_init(ex_savepoint_not_exists, -1086);- -
-begin- - 280 -
-if self.rollback_type = ut_utils.gc_rollback_auto and a_savepoint is not null then- - 260 -
-execute immediate 'rollback to ' || a_savepoint;- -
-end if;- -
-exception- - 5 -
-when ex_savepoint_not_exists then- - 5 -
-put_warning(- -
-'Unable to perform automatic rollback after test'- + +
- 1 -
-|| case when self_type like '%SUITE' then ' suite' end || '. '- -
-||'An implicit or explicit commit/rollback occurred in procedures:'||chr(10)- -
-||lower(ut_utils.indent_lines(ut_utils.table_to_clob(self.get_transaction_invalidators()), 2, true))||chr(10)- -
-||'Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.'- -
-);- -
-end;- -
-- -
-member function execution_time return number is- -
-begin- - 216 -
-return ut_utils.time_diff(start_time, end_time);- -
-end;- -
-- -
-member procedure put_warning(self in out nocopy ut_suite_item, a_message varchar2) is- -
-begin- - 6 -
-self.warnings.extend;- - 6 -
-self.warnings(self.warnings.last) := a_message;- - 6 -
-self.results_count.increase_warning_count;- -
-end;- +
+ +gc_check_object_name constant varchar2(128) := 'UT3_TRIGGER_ALIVE';- + 1 +
+ +g_is_trigger_live boolean := false;- -
- -
-member function get_transaction_invalidators return ut_varchar2_list is- + +
- +
+ +function is_alive return boolean is- +
+ +pragma autonomous_transaction;- -
begin- - 6 -
-return transaction_invalidators;- + +
- + 418 +
+ +execute immediate 'create or replace synonym '||ut_utils.ut_owner||'.'||gc_check_object_name||' for no_object';- + 418 +
+ +return g_is_trigger_live;- -
end;- + +
- -
- -
-member procedure add_transaction_invalidator(a_object_name varchar2) is- + +
- +
+ +procedure is_alive is- -
begin- - 9 -
-if a_object_name not member of transaction_invalidators then- - 9 -
-transaction_invalidators.extend();- - 9 -
-transaction_invalidators(transaction_invalidators.last) := a_object_name;- + +
- + 404 +
+ +if ora_dict_obj_owner is not null and ora_dict_obj_name is not null and ora_dict_obj_type is not null then- + 400 +
+ +g_is_trigger_live := true;- +
+ +else- + 4 +
+ +g_is_trigger_live := false;- -
end if;- + +
- -
end;- + +
- -
- -
end;+UT3.UT_TEST
100 % covered
62 relevant lines. 62 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_COVERAGE
88.1 % lines covered
84 relevant lines. 74 lines covered and 10 lines missed+
- -
+type body ut_test aspackage body ut_coverage is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
-constructor function ut_test(- -
-self in out nocopy ut_test, a_object_owner varchar2 := null, a_object_name varchar2, a_name varchar2, a_description varchar2 := null,- -
+a_path varchar2 := null, a_rollback_type integer := null, a_disabled_flag boolean := false,g_coverage_id tt_coverage_id_arr;+ +- + 1 +
+ +g_develop_mode boolean not null := false;- + 1 +
+g_is_started boolean not null := false;- -
+a_before_each_proc_name varchar2 := null, a_before_test_proc_name varchar2 := null,+- -
+a_after_test_proc_name varchar2 := null, a_after_each_proc_name varchar2 := nullprocedure set_develop_mode(a_develop_mode in boolean) is+- -
-) return self as result is- -
-begin- - 726 -
-self.self_type := $$plsql_unit;- - 726 -
-self.init(a_object_owner, a_object_name, a_name, a_description, a_path, a_rollback_type, a_disabled_flag);- - 726 -
-self.before_each := ut_executable(self, a_before_each_proc_name, ut_utils.gc_before_each);- - 726 -
-self.before_test := ut_executable(self, a_before_test_proc_name, ut_utils.gc_before_test);- - 726 -
-self.item := ut_executable(self, a_name, ut_utils.gc_test_execute);- - 726 -
-self.after_test := ut_executable(self, a_after_test_proc_name, ut_utils.gc_after_test);- - 726 -
-self.after_each := ut_executable(self, a_after_each_proc_name, ut_utils.gc_after_each);- - 726 -
-return;- -
-end;- -
-- -
-member function is_valid(self in out nocopy ut_test) return boolean is- -
-l_is_valid boolean;- -
-begin- - 193 -
-l_is_valid :=- - 1 -
-( not self.before_each.is_defined() or self.before_each.is_valid() ) and- - 1 -
-( not self.before_test.is_defined() or self.before_test.is_valid() ) and- -
-( self.item.is_valid() ) and- - 1 -
-( not self.after_test.is_defined() or self.after_test.is_valid() ) and- - 1 -
-( not self.after_each.is_defined() or self.after_each.is_valid() );- - 193 -
-return l_is_valid;- -
-end;- +
+ +begin- + 2 +
+ +g_develop_mode := a_develop_mode;- +
+ +end;- -
- -
-overriding member function do_execute(self in out nocopy ut_test, a_listener in out nocopy ut_event_listener_base) return boolean is- -
+ +l_completed_without_errors boolean;- +
+ +function get_coverage_id(a_coverage_type in varchar2) return integer is- +
+ +begin- + 20 +
+ +return g_coverage_id(a_coverage_type);- +
+ +end;- +
+ +- +
+ +function is_develop_mode return boolean is- +
+ +begin- + 52 +
+ +return g_develop_mode;- +
+ +end;- +
+ +- +
+ +function get_cov_sources_sql(a_coverage_options ut_coverage_options, a_skip_objects ut_object_names) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +l_full_name varchar2(32767);- +
+ +l_join_mappings varchar2(32767);- +
+ +l_filters varchar2(32767);- + 10 +
+ +l_mappings_cardinality integer := 0;- +
+ +begin- + 10 +
+ +l_result := q'[- +
+ +with- +
+ +trigger_source_offsets as (- +
+ +select min(s.line) - 1 offset, s.owner, s.name, s.type- +
+from {sources_view} s- -
+l_savepoint varchar2(30);where s.type = 'TRIGGER'+- -
+begin{filters}+- -
-- - 225 -
+ut_utils.debug_log('ut_test.execute');and (lower(s.text) like '%begin%' or lower(s.text) like '%declare%' or lower(s.text) like '%compound%')+ +- +
+group by s.owner, s.name, s.type- -
-- - 225 -
-a_listener.fire_before_event(ut_utils.gc_test,self);- - 225 -
+self.start_time := current_timestamp;),+ +- +
+ +sources as (- +
+select /*+ cardinality(f {mappings_cardinality}) */- -
-- - 225 -
-if self.get_disabled_flag() then- - 32 -
-self.result := ut_utils.tr_disabled;- - 32 -
-ut_utils.debug_log('ut_test.execute - disabled');- - 32 -
-self.results_count.set_counter_values(self.result);- - 32 -
+self.end_time := self.start_time;{l_full_name} as full_name, s.owner, s.name,+ +- +
+ +s.line - case when s.type = 'TRIGGER' then o.offset else 0 end as line,- +
+ +s.text- +
+ +from {sources_view} s {join_file_mappings}- +
+ +left join trigger_source_offsets o- +
+on (s.owner = o.owner and s.name = o.name and s.type = o.type)- -
-else- - 193 -
+if self.is_valid() thenwhere s.type in ('PACKAGE BODY', 'TYPE BODY', 'PROCEDURE', 'FUNCTION', 'TRIGGER')+ +- +
+{filters}- -
-- - 183 -
+l_savepoint := self.create_savepoint_if_needed();),+ +- +
+coverage_sources as (- -
+select full_name, owner, name, line, text,+- -
---includes listener calls for before and after actions- - 183 -
+l_completed_without_errors := self.before_each.do_execute(self, a_listener);case+ +- +
+when- -
-- - 183 -
-if l_completed_without_errors then- - 181 -
+l_completed_without_errors := self.before_test.do_execute(self, a_listener);-- to avoid execution of regexp_like on every line+ +- +
+ +-- first do a rough check for existence of search pattern keyword- +
+(lower(s.text) like '%procedure%'- -
-- - 181 -
+if l_completed_without_errors thenor lower(s.text) like '%function%'+ +- +
+or lower(s.text) like '%begin%'- -
--- execute the test- - 180 -
+self.item.do_execute(self, a_listener);or lower(s.text) like '%end%'+ +- +
+or lower(s.text) like '%package%'- -
+) and+- -
+end if;regexp_like(+- -
--- perform cleanup regardless of the test or setup failure- - 181 -
+self.after_test.do_execute(self, a_listener);s.text,+ +- +
+'^([\t ]*(((not)?\s*(overriding|final|instantiable)[\t ]*)*(static|constructor|member)?[\t ]*(procedure|function)|package([\t ]+body)|begin|end([\t ]+\S+)*[ \t]*;))', 'i'- -
+end if;)+- -
-- - 183 -
-self.after_each.do_execute(self, a_listener);- - 183 -
+self.rollback_to_savepoint(l_savepoint);then 'Y'+ +- +
+ +end as to_be_skipped- +
+from sources s- -
+end if;)+- -
-- - 193 -
-self.calc_execution_result();- - 193 -
+self.end_time := current_timestamp;select full_name, owner, name, line, to_be_skipped, text+ +- +
+ +from coverage_sources s- +
+-- Exclude calls to utPLSQL framework, Unit Test packages and objects from a_exclude_list parameter of coverage reporter- -
-end if;- - 225 -
-a_listener.fire_after_event(ut_utils.gc_test,self);- - 225 -
+return l_completed_without_errors;where (s.owner, s.name) not in ( select /*+ cardinality(el {skipped_objects_cardinality})*/el.owner, el.name from table(:l_skipped_objects) el )+ +- +
+ +and line > 0- +
+]';- -
-end;- -
- -
-overriding member procedure calc_execution_result(self in out nocopy ut_test) is- -
-begin- - 199 -
-if self.get_error_stack_traces().count = 0 then- - 157 -
+ +self.result := ut_expectation_processor.get_status();- + 10 +
+ +if a_coverage_options.file_mappings is not empty then- + 5 +
+ +l_mappings_cardinality := ut_utils.scale_cardinality(cardinality(a_coverage_options.file_mappings));- + 5 +
+ +l_full_name := 'f.file_name';- + 5 +
+ +l_join_mappings := '- +
+join table(:file_mappings) f- -
-else- - 42 -
+self.result := ut_utils.tr_error;on s.name = f.object_name+ +- +
+and s.type = f.object_type- -
+end if;and s.owner = f.object_owner';+- -
---expectation results need to be part of test results- - 199 -
-self.results := ut_expectation_processor.get_expectations_results();- - 199 -
-self.results_count.set_counter_values(self.result);- -
+end;else+ +- + 5 +
+ +l_full_name := q'[lower(s.owner||'.'||s.name)]';- + 5 +
+ +l_filters := case- + 1 +
+when a_coverage_options.include_objects is not empty then '- -
+and (s.owner, s.name) in (+- -
+overriding member procedure mark_as_errored(self in out nocopy ut_test, a_listener in out nocopy ut_event_listener_base, a_error_stack_trace varchar2) isselect /*+ cardinality(il '||ut_utils.scale_cardinality(cardinality(a_coverage_options.include_objects))||') */+- -
-begin- - 6 -
-ut_utils.debug_log('ut_test.fail');- - 6 -
-a_listener.fire_before_event(ut_utils.gc_test, self);- - 6 -
-self.start_time := current_timestamp;- - 6 -
-self.parent_error_stack_trace := a_error_stack_trace;- - 6 -
-self.calc_execution_result();- - 6 -
-self.end_time := self.start_time;- - 6 -
+a_listener.fire_after_event(ut_utils.gc_test, self);il.owner, il.name+ +- +
+ +from table(:include_objects) il- +
+ +)'- +
+ +else '- +
+ +and s.owner in (- +
+ +select /*+ cardinality(t '||ut_utils.scale_cardinality(cardinality(a_coverage_options.schema_names))||') */- +
+ +upper(t.column_value)- +
+from table(:l_schema_names) t)'- -
+end;end;+- -
+end if;+- -
-overriding member function get_error_stack_traces(self ut_test) return ut_varchar2_list is- - 231 -
-l_stack_traces ut_varchar2_list := ut_varchar2_list();- -
-begin- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.parent_error_stack_trace);- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.before_each.get_error_stack_trace());- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.before_test.get_error_stack_trace());- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.item.get_error_stack_trace());- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.after_test.get_error_stack_trace());- - 231 -
-ut_utils.append_to_varchar2_list(l_stack_traces, self.after_each.get_error_stack_trace());- - 231 -
-return l_stack_traces;- -
-end;- -
-overriding member function get_serveroutputs return clob is- -
-l_outputs clob;- -
-begin- - 137 -
-ut_utils.append_to_clob(l_outputs, self.before_each.serveroutput );- - 137 -
-ut_utils.append_to_clob(l_outputs, self.before_test.serveroutput );- - 137 -
-ut_utils.append_to_clob(l_outputs, self.item.serveroutput );- - 137 -
-ut_utils.append_to_clob(l_outputs, self.after_test.serveroutput );- - 137 -
-ut_utils.append_to_clob(l_outputs, self.after_each.serveroutput );- - 137 -
-return l_outputs;- -
-end;- -
end;UT3.UT_ANNOTATIONS
100 % covered
68 relevant lines. 68 lines covered and 0 lines missed-
- -
-package body ut_annotations 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- + +
- + 10 +
+ +l_result := replace(l_result, '{sources_view}', ut_metadata.get_source_view_name());- + 10 +
+ +l_result := replace(l_result, '{l_full_name}', l_full_name);- + 10 +
+ +l_result := replace(l_result, '{join_file_mappings}', l_join_mappings);- + 10 +
+ +l_result := replace(l_result, '{filters}', l_filters);- + 10 +
+ +l_result := replace(l_result, '{mappings_cardinality}', l_mappings_cardinality);- + 10 +
+ +l_result := replace(l_result, '{skipped_objects_cardinality}', ut_utils.scale_cardinality(cardinality(a_skip_objects)));- -
- -
-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.- -
-*/- + +
- + 10 +
+ +return l_result;- -
- -
-------------------------------- -
---private definitions- + +
- +
+ +end;- -
- -
-type tt_comment_list is table of varchar2(32767) index by pls_integer;- + +
- +
+ +function get_cov_sources_cursor(a_coverage_options in ut_coverage_options) return sys_refcursor is- +
+ +l_cursor sys_refcursor;- +
+ +l_skip_objects ut_object_names;- +
+ +l_sql varchar2(32767);- +
+ +begin- + 10 +
+ +if not is_develop_mode() then- +
+ +--skip all the utplsql framework objects and all the unit test packages that could potentially be reported by coverage.- +
+ +l_skip_objects := ut_utils.get_utplsql_objects_list() multiset union all coalesce(a_coverage_options.exclude_objects, ut_object_names());- +
+ +end if;- -
- - 1 -
-gc_annotation_qualifier constant varchar2(1) := '%';- - 1 -
-c_multiline_comment_pattern constant varchar2(50) := '/\*.*?\*/';- - 1 -
-c_annot_comment_pattern constant varchar2(30) := '^( |'||chr(09)||')*-- *('||gc_annotation_qualifier||'.*?)$'; -- chr(09) is a tab character- -
---c_nonannotat_comment_pattern constant varchar2(30) := '^( |'||chr(09)||')*--+ *[^'||gc_annotation_qualifier||']*?$';- - 1 -
-c_comment_replacer_patter constant varchar2(50) := '{COMMENT#%N%}';- - 1 -
-c_comment_replacer_regex_ptrn constant varchar2(25) := '{COMMENT#(\d+)}';- - 1 -
-c_rgexp_identifier constant varchar2(50) := '[a-z][a-z0-9#_$]*';- - 1 -
-c_annotation_block_pattern constant varchar2(200) := '(({COMMENT#.+}'||chr(10)||')+)( |'||chr(09)||')*(procedure|function)\s+(' ||- -
-c_rgexp_identifier || ')';- - 1 -
-c_annotation_pattern constant varchar2(50) := gc_annotation_qualifier || c_rgexp_identifier || '[ '||chr(9)||']*(\(.*?\)\s*?$)?';- + +
- + 10 +
+ +l_sql := get_cov_sources_sql(a_coverage_options, l_skip_objects);- -
- + +
- + 10 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_debug, ut_key_anyvalues().put('l_sql',l_sql) );- -
- -
-function delete_multiline_comments(a_source in clob) return clob is- -
-begin- - 1085 -
-return regexp_replace(srcstr => a_source- -
-,pattern => c_multiline_comment_pattern- -
-,modifier => 'n');- + +
- + 10 +
+ +if a_coverage_options.file_mappings is not empty then- + 5 +
+ +open l_cursor for l_sql using a_coverage_options.file_mappings, l_skip_objects;- + 5 +
+ +elsif a_coverage_options.include_objects is not empty then- + 3 +
+ +open l_cursor for l_sql using a_coverage_options.include_objects, a_coverage_options.include_objects, l_skip_objects;- +
+ +else- + 2 +
+ +open l_cursor for l_sql using a_coverage_options.schema_names, a_coverage_options.schema_names, l_skip_objects;- +
+ +end if;- + 10 +
+ +return l_cursor;- -
end;- + +
- -
- -
-function get_annotations(a_source varchar2, a_comments tt_comment_list) return tt_annotations is- - 1561 -
-l_loop_index pls_integer := 1;- -
-l_comment_index pls_integer;- -
-l_comment varchar2(32767);- -
-l_annotation_str varchar2(32767);- -
-l_annotation_params_str varchar2(32767);- -
-l_annotation_name varchar2(1000);- -
-l_annotation_params tt_annotation_params;- -
-l_annotation t_annotation;- -
-l_annotations_list tt_annotations;- + +
- +
+ +procedure populate_tmp_table(a_coverage_options ut_coverage_options) is- +
+ +pragma autonomous_transaction;- +
+ +l_cov_sources_crsr sys_refcursor;- +
+ +l_cov_sources_data ut_coverage_helper.t_coverage_sources_tmp_rows;- -
begin- -
--- loop while there are unprocessed comment blocks- - 4012 -
-while 0 != nvl(regexp_instr(srcstr => a_source- -
-,pattern => c_comment_replacer_regex_ptrn- -
-,occurrence => l_loop_index- -
-,subexpression => 1)- -
-,0) loop- -
-- -
--- define index of the comment block and get it's content from cache- - 2451 -
-l_comment_index := to_number(regexp_substr(a_source- -
-,c_comment_replacer_regex_ptrn- -
-,1- -
-,l_loop_index- -
-,subexpression => 1));- + +
- -
- - 2451 -
-l_comment := a_comments(l_comment_index);- + +
- + 10 +
+ +if not ut_coverage_helper.is_tmp_table_populated() or is_develop_mode() then- + 10 +
+ +ut_coverage_helper.cleanup_tmp_table();- + 10 +
+ +l_cov_sources_crsr := get_cov_sources_cursor(a_coverage_options);- -
- -
--- strip everything except the annotation itself (spaces and others)- - 2451 -
-l_annotation_str := regexp_substr(l_comment, c_annotation_pattern, 1, 1, modifier => 'i');- - 2451 -
-if l_annotation_str is not null then- + +
- + 11 +
+ +loop- + 11 +
+ +fetch l_cov_sources_crsr bulk collect into l_cov_sources_data limit 10000;- -
- - 2451 -
-l_annotation_params.delete;- + +
- + 11 +
+ +ut_coverage_helper.insert_into_tmp_table(l_cov_sources_data);- -
- -
--- get the annotation name and it's parameters if present- - 2451 -
-l_annotation_name := lower(regexp_substr(l_annotation_str- -
-,'%(' || c_rgexp_identifier || ')'- -
-,modifier => 'i'- -
-,subexpression => 1));- - 2451 -
-l_annotation_params_str := trim(regexp_substr(l_annotation_str, '\((.*?)\)\s*$', subexpression => 1));- + +
- + 11 +
+ +exit when l_cov_sources_crsr%notfound;- +
+ +end loop;- -
- - 2451 -
-if l_annotation_params_str is not null then- + +
- + 10 +
+ +close l_cov_sources_crsr;- +
+ +end if;- + 10 +
+ +commit;- +
+ +end;- -
- -
--- parse the annotation parameters and store them as key-value pair array- - 2305 -
-for param_ind in 1 .. regexp_count(l_annotation_params_str, '(.+?)(,|$)') loop- - 1159 -
-declare- -
-l_param_str varchar2(32767);- -
-l_param_item typ_annotation_param;- -
-begin- - 1159 -
-l_param_str := regexp_substr(srcstr => l_annotation_params_str- -
-,pattern => '(.+?)(,|$)'- -
-,occurrence => param_ind- -
-,subexpression => 1);- + +
- -
- - 1159 -
-l_param_item.key := regexp_substr(srcstr => l_param_str- -
-,pattern => '(' || c_rgexp_identifier || ')\s*='- -
-,modifier => 'i'- -
-,subexpression => 1);- - 1159 -
-l_param_item.val := trim(regexp_substr(l_param_str, '(.+?=)?(.*$)', subexpression => 2));- -
-- - 1159 -
-l_annotation_params(l_annotation_params.count + 1) := l_param_item;- -
-end;- -
-end loop;- -
-end if;- - 2451 -
-l_annotation.text := l_annotation_params_str;- - 2451 -
-l_annotation.params := l_annotation_params;- - 2451 -
-l_annotations_list(l_annotation_name) := l_annotation;- -
-end if;- - 2451 -
-l_loop_index := l_loop_index + 1;- -
-end loop;- -
-- - 1561 -
-return l_annotations_list;- -
-- -
-end get_annotations;- -
-- -
-function get_package_annotations(a_source clob, a_comments tt_comment_list) return tt_annotations is- -
-l_package_comments varchar2(32767);- -
-begin- - 1085 -
-l_package_comments := regexp_substr(srcstr => a_source- -
-,pattern => '^\s*(CREATE\s+(OR\s+REPLACE)?(\s+(NON)?EDITIONABLE)?\s+)?PACKAGE\s[^;]*?(\s+(AS|IS)\s+)((.*?{COMMENT#\d+}\s?)+)'- -
-,modifier => 'i'- -
-,subexpression => 7);- -
-- -
--- parsing for package annotations- - 1085 -
-return- - 1 -
-case when l_package_comments is not null then- -
-get_annotations(l_package_comments, a_comments)- -
-end;- -
-end;- -
-- -
-function get_procedure_list(a_source clob, a_comments tt_comment_list) return tt_procedure_list is- -
-l_proc_comments varchar2(32767);- -
-l_proc_name t_annotation_name;- -
-l_annot_proc_ind number;- -
-l_annot_proc_block varchar2(32767);- -
-l_procedure_annotations tt_procedure_annotations;- -
-l_procedure_list tt_procedure_list;- -
-begin- -
--- loop through procedures and functions of the package and get all the comment blocks just before it's declaration- - 1085 -
-l_annot_proc_ind := 1;- - 2325 -
-loop- -
---find annotated procedure index- - 2325 -
-l_annot_proc_ind := regexp_instr(srcstr => a_source- -
-,pattern => c_annotation_block_pattern- -
-,occurrence => 1- -
-,modifier => 'i'- -
-,position => l_annot_proc_ind);- - 2325 -
-exit when l_annot_proc_ind = 0;- -
-- -
---get the annotataions with procedure name- - 1240 -
-l_annot_proc_block := regexp_substr(srcstr => a_source- -
-,pattern => c_annotation_block_pattern- -
-,position => l_annot_proc_ind- -
-,occurrence => 1- -
-,modifier => 'i');- -
-- -
---extract the annotations- - 1240 -
-l_proc_comments := trim(regexp_substr(srcstr => l_annot_proc_block- -
-,pattern => c_annotation_block_pattern- -
-,modifier => 'i'- -
-,subexpression => 1));- -
---extract the procedure name- - 1240 -
-l_proc_name := trim(regexp_substr(srcstr => l_annot_proc_block- -
-,pattern => c_annotation_block_pattern- -
-,modifier => 'i'- -
-,subexpression => 5));- -
-- -
--- parse the comment block for the syntactically correct annotations and store them as an array- - 1240 -
-l_procedure_annotations.name := l_proc_name;- - 1240 -
-l_procedure_annotations.annotations := get_annotations(l_proc_comments, a_comments);- -
-- - 1240 -
-l_procedure_list(l_procedure_list.count+1) := l_procedure_annotations;- -
-- -
---l_annot_proc_ind := l_annot_proc_ind + length(l_annot_proc_block);- - 1240 -
+l_annot_proc_ind := regexp_instr(srcstr => a_source- -
+,pattern => ';'/**+- -
+,occurrence => 1* Public functions+- -
+,position => l_annot_proc_ind + length(l_annot_proc_block));*/+- -
-end loop;- - 1085 -
+return l_procedure_list;procedure coverage_start(a_coverage_options ut_coverage_options default null) is+ +- + 10 +
+l_run_comment varchar2(200) := 'utPLSQL Code coverage run '||ut_utils.to_string(systimestamp);- +
+ +begin- + 10 +
+ +if not is_develop_mode() and not g_is_started then- +
+ +ut_coverage_helper_block.coverage_start( l_run_comment, g_coverage_id(gc_block_coverage) );- +
+ +ut_coverage_helper_profiler.coverage_start( l_run_comment, g_coverage_id(gc_proftab_coverage) );- +
+ +coverage_pause();- +
+ +g_is_started := true;- +
+ +end if;- -
end;- + +
- -
- -
-function extract_and_replace_comments(a_source in out nocopy clob) return tt_comment_list is- -
-l_comments tt_comment_list;- -
-l_comment_pos pls_integer;- -
-l_comment_replacer varchar2(50);- -
-begin- - 1085 -
-l_comment_pos := 1;- - 3539 -
+loop- -
-- - 3539 -
-l_comment_pos := regexp_instr(srcstr => a_source- -
-,pattern => c_annot_comment_pattern- -
+,occurrence => 1procedure coverage_pause is+ +- +
+ +begin- + 22 +
+ +if not is_develop_mode() then- +
+ut_coverage_helper_profiler.coverage_pause();- -
+,modifier => 'm'end if;+- -
+,position => l_comment_pos);end;+- -
- - 3539 -
+ +exit when l_comment_pos = 0;- +
+procedure coverage_resume is- -
-- -
+-- position index is shifted by 1 because c_annot_comment_pattern contains ^ as first signbegin+ +- + 32 +
+ut_coverage_helper_profiler.coverage_resume();- -
--- but after instr index already points to the char on that line- - 2454 -
-l_comment_pos := l_comment_pos-1;- - 2454 -
+l_comments(l_comments.count + 1) := trim(regexp_substr(srcstr => a_sourceend;+ +- +
+ +- +
+procedure mock_coverage_id(a_coverage_id integer,a_coverage_type in varchar2) is- -
-,pattern => c_annot_comment_pattern- -
-,occurrence => 1- -
-,position => l_comment_pos- -
+,modifier => 'm'begin+ +- + 3 +
+ +g_develop_mode := true;- + 3 +
+ +g_is_started := true;- + 3 +
+g_coverage_id(a_coverage_type) := a_coverage_id;- -
+,subexpression => 2));end;+- -
- - 2454 -
+ +l_comment_replacer := replace(c_comment_replacer_patter, '%N%', l_comments.count);- +
+procedure mock_coverage_id(a_coverage_id tt_coverage_id_arr) is- -
-- - 2454 -
-a_source := regexp_replace(srcstr => a_source- -
-,pattern => c_annot_comment_pattern- -
+,replacestr => l_comment_replacerbegin+ +- + 1 +
+ +g_develop_mode := true;- + 1 +
+ +g_is_started := true;- + 1 +
+g_coverage_id := a_coverage_id;- -
+,position => l_comment_posend;+- -
-,occurrence => 1- -
-,modifier => 'm');- - 2454 -
-l_comment_pos := l_comment_pos + length(l_comment_replacer);- -
-- -
-end loop;- -
-- - 1085 -
-ut_utils.debug_log(a_source);- -
-- - 1085 -
-return l_comments;- -
-end extract_and_replace_comments;- -
- -
-$if $$ut_trace $then- -
-procedure print_parse_results(a_annotated_pkg typ_annotated_package) is- -
-l_name t_annotation_name := a_annotated_pkg.package_annotations.first;- -
-l_proc_name t_annotation_name;- + +
- +
+ +procedure coverage_stop is- -
begin- -
-dbms_output.put_line('Annotations count: ' || a_annotated_pkg.package_annotations.count);- -
-- -
-while l_name is not null loop- -
-dbms_output.put_line(' @' || l_name);- -
+ +if a_annotated_pkg.package_annotations(l_name).count > 0 then- + 10 +
+ +if not is_develop_mode() then- +
+ +g_is_started := false;- +
+ +ut_coverage_helper_block.coverage_stop();- +
+ +ut_coverage_helper_profiler.coverage_stop();- +
+ +g_is_started := false;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +function get_coverage_data(a_coverage_options ut_coverage_options) return t_coverage is- + 10 +
+ +l_result_block ut_coverage.t_coverage;- + 10 +
+ +l_result_profiler_enrich ut_coverage.t_coverage;- +
+ +l_object ut_coverage.t_full_name;- +
+ +l_line_no binary_integer;- +
+ +begin- +
+ +--prepare global temp table with sources- + 10 +
+ +ut_event_manager.trigger_event('about to populate coverage temp table');- + 10 +
+ +populate_tmp_table(a_coverage_options);- + 10 +
+ut_event_manager.trigger_event('coverage temp table populated');- -
-dbms_output.put_line(' Parameters:');- + +
- +
+-- Get raw data for both reporters, order is important as tmp table will skip headers and dont populate- -
-for j in 1 .. a_annotated_pkg.package_annotations(l_name).count loop- -
-dbms_output.put_line(' ' || nvl(a_annotated_pkg.package_annotations(l_name)(j).key, '<Anonymous>') || ' = ' ||- -
+nvl(a_annotated_pkg.package_annotations(l_name)(j).val, 'NULL'));-- tmp table for block again.+ +- + 10 +
+ +l_result_profiler_enrich:= ut_coverage_profiler.get_coverage_data( a_coverage_options, get_coverage_id(gc_proftab_coverage) );- + 10 +
+ut_event_manager.trigger_event('profiler coverage data retrieved');- -
+end loop;+- -
+else-- If block coverage available we will use it.+- -
-dbms_output.put_line(' No parameters.');- -
-end if;- -
+$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then+ +- + 10 +
+ +l_result_block := ut_coverage_block.get_coverage_data( a_coverage_options, get_coverage_id(gc_block_coverage) );- + 10 +
+ut_event_manager.trigger_event('block coverage data retrieved');- -
-l_name := a_annotated_pkg.package_annotations.next(l_name);- -
-- -
-end loop;- + +
- +
+ +-- Enrich profiler results with some of the block results- + 10 +
+ +l_object := l_result_profiler_enrich.objects.first;- + 56 +
+while (l_object is not null) loop- -
-dbms_output.put_line('Procedures count: ' || a_annotated_pkg.procedure_annotations.count);- + +
- + 46 +
+l_line_no := l_result_profiler_enrich.objects(l_object).lines.first;- -
+for i in 1 .. a_annotated_pkg.procedure_annotations.count loop+- -
-l_proc_name := a_annotated_pkg.procedure_annotations(i).name;- -
-dbms_output.put_line(rpad('-', 80, '-'));- -
+dbms_output.put_line(' Procedure: ' || l_proc_name);-- to avoid no data found check if we got object in profiler+ +- + 46 +
+ +if l_result_block.objects.exists(l_object) then- + 59 +
+while (l_line_no is not null) loop- -
-dbms_output.put_line(' Annotations count: ' || a_annotated_pkg.procedure_annotations(i).annotations.count);- -
+l_name := a_annotated_pkg.procedure_annotations(i).annotations.first;-- To avoid no data check for object line+ +- + 16 +
+if l_result_block.objects(l_object).lines.exists(l_line_no) then- -
-while l_name is not null loop- -
-dbms_output.put_line(' @' || l_name);- -
-if a_annotated_pkg.procedure_annotations(i).annotations(l_name).count > 0 then- -
+dbms_output.put_line(' Parameters:');-- enrich line level stats+ +- + 12 +
+ +l_result_profiler_enrich.objects(l_object).lines(l_line_no).partcove := l_result_block.objects(l_object).lines(l_line_no).partcove;- + 12 +
+ +l_result_profiler_enrich.objects(l_object).lines(l_line_no).covered_blocks := l_result_block.objects(l_object).lines(l_line_no).covered_blocks;- + 12 +
+l_result_profiler_enrich.objects(l_object).lines(l_line_no).no_blocks := l_result_block.objects(l_object).lines(l_line_no).no_blocks;- -
-for j in 1 .. a_annotated_pkg.procedure_annotations(i).annotations(l_name).count loop- -
+dbms_output.put_line(' ' ||-- enrich object level stats+ +- + 12 +
+l_result_profiler_enrich.objects(l_object).partcovered_lines := nvl(l_result_profiler_enrich.objects(l_object).partcovered_lines,0) + l_result_block.objects(l_object).lines(l_line_no).partcove;- -
+nvl(a_annotated_pkg.procedure_annotations(i).annotations(l_name)(j).key, '<Anonymous>') ||end if;+- -
-' = ' || nvl(a_annotated_pkg.procedure_annotations(i).annotations(l_name)(j).val, 'NULL'));- -
+end loop;--At the end go to next line+ +- + 16 +
+l_line_no := l_result_profiler_enrich.objects(l_object).lines.next(l_line_no);- -
+elseend loop;+- -
-dbms_output.put_line(' No parameters.');- -
+end if;--total level stats enrich+ +- + 43 +
+l_result_profiler_enrich.partcovered_lines := nvl(l_result_profiler_enrich.partcovered_lines,0) + l_result_profiler_enrich.objects(l_object).partcovered_lines;- -
+-- At the end go to next object+- -
+l_name := a_annotated_pkg.procedure_annotations(i).annotations.next(l_name);end if;+- -
-end loop;- -
-end loop;- -
- -
+ +end print_parse_results;- + 46 +
+ +l_object := l_result_profiler_enrich.objects.next(l_object);- +
+ +end loop;- + 10 +
+ut_event_manager.trigger_event('coverage data combined');- -
+$end$end+- -
- -
-function parse_package_annotations(a_source clob) return typ_annotated_package is- - 1085 -
+ +l_source clob := a_source;- + 10 +
+ +return l_result_profiler_enrich;- +
+end get_coverage_data;- -
-l_comments tt_comment_list;- -
-l_annotated_pkg typ_annotated_package;- -
-begin- -
-- - 1085 -
-l_source := delete_multiline_comments(l_source);- -
-- -
--- replace all single line comments with {COMMENT#12} element and store it's content for easier processing- -
--- this call modifies a_source- - 1085 -
-l_comments := extract_and_replace_comments(l_source);- -
-- - 1085 -
-l_annotated_pkg.package_annotations := get_package_annotations(l_source, l_comments);- -
-- - 1085 -
-l_annotated_pkg.procedure_annotations := get_procedure_list(l_source, l_comments);- -
-- -
--- printing out parsed structure for debugging- -
-$if $$ut_trace $then- -
-print_parse_results(l_annotated_pkg);- -
-$end- -
-- - 1085 -
-return l_annotated_pkg;- -
-end parse_package_annotations;- -
-- -
-------------------------------- -
---public definitions- -
-- -
-function get_package_annotations(a_owner_name varchar2, a_name varchar2) return typ_annotated_package is- -
-l_source clob;- -
-ex_package_is_wrapped exception;- -
-pragma exception_init(ex_package_is_wrapped, -24241);- -
-begin- -
-- -
--- TODO: Add cache of annotations. Cache invalidation should be based on DDL timestamp.- -
--- Cache garbage collection should be executed once in a while to remove annotations cache for packages that were dropped.- -
-- -
-begin- - 1076 -
-l_source := ut_metadata.get_package_spec_source(a_owner_name, a_name);- -
-exception- - 1 -
-when ex_package_is_wrapped then- - 1 -
-null;- -
-end;- -
-- - 1076 -
-if l_source is null or sys.dbms_lob.getlength(l_source)=0 then- - 1 -
-return null;- -
-else- - 1075 -
-return parse_package_annotations(l_source);- -
-end if;- -
-end;- -
-- -
--- function get_annotation_param(a_param_list tt_annotation_params, a_def_index pls_integer) return varchar2 is- -
--- l_result varchar2(32767);- -
--- begin- -
--- if a_param_list.exists(a_def_index) then- -
--- l_result := a_param_list(a_def_index).val;- -
--- end if;- -
--- return l_result;- -
--- end get_annotation_param;- -
- -
end ut_annotations;+UT3.UT_EXPECTATION_PROCESSOR
95.35 % covered
43 relevant lines. 41 lines covered and 2 lines missed+ +
- +
+end;UT3.UT_COVERAGE_BLOCK
92.31 % lines covered
52 relevant lines. 48 lines covered and 4 lines missed+
- -
+package body ut_expectation_processor aspackage body ut_coverage_block is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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;- + +
- +
+type t_source_lines is table of binary_integer;- -
-g_session_params tt_nls_params;- -
- - 1 -
+ +g_expectations_called ut_expectation_results := ut_expectation_results();- +
+ +/**- +
+* Public functions- +
+ +*/- -
- - 1 -
+g_nulls_are_equal boolean_not_null := gc_default_nulls_are_equal;- -
+function get_coverage_data(a_coverage_options ut_coverage_options, a_coverage_id integer) return ut_coverage.t_coverage is+- -
-function nulls_are_equal return boolean is- -
-begin- - 565 -
+return g_nulls_are_equal;l_line_calls ut_coverage_helper.t_unit_line_calls;+ +- + 10 +
+ +l_result ut_coverage.t_coverage;- + 10 +
+l_new_unit ut_coverage.t_unit_coverage;- -
+end;l_line_no binary_integer;+- -
+l_source_objects_crsr ut_coverage_helper.t_tmp_table_objects_crsr;+- -
+procedure nulls_are_equal(a_setting boolean_not_null) isl_source_object ut_coverage_helper.t_tmp_table_object;+- -
begin- - 2 -
-g_nulls_are_equal := a_setting;- -
-end;- + +
- -
- -
-function get_status return integer is- - 640 -
+ +l_result integer := ut_utils.tr_success;- +
+ +$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then- + 10 +
+ +l_source_objects_crsr := ut_coverage_helper.get_tmp_table_objects_cursor();- + 56 +
+ +loop- + 56 +
+fetch l_source_objects_crsr- -
-begin- - 640 -
+ut_utils.debug_log('ut_expectation_processor.get_status');into l_source_object;+ +- + 56 +
+exit when l_source_objects_crsr%notfound;- -
- - 1536 -
-for i in 1 .. g_expectations_called.count loop- - 896 -
-l_result := greatest(l_result, g_expectations_called(i).status);- - 896 -
-exit when l_result = ut_utils.tr_error;- -
-end loop;- - 640 -
-return l_result;- -
-end get_status;- -
-- -
+ +procedure clear_expectations is- +
+ +--get coverage data- + 46 +
+ +l_line_calls := ut_coverage_helper_block.get_raw_coverage_data(l_source_object.owner, l_source_object.name, a_coverage_id);- +
+ +--if there is coverage, we need to filter out the garbage (badly indicated data)- + 46 +
+ +if l_line_calls.count > 0 then- +
+ +--remove lines that should not be indicted as meaningful- + 40 +
+ +for i in 1 .. l_source_object.to_be_skipped_list.count loop- + 36 +
+ +if l_source_object.to_be_skipped_list(i) is not null then- + 36 +
+l_line_calls.delete(l_source_object.to_be_skipped_list(i));- -
-begin- - 952 -
-ut_utils.debug_log('ut_expectation_processor.clear_expectations');- - 952 -
+g_expectations_called.delete;end if;+ +- +
+ +end loop;- +
+end if;- -
+end;+- +
+ +--if there are no file mappings or object was actually captured by profiler- + 46 +
+ +if a_coverage_options.file_mappings is null or l_line_calls.count > 0 then- -
- -
-function get_expectations_results return ut_expectation_results is- - 268 -
+l_expectations_results ut_expectation_results := ut_expectation_results();- -
-begin- - 268 -
-ut_utils.debug_log('ut_expectation_processor.get_expectations_results: .count='||g_expectations_called.count);- - 268 -
-l_expectations_results := g_expectations_called;- - 268 -
-clear_expectations();- - 268 -
-return l_expectations_results;- -
-end get_expectations_results;- -
-- -
-procedure add_expectation_result(a_expectation_result ut_expectation_result) is- -
-begin- - 943 -
-ut_utils.debug_log('ut_expectation_processor.add_expectation_result');- - 943 -
-g_expectations_called.extend;- - 943 -
-g_expectations_called(g_expectations_called.last) := a_expectation_result;- -
-end;- +
+ +--populate total stats- + 43 +
+ +l_result.total_lines := nvl(l_result.total_lines,0) + l_source_object.lines_count;- -
- -
-procedure report_failure(a_message in varchar2) is- -
-begin- + +
- +
+ +--populate object level coverage stats- + 43 +
+ +if not l_result.objects.exists(l_source_object.full_name) then- + 43 +
+ +l_result.objects(l_source_object.full_name) := l_new_unit;- + 43 +
+ +l_result.objects(l_source_object.full_name).owner := l_source_object.owner;- + 43 +
+ +l_result.objects(l_source_object.full_name).name := l_source_object.name;- + 43 +
+ +l_result.objects(l_source_object.full_name).total_lines := l_source_object.lines_count;- +
+ +end if;- +
+ +--map to results- + 43 +
+ +l_line_no := l_line_calls.first;- + 43 +
+ +if l_line_no is null then- + 39 +
+ +l_result.uncovered_lines := l_result.uncovered_lines + l_source_object.lines_count;- + 39 +
+ +l_result.objects(l_source_object.full_name).uncovered_lines := l_source_object.lines_count;- 1 -
-add_expectation_result(ut_expectation_result(ut_utils.tr_failure, null, a_message));- -
+end;else+ +- + 16 +
+ +loop- + 16 +
+exit when l_line_no is null;- +
- -
+function get_session_parameters return tt_nls_params is--turn the block coverage into a line coverage format to allow for reading.+- -
+l_session_params tt_nls_params;--whenever the linst is a part covered treat that line as a hit and execution but only part covered+- -
-begin- - 45 -
+select nsp.parameter, nsp.value+ +- +
+--total stats- -
-bulk collect into l_session_params- -
-from nls_session_parameters nsp- -
-where parameter- -
+in ( 'NLS_DATE_FORMAT', 'NLS_TIMESTAMP_FORMAT', 'NLS_TIMESTAMP_TZ_FORMAT');--Get total blocks ,blocks covered, blocks not covered this will be used for PCT calc+ +- + 12 +
+ +l_result.total_blocks := nvl(l_result.total_blocks, 0) + l_line_calls(l_line_no).blocks;- + 12 +
+ +l_result.covered_blocks := nvl(l_result.covered_blocks, 0) + l_line_calls(l_line_no).covered_blocks;- + 12 +
+l_result.uncovered_blocks := nvl(l_result.uncovered_blocks, 0) +- +
+ +(l_line_calls(l_line_no).blocks - l_line_calls(l_line_no).covered_blocks);- -
- - 45 -
+return l_session_params;- -
-end;- -
-- -
+procedure set_xml_nls_params is--If line is partially covered add as part line cover and covered for line reporter+ +- + 12 +
+ +if l_line_calls(l_line_no).partcovered = 1 then- + 4 +
+l_result.partcovered_lines := l_result.partcovered_lines + 1;- -
+insuf_privs exception;end if;+- -
-pragma exception_init(insuf_privs, -1031);- -
-begin- - 45 -
-g_session_params := get_session_parameters();- + +
- + 12 +
+ +if l_line_calls(l_line_no).covered_blocks > 0 then- + 12 +
+ +l_result.covered_lines := l_result.covered_lines + 1;- +
+end if;- -
-begin- - 45 -
-execute immediate q'[alter session set events '19119 trace name context forever, level 0x8']';- -
-exception- -
-when insuf_privs then NULL;- -
-end;- -
-- - 45 -
-execute immediate 'alter session set nls_date_format = '''||ut_utils.gc_date_format||'''';- - 45 -
-execute immediate 'alter session set nls_timestamp_format = '''||ut_utils.gc_timestamp_format||'''';- - 45 -
-execute immediate 'alter session set nls_timestamp_tz_format = '''||ut_utils.gc_timestamp_tz_format||'''';- -
-end;- + +
- +
+ +-- Use nvl as be default is null and screw the calcs- +
+ +--Increase total blocks- + 12 +
+ +l_result.objects(l_source_object.full_name).lines(l_line_no).no_blocks := l_line_calls(l_line_no).blocks;- + 12 +
+ +l_result.objects(l_source_object.full_name).lines(l_line_no).covered_blocks := l_line_calls(l_line_no).covered_blocks;- + 12 +
+ +l_result.objects(l_source_object.full_name).total_blocks := nvl(l_result.objects(l_source_object.full_name)- +
+ +.total_blocks- +
+ +,0) + l_line_calls(l_line_no).blocks;- +
+ +- +
+ +--Total uncovered blocks is a line blocks minus covered blocsk- + 12 +
+l_result.objects(l_source_object.full_name).uncovered_blocks := nvl(l_result.objects(l_source_object.full_name)- -
+procedure reset_nls_params is.uncovered_blocks+- -
+insuf_privs exception;,0) ++- -
+pragma exception_init(insuf_privs, -1031);(l_line_calls(l_line_no).blocks - l_line_calls(l_line_no)+- -
+begin.covered_blocks);+- -
-begin- - 45 -
-execute immediate q'[alter session set events '19119 trace name context off']';- -
-exception- -
-when insuf_privs then NULL;- -
-end;- -
- - 45 -
-if g_session_params is not null then- - 180 -
-for i in 1 .. g_session_params.count loop- - 135 -
+ +execute immediate 'alter session set '||g_session_params(i).parameter||' = '''||g_session_params(i).value||'''';- +
+ +--If we have any covered blocks in line- + 12 +
+ +if l_line_calls(l_line_no).covered_blocks > 0 then- +
+ +--If any block is covered then we have a hit on that line- + 12 +
+ +l_result.executions := l_result.executions + 1;- +
+ +--object level stats- +
+ +--If its part covered then mark it else treat as full cov- + 12 +
+ +if l_line_calls(l_line_no).partcovered = 1 then- + 4 +
+l_result.objects(l_source_object.full_name).partcovered_lines := l_result.objects(l_source_object.full_name)- -
+end loop;.partcovered_lines + 1;+- -
-end if;- -
+end if;+ +- + 12 +
+l_result.objects(l_source_object.full_name).covered_lines := l_result.objects(l_source_object.full_name)- -
+end;.covered_lines + 1;+- +
- -
-function who_called_expectation(a_call_stack varchar2) return varchar2 is- -
+l_caller_stack_line varchar2(4000);--How many blocks we covered+ +- + 12 +
+l_result.objects(l_source_object.full_name).covered_blocks := nvl(l_result.objects(l_source_object.full_name)- -
+l_line_no integer;.covered_blocks+- -
+l_owner varchar2(1000);,0) + l_line_calls(l_line_no)+- -
+l_object_name varchar2(1000);.covered_blocks;+- -
+l_result varchar2(4000);+- -
--- in 12.2 format_call_stack reportes not only package name, but also the procedure name- -
--- when 11g and 12c reports only package name- - 290 -
+c_expectation_search_pattern constant varchar2(500) :=--Object line executions+ +- + 12 +
+ +l_result.objects(l_source_object.full_name).executions := nvl(l_result.objects(l_source_object.full_name)- +
+.executions- -
+'(.*\.(UT_EXPECTATION[A-Z0-9#_$]*|UT|UTASSERT2?)(\.[A-Z0-9#_$]+)?\s+)+(.*)';,0) + 1;+- -
-begin- - 290 -
-l_caller_stack_line := regexp_substr( a_call_stack, c_expectation_search_pattern, 1, 1, 'm', 4);- - 290 -
-if l_caller_stack_line like '%.%' then- - 25 -
-l_line_no := to_number( regexp_substr(l_caller_stack_line,'(0x)?[0-9a-f]+\s+(\d+)',subexpression => 2) );- - 25 -
-l_owner := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.([A-Za-z0-9$#_]|\.)+',subexpression => 1);- - 25 -
-l_object_name := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.(([A-Za-z0-9$#_]|\.)+)',subexpression => 2);- - 25 -
-if l_owner is not null and l_object_name is not null and l_line_no is not null then- - 25 -
+l_result := 'at "' || l_owner || '.' || l_object_name || '", line '|| l_line_no || ' '+ +- + 12 +
+ +l_result.objects(l_source_object.full_name).lines(l_line_no).executions := 1;- +
+ +- +
+ +--Whenever there is no covered block treat as uncovered (query returns only lines where the blocks are in code so we- +
+ +--dont have a false results here when there is no blocks- +
+ +elsif l_line_calls(l_line_no).covered_blocks = 0 then- +
+ +l_result.uncovered_lines := l_result.uncovered_lines + 1;- +
+l_result.objects(l_source_object.full_name).uncovered_lines := l_result.objects(l_source_object.full_name)- -
-|| ut_metadata.get_source_definition_line(l_owner, l_object_name, l_line_no);- -
+end if;.uncovered_lines + 1;+ +- +
+l_result.objects(l_source_object.full_name).lines(l_line_no).executions := 0;- -
-end if;- - 290 +
+ +end if;- +
+ +--increase part covered counter (+ 1/0)- + 12 +
+ +l_result.objects(l_source_object.full_name).lines(l_line_no).partcove := l_line_calls(l_line_no).partcovered;- + 12 +
+ +l_line_no := l_line_calls.next(l_line_no);- +
+ +end loop;- +
+ +end if;- +
+ +end if;- +
+ +- +
+ +end loop;- +
+ +- + 10 +
+ +close l_source_objects_crsr;- +
+ +$end- +
+ +- + 10
-return l_result;- -
-end;- -
end;+UT3.UT_FILE_MAPPER
100 % covered
21 relevant lines. 21 lines covered and 0 lines missed+ +
- +
+ +end get_coverage_data;- +
+ +- +
+end;UT3.UT_COVERAGE_HELPER
90 % lines covered
10 relevant lines. 9 lines covered and 1 lines missed+
- -
+package body ut_file_mapper ispackage body ut_coverage_helper is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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_key_values is table of varchar2(4000) index by varchar2(4000);+- +
- -
+/**type t_proftab_row is record (+- -
+* Private functionsline binary_integer,+- -
+*/calls number(38,0)+- -
+);+- -
+function to_hash_table(a_key_value_tab ut_key_value_pairs) return tt_key_values is+- -
+l_result tt_key_values;type t_proftab_rows is table of t_proftab_row;+- -
-begin- - 12 -
-if a_key_value_tab is not null then- - 84 -
-for i in 1 .. a_key_value_tab.count loop- - 72 -
+l_result(upper(a_key_value_tab(i).key)) := a_key_value_tab(i).value;+ +- +
+ +type t_block_row is record(- +
+ +line binary_integer- +
+,blocks binary_integer- -
+end loop;,covered_blocks binary_integer);+- -
-end if;- - 12 -
+return l_result;+ +- +
+type t_block_rows is table of t_block_row;- -
-end;- + +
- +
+procedure insert_into_tmp_table(a_data t_coverage_sources_tmp_rows) is- -
-/**- -
+* Public functionsbegin+ +- + 11 +
+forall i in 1 .. a_data.count- -
+*/insert into ut_coverage_sources_tmp+- -
+function default_file_to_obj_type_map return ut_key_value_pairs is(full_name,owner,name,line,text, to_be_skipped)+- -
-begin- - 13 -
+return ut_key_value_pairs(values(a_data(i).full_name,a_data(i).owner,a_data(i).name,a_data(i).line,a_data(i).text,a_data(i).to_be_skipped);+ +- +
+end;- -
+ut_key_value_pair('fnc', 'FUNCTION'),+- -
+ut_key_value_pair('prc', 'PROCEDURE'),procedure cleanup_tmp_table is+- -
+ut_key_value_pair('tpb', 'TYPE BODY'),pragma autonomous_transaction;+- -
-ut_key_value_pair('pkb', 'PACKAGE BODY'),- -
+ut_key_value_pair('bdy', 'PACKAGE BODY'),begin+ +- + 126 +
+execute immediate 'truncate table ut_coverage_sources_tmp';- -
+ut_key_value_pair('trg', 'TRIGGER')end;+- -
+);+- -
+end;function is_tmp_table_populated return boolean is+- -
+l_result integer;+- -
-function build_file_mappings(- -
-a_file_paths ut_varchar2_list,- -
+a_file_to_object_type_mapping ut_key_value_pairs := default_file_to_obj_type_map(),begin+ +- + 10 +
+ +select 1 into l_result from ut_coverage_sources_tmp where rownum = 1;- +
+return (l_result = 1);- -
-a_regex_pattern varchar2 := gc_file_mapping_regex,- -
-a_object_owner_subexpression positive := gc_regex_owner_subexpression,- -
+a_object_name_subexpression positive := gc_regex_name_subexpression,exception+ +- + 20 +
+ +when no_data_found then- + 10 +
+return false;- -
+a_object_type_subexpression positive := gc_regex_type_subexpressionend;+- -
+) return ut_file_mappings is+- -
-begin- - 10 -
+return build_file_mappings(function get_tmp_table_objects_cursor return t_tmp_table_objects_crsr is+ +- +
+l_result t_tmp_table_objects_crsr;- -
-null, a_file_paths, a_file_to_object_type_mapping, a_regex_pattern,- -
+a_object_owner_subexpression, a_object_name_subexpression, a_object_type_subexpressionbegin+ +- + 20 +
+open l_result for- -
+);select o.owner, o.name, o.full_name, max(o.line) lines_count,+- -
+end;cast(+- -
+collect(decode(to_be_skipped, 'Y', to_char(line))) as ut_varchar2_list+- -
+function build_file_mappings() to_be_skipped_list+- -
+a_object_owner varchar2,from ut_coverage_sources_tmp o+- -
+a_file_paths ut_varchar2_list,group by o.owner, o.name, o.full_name;+- -
-a_file_to_object_type_mapping ut_key_value_pairs := default_file_to_obj_type_map(),- -
+a_regex_pattern varchar2 := gc_file_mapping_regex,+ +- + 20 +
+return l_result;- -
+a_object_owner_subexpression positive := gc_regex_owner_subexpression,end;+- -
+a_object_name_subexpression positive := gc_regex_name_subexpression,+- -
+a_object_type_subexpression positive := gc_regex_type_subexpressionfunction get_tmp_table_object_lines(a_owner varchar2, a_object_name varchar2) return ut_varchar2_list is+- -
+) return ut_file_mappings isl_result ut_varchar2_list;+- -
-l_key_values tt_key_values;- -
+l_mappings ut_file_mappings;begin+ +- + 1 +
+select rtrim(s.text,chr(10)) text- -
+l_mapping ut_file_mapping;bulk collect into l_result+- -
+l_object_type_key varchar2(4000);from ut_coverage_sources_tmp s+- -
+l_object_type varchar2(4000);where s.owner = a_owner+- -
+l_object_owner varchar2(4000);and s.name = a_object_name+- -
-begin- - 13 -
-if a_file_paths is not null then- - 12 -
-l_key_values := to_hash_table(a_file_to_object_type_mapping);- - 12 -
-l_mappings := ut_file_mappings();- - 231 -
-for i in 1 .. a_file_paths.count loop- - 219 -
-l_object_type_key := upper(regexp_substr(a_file_paths(i), a_regex_pattern,1,1,'i',a_object_type_subexpression));- - 219 -
-if l_key_values.exists(l_object_type_key) then- - 93 -
-l_object_type := upper(l_key_values(l_object_type_key));- -
-else- - 126 -
-l_object_type := null;- -
-end if;- - 219 -
-l_object_owner := upper(regexp_substr(a_file_paths(i), a_regex_pattern, 1, 1, 'i', a_object_owner_subexpression));- - 219 -
-if l_object_owner is null then- - 219 -
-l_object_owner := coalesce( a_object_owner, sys_context('USERENV', 'CURRENT_SCHEMA') );- -
-end if;- - 219 -
-l_mapping := ut_file_mapping(- -
-file_name => a_file_paths(i),- -
-object_owner => l_object_owner,- -
-object_name => upper(regexp_substr(a_file_paths(i), a_regex_pattern, 1, 1, 'i', a_object_name_subexpression)),- -
-object_type => l_object_type- -
-);- - 219 -
-l_mappings.extend();- - 219 -
-l_mappings(l_mappings.last) := l_mapping;- -
-end loop;- -
-end if;- - 13 -
-return l_mappings;- +
+ +order by s.line;- +
+ +- + 1 +
+ +return l_result;- -
end;- + +
- -
- -
end;+UT3.UT_METADATA
94.29 % covered
35 relevant lines. 33 lines covered and 2 lines missed+ +
- +
+end;UT3.UT_COVERAGE_HELPER_BLOCK
83.33 % lines covered
12 relevant lines. 10 lines covered (including 1 lines partially covered ) and 2 lines missed+
- -
+package body ut_metadata aspackage body ut_coverage_helper_block is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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 t_proftab_row is record (+- -
+--public definitionsline binary_integer,+- -
+calls number(38,0)+- -
+procedure do_resolve(a_owner in out nocopy varchar2, a_object in out nocopy varchar2) is);+- -
+l_procedure_name varchar2(200);+- -
-begin- - 1076 -
+do_resolve(a_owner, a_object, l_procedure_name );type t_proftab_rows is table of t_proftab_row;+ +- +
+- -
+end do_resolve;type t_block_row is record(+- -
+line binary_integer+- -
+procedure do_resolve(a_owner in out nocopy varchar2, a_object in out nocopy varchar2, a_procedure_name in out nocopy varchar2) is,blocks binary_integer+- -
-l_name varchar2(200);- - 2938 -
+l_context integer := 1; --plsql,covered_blocks binary_integer);+ +- +
+- -
+l_dblink varchar2(200);type t_block_rows is table of t_block_row;+- -
+l_part1_type number;+- -
+l_object_number number;procedure coverage_start(a_run_comment varchar2, a_coverage_id out integer) is+- -
begin- - 2938 -
-l_name := form_name(a_owner, a_object, a_procedure_name);- -
-- - 2938 -
+ +dbms_utility.name_resolve(name => l_name- +
+ +$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then- +
+ +a_coverage_id := dbms_plsql_code_coverage.start_coverage(run_comment => a_run_comment);- +
+$else- -
+,context => l_contextnull;+- -
+,schema => a_owner$end+- -
+,part1 => a_objectend;+- -
+,part2 => a_procedure_name+- -
+,dblink => l_dblinkprocedure coverage_stop is+- -
+,part1_type => l_part1_typebegin+- -
-,object_number => l_object_number);- -
-- -
-end do_resolve;- -
+$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then+ +- +
+ +dbms_plsql_code_coverage.stop_coverage();- +
+ +$else- +
+null;- -
+function form_name(a_owner_name varchar2, a_object varchar2, a_subprogram varchar2 default null) return varchar2 is$end+- -
+l_name varchar2(200);end;+- +
+ +- +
+ +function block_results(a_object_owner varchar2, a_object_name varchar2, a_coverage_id integer) return t_block_rows is- +
+ +l_coverage_rows t_block_rows;- -
begin- - 3589 -
-l_name := trim(a_object);- - 3589 -
-if trim(a_owner_name) is not null then- - 3496 -
+l_name := trim(a_owner_name) || '.' || l_name;- -
-end if;- - 3589 -
-if trim(a_subprogram) is not null then- - 1886 -
+l_name := l_name || '.' || trim(a_subprogram);+ +- + 46 +
+ +select ccb.line as line,- +
+count(ccb.block) as blocks,- -
-end if;- - 3589 -
+return l_name;sum(ccb.covered) as covered_blocks+ +- +
+bulk collect into l_coverage_rows- -
+end form_name;from dbmspcc_units ccu+- -
+left outer join dbmspcc_blocks ccb+- -
+function package_valid(a_owner_name varchar2, a_package_name in varchar2) return boolean ason ccu.run_id = ccb.run_id+- -
+l_cnt number;and ccu.object_id = ccb.object_id+- -
+l_schema varchar2(200);where ccu.run_id = a_coverage_id+- -
+l_package_name varchar2(200);and ccu.owner = a_object_owner+- -
+l_procedure_name varchar2(200);and ccu.name = a_object_name+- -
+begingroup by ccb.line+- +
+ +order by 1;- -
- - 626 -
-l_schema := a_owner_name;- - 626 -
+ +l_package_name := a_package_name;- + 46 +
+return l_coverage_rows;- +
+ +end;- -
- - 626 -
+do_resolve(l_schema, l_package_name, l_procedure_name);- -
-- - 624 -
+select count(decode(status, 'VALID', 1, null)) / count(*)function get_raw_coverage_data(a_object_owner varchar2, a_object_name varchar2, a_coverage_id integer) return ut_coverage_helper.t_unit_line_calls is+ +- +
+l_tmp_data t_block_rows;- -
+into l_cntl_results ut_coverage_helper.t_unit_line_calls;+- -
+from all_objects+- -
+where owner = l_schemabegin+- -
-and object_name = l_package_name- -
+and object_type in ('PACKAGE');$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then+ +- + 46 +
+l_tmp_data := block_results(a_object_owner, a_object_name, a_coverage_id);- -
- -
--- expect both package and body to be valid- - 624 -
-return l_cnt = 1;- -
-exception- - 2 -
-when others then- - 2 -
-return false;- -
+ +end;- + 58 +
+ +for i in 1 .. l_tmp_data.count loop- + 12 +
+ +l_results(l_tmp_data(i).line).blocks := l_tmp_data(i).blocks;- + 12 +
+ +l_results(l_tmp_data(i).line).covered_blocks := l_tmp_data(i).covered_blocks;- + 12 +
+ +l_results(l_tmp_data(i).line).partcovered := case- + 1/2 + 1 +
+ +when (l_tmp_data(i).covered_blocks > 0) and- + 1 +
+(l_tmp_data(i).blocks > l_tmp_data(i).covered_blocks) then- -
+1+- -
+function procedure_exists(a_owner_name varchar2, a_package_name in varchar2, a_procedure_name in varchar2)else+- -
+return boolean as0+- -
+l_cnt number;end;+- -
+l_schema varchar2(200);end loop;+- -
-l_package_name varchar2(200);- -
+l_procedure_name varchar2(200);$end+ +- + 46 +
+return l_results;- -
-begin- -
-- - 622 -
-l_schema := a_owner_name;- - 622 -
-l_package_name := a_package_name;- - 622 -
-l_procedure_name := a_procedure_name;- -
-- - 622 -
-do_resolve(l_schema, l_package_name, l_procedure_name);- -
-- - 619 -
-select count(*)- -
-into l_cnt- -
-from all_procedures- -
-where owner = l_schema- -
-and object_name = l_package_name- -
-and procedure_name = l_procedure_name;- -
-- -
---expect one method only for the package with that name.- - 619 -
-return l_cnt = 1;- -
-exception- - 3 -
-when others then- - 3 -
-return false;- -
-end;- -
-- -
-function get_package_spec_source(a_owner varchar2, a_object_name varchar2) return clob is- -
-l_lines sys.dbms_preprocessor.source_lines_t;- -
-l_source clob;- -
-begin- -
-begin- - 1076 -
-l_lines := sys.dbms_preprocessor.get_post_processed_source(object_type => 'PACKAGE',- -
-schema_name => a_owner,- -
-object_name => a_object_name);- -
-- - 57682 -
-for i in 1..l_lines.count loop- - 56607 -
-ut_utils.append_to_clob(l_source, l_lines(i));- -
-end loop;- -
-- -
-end;- - 1075 -
-return l_source;- -
-end;- -
-- -
-function get_source_definition_line(a_owner varchar2, a_object_name varchar2, a_line_no integer) return varchar2 is- -
-l_line varchar2(4000);- -
-l_cursor sys_refcursor;- -
-begin- - 25 -
-open l_cursor for- -
-select text from all_source s- -
-where s.owner = a_owner and s.name = a_object_name and s.line = a_line_no- -
--- skip the declarations, consider only definitions- -
-and s.type not in ('PACKAGE','TYPE');- - 25 -
-fetch l_cursor into l_line;- - 25 -
-close l_cursor;- - 25 -
-return ltrim(rtrim( l_line, chr(10) ));- -
-exception- -
-when no_data_found then- -
-return null;- -
end;- -
-- -
end;+UT3.UT_OUTPUT_BUFFER
90 % covered
40 relevant lines. 36 lines covered and 4 lines missed+ +
- +
+end;UT3.UT_COVERAGE_HELPER_PROFILER
70 % lines covered
10 relevant lines. 7 lines covered and 3 lines missed+
- -
+package body ut_output_buffer ispackage body ut_coverage_helper_profiler is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+procedure send_line(a_reporter ut_reporter_base, a_text varchar2) istype t_proftab_row is record (+- -
+l_text_list ut_varchar2_rows;line binary_integer,+- -
+pragma autonomous_transaction;calls number(38,0)+- -
-begin- - 45619 -
-if a_reporter is not null and a_reporter.reporter_id is not null and a_reporter.start_date is not null and a_text is not null then- - 45601 -
-if length(a_text) > ut_utils.gc_max_storage_varchar2_len then- -
-l_text_list := ut_utils.convert_collection(ut_utils.clob_to_table(a_text, ut_utils.gc_max_storage_varchar2_len));- -
+insert /*+ append */);+ +- +
+ +- +
+ +type t_proftab_rows is table of t_proftab_row;- +
+ +- +
+type t_block_row is record(- -
+into ut_output_buffer_tmp(start_date, reporter_id, message_id, text)line binary_integer+- -
+select a_reporter.start_date, a_reporter.reporter_id, ut_message_id_seq.nextval, t.column_value,blocks binary_integer+- -
+from table(l_text_list) t;,covered_blocks binary_integer);+- -
-else- - 45601 -
+insert /*+ append */ into ut_output_buffer_tmp(start_date, reporter_id, message_id, text)+ +- +
+type t_block_rows is table of t_block_row;- -
+values (a_reporter.start_date, a_reporter.reporter_id, ut_message_id_seq.nextval, a_text);+- -
-end if;- - 45601 -
+commit;+ +- +
+procedure coverage_start(a_run_comment varchar2,a_coverage_id out integer) is- -
-end if;- -
+end;begin+ +- +
+dbms_profiler.start_profiler(run_comment => a_run_comment, run_number => a_coverage_id);- -
-- -
+procedure close(a_reporter ut_reporter_base) isend;+ +- +
+- -
+pragma autonomous_transaction;procedure coverage_pause is+- +
+ +l_return_code binary_integer;- -
begin- - 42 -
-insert /*+ append */ into ut_output_buffer_tmp(start_date, reporter_id, message_id, is_finished)- -
-values (a_reporter.start_date, a_reporter.reporter_id, ut_message_id_seq.nextval, 1);- - 42 -
-commit;- + +
- +
+ +l_return_code := dbms_profiler.pause_profiler();- -
end;- + +
- + +
- +
+procedure coverage_resume is- -
+procedure close(a_reporters ut_reporters) isl_return_code binary_integer;+- -
-pragma autonomous_transaction;- -
begin- - 48 -
-if a_reporters is not null then- - 48 -
+ +forall i in 1 .. a_reporters.count- + 22 +
+ +l_return_code := dbms_profiler.resume_profiler();- +
+ +end;- +
+- -
+insert /*+ append */ into ut_output_buffer_tmp(start_date, reporter_id, message_id, is_finished)procedure coverage_stop is+- -
-values (a_reporters(i).start_date, a_reporters(i).reporter_id, ut_message_id_seq.nextval, 1);- -
-end if;- - 48 -
-commit;- +
+ +begin- +
+ +dbms_profiler.stop_profiler();- -
end;- + +
- + +
- +
+function proftab_results(a_object_owner varchar2, a_object_name varchar2, a_coverage_id integer) return t_proftab_rows is- -
+function get_lines(a_reporter_id varchar2, a_timeout_sec naturaln := gc_max_wait_sec) return ut_varchar2_rows pipelined isl_coverage_rows t_proftab_rows;+- -
-l_buffer_data ut_varchar2_rows;- - 48 -
-l_wait_wait_time number(10,1) := 0;- - 48 -
+l_finished boolean := false;begin+ +- + 46 +
+ +select- +
+d.line#,- -
+function get_data_from_buffer return ut_varchar2_rows iscase when sum(d.total_occur) = 0 and sum(d.total_time) > 0 then 1 else sum(d.total_occur) end total_occur+- -
+l_results ut_varchar2_rows;bulk collect into l_coverage_rows+- -
+pragma autonomous_transaction;from plsql_profiler_units u+- -
-begin- - 48 -
+delete from (join plsql_profiler_data d+ +- +
+on u.runid = d.runid- -
+select *and u.unit_number = d.unit_number+- -
+from ut_output_buffer_tmp where reporter_id = a_reporter_id order by message_idwhere u.runid = a_coverage_id+- -
+)and u.unit_owner = a_object_owner+- -
-returning text bulk collect into l_results;- - 48 -
-commit;- - 48 -
+return l_results;and u.unit_name = a_object_name+ +- +
+ +and u.unit_type in ('PACKAGE BODY', 'TYPE BODY', 'PROCEDURE', 'FUNCTION', 'TRIGGER')- +
+group by d.line#;- -
-end;- -
-begin- - 48 -
-loop- - 48 -
-l_buffer_data := get_data_from_buffer();- -
---nothing fetched from output, wait and try again- - 48 -
-if l_buffer_data.count = 0 then- -
-dbms_lock.sleep(gc_sleep_time);- -
-l_wait_wait_time := l_wait_wait_time + gc_sleep_time;- -
-else- - 50 -
-for i in 1 .. l_buffer_data.count loop- - 19741 -
-if l_buffer_data(i) is not null then- - 19694 -
-pipe row(l_buffer_data(i));- -
-else- - 47 -
-l_finished := true;- - 47 -
-exit;- -
-end if;- -
-end loop;- -
-end if;- - 48 -
-exit when l_wait_wait_time >= a_timeout_sec or l_finished;- -
-end loop;- - 48 -
-return;- -
-end;- -
- -
-function get_lines_cursor(a_reporter_id varchar2, a_timeout_sec naturaln := gc_max_wait_sec) return sys_refcursor is- -
-l_lines sys_refcursor;- -
-begin- - 46 -
-open l_lines for- -
-select column_value as text- -
-from table(ut_output_buffer.get_lines(a_reporter_id, a_timeout_sec));- + +
- 46 -
-return l_lines;- +
+ +return l_coverage_rows;- -
end;- + +
- -
- -
-procedure lines_to_dbms_output(a_reporter_id varchar2, a_timeout_sec naturaln := gc_max_wait_sec) is- -
-l_lines sys_refcursor;- -
-l_line varchar2(32767);- + +
- +
+ +function get_raw_coverage_data(a_object_owner varchar2, a_object_name varchar2, a_coverage_id integer) return ut_coverage_helper.t_unit_line_calls is- +
+ +l_tmp_data t_proftab_rows;- +
+ +l_results ut_coverage_helper.t_unit_line_calls;- -
begin- - 18 -
-l_lines := ut_output_buffer.get_lines_cursor(a_reporter_id, a_timeout_sec);- - 460 -
-loop- - 460 -
-fetch l_lines into l_line;- - 460 -
-exit when l_lines%notfound;- - 442 -
-dbms_output.put_line(l_line);- -
-end loop;- - 18 -
-close l_lines;- -
-end;- + +
- + 46 +
+ +l_tmp_data := proftab_results(a_object_owner, a_object_name, a_coverage_id);- -
- -
-procedure cleanup_buffer(a_retention_time_sec naturaln := gc_buffer_retention_sec) is- - 48 -
-l_retention_days number := a_retention_time_sec / (60 * 60 * 24);- - 48 -
-l_max_retention_date date := sysdate - l_retention_days;- -
-pragma autonomous_transaction; -- the cleanup should initiate transaction- -
-begin- - 48 -
-delete from ut_output_buffer_tmp t- -
-where t.start_date <= l_max_retention_date;- - 48 -
-commit;- + +
- + 71 +
+ +for i in 1 .. l_tmp_data.count loop- + 25 +
+ +l_results(l_tmp_data(i).line).calls := l_tmp_data(i).calls;- +
+ +end loop;- + 46 +
+ +return l_results;- -
end;- + +
- -
- -
end;+UT3.UT_SUITE_MANAGER
94.85 % covered
194 relevant lines. 184 lines covered and 10 lines missed+ +
- +
+end;+UT3.UT_COVERAGE_PROFILER
100 % lines covered
37 relevant lines. 37 lines covered and 0 lines missed+
- -
+package body ut_suite_manager ispackage body ut_coverage_profiler is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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 t_schema_info is record (changed_at date, obj_cnt integer);/**+- -
+* Public functions+- -
+type tt_schema_suites is table of ut_logical_suite index by varchar2(4000 char);*/+- -
+type t_schema_cache is record(function get_coverage_data(a_coverage_options ut_coverage_options, a_coverage_id integer) return ut_coverage.t_coverage is+- -
-schema_suites tt_schema_suites- -
-,changed_at date- -
+,obj_cnt integer);l_line_calls ut_coverage_helper.t_unit_line_calls;+ +- + 10 +
+ +l_result ut_coverage.t_coverage;- + 10 +
+l_new_unit ut_coverage.t_unit_coverage;- -
+type tt_schema_suites_list is table of t_schema_cache index by varchar2(128 char);l_line_no binary_integer;+- -
+l_source_objects_crsr ut_coverage_helper.t_tmp_table_objects_crsr;+- -
+g_schema_suites tt_schema_suites_list;l_source_object ut_coverage_helper.t_tmp_table_object;+- -
-- -
-function trim_path(a_path varchar2, a_part varchar2) return varchar2 is- -
begin- - 182 -
-return substr(a_path, nvl(length(a_part), 0) + 1);- -
-end;- + +
- -
- -
-function get_schema_info(a_owner_name varchar2) return t_schema_info is- -
-l_info t_schema_info;- -
-begin- - 171 -
-select nvl(max(t.last_ddl_time), date '4999-12-31'), count(*)- -
-into l_info- -
-from all_objects t- -
-where t.owner = a_owner_name- -
-and t.object_type in ('PACKAGE');- - 171 -
-return l_info;- -
-end;- + +
- + 10 +
+ +l_source_objects_crsr := ut_coverage_helper.get_tmp_table_objects_cursor();- + 56 +
+ +loop- + 56 +
+ +fetch l_source_objects_crsr into l_source_object;- + 56 +
+ +exit when l_source_objects_crsr%notfound;- + +
- +
+ +--get coverage data- + 46 +
+ +l_line_calls := ut_coverage_helper_profiler.get_raw_coverage_data( l_source_object.owner, l_source_object.name, a_coverage_id);- +
+ +- +
+ +--if there is coverage, we need to filter out the garbage (badly indicated data from dbms_profiler)- + 46 +
+ +if l_line_calls.count > 0 then- +
+ +--remove lines that should not be indicted as meaningful- + 70 +
+ +for i in 1 .. l_source_object.to_be_skipped_list.count loop- + 63 +
+ +if l_source_object.to_be_skipped_list(i) is not null then- + 63 +
+ +l_line_calls.delete(l_source_object.to_be_skipped_list(i));- +
+end if;- -
+function config_package(a_owner_name varchar2, a_object_name varchar2) return ut_logical_suite isend loop;+- -
+l_annotation_data ut_annotations.typ_annotated_package;end if;+- -
+l_suite_name ut_annotations.t_annotation_name;+- -
-l_test ut_test;- -
+l_proc_annotations ut_annotations.tt_annotations;--if there are no file mappings or object was actually captured by profiler+ +- + 46 +
+if a_coverage_options.file_mappings is null or l_line_calls.count > 0 then- +
- -
-l_default_setup_proc varchar2(250 char);- -
+l_default_teardown_proc varchar2(250 char);--populate total stats+ +- + 46 +
+l_result.total_lines := nvl(l_result.total_lines,0) + l_source_object.lines_count;- -
-l_suite_setup_proc varchar2(250 char);- -
-l_suite_teardown_proc varchar2(250 char);- -
-l_suite_path varchar2(4000 char);- -
-- -
-l_proc_name ut_annotations.t_procedure_name;- -
+--populate object level coverage stats+ +- + 46 +
+ +if not l_result.objects.exists(l_source_object.full_name) then- + 46 +
+ +l_result.objects(l_source_object.full_name) := l_new_unit;- + 46 +
+ +l_result.objects(l_source_object.full_name).owner := l_source_object.owner;- + 46 +
+ +l_result.objects(l_source_object.full_name).name := l_source_object.name;- + 46 +
+l_result.objects(l_source_object.full_name).total_lines := l_source_object.lines_count;- -
+l_owner_name varchar2(250 char);end if;+- -
-l_object_name varchar2(250 char);- -
-l_suite ut_logical_suite;- +
+ +--map to results- + 46 +
+ +l_line_no := l_line_calls.first;- + 46 +
+ +if l_line_no is null then- + 39 +
+ +l_result.uncovered_lines := l_result.uncovered_lines + l_source_object.lines_count;- + 39 +
+ +l_result.objects(l_source_object.full_name).uncovered_lines := l_source_object.lines_count;- + 1 +
+ +else- + 32 +
+ +loop- + 32 +
+ +exit when l_line_no is null;- -
- -
-l_suite_rollback integer;- -
-l_suite_rollback_annotation varchar2(4000);- -
-e_insufficient_priv exception;- -
-pragma exception_init(e_insufficient_priv,-01031);- -
-begin- - 1076 -
-l_owner_name := a_owner_name;- - 1076 -
+ +l_object_name := a_object_name;- + 25 +
+if l_line_calls(l_line_no).calls > 0 then- -
-begin- - 1076 -
-ut_metadata.do_resolve(a_owner => l_owner_name, a_object => l_object_name);- -
-exception- -
-when e_insufficient_priv then- -
-return null;- -
-end;- - 1075 -
-l_annotation_data := ut_annotations.get_package_annotations(a_owner_name => l_owner_name, a_name => l_object_name);- -
-- - 1075 -
+if l_annotation_data.package_annotations.exists('suite') then--total stats+ +- + 18 +
+ +l_result.covered_lines := l_result.covered_lines + 1;- + 18 +
+ +l_result.executions := l_result.executions + l_line_calls(l_line_no).calls;- +
+ +--object level stats- + 18 +
+ +l_result.objects(l_source_object.full_name).covered_lines := l_result.objects(l_source_object.full_name).covered_lines + 1;- + 18 +
+ +l_result.objects(l_source_object.full_name).executions := l_result.objects(l_source_object.full_name).executions + l_line_calls(l_line_no).calls;- + 7 +
+ +elsif l_line_calls(l_line_no).calls = 0 then- + 7 +
+ +l_result.uncovered_lines := l_result.uncovered_lines + 1;- + 7 +
+l_result.objects(l_source_object.full_name).uncovered_lines := l_result.objects(l_source_object.full_name).uncovered_lines + 1;- +
+ +end if;- + 25 +
+ +l_result.objects(l_source_object.full_name).lines(l_line_no).executions := l_line_calls(l_line_no).calls;- -
- - 311 -
-if l_annotation_data.package_annotations.exists('displayname') then- - 50 -
-l_suite_name := l_annotation_data.package_annotations('displayname').text;- -
-else- - 261 -
+ +l_suite_name := l_annotation_data.package_annotations('suite').text;- + 25 +
+ +l_line_no := l_line_calls.next(l_line_no);- +
+end loop;- -
+end if;end if;+- +
+ +end if;- -
- - 311 -
-if l_annotation_data.package_annotations.exists('suitepath') and l_annotation_data.package_annotations('suitepath').text is not null then- - 149 -
+ +l_suite_path := l_annotation_data.package_annotations('suitepath').text || '.' || lower(l_object_name);- +
+end loop;- -
-end if;- -
- - 311 -
-if l_annotation_data.package_annotations.exists('rollback') then- - 52 -
-l_suite_rollback_annotation := l_annotation_data.package_annotations('rollback').text;- - 52 -
-if lower(l_suite_rollback_annotation) = 'manual' then- -
-l_suite_rollback := ut_utils.gc_rollback_manual;- -
-else- - 311 -
-l_suite_rollback := ut_utils.gc_rollback_auto;- -
-end if;- -
-else- -
-l_suite_rollback := ut_utils.gc_rollback_auto;- -
-end if;- + +
- + 10 +
+ +close l_source_objects_crsr;- -
- - 1549 -
-for i in 1 .. l_annotation_data.procedure_annotations.count loop- - 1238 -
-exit when l_default_setup_proc is not null and l_default_teardown_proc is not null and l_suite_setup_proc is not null and l_suite_teardown_proc is not null;- - 1238 -
-l_proc_name := l_annotation_data.procedure_annotations(i).name;- - 1238 -
-l_proc_annotations := l_annotation_data.procedure_annotations(i).annotations;- + +
- + 10 +
+ +return l_result;- +
+ +end get_coverage_data;- -
- - 1238 -
-if l_proc_annotations.exists('beforeeach') and l_default_setup_proc is null then- - 207 -
-l_default_setup_proc := l_proc_name;- - 1031 -
-elsif l_proc_annotations.exists('aftereach') and l_default_teardown_proc is null then- - 206 -
-l_default_teardown_proc := l_proc_name;- - 825 -
-elsif l_proc_annotations.exists('beforeall') and l_suite_setup_proc is null then- - 68 -
-l_suite_setup_proc := l_proc_name;- - 757 -
-elsif l_proc_annotations.exists('afterall') and l_suite_teardown_proc is null then- - 60 -
-l_suite_teardown_proc := l_proc_name;- -
-end if;- + +
- +
+end;+UT3.UT_COVERAGE_REPORTER_BASE
100 % lines covered
16 relevant lines. 16 lines covered and 0 lines missed+ +
- +
+ +type body ut_coverage_reporter_base is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 utPLSQL Project- -
- -
-end loop;- - 311 -
-l_suite := ut_suite (- -
-a_object_owner => l_owner_name,- -
-a_object_name => l_object_name,- -
-a_name => l_object_name, --this could be different for sub-suite (context)- -
-a_path => l_suite_path, --a patch for this suite (excluding the package name of current suite)- -
-a_description => l_suite_name,- -
-a_rollback_type => l_suite_rollback,- -
-a_disabled_flag => l_annotation_data.package_annotations.exists('disabled'),- -
-a_before_all_proc_name => l_suite_setup_proc,- -
-a_after_all_proc_name => l_suite_teardown_proc- -
-);- + +
- +
+ +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- -
- - 1549 -
-for i in 1 .. l_annotation_data.procedure_annotations.count loop- - 1238 -
-l_proc_name := l_annotation_data.procedure_annotations(i).name;- - 1238 -
-l_proc_annotations := l_annotation_data.procedure_annotations(i).annotations;- - 1238 -
-if l_proc_annotations.exists('test') then- - 697 -
-declare- -
-l_beforetest_procedure varchar2(30 char);- -
-l_aftertest_procedure varchar2(30 char);- -
-l_rollback_annotation varchar2(4000);- - 697 -
-l_rollback_type integer := l_suite_rollback;- -
-l_displayname varchar2(4000);- -
-begin- - 697 -
-if l_proc_annotations.exists('beforetest') then- - 204 -
-l_beforetest_procedure := l_proc_annotations('beforetest').text;- -
-end if;- -
-- - 697 -
-if l_proc_annotations.exists('aftertest') then- - 205 -
-l_aftertest_procedure := l_proc_annotations('aftertest').text;- -
-end if;- -
-- - 697 -
-if l_proc_annotations.exists('displayname') then- - 52 -
-l_displayname := l_proc_annotations('displayname').text;- -
-else- - 645 -
-l_displayname := l_proc_annotations('test').text;- -
-end if;- + +
- +
+ +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.- +
+ +*/- -
- - 697 -
-if l_proc_annotations.exists('rollback') then- - 54 -
-l_rollback_annotation := l_proc_annotations('rollback').text;- - 54 -
-if lower(l_rollback_annotation) = 'manual' then- - 2 -
-l_rollback_type := ut_utils.gc_rollback_manual;- - 52 -
-elsif lower(l_rollback_annotation) = 'auto' then- - 52 -
-l_rollback_type := ut_utils.gc_rollback_auto;- -
-else- -
-l_rollback_type := l_suite_rollback;- -
-end if;- -
-end if;- + +
- +
+ +overriding final member procedure before_calling_run(self in out nocopy ut_coverage_reporter_base, a_run ut_run) as- +
+ +begin- + 10 +
+ +(self as ut_output_reporter_base).before_calling_run(a_run);- + 10 +
+ +ut_coverage.coverage_start(a_coverage_options => a_run.coverage_options);- +
+ +end;- -
- - 697 -
-l_test := ut_test(a_object_owner => l_owner_name- -
-,a_object_name => l_object_name- -
-,a_name => l_proc_name- -
-,a_description => l_displayname- -
-,a_path => l_suite.path || '.' || l_proc_name- -
-,a_rollback_type => l_rollback_type- + +
- +
+ +overriding final member procedure before_calling_before_all(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- 1 -
-,a_disabled_flag => l_annotation_data.package_annotations.exists('disabled') or l_proc_annotations.exists('disabled')- -
-,a_before_test_proc_name => l_beforetest_procedure- -
-,a_after_test_proc_name => l_aftertest_procedure- -
-,a_before_each_proc_name => l_default_setup_proc- -
-,a_after_each_proc_name => l_default_teardown_proc);- +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_before_all (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- - 697 -
-l_suite.add_item(l_test);- -
-end;- -
-end if;- + +
- +
+ +overriding final member procedure before_calling_before_each(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 3 +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_before_each (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 3 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- -
-end loop;- -
-end if;- - 1075 -
-return l_suite;- + +
- +
+ +overriding final member procedure before_calling_before_test(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_before_test (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- -
-end config_package;- + +
- +
+ +overriding final member procedure before_calling_test_execute(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 12 +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_test_execute (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 12 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- -
-procedure update_cache(a_owner_name varchar2, a_schema_suites tt_schema_suites, a_total_obj_cnt integer) is- + +
- +
+ +overriding final member procedure before_calling_after_test(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- -
begin- - 46 -
-if a_schema_suites.count > 0 then- - 45 -
-g_schema_suites(a_owner_name).schema_suites := a_schema_suites;- - 45 -
-g_schema_suites(a_owner_name).changed_at := sysdate;- - 45 -
-g_schema_suites(a_owner_name).obj_cnt := a_total_obj_cnt;- + +
- 1 -
-elsif g_schema_suites.exists(a_owner_name) then- -
-g_schema_suites.delete(a_owner_name);- -
-end if;- +
+ +ut_coverage.coverage_resume();- -
end;- + +
- +
+ +overriding final member procedure after_calling_after_test (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- -
-procedure config_schema(a_owner_name varchar2) is- -
-l_suite ut_logical_suite;- + +
- +
+ +overriding final member procedure before_calling_after_each(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 3 +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_after_each (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 3 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- -
-l_all_suites tt_schema_suites;- -
-l_ind varchar2(4000 char);- -
-l_path varchar2(4000 char);- -
-l_root varchar2(4000 char);- -
-l_root_suite ut_logical_suite;- -
-- -
-l_schema_suites tt_schema_suites;- -
-- -
-procedure put(a_root_suite in out nocopy ut_logical_suite, a_path varchar2, a_suite ut_logical_suite, a_parent_path varchar2 default null) is- -
-l_temp_root varchar2(4000 char);- -
-l_path varchar2(4000 char);- -
-l_cur_item ut_logical_suite;- -
-l_ind pls_integer;- -
-begin- - 396 -
-if a_path like '%.%' then- - 138 -
-l_temp_root := regexp_substr(a_path, '^[^.]+');- - 138 -
-l_path := ltrim(a_parent_path || '.' || l_temp_root, '.');- + +
- +
+ +overriding final member procedure before_calling_after_all(self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_resume();- +
+ +end;- +
+ +overriding final member procedure after_calling_after_all (self in out nocopy ut_coverage_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 1 +
+ +ut_coverage.coverage_pause();- +
+ +end;- -
- - 138 -
-if a_root_suite is not null then- + +
- +
+end;UT3.UT_EVENT_MANAGER
75.68 % lines covered
37 relevant lines. 28 lines covered and 9 lines missed+ +
- +
+ +package body ut_event_manager as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 utPLSQL Project- -
- - 49 -
-l_ind := a_root_suite.item_index(l_temp_root);- + +
- +
+ +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- -
- - 49 -
-if l_ind is null then- -
---this only happens when a path of a real suite contains a parent-suite that is not a real package.- - 5 -
-l_cur_item := ut_logical_suite(a_object_owner => a_owner_name, a_object_name => l_temp_root, a_name => l_temp_root, a_path => l_path);- -
-else- - 44 -
-l_cur_item := treat(a_root_suite.items(l_ind) as ut_logical_suite);- -
-end if;- + +
- +
+ +http://www.apache.org/licenses/LICENSE-2.0- -
- - 49 -
-put(l_cur_item, trim_path(a_path, l_temp_root || '.'), a_suite, l_path);- + +
- +
+ +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.- +
+ +*/- -
- - 49 -
-if l_ind is null then- - 5 -
-a_root_suite.add_item(l_cur_item);- -
-else- - 44 -
-a_root_suite.items(l_ind) := l_cur_item;- -
-end if;- + +
- +
+ +type t_listeners is table of ut_event_listener;- +
+ +subtype t_listener_number is binary_integer;- +
+ +type t_listener_numbers is table of boolean index by t_listener_number;- +
+ +type t_events_listeners is table of t_listener_numbers index by t_event_name;- -
- -
-else- - 89 -
-a_root_suite := ut_logical_suite(a_object_owner => a_owner_name, a_object_name => l_temp_root, a_name => l_temp_root, a_path => l_path);- - 89 -
-put(a_root_suite, trim_path(a_path, l_temp_root || '.'), a_suite, l_path);- -
-end if;- -
-else- - 258 -
-if a_root_suite is not null then- - 133 -
-a_root_suite.add_item(a_suite);- -
-else- - 125 -
-a_root_suite := a_suite;- -
-end if;- -
-end if;- -
-end;- + +
- +
+ +type t_event_manager is record (- +
+ +event_listener_index t_events_listeners,- +
+ +listeners t_listeners- +
+ +);- +
+ +type t_event_managers is table of t_event_manager;- -
- -
-$if $$ut_trace $then- -
-procedure print(a_item ut_suite_item, a_pad pls_integer) is- -
-l_suite ut_logical_suite;- -
-l_pad varchar2(1000) := lpad(' ', a_pad, ' ');- -
-begin- -
-if a_item is of (ut_logical_suite) then- -
-dbms_output.put_line(l_pad || 'Suite: ' || a_item.name || '(' || a_item.path || ')');- -
-dbms_output.put_line(l_pad || 'Items: ');- -
-l_suite := treat(a_item as ut_logical_suite);- -
-for i in 1 .. l_suite.items.count loop- -
-print(l_suite.items(i), a_pad + 2);- -
-end loop;- -
-else- -
-dbms_output.put_line(l_pad || 'Test: ' || a_item.name || '(' || a_item.path || ')' );- -
-end if;- -
-end print;- -
-$end- + +
- +
+ +g_event_listeners_index t_events_listeners;- +
+ +g_listeners t_listeners;- +
+ +g_suspended_event_managers t_event_managers;- -
- + +
- +
+ +procedure initialize is- -
begin- -
--- form the single-dimension list of suites constructed from parsed packages- - 137 -
-for rec in (select t.owner- -
-,t.object_name- -
-from all_objects t- -
-where t.owner = a_owner_name- -
-and t.status = 'VALID' -- scan only valid specifications- -
-and t.object_type in ('PACKAGE')) loop- -
--- parse the source of the package- - 1022 -
-l_suite := config_package(rec.owner, rec.object_name);- -
-- - 1022 -
-if l_suite is not null then- - 258 -
-l_all_suites(l_suite.path) := l_suite;- -
-end if;- -
-- -
-end loop;- + +
- + 116 +
+ +if g_listeners is not null and g_listeners.count > 0 then- +
+ +if g_suspended_event_managers is null then- +
+ +g_suspended_event_managers := t_event_managers();- +
+ +end if;- +
+ +g_suspended_event_managers.extend;- +
+ +g_suspended_event_managers(g_suspended_event_managers.count).event_listener_index := g_event_listeners_index;- +
+ +g_suspended_event_managers(g_suspended_event_managers.count).listeners := g_listeners;- +
+ +end if;- + 116 +
+ +g_event_listeners_index.delete;- + 116 +
+ +g_listeners := t_listeners();- +
+ +end;- -
- - 46 -
-l_schema_suites.delete;- + +
- +
+ +procedure dispose_listeners is- +
+ +begin- + 116 +
+ +if g_suspended_event_managers is not null and g_suspended_event_managers.count > 0 then- +
+ +g_event_listeners_index := g_suspended_event_managers(g_suspended_event_managers.count).event_listener_index;- +
+ +g_listeners := g_suspended_event_managers(g_suspended_event_managers.count).listeners;- +
+ +g_suspended_event_managers.trim(1);- +
+ +else- + 116 +
+ +g_event_listeners_index.delete;- + 116 +
+ +g_listeners := t_listeners();- +
+ +end if;- +
+ +end;- -
- -
--- Restructure single-dimenstion list into hierarchy of suites by the value of %suitepath attribute value- -
--- All root suite compose the root-suite list of the schema- - 46 -
-l_ind := l_all_suites.first;- - 304 -
-while l_ind is not null loop- + +
- +
+ +procedure trigger_event( a_event_name t_event_name, a_event_object ut_event_item := null ) is- -
- - 258 -
-l_root := regexp_substr(l_ind, '^[^.]+');- -
-- - 258 -
-if l_schema_suites.exists(l_root) then- - 44 -
-l_root_suite := l_schema_suites(l_root);- - 44 -
-l_path := trim_path(l_ind, l_root || '.');- -
-else- - 214 -
-l_root_suite := null;- - 214 -
-l_path := l_ind;- + +
- +
+ +procedure trigger_listener_event(- +
+ +a_listener_numbers t_listener_numbers,- +
+ +a_event_name t_event_name,- +
+ +a_event_object ut_event_item- +
+ +) is- + 2721 +
+ +l_listener_number t_listener_number := a_listener_numbers.first;- +
+ +begin- + 7923 +
+ +while l_listener_number is not null loop- + 5202 +
+ +g_listeners(l_listener_number).on_event(a_event_name, a_event_object);- + 5202 +
+ +l_listener_number := a_listener_numbers.next(l_listener_number);- +
+ +end loop;- +
+ +end;- +
+ +begin- + 7619 +
+ +if a_event_name is not null then- + 7619 +
+ +if g_event_listeners_index.exists(gc_all) then- + 76 +
+ +trigger_listener_event( g_event_listeners_index(gc_all), a_event_name, a_event_object );- -
end if;- - 258 -
-put(l_root_suite, l_path, l_all_suites(l_ind));- -
-- - 258 -
-l_schema_suites(l_root) := l_root_suite;- -
-- - 258 -
-l_ind := l_all_suites.next(l_ind);- -
-end loop;- -
-- -
--- Caching- - 46 -
-update_cache(a_owner_name, l_schema_suites, get_schema_info(a_owner_name).obj_cnt );- -
-- -
--- printing results for debugging purpose- -
-$if $$ut_trace $then- -
-l_ind := l_schema_suites.first;- -
-while l_ind is not null loop- -
-print(l_schema_suites(l_ind), 0);- -
-l_ind := l_schema_suites.next(l_ind);- -
-end loop;- -
-$end- -
-- -
-end config_schema;- + +
- + 7619 +
+ +if g_event_listeners_index.exists(a_event_name) then- + 2645 +
+ +trigger_listener_event( g_event_listeners_index(a_event_name), a_event_name, a_event_object );- +
+ +end if;- + 7619 +
+ +if a_event_name = ut_event_manager.gc_finalize then- + 116 +
+ +dispose_listeners();- +
+ +end if;- +
+ +end if;- +
+ +end;- -
- -
-function get_schema_suites(a_schema_name in varchar2) return tt_schema_suites is- -
-l_schema_info t_schema_info;- + +
- +
+ +procedure add_event( a_event_name t_event_name, a_listener_pos binary_integer ) is- -
begin- -
--- Currently cache invalidation on DDL is not implemented so schema is rescaned each time- - 125 -
-l_schema_info := get_schema_info(a_schema_name);- - 125 -
-if not g_schema_suites.exists(a_schema_name) or g_schema_suites(a_schema_name).changed_at <= l_schema_info.changed_at or- -
-g_schema_suites(a_schema_name).obj_cnt != l_schema_info.obj_cnt then- - 46 -
-ut_utils.debug_log('Rescanning schema ' || a_schema_name);- - 46 -
-config_schema(a_schema_name);- -
-end if;- + +
- + 4967 +
+ +g_event_listeners_index(a_event_name)(a_listener_pos) := true;- +
+ +end;- -
- - 125 -
-if g_schema_suites.exists(a_schema_name) then- - 124 -
-return g_schema_suites(a_schema_name).schema_suites;- -
-else- - 1 -
-return cast(null as tt_schema_suites);- -
-end if;- -
-end get_schema_suites;- + +
- +
+ +procedure add_events( a_event_names ut_varchar2_list, a_listener_pos binary_integer ) is- +
+ +begin- + 5199 +
+ +for i in 1 .. a_event_names.count loop- + 4967 +
+ +add_event( a_event_names(i), a_listener_pos );- +
+ +end loop;- +
+ +end;- -
- -
-function get_schema_ut_packages(a_schema_names ut_varchar2_rows) return ut_object_names is- - 49 -
-l_schema_ut_packages ut_object_names := ut_object_names();- -
-l_schema_suites tt_schema_suites;- -
-l_iter varchar2(4000);- -
-procedure populate_suite_ut_packages(a_suite ut_logical_suite, a_packages in out nocopy ut_object_names) is- -
-l_sub_suite ut_logical_suite;- -
-begin- - 358 -
-if a_suite is of (ut_suite) then- - 258 -
-a_packages.extend;- - 258 -
-a_packages(a_packages.last) := ut_object_name(a_suite.object_owner, a_suite.object_name);- -
-end if;- - 1104 -
-for i in 1 .. a_suite.items.count loop- - 746 -
-if a_suite.items(i) is of (ut_logical_suite) then- - 147 -
-l_sub_suite := treat(a_suite.items(i) as ut_logical_suite);- - 147 -
-populate_suite_ut_packages(l_sub_suite, a_packages);- -
-end if;- -
-end loop;- -
-end;- + +
- +
+ +function add_listener( a_listener ut_event_listener ) return t_listener_number is- -
begin- - 49 -
-if a_schema_names is not null then- - 98 -
-for i in 1 .. a_schema_names.count loop- - 49 -
-l_schema_suites := get_schema_suites(a_schema_names(i));- - 49 -
-l_iter := l_schema_suites.first;- - 260 -
-while l_iter is not null loop- - 211 -
-populate_suite_ut_packages(l_schema_suites(l_iter), l_schema_ut_packages);- - 211 -
-l_iter := l_schema_suites.next(l_iter);- -
-end loop;- -
-end loop;- - 49 -
-l_schema_ut_packages := set(l_schema_ut_packages);- + +
- + 232 +
+ +if g_listeners is null then- +
+ +g_listeners := t_listeners();- -
end if;- -
-- - 49 -
-return l_schema_ut_packages;- + +
- + 232 +
+ +g_listeners.extend;- + 232 +
+ +g_listeners(g_listeners.last) := a_listener;- + 232 +
+ +return g_listeners.last;- -
end;- + +
- -
- -
--- Validate all paths are correctly formatted- -
-procedure validate_paths(a_paths in ut_varchar2_list) is- -
-l_path varchar2(32767);- + +
- +
+ +procedure add_listener( a_listener ut_event_listener ) is- +
+ +l_event_names ut_varchar2_list;- -
begin- - 72 -
-if a_paths is null or a_paths.count = 0 then- -
-raise_application_error(ut_utils.gc_path_list_is_empty, 'Path list is empty');- -
-else- - 148 -
-for i in 1 .. a_paths.count loop- - 76 -
-l_path := a_paths(i);- - 76 -
-if l_path is null or not (regexp_like(l_path, '^[A-Za-z0-9$#_]+(\.[A-Za-z0-9$#_]+){0,2}$') or regexp_like(l_path, '^([A-Za-z0-9$#_]+)?:[A-Za-z0-9$#_]+(\.[A-Za-z0-9$#_]+)*$')) then- -
-raise_application_error(ut_utils.gc_invalid_path_format, 'Invalid path format: ' || nvl(l_path, 'NULL'));- -
-end if;- -
-end loop;- + +
- + 232 +
+ +if a_listener is not null then- + 232 +
+ +l_event_names := a_listener.get_supported_events();- + 232 +
+ +if l_event_names is not empty then- + 232 +
+ +add_events( l_event_names, add_listener( a_listener ) );- +
+ +end if;- -
end if;- -
-end validate_paths;- + +
- +
+ +end;- -
- -
-function configure_execution_by_path(a_paths in ut_varchar2_list) return ut_suite_items is- -
-l_paths ut_varchar2_list;- -
-l_path varchar2(32767);- -
-l_schema varchar2(4000);- -
-l_schema_suites tt_schema_suites;- -
-l_index varchar2(4000 char);- -
-l_suite ut_logical_suite;- -
-l_suite_path varchar2(4000);- -
-l_root_suite_name varchar2(4000);- -
-l_objects_to_run ut_suite_items;- - 72 -
-c_current_schema constant all_tables.owner%type := sys_context('USERENV','CURRENT_SCHEMA');- -
-- -
-function clean_paths(a_paths ut_varchar2_list) return ut_varchar2_list is- - 72 -
-l_paths_temp ut_varchar2_list := ut_varchar2_list();- -
-begin- - 72 -
-l_paths_temp.extend(a_paths.count);- - 148 -
-for i in 1 .. a_paths.count loop- - 76 -
-l_paths_temp(i) := trim(lower(a_paths(i)));- -
-end loop;- - 72 -
-l_paths_temp := set(l_paths_temp);- - 72 -
-return l_paths_temp;- -
-end clean_paths;- -
-- -
-procedure skip_by_path(a_suite in out nocopy ut_suite_item, a_path varchar2) is- - 105 -
-c_root constant varchar2(32767) := replace(regexp_substr(a_path, '[A-Za-z0-9$#_]+'), '$', '\$');- - 105 -
-c_rest_path constant varchar2(32767) := regexp_substr(a_path, '\.(.+)', subexpression => 1);- -
-l_suite ut_logical_suite;- -
-l_item ut_suite_item;- - 105 -
-l_items ut_suite_items := ut_suite_items();- -
-l_item_name varchar2(32767);- -
-- -
-begin- - 105 -
-if a_path is not null and a_suite is not null and a_suite is of (ut_logical_suite) then- - 40 -
-l_suite := treat(a_suite as ut_logical_suite);- -
-- - 98 -
-for i in 1 .. l_suite.items.count loop- -
-- - 58 -
-l_item := l_suite.items(i);- -
-- - 58 -
-l_item_name := l_item.name;- -
---l_item_name := regexp_substr(l_item_name,'[A-Za-z0-9$#_]+$'); -- temporary fix. seems like suite have suitepath in object_name- - 58 -
-if regexp_like(l_item_name, c_root, modifier => 'i') then- -
-- - 40 -
-skip_by_path(l_item, c_rest_path);- - 40 -
-l_items.extend;- - 40 -
-l_items(l_items.count) := l_item;- -
-- -
-end if;- -
-- -
-end loop;- -
-- - 40 -
-if l_items.count = 0 then- -
---not l_found then- -
-raise_application_error(-20203, 'Suite not found');- -
-end if;- -
-- - 40 -
-l_suite.items := l_items;- - 40 -
-a_suite := l_suite;- -
-- -
-end if;- -
-end skip_by_path;- -
-- -
-function package_exists_in_cur_schema(a_package_name varchar2) return boolean is- -
-l_cnt number;- -
-begin- - 47 -
-select count(*)- -
-into l_cnt- -
-from all_objects t- -
-where t.object_name = upper(a_package_name)- -
-and t.object_type = 'PACKAGE'- -
-and t.owner = c_current_schema;- - 47 -
-return l_cnt > 0;- -
-end package_exists_in_cur_schema;- -
-- -
-begin- - 72 -
-l_paths := clean_paths(a_paths);- -
-- - 72 -
-validate_paths(l_paths);- - 72 -
-l_objects_to_run := ut_suite_items();- -
-- -
--- current implementation operates only on a single path- -
--- to be improved later- - 146 -
-for i in 1 .. l_paths.count loop- - 76 -
-l_path := l_paths(i);- -
-- - 76 -
-if regexp_like(l_path, '^([A-Za-z0-9$#_]+)?:') then- - 13 -
-l_schema := regexp_substr(l_path, '^([A-Za-z0-9$#_]+)?:',subexpression => 1);- -
--- transform ":path1[.path2]" to "schema:path1[.path2]"- - 13 -
-if l_schema is not null then- - 7 -
-l_schema := sys.dbms_assert.schema_name(upper(l_schema));- -
-else- - 6 -
-l_path := c_current_schema || l_path;- - 6 -
-l_schema := c_current_schema;- -
-end if;- -
-else- -
--- When path is one of: schema or schema.package[.object] or package[.object]- -
--- transform it back to schema[.package[.object]]- -
-begin- - 63 -
-l_schema := regexp_substr(l_path, '^[A-Za-z0-9$#_]+');- - 63 -
-l_schema := sys.dbms_assert.schema_name(upper(l_schema));- -
-exception- - 47 -
-when sys.dbms_assert.invalid_schema_name then- - 47 -
-if package_exists_in_cur_schema(l_schema) then- - 47 -
-l_path := c_current_schema || '.' || l_path;- - 47 -
-l_schema := c_current_schema;- -
-else- -
-raise;- -
-end if;- -
-end;- -
-- -
-end if;- -
-- - 76 -
-l_schema_suites := get_schema_suites(upper(l_schema));- -
-- - 76 -
-if regexp_like(l_path, '^[A-Za-z0-9$#_]+$') then- -
--- run whole schema- - 9 -
-l_index := l_schema_suites.first;- - 45 -
-while l_index is not null loop- - 36 -
-l_objects_to_run.extend;- - 36 -
-l_objects_to_run(l_objects_to_run.count) := l_schema_suites(l_index);- - 36 -
-l_index := l_schema_suites.next(l_index);- -
-end loop;- -
-else- -
--- convert SCHEMA.PACKAGE.PROCEDURE syntax to fully qualified path- - 67 -
-if regexp_like(l_path, '^[A-Za-z0-9$#_]+(\.[A-Za-z0-9$#_]+){1,2}$') then- - 54 -
-declare- -
-l_temp_suite ut_logical_suite;- -
-l_package_name varchar2(4000);- -
-l_procedure_name varchar2(4000);- -
-begin- - 54 -
-l_package_name := regexp_substr(l_path, '^[A-Za-z0-9$#_]+\.([A-Za-z0-9$#_]+)(\.([A-Za-z0-9$#_]+))?$', subexpression => 1);- - 54 -
-l_procedure_name := regexp_substr(l_path, '^[A-Za-z0-9$#_]+\.([A-Za-z0-9$#_]+)(\.([A-Za-z0-9$#_]+))?$', subexpression => 3);- -
-- - 54 -
-l_temp_suite := config_package(l_schema, l_package_name);- -
-- - 53 -
-if l_temp_suite is null then- -
-raise_application_error(ut_utils.gc_suite_package_not_found,'Suite package '||l_schema||'.'||l_package_name|| ' not found');- -
-end if;- -
-- - 53 -
-l_path := rtrim(l_schema || ':' || l_temp_suite.path || '.' || l_procedure_name, '.');- -
-end;- -
-end if;- -
-- -
--- fully qualified path branch in the form- -
--- by this time it's the only format left- -
--- schema:suite.suite.suite- - 66 -
-l_suite_path := regexp_substr(l_path, ':(.+)', subexpression => 1);- - 66 -
-l_root_suite_name := regexp_substr(l_suite_path, '^[A-Za-z0-9$#_]+');- -
-- -
-begin- - 66 -
-l_suite := l_schema_suites(l_root_suite_name);- -
-exception- - 1 -
-when no_data_found then- - 1 -
-raise_application_error(-20203, 'Suite ' || l_root_suite_name || ' does not exist or is invalid');- -
-end;- -
-- - 65 -
-skip_by_path(l_suite, regexp_substr(l_suite_path, '\.(.+)', subexpression => 1));- -
-- - 65 -
-l_objects_to_run.extend;- - 65 -
-l_objects_to_run(l_objects_to_run.count) := l_suite;- -
-- -
-end if;- -
-- -
-end loop;- - 70 -
-return l_objects_to_run;- -
-end configure_execution_by_path;- -
-- -
end ut_suite_manager;+UT3.UT_UTILS
96 % covered
125 relevant lines. 120 lines covered and 5 lines missed-
- -
-package body ut_utils is- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- +
+end;+UT3.UT_OUTPUT_BUFFER_BASE
100 % lines covered
26 relevant lines. 26 lines covered and 0 lines missed+ +
- +
+ +type body ut_output_buffer_base is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
*/- +
- -
+function surround_with(a_value varchar2, a_quote_char varchar2) return varchar2 ismember procedure init(self in out nocopy ut_output_buffer_base, a_output_id raw := null, a_self_type varchar2 := null) is+- -
-begin- - 444 -
+return case when a_quote_char is not null then a_quote_char||a_value||a_quote_char else a_value end;pragma autonomous_transaction;+ +- +
+l_exists int;- -
-end;- -
-- -
-function test_result_to_char(a_test_result integer) return varchar2 as- -
-l_result varchar2(20);- -
begin- - 6 -
-if a_test_result = tr_success then- - 1 -
-l_result := tr_success_char;- - 5 -
-elsif a_test_result = tr_failure then- - 1 -
-l_result := tr_failure_char;- - 4 -
-elsif a_test_result = tr_error then- - 1 -
-l_result := tr_error_char;- - 3 -
-elsif a_test_result = tr_disabled then- - 1 -
-l_result := tr_disabled_char;- + +
- + 247 +
+ +cleanup_buffer();- + 247 +
+ +self.self_type := coalesce(a_self_type,self.self_type);- + 247 +
+ +self.output_id := coalesce(a_output_id, self.output_id, sys_guid());- + 247 +
+ +self.start_date := coalesce(self.start_date, sysdate);- + 247 +
+ +self.last_message_id := 0;- + 247 +
+ +select count(*) into l_exists from ut_output_buffer_info_tmp where output_id = self.output_id;- + 247 +
+ +if ( l_exists > 0 ) then- + 119 +
+ +update ut_output_buffer_info_tmp set start_date = self.start_date where output_id = self.output_id;- -
else- - 2 -
+ +l_result := 'Unknown(' || coalesce(to_char(a_test_result),'NULL') || ')';- + 128 +
+ +insert into ut_output_buffer_info_tmp(output_id, start_date) values (self.output_id, self.start_date);- +
+ +end if;- + 247 +
+ +commit;- + 247 +
+ +self.is_closed := 0;- +
+end;- -
-end if ;- - 6 -
+return l_result;+ +- +
+member function get_lines_cursor(a_initial_timeout natural := null, a_timeout_sec natural := null) return sys_refcursor is- -
+end test_result_to_char;l_lines sys_refcursor;+- -
-- -
+begin+ +- + 117 +
+open l_lines for- -
+function to_test_result(a_test boolean) return integer isselect text, item_type+- -
-l_result integer;- -
-begin- - 1494 -
-if a_test then- - 1066 -
+l_result := tr_success;from table(self.get_lines(a_initial_timeout, a_timeout_sec));+ +- + 117 +
+ +return l_lines;- +
+ +end;- +
+- -
-else- - 428 -
+l_result := tr_failure;member procedure lines_to_dbms_output(self in ut_output_buffer_base, a_initial_timeout natural := null, a_timeout_sec natural := null) is+ +- +
+l_data sys_refcursor;- -
-end if;- - 1494 -
+return l_result;l_clob clob;+ +- +
+l_item_type varchar2(32767);- -
+end;l_lines ut_varchar2_list;+- -
-- -
-function gen_savepoint_name return varchar2 is- -
begin- - 260 -
-return 'ut_'||to_char(systimestamp,'yymmddhh24mmssff');- -
-end;- -
-- -
-/*- -
+ +Procedure: validate_rollback_type- + 32 +
+ +l_data := self.get_lines_cursor(a_initial_timeout, a_timeout_sec);- + 629 +
+ +loop- + 629 +
+ +fetch l_data into l_clob, l_item_type;- + 629 +
+ +exit when l_data%notfound;- + 597 +
+ +l_lines := ut_utils.clob_to_table(l_clob);- + 1206 +
+ +for i in 1 .. l_lines.count loop- + 609 +
+dbms_output.put_line(l_lines(i));- -
+end loop;+- -
-Validates passed value against supported rollback types- -
+*/end loop;+ +- + 32 +
+close l_data;- -
+procedure validate_rollback_type(a_rollback_type number) isend;+- -
-begin- -
-if a_rollback_type not in (gc_rollback_auto, gc_rollback_manual) then- -
-raise_application_error(-20200,'Rollback type is not supported');- -
-end if;- -
-end validate_rollback_type;- + +
- +
+ +member procedure cleanup_buffer(self in ut_output_buffer_base, a_retention_time_sec natural := null) is- + 247 +
+ +gc_buffer_retention_sec constant naturaln := coalesce(a_retention_time_sec, 60 * 60 * 24); -- 24 hours- + 247 +
+ +l_retention_days number := gc_buffer_retention_sec / (60 * 60 * 24);- + 247 +
+ +l_max_retention_date date := sysdate - l_retention_days;- +
+pragma autonomous_transaction;- -
-procedure debug_log(a_message varchar2) is- -
begin- -
+ +$if $$ut_trace $then- + 247 +
+ +delete from ut_output_buffer_info_tmp i where i.start_date <= l_max_retention_date;- + 247 +
+commit;- -
-dbms_output.put_line(a_message);- -
-$else- - 6373 -
-null;- -
-$end- -
end;- + +
- -
- -
-procedure debug_log(a_message clob) is- -
-l_varchars ut_varchar2_list;- -
-begin- -
-$if $$ut_trace $then- -
-l_varchars := clob_to_table(a_message);- -
-for i in 1..l_varchars.count loop- -
-dbms_output.put_line(l_varchars(i));- -
-end loop;- -
-$else- - 1085 -
-null;- -
-$end- -
-end;- + +
- +
+end;+UT3.UT_OUTPUT_CLOB_TABLE_BUFFER
98.21 % lines covered
56 relevant lines. 55 lines covered (including 1 lines partially covered ) and 1 lines missed+ +
- +
+ +type body ut_output_clob_table_buffer is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 utPLSQL Project- -
- -
-function to_string(a_value varchar2, a_qoute_char varchar2 := '''') return varchar2 is- - 396 -
-l_len integer := coalesce(length(a_value),0);- -
-l_result varchar2(32767);- + +
- +
+ +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.- +
+ +*/- +
+ +- +
+ +constructor function ut_output_clob_table_buffer(self in out nocopy ut_output_clob_table_buffer, a_output_id raw := null) return self as result is- -
begin- - 396 -
-if l_len = 0 then- - 45 -
-l_result := gc_null_string;- - 351 -
-elsif l_len <= gc_max_input_string_length then- - 345 -
-l_result := surround_with(a_value, a_qoute_char);- -
-else- - 6 -
-l_result := surround_with(substr(a_value,1,gc_overflow_substr_len),a_qoute_char) || gc_more_data_string;- -
-end if ;- - 396 -
-return l_result;- + +
- + 5 +
+ +self.init(a_output_id, $$plsql_unit);- + 5 +
+ +return;- -
end;- + +
- -
- -
-function to_string(a_value clob, a_qoute_char varchar2 := '''') return varchar2 is- - 94 -
-l_len integer := coalesce(dbms_lob.getlength(a_value), 0);- -
-l_result varchar2(32767);- -
-begin- - 94 -
-if l_len = 0 then- - 19 -
-l_result := gc_null_string;- - 75 -
-elsif l_len <= gc_max_input_string_length then- - 58 -
-l_result := surround_with(a_value,a_qoute_char);- -
-else- - 17 -
-l_result := surround_with(dbms_lob.substr(a_value, gc_overflow_substr_len),a_qoute_char) || gc_more_data_string;- -
-end if;- - 94 -
-return l_result;- -
-end;- -
-- -
-function to_string(a_value blob, a_qoute_char varchar2 := '''') return varchar2 is- - 35 -
-l_len integer := coalesce(dbms_lob.getlength(a_value), 0);- -
-l_result varchar2(32767);- + +
- +
+ +overriding member procedure close(self in out nocopy ut_output_clob_table_buffer) is- +
+ +pragma autonomous_transaction;- -
begin- - 35 -
-if l_len = 0 then- - 16 -
-l_result := gc_null_string;- - 19 -
-elsif l_len <= gc_max_input_string_length then- - 18 -
-l_result := surround_with(rawtohex(a_value),a_qoute_char);- -
-else- - 1 -
-l_result := to_string( rawtohex(dbms_lob.substr(a_value, gc_overflow_substr_len)) );- -
-end if ;- - 35 -
-return l_result;- + +
- + 4 +
+ +self.last_message_id := self.last_message_id + 1;- + 4 +
+ +insert into ut_output_clob_buffer_tmp(output_id, message_id, is_finished)- +
+ +values (self.output_id, self.last_message_id, 1);- + 4 +
+ +commit;- + 4 +
+ +self.is_closed := 1;- -
end;- + +
- -
- -
-function to_string(a_value boolean) return varchar2 is- + +
- +
+ +overriding member procedure send_line(self in out nocopy ut_output_clob_table_buffer, a_text varchar2, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 89 -
-return case a_value when true then 'TRUE' when false then 'FALSE' else gc_null_string end;- + +
- + 309 +
+ +if a_text is not null or a_item_type is not null then- + 309 +
+ +self.last_message_id := self.last_message_id + 1;- + 309 +
+ +insert into ut_output_clob_buffer_tmp(output_id, message_id, text, item_type)- +
+ +values (self.output_id, self.last_message_id, a_text, a_item_type);- +
+ +end if;- + 309 +
+ +commit;- -
end;- + +
- -
- -
-function to_string(a_value number) return varchar2 is- + +
- +
+ +overriding member procedure send_lines(self in out nocopy ut_output_clob_table_buffer, a_text_list ut_varchar2_rows, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 621 -
-return coalesce(to_char(a_value,gc_number_format), gc_null_string);- + +
- + 53 +
+ +insert into ut_output_clob_buffer_tmp(output_id, message_id, text, item_type)- +
+ +select self.output_id, self.last_message_id + rownum, t.column_value, a_item_type- +
+ +from table(a_text_list) t- +
+ +where t.column_value is not null or a_item_type is not null;- + 53 +
+ +self.last_message_id := self.last_message_id + SQL%rowcount;- + 53 +
+ +commit;- -
end;- + +
- -
- -
-function to_string(a_value date) return varchar2 is- + +
- +
+ +overriding member procedure send_clob(self in out nocopy ut_output_clob_table_buffer, a_text clob, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 89 -
-return coalesce(to_char(a_value,gc_date_format), gc_null_string);- + +
- + 1/2 + 31 +
+ +if a_text is not null and a_text != empty_clob() or a_item_type is not null then- + 31 +
+ +self.last_message_id := self.last_message_id + 1;- + 31 +
+ +insert into ut_output_clob_buffer_tmp(output_id, message_id, text, item_type)- +
+ +values (self.output_id, self.last_message_id, a_text, a_item_type);- +
+ +end if;- + 31 +
+ +commit;- -
end;- + +
- -
- -
-function to_string(a_value timestamp_unconstrained) return varchar2 is- -
-begin- - 92 -
-return coalesce(to_char(a_value,gc_timestamp_format), gc_null_string);- -
-end;- + +
- +
+ +overriding member function get_lines(a_initial_timeout natural := null, a_timeout_sec natural := null) return ut_output_data_rows pipelined is- +
+ +type t_rowid_tab is table of urowid;- +
+ +l_message_rowids t_rowid_tab;- +
+ +l_buffer_data ut_output_data_rows;- +
+ +l_finished_flags ut_integer_list;- + 4 +
+ +l_already_waited_for number(10,2) := 0;- + 4 +
+ +l_finished boolean := false;- + 4 +
+ +lc_init_wait_sec constant naturaln := coalesce(a_initial_timeout, 60 ); -- 1 minute- + 4 +
+ +lc_max_wait_sec constant naturaln := coalesce(a_timeout_sec, 60 * 60 * 4); -- 4 hours- + 4 +
+ +l_wait_for integer := lc_init_wait_sec;- + 4 +
+ +lc_short_sleep_time constant number(1,1) := 0.1; --sleep for 100 ms between checks- + 4 +
+ +lc_long_sleep_time constant number(1) := 1; --sleep for 1 s when waiting long- + 4 +
+ +lc_long_wait_time constant number(1) := 1; --waiting more than 1 sec- + 4 +
+ +l_sleep_time number(2,1) := lc_short_sleep_time;- + 4 +
+ +lc_bulk_limit constant integer := 5000;- + 4 +
+ +l_max_message_id integer := lc_bulk_limit;- -
- -
-function to_string(a_value timestamp_tz_unconstrained) return varchar2 is- -
-begin- - 95 -
-return coalesce(to_char(a_value,gc_timestamp_tz_format), gc_null_string);- -
-end;- + +
- +
+ +procedure remove_read_data(a_message_rowids t_rowid_tab) is- +
+ +pragma autonomous_transaction;- +
+ +begin- + 3 +
+ +forall i in 1 .. a_message_rowids.count- + 1 +
+ +delete from ut_output_clob_buffer_tmp a- +
+ +where rowid = a_message_rowids(i);- + 3 +
+ +commit;- +
+ +end;- -
- -
-function to_string(a_value timestamp_ltz_unconstrained) return varchar2 is- -
-begin- - 91 -
-return coalesce(to_char(a_value,gc_timestamp_format), gc_null_string);- -
-end;- + +
- +
+ +procedure remove_buffer_info is- +
+ +pragma autonomous_transaction;- +
+ +begin- + 4 +
+ +delete from ut_output_buffer_info_tmp a- +
+ +where a.output_id = self.output_id;- + 4 +
+ +commit;- +
+ +end;- -
- -
-function to_string(a_value yminterval_unconstrained) return varchar2 IS- -
-begin- - 78 -
-return coalesce(to_char(a_value), gc_null_string);- -
-end;- + +
- +
+ +begin- + 7 +
+ +while not l_finished loop- + 4 +
+ +with ordered_buffer as (- +
+ +select /*+ index(a) */ a.rowid, ut_output_data_row(a.text, a.item_type), is_finished- +
+ +from ut_output_clob_buffer_tmp a- +
+ +where a.output_id = self.output_id- +
+ +and a.message_id <= l_max_message_id- +
+ +order by a.message_id- +
+ +)- +
+ +select b.*- +
+ +bulk collect into l_message_rowids, l_buffer_data, l_finished_flags- +
+ +from ordered_buffer b;- -
- -
-function to_string(a_value dsinterval_unconstrained) return varchar2 IS- -
-begin- - 78 -
-return coalesce(to_char(a_value), gc_null_string);- + +
- +
+ +--nothing fetched from output, wait and try again- + 4 +
+ +if l_buffer_data.count = 0 then- +
+ +$if dbms_db_version.version >= 18 $then- + 1 +
+ +dbms_session.sleep(l_sleep_time);- +
+ +$else- +
+ +dbms_lock.sleep(l_sleep_time);- +
+ +$end- + 1 +
+ +l_already_waited_for := l_already_waited_for + l_sleep_time;- + 1 +
+ +if l_already_waited_for > lc_long_wait_time then- +
+ +l_sleep_time := lc_long_sleep_time;- +
+ +end if;- +
+ +else- +
+ +--reset wait time- +
+ +-- we wait lc_max_wait_sec for new message- + 3 +
+ +l_wait_for := lc_max_wait_sec;- + 3 +
+ +l_already_waited_for := 0;- + 3 +
+ +l_sleep_time := lc_short_sleep_time;- + 59 +
+ +for i in 1 .. l_buffer_data.count loop- + 2540 +
+ +if l_buffer_data(i).text is not null then- + 2482 +
+ +pipe row(l_buffer_data(i));- + 58 +
+ +elsif l_finished_flags(i) = 1 then- + 3 +
+ +l_finished := true;- + 3 +
+ +exit;- +
+ +end if;- +
+ +end loop;- + 3 +
+ +remove_read_data(l_message_rowids);- + 3 +
+ +l_max_message_id := l_max_message_id + lc_bulk_limit;- +
+ +end if;- + 4 +
+ +if l_finished or l_already_waited_for >= l_wait_for then- + 4 +
+ +remove_buffer_info();- + 4 +
+ +if l_already_waited_for > 0 and l_already_waited_for >= l_wait_for then- + 1 +
+ +raise_application_error(- +
+ +ut_utils.gc_out_buffer_timeout,- +
+ +'Timeout occurred while waiting for output data. Waited for: '||l_already_waited_for||' seconds.'- +
+ +);- +
+ +end if;- +
+ +end if;- +
+ +end loop;- + 3 +
+ +return;- -
end;- + +
- -
- + +
- +
+end;UT3.UT_OUTPUT_TABLE_BUFFER
86.21 % lines covered
58 relevant lines. 50 lines covered and 8 lines missed+ +
- +
+ +type body ut_output_table_buffer is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 utPLSQL Project- -
- -
-function boolean_to_int(a_value boolean) return integer is- + +
- +
+ +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.- +
+ +*/- +
+ +- +
+ +constructor function ut_output_table_buffer(self in out nocopy ut_output_table_buffer, a_output_id raw := null) return self as result is- -
begin- - 1891 -
-return case a_value when true then 1 when false then 0 end;- + +
- + 123 +
+ +self.init(a_output_id, $$plsql_unit);- + 123 +
+ +return;- -
end;- + +
- -
- -
-function int_to_boolean(a_value integer) return boolean is- + +
- +
+ +overriding member procedure close(self in out nocopy ut_output_table_buffer) is- +
+ +pragma autonomous_transaction;- -
begin- - 1623 -
-return case a_value when 1 then true when 0 then false end;- + +
- + 117 +
+ +self.last_message_id := self.last_message_id + 1;- + 117 +
+ +insert into ut_output_buffer_tmp(output_id, message_id, is_finished)- +
+ +values (self.output_id, self.last_message_id, 1);- + 117 +
+ +commit;- + 117 +
+ +self.is_closed := 1;- -
end;- + +
- -
- -
-function string_to_table(a_string varchar2, a_delimiter varchar2:= chr(10), a_skip_leading_delimiter varchar2 := 'N') return ut_varchar2_list is- - 963 -
-l_offset integer := 1;- -
-l_delimiter_position integer;- - 963 -
-l_skip_leading_delimiter boolean := coalesce(a_skip_leading_delimiter = 'Y',false);- - 963 -
-l_result ut_varchar2_list := ut_varchar2_list();- + +
- +
+ +overriding member procedure send_line(self in out nocopy ut_output_table_buffer, a_text varchar2, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 963 -
-if a_string is null then- - 961 -
-return l_result;- -
-end if;- - 963 -
-if a_delimiter is null then- - 2 -
-return ut_varchar2_list(a_string);- -
-end if;- -
-- - 45748 -
-loop- - 45748 -
-l_delimiter_position := instr(a_string, a_delimiter, l_offset);- - 45748 -
-if not (l_delimiter_position = 1 and l_skip_leading_delimiter) then- - 45747 -
-l_result.extend;- - 45747 -
-if l_delimiter_position > 0 then- - 44786 -
-l_result(l_result.last) := substr(a_string, l_offset, l_delimiter_position - l_offset);- -
-else- - 961 -
-l_result(l_result.last) := substr(a_string, l_offset);- -
-end if;- + +
- + 1505 +
+ +if a_text is not null or a_item_type is not null then- + 1504 +
+ +if length(a_text) > ut_utils.gc_max_storage_varchar2_len then- +
+ +self.send_lines(- +
+ +ut_utils.convert_collection(- +
+ +ut_utils.clob_to_table(a_text, ut_utils.gc_max_storage_varchar2_len)- +
+ +),- +
+ +a_item_type- +
+ +);- +
+ +else- + 1504 +
+ +self.last_message_id := self.last_message_id + 1;- + 1504 +
+ +insert into ut_output_buffer_tmp(output_id, message_id, text, item_type)- +
+ +values (self.output_id, self.last_message_id, a_text, a_item_type);- -
end if;- - 45747 -
-exit when l_delimiter_position = 0;- - 44787 -
-l_offset := l_delimiter_position + 1;- -
-end loop;- -
-return l_result;- + +
- + 1504 +
+ +commit;- +
+ +end if;- -
end;- + +
- -
- -
-function clob_to_table(a_clob clob, a_max_amount integer := 8191, a_delimiter varchar2:= chr(10)) return ut_varchar2_list is- - 77 -
-l_offset integer := 1;- - 77 -
-l_length integer := dbms_lob.getlength(a_clob);- -
-l_amount integer;- -
-l_buffer varchar2(32767);- -
-l_last_line varchar2(32767);- -
-l_string_results ut_varchar2_list;- - 77 -
-l_results ut_varchar2_list := ut_varchar2_list();- -
-l_has_last_line boolean;- - 77 -
-l_skip_leading_delimiter varchar2(1) := 'N';- + +
- +
+ +overriding member procedure send_lines(self in out nocopy ut_output_table_buffer, a_text_list ut_varchar2_rows, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 546 -
-while l_offset <= l_length loop- - 76 -
-l_amount := a_max_amount - coalesce( length(l_last_line), 0 );- - 469 -
-dbms_lob.read(a_clob, l_amount, l_offset, l_buffer);- - 469 -
-l_offset := l_offset + l_amount;- -
-- - 469 -
-l_string_results := string_to_table( l_last_line || l_buffer, a_delimiter, l_skip_leading_delimiter );- - 45675 -
-for i in 1 .. l_string_results.count loop- -
---if a split of lines was not done or not at the last line- - 45206 -
-if l_string_results.count = 1 or i < l_string_results.count then- - 44752 -
-l_results.extend;- - 44752 -
-l_results(l_results.last) := l_string_results(i);- -
-end if;- -
-end loop;- -
-- -
---check if we need to append the last line to the next element- - 469 -
-if l_string_results.count = 1 then- - 15 -
-l_has_last_line := false;- - 15 -
-l_last_line := null;- - 454 -
-elsif l_string_results.count > 1 then- - 454 -
-l_has_last_line := true;- - 454 -
-l_last_line := l_string_results(l_string_results.count);- -
-end if;- -
-- - 469 -
-l_skip_leading_delimiter := 'Y';- -
-end loop;- - 77 -
-if l_has_last_line then- - 66 -
-l_results.extend;- - 66 -
-l_results(l_results.last) := l_last_line;- -
-end if;- - 77 -
-return l_results;- + +
- + 282 +
+ +insert into ut_output_buffer_tmp(output_id, message_id, text, item_type)- +
+ +select self.output_id, self.last_message_id + rownum, t.column_value, a_item_type- +
+ +from table(a_text_list) t- +
+ +where t.column_value is not null or a_item_type is not null;- + 282 +
+ +self.last_message_id := self.last_message_id + SQL%rowcount;- + 282 +
+ +commit;- -
end;- + +
- -
- -
-function table_to_clob(a_text_table ut_varchar2_list, a_delimiter varchar2:= chr(10)) return clob is- -
-l_result clob;- - 59 -
-l_text_table_rows integer := coalesce(cardinality(a_text_table),0);- + +
- +
+ +overriding member procedure send_clob(self in out nocopy ut_output_table_buffer, a_text clob, a_item_type varchar2 := null) is- +
+ +pragma autonomous_transaction;- -
begin- - 19067 -
-for i in 1 .. l_text_table_rows loop- - 19008 -
-if i < l_text_table_rows then- - 18961 -
-append_to_clob(l_result, a_text_table(i)||a_delimiter);- + +
- +
+ +if a_text is not null and a_text != empty_clob() or a_item_type is not null then- +
+ +if length(a_text) > ut_utils.gc_max_storage_varchar2_len then- +
+ +self.send_lines(- +
+ +ut_utils.convert_collection(- +
+ +ut_utils.clob_to_table(a_text, ut_utils.gc_max_storage_varchar2_len)- +
+ +),- +
+ +a_item_type- +
+ +);- -
else- - 47 -
-append_to_clob(l_result, a_text_table(i));- + +
- +
+ +self.last_message_id := self.last_message_id + 1;- +
+ +insert into ut_output_buffer_tmp(output_id, message_id, text, item_type)- +
+ +values (self.output_id, self.last_message_id, a_text, a_item_type);- -
end if;- -
-end loop;- - 59 -
-return l_result;- -
-end;- -
-- -
-function time_diff(a_start_time timestamp with time zone, a_end_time timestamp with time zone) return number is- -
-begin- - 216 -
-return- -
-extract(day from(a_end_time - a_start_time)) * 24 * 60 * 60 +- -
-extract(hour from(a_end_time - a_start_time)) * 60 * 60 +- -
-extract(minute from(a_end_time - a_start_time)) * 60 +- -
-extract(second from(a_end_time - a_start_time));- -
-end;- -
-- -
-function indent_lines(a_text varchar2, a_indent_size integer := 4, a_include_first_line boolean := false) return varchar2 is- -
-begin- - 1737 -
-if a_include_first_line then- - 5 -
-return rtrim(lpad( ' ', a_indent_size ) || replace( a_text, chr(10), chr(10) || lpad( ' ', a_indent_size ) ));- -
-else- - 1732 -
-return rtrim(replace( a_text, chr(10), chr(10) || lpad( ' ', a_indent_size ) ));- + +
- +
+ +commit;- -
end if;- -
-end;- -
-- -
-function get_utplsql_objects_list return ut_object_names is- -
-l_result ut_object_names;- -
-begin- -
-select distinct ut_object_name(sys_context('userenv','current_user'), o.object_name)- -
-bulk collect into l_result- -
-from user_objects o- -
-where o.object_name = 'UT' or object_name like 'UT\_%' escape '\'- -
-and o.object_type <> 'SYNONYM';- -
-return l_result;- + +
- -
end;- + +
- -
- -
-procedure append_to_varchar2_list(a_list in out nocopy ut_varchar2_list, a_line varchar2) is- -
-begin- - 1386 -
-if a_line is not null then- - 64 -
-if a_list is null then- -
-a_list := ut_varchar2_list();- -
-end if;- - 64 -
-a_list.extend;- - 64 -
-a_list(a_list.last) := a_line;- -
-end if;- -
-end append_to_varchar2_list;- + +
- +
+ +overriding member function get_lines(a_initial_timeout natural := null, a_timeout_sec natural := null) return ut_output_data_rows pipelined is- +
+ +l_buffer_data ut_varchar2_rows;- +
+ +l_item_types ut_varchar2_rows;- +
+ +l_finished_flags ut_integer_list;- + 116 +
+ +l_already_waited_for number(10,2) := 0;- + 116 +
+ +l_finished boolean := false;- + 116 +
+ +lc_init_wait_sec constant naturaln := coalesce(a_initial_timeout, 60 ); -- 1 minute- + 116 +
+ +lc_max_wait_sec constant naturaln := coalesce(a_timeout_sec, 60 * 60 * 4); -- 4 hours- + 116 +
+ +l_wait_for integer := lc_init_wait_sec;- + 116 +
+ +lc_short_sleep_time constant number(1,1) := 0.1; --sleep for 100 ms between checks- + 116 +
+ +lc_long_sleep_time constant number(1) := 1; --sleep for 1 s when waiting long- + 116 +
+ +lc_long_wait_time constant number(1) := 1; --waiting more than 1 sec- + 116 +
+ +l_sleep_time number(2,1) := lc_short_sleep_time;- + 116 +
+ +lc_bulk_limit constant integer := 5000;- + 116 +
+ +l_max_message_id integer := lc_bulk_limit;- -
- -
-procedure append_to_clob(a_src_clob in out nocopy clob, a_new_data clob) is- -
-begin- - 687 -
-if a_new_data is not null and dbms_lob.getlength(a_new_data) > 0 then- - 107 -
-if a_src_clob is null then- - 30 -
-dbms_lob.createtemporary(a_src_clob, true);- -
-end if;- - 107 -
-dbms_lob.append(a_src_clob, a_new_data);- -
-end if;- -
-end;- + +
- +
+ +procedure get_data_from_buffer(- +
+ +a_max_message_id integer,- +
+ +a_buffer_data out nocopy ut_varchar2_rows,- +
+ +a_item_types out nocopy ut_varchar2_rows,- +
+ +a_finished_flags out nocopy ut_integer_list- +
+ +) is- +
+ +pragma autonomous_transaction;- +
+ +begin- + 128 +
+ +delete from (- +
+ +select *- +
+ +from ut_output_buffer_tmp o- +
+ +where o.output_id = self.output_id- +
+ +and o.message_id <= a_max_message_id- +
+ +order by o.message_id- +
+ +) d- +
+ +returning d.text, d.item_type, d.is_finished- +
+ +bulk collect into a_buffer_data, a_item_types, a_finished_flags;- + 128 +
+ +commit;- -
- -
-procedure append_to_clob(a_src_clob in out nocopy clob, a_new_data varchar2) is- -
-begin- - 111847 -
-if a_new_data is not null then- - 111846 -
-if a_src_clob is null then- - 1197 -
-dbms_lob.createtemporary(a_src_clob, true);- -
-end if;- - 111846 -
-dbms_lob.writeappend(a_src_clob, dbms_lob.getlength(a_new_data), a_new_data);- -
-end if;- -
-end;- + +
- +
+ +end;- -
- -
-function convert_collection(a_collection ut_varchar2_list) return ut_varchar2_rows is- -
-l_result ut_varchar2_rows;- -
-begin- - 47 -
-if a_collection is not null then- - 1 -
-l_result := ut_varchar2_rows();- - 2 -
-for i in 1 .. a_collection.count loop- - 1 -
-l_result.extend();- - 1 -
-l_result(i) := substr(a_collection(i),1,gc_max_storage_varchar2_len);- -
-end loop;- -
-end if;- - 47 -
-return l_result;- -
-end;- + +
- +
+ +procedure remove_buffer_info is- +
+ +pragma autonomous_transaction;- +
+ +begin- + 116 +
+ +delete from ut_output_buffer_info_tmp a- +
+ +where a.output_id = self.output_id;- + 116 +
+ +commit;- +
+ +end;- -
- -
-procedure cleanup_temp_tables is- -
-pragma autonomous_transaction;- -
-begin- - 48 -
-execute immediate 'truncate table ut_cursor_data';- - 48 -
-execute immediate 'truncate table ut_coverage_sources_tmp$';- - 48 -
-commit;- + +
- +
+ +begin- + 242 +
+ +while not l_finished loop- + 128 +
+ +get_data_from_buffer( l_max_message_id, l_buffer_data, l_item_types, l_finished_flags);- +
+ +--nothing fetched from output, wait and try again- + 128 +
+ +if l_buffer_data.count = 0 then- +
+ +$if dbms_db_version.version >= 18 $then- + 11 +
+ +dbms_session.sleep(l_sleep_time);- +
+ +$else- +
+ +dbms_lock.sleep(l_sleep_time);- +
+ +$end- + 11 +
+ +l_already_waited_for := l_already_waited_for + l_sleep_time;- + 11 +
+ +if l_already_waited_for > lc_long_wait_time then- +
+ +l_sleep_time := lc_long_sleep_time;- +
+ +end if;- +
+ +else- +
+ +--reset wait time- +
+ +-- we wait lc_max_wait_sec for new message- + 117 +
+ +l_wait_for := lc_max_wait_sec;- + 117 +
+ +l_already_waited_for := 0;- + 117 +
+ +l_sleep_time := lc_short_sleep_time;- + 232 +
+ +for i in 1 .. l_buffer_data.count loop- + 14921 +
+ +if l_buffer_data(i) is not null then- + 14695 +
+ +pipe row(ut_output_data_row(l_buffer_data(i),l_item_types(i)));- + 226 +
+ +elsif l_finished_flags(i) = 1 then- + 114 +
+ +l_finished := true;- + 114 +
+ +exit;- +
+ +end if;- +
+ +end loop;- + 117 +
+ +l_max_message_id := l_max_message_id + lc_bulk_limit;- +
+ +end if;- + 128 +
+ +if l_finished or l_already_waited_for >= l_wait_for then- + 116 +
+ +remove_buffer_info();- + 116 +
+ +if l_already_waited_for > 0 and l_already_waited_for >= l_wait_for then- + 2 +
+ +raise_application_error(- +
+ +ut_utils.gc_out_buffer_timeout,- +
+ +'Timeout occurred while waiting for output data. Waited for: '||l_already_waited_for||' seconds.'- +
+ +);- +
+ +end if;- +
+ +end if;- +
+ +end loop;- + 114 +
+ +return;- -
end;- + +
- -
- -
end ut_utils;+UT3.UT_DATA_VALUE_ANYDATA
93.33 % covered
15 relevant lines. 14 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_SESSION_CONTEXT
85.71 % lines covered
7 relevant lines. 6 lines covered and 1 lines missed+
- -
+type body ut_data_value_anydata aspackage body ut_session_context as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+$IF $$SELF_TESTING_INSTALL $THEN+- -
+constructor function ut_data_value_anydata(self in out nocopy ut_data_value_anydata) return self as result isgc_context_name constant varchar2(30) := ut_utils.ut_owner()||'_INFO';+- -
-begin- - 35 -
-self.self_type := $$plsql_unit;- - 35 -
-self.data_type := 'undefined';- - 35 -
+return;$ELSE+ +- + 1 +
+ +gc_context_name constant varchar2(30) := 'UT3_INFO';- +
+ +$END- +
+- -
+end;procedure set_context(a_name varchar2, a_value varchar2) is+- -
-- -
-overriding member function is_null return boolean is- -
begin- - 3 -
-return true;- + +
- + 3288 +
+ +dbms_session.set_context( gc_context_name, a_name, a_value );- -
end;- + +
- -
- -
-overriding member function to_string return varchar2 is- + +
- +
+ +procedure clear_context(a_name varchar2) is- -
begin- - 3 -
-return ut_utils.to_string( to_char(null) );- + +
- + 3284 +
+ +dbms_session.clear_context( namespace => gc_context_name, attribute => a_name );- -
end;- + +
- -
- -
-overriding member function compare_implementation( a_other ut_data_value ) return integer is- + +
- +
+ +procedure clear_all_context is- -
begin- - 1 -
-return null;- + +
- + 120 +
+ +dbms_session.clear_all_context( namespace => gc_context_name );- -
end;- + +
- + +
- +
+ +function is_ut_run return boolean is- +
+l_paths varchar2(32767);- -
-static function get_instance(a_data_value anydata) return ut_data_value_anydata is- - 35 -
-l_result ut_data_value_anydata := ut_data_value_anydata();- -
+l_type anytype;begin+ +- + 799 +
+ +l_paths := sys_context(gc_context_name, 'RUN_PATHS');- + 799 +
+return l_paths is not null;- -
+l_type_code integer;end;+- +
+ +- +
+ +function get_namespace return varchar2 is- -
begin- - 35 -
-if a_data_value is not null then- - 26 -
-l_type_code := a_data_value.gettype(l_type);- - 28 -
-if l_type_code = dbms_types.typecode_object then- - 18 -
-l_result := ut_data_value_object(a_data_value);- - 8 -
-elsif l_type_code in (dbms_types.typecode_table, dbms_types.typecode_varray, dbms_types.typecode_namedcollection) then- - 8 -
-l_result := ut_data_value_collection(a_data_value);- -
-else- -
-raise_application_error(-20000, 'Data type '||a_data_value.gettypename||' in ANYDATA is not supported by utPLSQL');- -
-end if;- -
-end if;- - 35 -
-return l_result;- + +
- +
+ +return gc_context_name;- -
end;- + +
- -
- -
end;+UT3.UT_DATA_VALUE_BLOB
100 % covered
11 relevant lines. 11 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_SESSION_INFO
98.68 % lines covered
76 relevant lines. 75 lines covered and 1 lines missed+
- -
+type body ut_data_value_blob astype body ut_session_info as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_blob(self in out nocopy ut_data_value_blob, a_value blob) return self as result isconstructor function ut_session_info(self in out nocopy ut_session_info) return self as result is+- -
begin- - 36 -
-self.data_value := a_value;- - 36 -
-self.self_type := $$plsql_unit;- - 36 -
-self.data_type := 'blob';- - 36 + +
- + 116 +
+ +self.self_type := $$plsql_unit;- + 116 +
+ +dbms_application_info.read_client_info( client_info );- + 116 +
+ +dbms_application_info.read_module( module, action );- + 116
+return;- +
end;- +
- -
+overriding member function is_null return boolean is-- run hooks+- +
+ +member procedure before_calling_run(self in out nocopy ut_session_info, a_run in ut_run) is- -
begin- - 86 -
-return (self.data_value is null);- -
-end;- -
+ +- + 115 +
+ +ut_session_context.set_context( 'run_paths', ut_utils.to_string( ut_utils.table_to_clob( a_run.run_paths,',' ), null ) );- + 115 +
+dbms_application_info.set_module( 'utPLSQL', null );- -
-overriding member function to_string return varchar2 is- -
-begin- - 32 -
-return self.format_multi_line( ut_utils.to_string(self.data_value) );- -
end;- + +
- -
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
+ +l_result integer;- +
+ +member procedure after_calling_run(self in out nocopy ut_session_info, a_run in ut_run) is- +
+ +begin- + 115 +
+ +ut_session_context.clear_context( 'run_paths' );- + 115 +
+ +dbms_application_info.set_module( module, action );- + 115 +
+dbms_application_info.set_client_info( client_info );- -
+l_other ut_data_value_blob;end;+- +
+ +- +
+ +-- suite hooks- +
+ +member procedure before_calling_suite(self in out nocopy ut_session_info, a_suite in ut_logical_suite) is- -
begin- - 13 -
-if a_other is of (ut_data_value_blob) then- - 13 -
-l_other := treat(a_other as ut_data_value_blob);- - 13 -
-l_result := dbms_lob.compare( self.data_value, l_other.data_value);- + +
- + 333 +
+ +if a_suite is not of (ut_suite_context) then- + 322 +
+ +ut_session_context.set_context( 'suite_path', a_suite.path );- + 322 +
+ +ut_session_context.set_context( 'suite_package', a_suite.object_owner||'.'||a_suite.object_name );- + 322 +
+ +ut_session_context.set_context( 'suite_description', a_suite.description );- + 322 +
+ +ut_session_context.set_context( 'suite_start_time', ut_utils.to_string(a_suite.start_time) );- + 322 +
+ +dbms_application_info.set_module( 'utPLSQL', a_suite.object_name );- +
+ +else- + 11 +
+ +ut_session_context.set_context( 'context_name', a_suite.name );- + 11 +
+ +ut_session_context.set_context( 'context_path', a_suite.path);- + 11 +
+ +ut_session_context.set_context( 'context_description', a_suite.description );- + 11 +
+ +ut_session_context.set_context( 'context_start_time', ut_utils.to_string(a_suite.start_time) );- -
end if;- - 13 -
-return l_result;- + +
- -
end;- + +
- -
- -
-overriding member function is_multi_line return boolean is- + +
- +
+ +member procedure after_calling_suite(self in out nocopy ut_session_info, a_suite in ut_logical_suite) is- -
begin- - 64 -
-return not self.is_null() and dbms_lob.getlength(self.data_value) > 100;- + +
- + 333 +
+ +if a_suite is not of (ut_suite_context) then- + 322 +
+ +ut_session_context.clear_context( 'suite_package' );- + 322 +
+ +ut_session_context.clear_context( 'suite_path' );- + 322 +
+ +ut_session_context.clear_context( 'suite_description' );- + 322 +
+ +ut_session_context.clear_context( 'suite_start_time' );- +
+ +else- + 11 +
+ +ut_session_context.clear_context( 'context_name' );- + 11 +
+ +ut_session_context.clear_context( 'context_path' );- + 11 +
+ +ut_session_context.clear_context( 'context_description' );- + 11 +
+ +ut_session_context.clear_context( 'context_start_time' );- +
+ +end if;- -
end;- -
end;UT3.UT_DATA_VALUE_BOOLEAN
87.5 % covered
16 relevant lines. 14 lines covered and 2 lines missed-
- -
-type body ut_data_value_boolean 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.- -
-*/- + +
- -
- -
-constructor function ut_data_value_boolean(self in out nocopy ut_data_value_boolean, a_value boolean) return self as result is- + +
- +
+ +member procedure before_calling_test(self in out nocopy ut_session_info, a_test in ut_test) is- -
begin- - 91 -
-self.data_value := ut_utils.boolean_to_int(a_value);- - 91 -
-self.self_type := $$plsql_unit;- - 91 -
-self.data_type := 'boolean';- - 91 -
-return;- + +
- + 319 +
+ +ut_session_context.set_context( 'test_name', a_test.object_owner||'.'||a_test.object_name||'.'||a_test.name );- + 319 +
+ +ut_session_context.set_context( 'test_description', a_test.description );- + 319 +
+ +ut_session_context.set_context( 'test_start_time', ut_utils.to_string(a_test.start_time) );- -
end;- + +
- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +member procedure after_calling_test (self in out nocopy ut_session_info, a_test in ut_test) is- -
begin- - 22 -
-return (self.data_value is null);- + +
- + 319 +
+ +ut_session_context.clear_context( 'test_name' );- + 319 +
+ +ut_session_context.clear_context( 'test_description' );- + 319 +
+ +ut_session_context.clear_context( 'test_start_time' );- -
end;- + +
- -
- -
-overriding member function to_string return varchar2 is- + +
- +
+ +member procedure before_calling_executable(self in out nocopy ut_session_info, a_executable in ut_executable) is- -
begin- - 89 -
-return ut_utils.to_string(ut_utils.int_to_boolean(self.data_value));- + +
- + 440 +
+ +ut_session_context.set_context( 'current_executable_type', a_executable.executable_type );- + 440 +
+ +ut_session_context.set_context(- +
+ +'current_executable_name',- +
+ +a_executable.owner_name||'.'||a_executable.object_name||'.'||a_executable.procedure_name- +
+ +);- + 440 +
+ +dbms_application_info.set_client_info( a_executable.procedure_name );- -
end;- + +
- -
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_other ut_data_value_boolean;- -
-l_result integer;- + +
- +
+ +member procedure after_calling_executable(self in out nocopy ut_session_info, a_executable in ut_executable) is- -
begin- - 13 -
-if a_other is of (ut_data_value_boolean) then- - 13 -
-l_other := treat(a_other as ut_data_value_boolean);- - 13 -
-if self.data_value = l_other.data_value then- - 3 -
-l_result := 0;- - 10 -
-elsif self.data_value > l_other.data_value then- -
-l_result := 1;- - 10 -
-elsif self.data_value < l_other.data_value then- - 2 -
-l_result := -1;- -
-end if;- -
-else- -
-raise value_error;- -
-end if;- - 13 -
-return l_result;- + +
- + 440 +
+ +ut_session_context.clear_context( 'current_executable_type' );- + 440 +
+ +ut_session_context.clear_context( 'current_executable_name' );- + 440 +
+ +dbms_application_info.set_client_info( null );- -
end;- -
-- -
end;UT3.UT_DATA_VALUE_CLOB
100 % covered
11 relevant lines. 11 lines covered and 0 lines missed-
- -
-type body ut_data_value_clob 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.- -
-*/- + +
- -
- -
-constructor function ut_data_value_clob(self in out nocopy ut_data_value_clob, a_value clob) return self as result is- + +
- +
+ +member procedure on_finalize(self in out nocopy ut_session_info, a_run in ut_run) is- -
begin- - 59 -
-self.data_value := a_value;- - 59 -
-self.self_type := $$plsql_unit;- - 59 -
-self.data_type := 'clob';- - 59 -
-return;- + +
- + 116 +
+ +dbms_application_info.set_client_info( client_info );- + 116 +
+ +dbms_application_info.set_module( module, action );- + 117 +
+ +ut_session_context.clear_all_context();- -
end;- + +
- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +overriding member function get_supported_events return ut_varchar2_list is- -
begin- - 124 -
-return (self.data_value is null);- -
-end;- -
-- -
-overriding member function to_string return varchar2 is- -
-begin- - 51 -
-return self.format_multi_line( ut_utils.to_string(self.data_value) );- -
-end;- -
-- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_result integer;- -
-l_other ut_data_value_clob;- -
-begin- - 13 -
-if a_other is of (ut_data_value_clob) then- - 13 -
-l_other := treat(a_other as ut_data_value_clob);- - 13 -
-l_result := dbms_lob.compare( self.data_value, l_other.data_value);- -
-end if;- - 13 -
-return l_result;- + +
- + 116 +
+ +return ut_varchar2_list(- +
+ +ut_event_manager.gc_before_run,- +
+ +ut_event_manager.gc_before_suite,- +
+ +ut_event_manager.gc_before_test,- +
+ +ut_event_manager.gc_before_before_all,- +
+ +ut_event_manager.gc_before_before_each,- +
+ +ut_event_manager.gc_before_before_test,- +
+ +ut_event_manager.gc_before_test_execute,- +
+ +ut_event_manager.gc_before_after_test,- +
+ +ut_event_manager.gc_before_after_each,- +
+ +ut_event_manager.gc_before_after_all,- +
+ +ut_event_manager.gc_after_run,- +
+ +ut_event_manager.gc_after_suite,- +
+ +ut_event_manager.gc_after_test,- +
+ +ut_event_manager.gc_after_before_all,- +
+ +ut_event_manager.gc_after_before_each,- +
+ +ut_event_manager.gc_after_before_test,- +
+ +ut_event_manager.gc_after_test_execute,- +
+ +ut_event_manager.gc_after_after_test,- +
+ +ut_event_manager.gc_after_after_each,- +
+ +ut_event_manager.gc_after_after_all,- +
+ +ut_event_manager.gc_finalize- +
+ +);- -
end;- + +
- -
- -
-overriding member function is_multi_line return boolean is- + +
- +
+ +overriding member procedure on_event( self in out nocopy ut_session_info, a_event_name varchar2, a_event_item ut_event_item) is- -
begin- - 102 -
-return not self.is_null() and (dbms_lob.getlength(self.data_value) > 100 or dbms_lob.instr(self.data_value,chr(10)) > 0);- + +
- + 2530 +
+ +case- + 2530 +
+ +when a_event_name in (- +
+ +ut_event_manager.gc_before_before_all,- + 1 +
+ +ut_event_manager.gc_before_before_each,- + 1 +
+ +ut_event_manager.gc_before_before_test,- + 1 +
+ +ut_event_manager.gc_before_test_execute,- + 1 +
+ +ut_event_manager.gc_before_after_test,- + 1 +
+ +ut_event_manager.gc_before_after_each,- + 1 +
+ +ut_event_manager.gc_before_after_all- +
+ +)- + 440 +
+ +then before_calling_executable(treat(a_event_item as ut_executable));- + 2090 +
+ +when a_event_name in (- +
+ +ut_event_manager.gc_after_before_all,- + 1 +
+ +ut_event_manager.gc_after_before_each,- + 1 +
+ +ut_event_manager.gc_after_before_test,- + 1 +
+ +ut_event_manager.gc_after_test_execute,- + 1 +
+ +ut_event_manager.gc_after_after_test,- + 1 +
+ +ut_event_manager.gc_after_after_each,- + 1 +
+ +ut_event_manager.gc_after_after_all- +
+ +)- + 440 +
+ +then after_calling_executable(treat(a_event_item as ut_executable));- + 1650 +
+ +when a_event_name = ut_event_manager.gc_before_test- + 319 +
+ +then self.before_calling_test(treat(a_event_item as ut_test));- + 1331 +
+ +when a_event_name = ut_event_manager.gc_after_test- + 319 +
+ +then self.after_calling_test(treat(a_event_item as ut_test));- + 1012 +
+ +when a_event_name = ut_event_manager.gc_after_suite- + 333 +
+ +then after_calling_suite(treat(a_event_item as ut_logical_suite));- + 679 +
+ +when a_event_name = ut_event_manager.gc_before_suite- + 333 +
+ +then before_calling_suite(treat(a_event_item as ut_logical_suite));- + 346 +
+ +when a_event_name = ut_event_manager.gc_before_run- + 115 +
+ +then before_calling_run(treat(a_event_item as ut_run));- + 231 +
+ +when a_event_name = ut_event_manager.gc_after_run- + 115 +
+ +then after_calling_run(treat(a_event_item as ut_run));- + 116 +
+ +when a_event_name = ut_event_manager.gc_finalize- + 116 +
+ +then on_finalize(treat(a_event_item as ut_run));- +
+ +else null;- +
+ +end case;- -
end;- + +
- -
- -
end;+UT3.UT_DATA_VALUE_COLLECTION
83.33 % covered
42 relevant lines. 35 lines covered and 7 lines missed+ +
- +
+end;UT3.UT_CONSOLE_REPORTER_BASE
100 % lines covered
5 relevant lines. 5 lines covered and 0 lines missed+
- -
+type body ut_data_value_collection astype body ut_console_reporter_base is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_collection(self in out nocopy ut_data_value_collection, a_value anydata) return self as result isstatic procedure set_color_enabled(a_flag boolean) is+- -
begin- - 8 -
-self.data_value := a_value;- - 8 -
-self.self_type := $$plsql_unit;- - 8 -
-self.data_type := case when a_value is not null then lower(a_value.gettypename) else 'undefined' end;- - 8 -
-return;- + +
- + 116 +
+ +ut_ansiconsole_helper.color_enabled(a_flag);- -
end;- + +
- + +
- +
+ +member procedure print_red_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- +
+ +begin- + 207 +
+self.print_text(ut_ansiconsole_helper.red(a_text));- -
+overriding member function is_null return boolean isend;+- -
+l_is_null boolean;+- -
+l_data_is_null pls_integer;member procedure print_green_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is+- -
-l_sql varchar2(32767);- -
+l_cursor number;begin+ +- + 180 +
+self.print_text(ut_ansiconsole_helper.green(a_text));- -
+l_status number;end;+- +
+ +- +
+ +member procedure print_yellow_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- -
begin- - 28 -
-if self.data_value is null then- -
-l_is_null := true;- -
+ +--check if typename is a schema based object- + 1 +
+self.print_text(ut_ansiconsole_helper.yellow(a_text));- -
+elseend;+- -
---XMLTYPE doesn't like the null being passed to ANYDATA so we need to check if anydata holds null Object/collection- - 28 -
+l_sql := '+ +- +
+member procedure print_cyan_text(self in out nocopy ut_console_reporter_base, a_text varchar2) is- -
-declare- -
+l_data '||self.data_value.gettypename()||';begin+ +- + 10 +
+self.print_text(ut_ansiconsole_helper.cyan(a_text));- -
-l_value anydata := :a_value;- -
-x integer;- -
-begin- -
-x := l_value.getCollection(l_data);- -
-:l_data_is_null := case when l_data is null then 1 else 0 end;- -
-end;';- - 28 -
-l_cursor := sys.dbms_sql.open_cursor();- - 28 -
-sys.dbms_sql.parse(l_cursor, l_sql, dbms_sql.native);- - 28 -
-sys.dbms_sql.bind_variable(l_cursor,'a_value',self.data_value);- - 28 -
-sys.dbms_sql.bind_variable(l_cursor,'l_data_is_null',l_data_is_null);- -
-begin- - 28 -
-l_status := sys.dbms_sql.execute(l_cursor);- - 28 -
-sys.dbms_sql.variable_value(l_cursor,'l_data_is_null',l_data_is_null);- - 28 -
-sys.dbms_sql.close_cursor(l_cursor);- -
-exception when others then- -
-if sys.dbms_sql.is_open(l_cursor) then- -
-sys.dbms_sql.close_cursor(l_cursor);- -
-end if;- -
-raise;- -
-end;- - 28 -
-l_is_null := ut_utils.int_to_boolean(l_data_is_null);- -
-end if;- - 28 -
-return l_is_null;- -
-end;- -
-- -
-member function is_empty return boolean is- -
-begin- - 4 -
-if not self.is_null() then- - 4 -
-return xmltype(self.data_value).getclobval()- -
-= '<' || substr(self.data_value.gettypename, instr(self.data_value.gettypename, '.') + 1) || '/>';- -
-else- -
-return null;- -
-end if;- -
-end;- -
-- -
-overriding member function to_string return varchar2 is- -
-l_result varchar2(32767);- -
-l_clob clob;- -
-begin- - 7 -
-if self.is_null() then- - 1 -
-l_result := ut_utils.to_string( to_char(null) );- -
-else- - 10 -
-ut_expectation_processor.set_xml_nls_params();- - 6 -
-select xmlserialize(content xmltype(self.data_value) indent) into l_clob from dual;- - 6 -
-l_result := ut_utils.to_string( l_clob, null );- - 6 -
-ut_expectation_processor.reset_nls_params();- -
-end if;- - 7 -
-return self.format_multi_line( l_result );- -
-end;- -
-- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_self_data xmltype;- -
-l_other_data xmltype;- -
-l_other ut_data_value_collection;- -
-l_result integer;- -
-begin- - 1 -
-if a_other is of (ut_data_value_collection) then- - 1 -
-l_other := treat(a_other as ut_data_value_collection);- -
---needed for 11g xe as it fails on constructing XMLTYPE from null ANYDATA- - 1 -
-if not self.is_null() and not l_other.is_null() then- - 2 -
-ut_expectation_processor.set_xml_nls_params();- - 1 -
-l_self_data := xmltype.createxml(self.data_value);- - 1 -
-l_other_data := xmltype.createxml(l_other.data_value);- - 1 -
-ut_expectation_processor.reset_nls_params();- - 1 -
-if l_self_data is not null and l_other_data is not null then- - 1 -
-l_result := dbms_lob.compare( l_self_data.getclobval(), l_other_data.getclobval() );- -
-end if;- -
-end if;- -
-else- -
-raise value_error;- -
-end if;- - 1 -
-return l_result;- -
-end;- -
-- -
-overriding member function is_multi_line return boolean is- -
-begin- - 14 -
-return not self.is_null();- -
end;- + +
- -
- -
end;+UT3.UT_DATA_VALUE_DATE
93.75 % covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_EXECUTABLE
92.75 % lines covered
69 relevant lines. 64 lines covered and 5 lines missed+
- -
+type body ut_data_value_date astype body ut_executable is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_date(self in out nocopy ut_data_value_date, a_value date) return self as result isconstructor function ut_executable(+- +
+ +self in out nocopy ut_executable, a_owner varchar2, a_package varchar2,- +
+ +a_procedure_name varchar2, a_executable_type varchar2- +
+ +) return self as result is- -
begin- - 90 -
-self.data_value := a_value;- - 90 -
-self.self_type := $$plsql_unit;- - 90 -
-self.data_type := 'date';- - 90 + +
- + 848 +
+ +self.self_type := $$plsql_unit;- + 848 +
+ +self.executable_type := a_executable_type;- + 848 +
+ +self.owner_name := a_owner;- + 848 +
+ +self.object_name := a_package;- + 848 +
+ +self.procedure_name := a_procedure_name;- + 848
-return;- -
-end;- -
-- -
-overriding member function is_null return boolean is- -
-begin- - 22 -
+return (self.data_value is null);- +
end;- +
- -
-overriding member function to_string return varchar2 is- +
+ +member function form_name(a_skip_current_user_schema boolean := false) return varchar2 is- + 563 +
+ +l_owner_name varchar2(250) := owner_name;- -
begin- - 84 -
-return ut_utils.to_string(self.data_value);- -
-end;- -
+ +- + 563 +
+ +if a_skip_current_user_schema and sys_context('userenv', 'current_schema') = owner_name then- + 379 +
+l_owner_name := null;- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
+l_result integer;end if;+ +- + 563 +
+return ut_metadata.form_name(l_owner_name, object_name, procedure_name);- -
+l_other ut_data_value_date;end;+- +
+ +- +
+ +member procedure do_execute(self in out nocopy ut_executable, a_item in out nocopy ut_suite_item) is- +
+ +l_completed_without_errors boolean;- -
begin- - 43 -
-if a_other is of (ut_data_value_date) then- - 43 -
-l_other := treat(a_other as ut_data_value_date);- - 43 -
-if self.data_value = l_other.data_value then- - 7 -
-l_result := 0;- - 36 -
-elsif self.data_value > l_other.data_value then- - 13 -
-l_result := 1;- - 23 -
-elsif self.data_value < l_other.data_value then- - 9 -
+ +l_result := -1;- + 396 +
+ +l_completed_without_errors := self.do_execute(a_item);- +
+ +end do_execute;- +
+ +- + 505 +
+ +member function do_execute(self in out nocopy ut_executable, a_item in out nocopy ut_suite_item) return boolean is- +
+l_statement varchar2(4000);- -
+end if;l_status number;+- -
-else- -
-raise value_error;- -
-end if;- - 43 -
+return l_result;l_cursor_number number;+ +- + 505 +
+ +l_completed_without_errors boolean := true;- + 505 +
+ +l_failed_with_invalid_pck boolean := true;- +
+l_start_transaction_id varchar2(250);- -
+end;l_end_transaction_id varchar2(250);+- +
- -
end;UT3.UT_DATA_VALUE_DSINTERVAL
100 % covered
15 relevant lines. 15 lines covered and 0 lines missed-
- -
-type body ut_data_value_dsinterval as- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- +
+ +function is_defined return boolean is- + 505 +
+ +l_result boolean := false;- + 505 +
+ +l_message_part varchar2(4000) := 'Call params for ' || self.executable_type || ' are not valid: ';- +
+ +begin- -
- -
-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- + +
- + 505 +
+ +if self.object_name is null then- + 1 +
+ +self.error_stack := l_message_part || 'package is not defined';- + 504 +
+ +elsif self.procedure_name is null then- + 5 +
+ +self.error_stack := l_message_part || 'procedure is not defined';- +
+ +else- + 499 +
+ +l_result := true;- +
+ +end if;- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 505 +
+ +return l_result;- +
+ +end is_defined;- -
- -
-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.- -
-*/- + +
- +
+ +function is_invalid return boolean is- + 12 +
+ +l_result boolean := true;- + 12 +
+ +l_message_part varchar2(4000) := 'Call params for ' || self.executable_type || ' are not valid: ';- +
+ +begin- -
- -
-constructor function ut_data_value_dsinterval(self in out nocopy ut_data_value_dsinterval, a_value dsinterval_unconstrained) return self as result is- -
-begin- - 82 -
-self.data_value := a_value;- - 82 -
-self.self_type := $$plsql_unit;- - 82 -
-self.data_type := 'interval day to second';- - 82 -
-return;- -
-end;- + +
- + 12 +
+ +if not ut_metadata.package_valid(self.owner_name, self.object_name) then- + 6 +
+ +self.error_stack := l_message_part || 'package '||upper(self.owner_name||'.'||self.object_name)||' does not exist or is invalid.';- + 6 +
+ +elsif not ut_metadata.procedure_exists(self.owner_name, self.object_name, self.procedure_name) then- + 6 +
+ +self.error_stack := l_message_part || 'procedure '||upper(self.owner_name || '.' || self.object_name || '.' ||self.procedure_name)||' does not exist.';- +
+ +else- +
+ +l_result := false;- +
+ +end if;- -
- -
-overriding member function is_null return boolean is- -
-begin- - 16 -
-return (self.data_value is null);- -
-end;- + +
- + 12 +
+ +return l_result;- +
+ +end is_invalid;- -
- -
-overriding member function to_string return varchar2 is- -
-begin- - 78 -
-return ut_utils.to_string(self.data_value);- -
-end;- + +
- +
+ +procedure save_dbms_output is- +
+ +l_status number;- +
+ +l_line varchar2(32767);- +
+ +begin- -
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_result integer;- -
-l_other ut_data_value_dsinterval;- -
-begin- - 43 -
-if a_other is of (ut_data_value_dsinterval) then- - 43 -
-l_other := treat(a_other as ut_data_value_dsinterval);- - 43 -
-if self.data_value = l_other.data_value then- - 7 -
-l_result := 0;- - 36 -
-elsif self.data_value > l_other.data_value then- - 15 -
-l_result := 1;- - 21 -
-elsif self.data_value < l_other.data_value then- - 7 -
-l_result := -1;- + +
- + 499 +
+ +dbms_output.get_line(line => l_line, status => l_status);- + 499 +
+ +if l_status != 1 then- + 326 +
+ +dbms_lob.createtemporary(self.serveroutput, true, dur => dbms_lob.session);- -
end if;- -
-end if;- - 43 -
-return l_result;- -
-end;- -
-- -
end;UT3.UT_DATA_VALUE_NUMBER
93.75 % covered
16 relevant lines. 15 lines covered and 1 lines missed-
- -
-type body ut_data_value_number 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- + +
- + 951 +
+ +while l_status != 1 loop- + 452 +
+ +if l_line is not null then- + 451 +
+ +ut_utils.append_to_clob(self.serveroutput, l_line||chr(10));- +
+ +end if;- + 452 +
+ +dbms_output.get_line(line => l_line, status => l_status);- +
+ +end loop;- +
+ +end save_dbms_output;- +
+ +begin- + 505 +
+ +l_start_transaction_id := dbms_transaction.local_transaction_id(true);- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- +
+ +--listener - before call to executable- + 505 +
+ +ut_event_manager.trigger_event('before_'||self.executable_type, self);- -
- -
-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.- -
-*/- + +
- + 505 +
+ +l_completed_without_errors := is_defined();- + 505 +
+ +if l_completed_without_errors then- + 499 +
+ +l_statement :=- +
+ +'declare' || chr(10) ||- +
+ +' l_error_stack varchar2(32767);' || chr(10) ||- +
+ +' l_error_backtrace varchar2(32767);' || chr(10) ||- +
+ +'begin' || chr(10) ||- +
+ +' begin' || chr(10) ||- +
+ +' ' || self.form_name( a_skip_current_user_schema => true ) || ';' || chr(10) ||- +
+ +' exception' || chr(10) ||- +
+ +' when others then ' || chr(10) ||- +
+ +' l_error_stack := dbms_utility.format_error_stack;' || chr(10) ||- +
+ +' l_error_backtrace := dbms_utility.format_error_backtrace;' || chr(10) ||- +
+ +' --raise on ORA-04068, ORA-04061: existing state of packages has been discarded to avoid unrecoverable session exception' || chr(10) ||- +
+ +' end;' || chr(10) ||- +
+ +' :a_error_stack := l_error_stack;' || chr(10) ||- +
+ +' :a_error_backtrace := l_error_backtrace;' || chr(10) ||- +
+ +'end;';- -
- -
-constructor function ut_data_value_number(self in out nocopy ut_data_value_number, a_value number) return self as result is- -
-begin- - 627 -
-self.data_value := a_value;- - 627 -
-self.self_type := $$plsql_unit;- - 627 -
-self.data_type := 'number';- - 627 -
-return;- -
-end;- + +
- + 499 +
+ +ut_utils.debug_log('ut_executable.do_execute l_statement: ' || l_statement);- -
- -
-overriding member function is_null return boolean is- -
-begin- - 44 -
-return (self.data_value is null);- -
-end;- + +
- + 499 +
+ +l_cursor_number := dbms_sql.open_cursor;- -
- -
-overriding member function to_string return varchar2 is- -
-begin- - 618 -
-return ut_utils.to_string(self.data_value);- -
-end;- + +
- +
+ +/**- +
+ +* The code will allow to execute once we check if packages are defined- +
+ +* If it fail with 6550 (usually invalid package) it will check if because of invalid state or missing- +
+ +* if for any other reason we will propagate it up as we didnt expected.- +
+ +**/- +
+ +begin- + 499 +
+ +dbms_sql.parse(l_cursor_number, statement => l_statement, language_flag => dbms_sql.native);- + 492 +
+ +dbms_sql.bind_variable(l_cursor_number, 'a_error_stack', to_char(null), 32767);- + 492 +
+ +dbms_sql.bind_variable(l_cursor_number, 'a_error_backtrace', to_char(null), 32767);- + 492 +
+ +l_status := dbms_sql.execute(l_cursor_number);- + 487 +
+ +dbms_sql.variable_value(l_cursor_number, 'a_error_stack', self.error_stack);- + 487 +
+ +dbms_sql.variable_value(l_cursor_number, 'a_error_backtrace', self.error_backtrace);- + 487 +
+ +dbms_sql.close_cursor(l_cursor_number);- +
+ +exception- + 24 +
+ +when ut_utils.ex_invalid_package then- + 12 +
+ +l_failed_with_invalid_pck := is_invalid();- + 12 +
+ +dbms_sql.close_cursor(l_cursor_number);- + 12 +
+ +if not l_failed_with_invalid_pck then- +
+ +raise;- +
+ +end if;- +
+ +when others then- +
+ +dbms_sql.close_cursor(l_cursor_number);- +
+ +raise;- +
+ +end;- -
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_result integer;- -
-l_other ut_data_value_number;- -
-begin- - 310 -
-if a_other is of (ut_data_value_number) then- - 310 -
-l_other := treat(a_other as ut_data_value_number);- - 310 -
-if self.data_value = l_other.data_value then- - 245 -
-l_result := 0;- - 65 -
-elsif self.data_value > l_other.data_value then- - 43 -
-l_result := 1;- - 22 -
-elsif self.data_value < l_other.data_value then- - 8 -
-l_result := -1;- + +
- + 499 +
+ +save_dbms_output;- +
+ +- + 499 +
+ +l_completed_without_errors := (self.error_stack||self.error_backtrace) is null;- + 499 +
+ +if self.error_stack like '%ORA-04068%' or self.error_stack like '%ORA-04061%' then- + 2 +
+ +ut_expectation_processor.set_invalidation_exception();- -
end if;- -
-else- -
-raise value_error;- + +
- -
end if;- - 310 -
-return l_result;- -
-end;- + +
- -
- -
end;+UT3.UT_DATA_VALUE_OBJECT
84.62 % covered
39 relevant lines. 33 lines covered and 6 lines missed+ +
- +
+ +--listener - after call to executable- + 505 +
+ +ut_event_manager.trigger_event('after_'||self.executable_type, self);- +
+ +- + 505 +
+ +l_end_transaction_id := dbms_transaction.local_transaction_id();- + 505 +
+ +if l_start_transaction_id != l_end_transaction_id or l_end_transaction_id is null then- + 3 +
+ +a_item.add_transaction_invalidator(self.form_name());- +
+ +end if;- +
+ +- + 505 +
+ +return l_completed_without_errors;- +
+ +- +
+ +end do_execute;- +
+ +- +
+ +member function get_error_stack_trace return varchar2 is- +
+ +begin- + 589 +
+ +return rtrim(self.error_stack||self.error_backtrace, chr(10));- +
+ +end;- +
+end;UT3.UT_EXECUTABLE_TEST
96.15 % lines covered
26 relevant lines. 25 lines covered and 1 lines missed+
- -
+type body ut_data_value_object astype body ut_executable_test as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_object(self in out nocopy ut_data_value_object, a_value anydata) return self as result isconstructor function ut_executable_test(+- +
+ +self in out nocopy ut_executable_test, a_owner varchar2, a_package varchar2,- +
+ +a_procedure_name varchar2, a_executable_type varchar2- +
+ +) return self as result is- -
begin- - 20 -
-self.data_value := a_value;- - 20 -
-self.self_type := $$plsql_unit;- - 20 -
-self.data_type := case when a_value is not null then lower(a_value.gettypename) else 'undefined' end;- - 20 + +
- + 2468 +
+ +self.self_type := $$plsql_unit;- + 2468 +
+ +self.executable_type := a_executable_type;- + 2468 +
+ +self.owner_name := a_owner;- + 2468 +
+ +self.object_name := a_package;- + 2468 +
+ +self.procedure_name := a_procedure_name;- + 2468
-return;- -
-end;- -
-- -
-overriding member function is_null return boolean is- -
-l_is_null boolean;- -
+l_data_is_null pls_integer;- -
+l_sql varchar2(32767);end;+- -
+l_cursor number;+- -
+l_status number;member procedure do_execute(+- -
-begin- - 50 -
-if self.data_value is null then- -
+l_is_null := true;self in out nocopy ut_executable_test, a_item in out nocopy ut_suite_item,+ +- +
+ +a_expected_error_codes in ut_integer_list- +
+) is- -
+--check if typename is a schema based objectl_completed_without_errors boolean;+- -
-else- -
---XMLTYPE doesn't like the null being passed to ANYDATA so we need to check if anydata holds null Object/collection- - 50 -
+l_sql := 'begin+ +- + 337 +
+ +l_completed_without_errors := self.do_execute(a_item, a_expected_error_codes);- +
+end do_execute;- -
+declare+- -
+l_data '||self.data_value.gettypename()||';member function do_execute(+- -
+l_value anydata := :a_value;self in out nocopy ut_executable_test, a_item in out nocopy ut_suite_item,+- -
+x integer;a_expected_error_codes in ut_integer_list+- -
+begin) return boolean is+- -
+x := l_value.getObject(l_data);l_expected_except_message varchar2(4000);+- -
+:l_data_is_null := case when l_data is null then 1 else 0 end;+- -
-end;';- - 50 -
-l_cursor := sys.dbms_sql.open_cursor();- - 50 -
-sys.dbms_sql.parse(l_cursor, l_sql, dbms_sql.native);- - 50 -
-sys.dbms_sql.bind_variable(l_cursor,'a_value',self.data_value);- - 50 -
+sys.dbms_sql.bind_variable(l_cursor,'l_data_is_null',l_data_is_null);function failed_expec_errnum_message(a_expected_error_codes in ut_integer_list) return varchar is+ +- +
+ +l_actual_error_no integer;- +
+ +l_expected_error_codes varchar2(4000);- +
+ +l_fail_message varchar2(4000);- +
+begin- -
-begin- - 50 -
-l_status := sys.dbms_sql.execute(l_cursor);- - 50 -
-sys.dbms_sql.variable_value(l_cursor,'l_data_is_null',l_data_is_null);- - 50 -
-sys.dbms_sql.close_cursor(l_cursor);- -
-exception when others then- -
-if sys.dbms_sql.is_open(l_cursor) then- -
-sys.dbms_sql.close_cursor(l_cursor);- -
-end if;- -
-raise;- -
-end;- - 50 -
+l_is_null := ut_utils.int_to_boolean(l_data_is_null);--Convert the ut_varchar2_list to string to can construct the message+ +- + 16 +
+ +l_expected_error_codes := ut_utils.table_to_clob(a_expected_error_codes, ', ');- +
+ +- + 16 +
+ +if self.error_stack is null then- + 1 +
+ +l_fail_message := 'Expected one of exceptions ('||l_expected_error_codes||') but nothing was raised.';- +
+ +else- + 15 +
+ +l_actual_error_no := regexp_substr(self.error_stack, '^[a-zA-Z]{3}(-[0-9]+)', subexpression=>1);- + 15 +
+ +if not l_actual_error_no member of a_expected_error_codes then- + 2 +
+ +l_fail_message := 'Actual: '||l_actual_error_no||' was expected to ';- + 2 +
+ +if cardinality(a_expected_error_codes) > 1 then- +
+l_fail_message := l_fail_message || 'be one of: ('||l_expected_error_codes||')';- -
-end if;- - 50 -
+return l_is_null;else+ +- + 2 +
+l_fail_message := l_fail_message || 'equal: '||l_expected_error_codes;- -
-end;- -
+end if;+ +- + 2 +
+l_fail_message := substr( l_fail_message||chr(10)||self.error_stack||chr(10)||self.error_backtrace, 1, 4000 );- -
+overriding member function to_string return varchar2 isend if;+- -
+l_result varchar2(32767);end if;+- -
-l_clob clob;- +
+ +- + 16 +
+ +return l_fail_message;- +
+ +end;- -
begin- - 11 -
-if self.is_null() then- - 4 -
+l_result := ut_utils.to_string( to_char(null) );- -
-else- - 7 -
-ut_expectation_processor.set_xml_nls_params();- - 7 -
-select xmlserialize(content xmltype(self.data_value) indent) into l_clob from dual;- - 7 -
-l_result := ut_utils.to_string( l_clob, null );- - 7 -
+ut_expectation_processor.reset_nls_params();--Create a ut_executable object and call do_execute after that get the data to know the test's execution result+ +- + 337 +
+ +self.do_execute(a_item);- +
+ +- + 337 +
+ +if a_expected_error_codes is not null and a_expected_error_codes is not empty then- + 16 +
+l_expected_except_message := failed_expec_errnum_message(a_expected_error_codes);- -
-end if;- - 11 -
-return self.format_multi_line( l_result );- -
-end;- + +
- + 16 +
+ +if l_expected_except_message is not null then- + 3 +
+ +ut_expectation_processor.add_expectation_result(- +
+ut_expectation_result(ut_utils.gc_failure, null, l_expected_except_message, false)- -
+overriding member function compare_implementation(a_other ut_data_value) return integer is);+- -
-l_self_data xmltype;- -
-l_other_data xmltype;- -
-l_other ut_data_value_object;- -
-l_result integer;- -
-begin- - 6 -
-if a_other is of (ut_data_value_object) then- - 6 -
-l_other := treat(a_other as ut_data_value_object);- -
---needed for 11g xe as it fails on constructing XMLTYPE from null ANYDATA- - 6 -
-if not self.is_null() and not l_other.is_null() then- - 6 -
-ut_expectation_processor.set_xml_nls_params();- - 4 -
-l_self_data := xmltype.createxml(self.data_value);- - 4 -
-l_other_data := xmltype.createxml(l_other.data_value);- - 4 -
-ut_expectation_processor.reset_nls_params();- - 4 -
-if l_self_data is not null and l_other_data is not null then- - 4 -
-l_result := dbms_lob.compare( l_self_data.getclobval(), l_other_data.getclobval() );- -
-end if;- -
end if;- -
-else- -
-raise value_error;- + +
- + 16 +
+ +self.error_stack := null;- + 16 +
+ +self.error_backtrace := null;- -
end if;- - 6 -
-return l_result;- -
-end;- + +
- -
- -
-overriding member function is_multi_line return boolean is- -
-begin- - 22 -
-return not self.is_null();- + +
- + 337 +
+ +return (self.error_stack||self.error_backtrace) is null;- -
end;- -
-- -
end;+UT3.UT_DATA_VALUE_REFCURSOR
95 % covered
60 relevant lines. 57 lines covered and 3 lines missed+ +
- +
+end;+UT3.UT_EXPECTATION_RESULT
93.33 % lines covered
15 relevant lines. 14 lines covered and 1 lines missed+
- -
+type body ut_data_value_refcursor astype body ut_expectation_result is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_refcursor(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor) return self as result isconstructor function ut_expectation_result(+- -
-begin- - 19 -
-init(a_value);- - 18 -
+return;self in out nocopy ut_expectation_result, a_status integer,+ +- +
+ +a_description varchar2, a_message clob, a_include_caller_info boolean := true- +
+) return self as result is- -
-end;- -
-- -
-constructor function ut_data_value_refcursor(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor, a_exclude varchar2 ) return self as result is- -
begin- - 11 -
-if a_exclude is not null then- - 2 -
-self.exclude_xpath := '//'||replace(a_exclude,',','|//');- + +
- + 799 +
+ +self.self_type := $$plsql_unit;- + 799 +
+ +self.status := a_status;- + 799 +
+ +self.description := a_description;- + 799 +
+ +self.message := a_message;- + 800 +
+ +if self.status = ut_utils.gc_failure and a_include_caller_info then- + 427 +
+ +self.caller_info := ut_expectation_processor.who_called_expectation(dbms_utility.format_call_stack());- -
end if;- - 11 -
-init(a_value);- - 11 + +
- + 799
+return;- +
end;- +
- -
+constructor function ut_data_value_refcursor(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor, a_exclude ut_varchar2_list ) return self as result ismember function get_result_clob(self in ut_expectation_result) return clob is+- -
+i integer;l_result clob;+- -
begin- - 2 -
+ +i := a_exclude.first;- + 33 +
+if self.description is not null then- 6 -
-while i is not null loop- - 4 -
-if a_exclude(i) is not null then- - 4 -
+self.exclude_xpath := self.exclude_xpath || '//'||a_exclude(i)||'|';ut_utils.append_to_clob(l_result, '"'||self.description||'"');+ +- + 6 +
+ +if self.message is not null then- + 6 +
+ut_utils.append_to_clob(l_result, chr(10));- -
end if;- - 4 -
-i := a_exclude.next(i);- -
-end loop;- - 2 -
-self.exclude_xpath := rtrim(self.exclude_xpath,',|');- - 2 -
-init(a_value);- - 2 -
-return;- + +
- +
+ +end if;- + 33 +
+ +ut_utils.append_to_clob(l_result, self.message);- + 33 +
+ +return l_result;- -
end;- + +
- -
- -
+ +member procedure init(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor) is- +
+ +member function get_result_lines(self in ut_expectation_result) return ut_varchar2_list is- +
+ +begin- + 33 +
+return ut_utils.clob_to_table(get_result_clob(), 4000 );- -
+l_ctx number;end;+- -
-l_xml xmltype;- - 32 -
+c_bulk_rows constant integer := 1000;+ +- +
+member function result return integer is- -
-l_current_date_format varchar2(4000);- -
-pragma autonomous_transaction;- -
begin- - 32 -
-self.is_cursor_null := ut_utils.boolean_to_int(a_value is null);- - 32 -
-self.self_type := $$plsql_unit;- - 32 -
-self.data_value := sys_guid();- - 32 -
-self.data_type := 'refcursor';- - 32 -
-if a_value is not null and a_value%isopen then- - 27 -
-self.row_count := 0;- -
--- We use DBMS_XMLGEN in order to:- -
--- 1) be able to process data in bulks (set of rows)- -
--- 2) be able to influence the ROWSET/ROW tags- -
--- 3) be able to influence the way NULL values are handled (empty TAG)- -
--- 4) be able to influence the way TIMESTAMP is formatted.- -
--- Due to Oracle feature/bug, it is not possible to change the DATE formatting of cursor data- -
--- AFTER the cursor was opened.- -
--- The only solution for this is to change NLS settings before opening the cursor.- -
---- -
--- This would work fine if we could use DBMS_XMLGEN.restartQuery.- -
--- The restartQuery fails however if PLSQL variables of TIMESTAMP/INTERVAL or CLOB/BLOB are used.- -
-- - 42 -
-ut_expectation_processor.set_xml_nls_params();- - 27 -
-l_ctx := dbms_xmlgen.newContext(a_value);- - 27 -
-dbms_xmlgen.setNullHandling(l_ctx, dbms_xmlgen.empty_tag);- - 27 -
-dbms_xmlgen.setMaxRows(l_ctx, c_bulk_rows);- -
-- - 51 -
-loop- - 51 -
-l_xml := dbms_xmlgen.getxmltype(l_ctx);- -
-- - 50 -
-insert into ut_cursor_data(cursor_data_guid, row_no, row_data)- -
-select self.data_value, rownum, value(a) from table( xmlsequence( extract(l_xml,'ROWSET/*') ) ) a;- + +
- +
+ +return self.status;- +
+ +end;- -
- - 50 -
-exit when sql%rowcount = 0;- + +
- +
+end;UT3.UT_FILE_MAPPING
100 % lines covered
2 relevant lines. 2 lines covered and 0 lines missed+ +
- +
+ +type body ut_file_mapping as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 utPLSQL Project- -
- - 24 -
-self.row_count := self.row_count + sql%rowcount;- -
-end loop;- + +
- +
+ +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- -
- - 26 -
-ut_expectation_processor.reset_nls_params();- - 26 -
-if a_value%isopen then- -
-close a_value;- -
-end if;- - 26 -
-dbms_xmlgen.closeContext(l_ctx);- -
-end if;- - 31 -
-commit;- -
-exception- - 1 -
-when others then- - 1 -
-ut_expectation_processor.reset_nls_params();- - 1 -
-if a_value%isopen then- -
-close a_value;- -
-end if;- - 1 -
-dbms_xmlgen.closeContext(l_ctx);- - 1 -
-rollback;- - 1 -
-raise;- -
-end;- + +
- +
+ +http://www.apache.org/licenses/LICENSE-2.0- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +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.- +
+ +*/- + 48 +
+ +map member function pk return varchar2 is- -
begin- - 59 -
-return ut_utils.int_to_boolean(self.is_cursor_null);- + +
- + 48 +
+ +return object_type||' '||object_owner||'.'||object_name;- -
end;- -
-- -
-overriding member function to_string return varchar2 is- -
-type t_clob_tab is table of clob;- -
-l_results t_clob_tab;- - 27 -
-c_max_rows constant integer := 10;- -
-l_result clob;- -
-l_result_xml xmltype;- -
-l_result_string varchar2(32767);- -
-begin- - 27 -
-dbms_lob.createtemporary(l_result,true);- -
---return first 100 rows- - 27 -
-select xmlserialize( content ucd.row_data no indent)- -
-bulk collect into l_results- -
-from ut_cursor_data ucd- -
-where ucd.cursor_data_guid = self.data_value- -
-and ucd.row_no <= c_max_rows;- -
-- - 82 -
-for i in 1 .. l_results.count loop- - 55 -
-dbms_lob.append(l_result,l_results(i));- - 55 -
-if i < l_results.count then- - 31 -
-ut_utils.append_to_clob(l_result,chr(10));- -
-end if;- -
-end loop;- -
-- - 27 -
-l_result_string := ut_utils.to_string(l_result,null);- - 27 -
-dbms_lob.freetemporary(l_result);- - 27 -
-return self.format_multi_line( l_result_string );- -
-end;- -
-- -
-member function is_empty return boolean is- -
-begin- - 56 -
-return self.row_count = 0;- -
-end;- -
-- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_result integer;- -
-l_other ut_data_value_refcursor;- -
-begin- - 11 -
-if a_other is of (ut_data_value_refcursor) then- - 11 -
-l_other := treat(a_other as ut_data_value_refcursor);- - 11 -
-select count(1)- -
-into l_result- -
-from (select case when coalesce(self.exclude_xpath, l_other.exclude_xpath) is not null then deletexml( ucd.row_data, coalesce(self.exclude_xpath, l_other.exclude_xpath) ) else ucd.row_data end as row_data,- -
-ucd.row_no- -
-from ut_cursor_data ucd where ucd.cursor_data_guid = self.data_value) exp- -
-full outer join (select case when coalesce(self.exclude_xpath, l_other.exclude_xpath) is not null then deletexml( ucd.row_data, coalesce(self.exclude_xpath, l_other.exclude_xpath) ) else ucd.row_data end as row_data,- -
-ucd.row_no- -
-from ut_cursor_data ucd where ucd.cursor_data_guid = l_other.data_value) act- -
-on (exp.row_no = act.row_no)- -
-where nvl(dbms_lob.compare(xmlserialize( content exp.row_data no indent), xmlserialize( content act.row_data no indent)),1) != 0- -
-and rownum <= 1;- -
-else- -
-raise value_error;- -
-end if;- - 11 -
-return l_result;- -
-end;- -
-- -
-overriding member function is_multi_line return boolean is- -
-begin- - 54 -
-return not self.is_null() and not self.is_empty();- -
-end;- -
-- -
end;+UT3.UT_DATA_VALUE_TIMESTAMP
93.75 % covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_LOGICAL_SUITE
100 % lines covered
42 relevant lines. 42 lines covered and 0 lines missed+
- -
+type body ut_data_value_timestamp astype body ut_logical_suite as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_timestamp(self in out nocopy ut_data_value_timestamp, a_value timestamp_unconstrained) return self as result isoverriding member procedure mark_as_skipped(self in out nocopy ut_logical_suite) is+- -
begin- - 96 -
-self.data_value := a_value;- - 96 -
-self.self_type := $$plsql_unit;- - 96 -
-self.data_type := 'timestamp';- - 96 -
+ +return;- + 2 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_suite, self);- + 1 +
+ +self.start_time := current_timestamp;- + 3 +
+ +for i in 1 .. self.items.count loop- + 2 +
+self.items(i).mark_as_skipped();- +
+ +end loop;- + 1 +
+ +self.end_time := self.start_time;- + 1 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_suite, self);- + 1 +
+ +self.calc_execution_result();- -
end;- -
-- -
-overriding member function is_null return boolean is- -
-begin- - 22 -
+return (self.data_value is null);- -
-end;- + +
- +
+overriding member procedure set_rollback_type(self in out nocopy ut_logical_suite, a_rollback_type integer, a_force boolean := false) is- -
-overriding member function to_string return varchar2 is- -
begin- - 90 -
-return ut_utils.to_string(self.data_value);- -
+ +end;- + 1419 +
+ +self.rollback_type := case when a_force then a_rollback_type else coalesce(self.rollback_type, a_rollback_type) end;- + 3289 +
+ +for i in 1 .. self.items.count loop- + 1870 +
+self.items(i).set_rollback_type(self.rollback_type, a_force);- -
+end loop;+- -
+overriding member function compare_implementation(a_other ut_data_value) return integer isend;+- -
+l_result integer;+- -
+l_other ut_data_value_timestamp;overriding member function do_execute(self in out nocopy ut_logical_suite) return boolean is+- +
+ +l_suite_savepoint varchar2(30);- +
+ +l_item_savepoint varchar2(30);- +
+ +l_completed_without_errors boolean;- -
begin- - 47 -
-if a_other is of (ut_data_value_timestamp) then- - 47 -
-l_other := treat(a_other as ut_data_value_timestamp);- - 47 -
-if self.data_value = l_other.data_value then- - 7 -
-l_result := 0;- - 40 -
-elsif self.data_value > l_other.data_value then- - 18 -
-l_result := 1;- - 22 -
-elsif self.data_value < l_other.data_value then- - 8 -
-l_result := -1;- -
+ +end if;- + 141 +
+ +ut_utils.debug_log('ut_logical_suite.execute');- +
+ +- + 141 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_suite, self);- + 141 +
+ +self.start_time := current_timestamp;- +
+ +- + 285 +
+for i in 1 .. self.items.count loop- -
-else- -
+raise value_error;-- execute the item (test or suite)+ +- + 144 +
+self.items(i).do_execute();- -
-end if;- - 47 -
-return l_result;- -
-end;- +
+ +end loop;- + +
- + 141 +
+ +self.calc_execution_result();- + 141 +
+self.end_time := current_timestamp;- -
end;+UT3.UT_DATA_VALUE_TIMESTAMP_LTZ
93.75 % covered
16 relevant lines. 15 lines covered and 1 lines missed-
- -
-type body ut_data_value_timestamp_ltz as- -
+/*+ +- + 141 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_suite, self);- +
+ +- + 141 +
+ +return l_completed_without_errors;- +
+ +end;- +
+ +- +
+ +overriding member procedure calc_execution_result(self in out nocopy ut_logical_suite) is- +
+ +l_result integer(1);- +
+ +begin- + 347 +
+ +if self.items is not null and self.items.count > 0 then- + 876 +
+ +for i in 1 .. self.items.count loop- + 531 +
+ +self.results_count.sum_counter_values( self.items(i).results_count );- +
+ +end loop;- + 345 +
+ +l_result := self.results_count.result_status();- +
+ +else- +
+ +--if suite is empty then it's successful (no errors)- + 2 +
+ +l_result := ut_utils.gc_success;- +
+ +end if;- +
+ +- + 347 +
+ +self.result := l_result;- +
+ +end;- +
+ +- +
+ +overriding member procedure mark_as_errored(self in out nocopy ut_logical_suite, a_error_stack_trace varchar2) is- +
+ +begin- + 2 +
+ +ut_utils.debug_log('ut_logical_suite.fail');- + 2 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_suite, self);- + 2 +
+ +self.start_time := current_timestamp;- + 4 +
+ +for i in 1 .. self.items.count loop- +
+ +-- execute the item (test or suite)- + 2 +
+ +self.items(i).mark_as_errored(a_error_stack_trace);- +
+ +end loop;- + 2 +
+ +self.calc_execution_result();- + 2 +
+ +self.end_time := self.start_time;- + 2 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_suite, self);- +
+ +end;- +
+ +- +
+ +overriding member function get_error_stack_traces return ut_varchar2_list is- +
+ +begin- + 1 +
+ +return ut_varchar2_list();- +
+ +end;- +
+ +- +
+ +overriding member function get_serveroutputs return clob is- +
+ +begin- + 1 +
+ +return null;- +
+ +end;- +
+ +- +
+ +overriding member function get_transaction_invalidators return ut_varchar2_list is- +
+ +l_result ut_varchar2_list;- +
+ +l_child_results ut_varchar2_list;- +
+ +begin- + 3 +
+ +l_result := self.transaction_invalidators;- + 5 +
+ +for i in 1 .. self.items.count loop- + 2 +
+ +l_child_results := self.items(i).get_transaction_invalidators();- + 4 +
+ +for j in 1 .. l_child_results.count loop- + 2 +
+ +if l_child_results(j) not member of l_result then- + 4 +
+ +l_result.extend; l_result(l_result.last) := l_child_results(j);- +
+ +end if;- +
+ +end loop;- +
+ +end loop;- + 3 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;UT3.UT_OBJECT_NAME
90 % lines covered
10 relevant lines. 9 lines covered and 1 lines missed+ +
- +
+ +type body ut_object_name as- +
+/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+constructor function ut_object_name(self in out nocopy ut_object_name, owner varchar2, name varchar2) return self as result is+- -
-constructor function ut_data_value_timestamp_ltz(self in out nocopy ut_data_value_timestamp_ltz, a_value timestamp_ltz_unconstrained) return self as result is- -
begin- - 96 -
-self.data_value := a_value;- - 96 -
-self.self_type := $$plsql_unit;- - 96 -
-self.data_type := 'timestamp with local time zone';- - 96 + +
- + 2545 +
+ +self.owner := upper(owner);- + 2545 +
+ +self.name := upper(name);- + 2545
-return;- + +
- -
end;- + +
- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +constructor function ut_object_name(self in out nocopy ut_object_name, a_unit_name varchar2) return self as result is- -
begin- - 22 -
+ +return (self.data_value is null);- + 3 +
+ +if instr(a_unit_name,'.') > 0 then- + 3 +
+ +self.owner := upper(regexp_substr(a_unit_name,'[^\.]+', 1, 1));- + 3 +
+self.name := upper(regexp_substr(a_unit_name,'[^\.]+', 1, 2));- -
-end;- -
+else+ +- +
+self.name := upper(a_unit_name);- -
-overriding member function to_string return varchar2 is- -
-begin- - 90 -
-return ut_utils.to_string(self.data_value);- +
+ +end if;- + 3 +
+ +return;- + +
end;- +
+- -
- -
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- + 1 +
+map member function identity return varchar2 is- -
-l_result integer;- -
-l_other ut_data_value_timestamp_ltz;- -
begin- - 47 -
-if a_other is of (ut_data_value_timestamp_ltz) then- - 47 -
-l_other := treat(a_other as ut_data_value_timestamp_ltz);- - 47 -
-if self.data_value = l_other.data_value then- - 7 -
-l_result := 0;- - 40 -
-elsif self.data_value > l_other.data_value then- - 18 -
-l_result := 1;- - 22 -
-elsif self.data_value < l_other.data_value then- - 8 -
-l_result := -1;- -
-end if;- -
-else- -
-raise value_error;- -
-end if;- - 47 -
-return l_result;- + +
- + 1 +
+ +return owner||'.'||name;- -
end;- -
-- -
end;+UT3.UT_DATA_VALUE_TIMESTAMP_TZ
93.75 % covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_OUTPUT_REPORTER_BASE
75 % lines covered
20 relevant lines. 15 lines covered (including 1 lines partially covered ) and 5 lines missed+
- -
+type body ut_data_value_timestamp_tz astype body ut_output_reporter_base is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_timestamp_tz(self in out nocopy ut_data_value_timestamp_tz, a_value timestamp_tz_unconstrained) return self as result isconstructor function ut_output_reporter_base(self in out nocopy ut_output_reporter_base) return self as result is+- -
begin- - 92 -
-self.data_value := a_value;- - 92 -
-self.self_type := $$plsql_unit;- - 92 -
-self.data_type := 'timestamp with time zone';- - 92 + +
- -
return;- + +
- -
end;- + +
- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +member procedure init(self in out nocopy ut_output_reporter_base, a_self_type varchar2, a_output_buffer ut_output_buffer_base := null) is- -
begin- - 22 -
-return (self.data_value is null);- + +
- + 117 +
+ +(self as ut_reporter_base).init(a_self_type);- + 117 +
+ +self.output_buffer := coalesce(a_output_buffer, ut_output_table_buffer());- + 117 +
+ +self.set_reporter_id(self.output_buffer.output_id);- -
end;- + +
- + +
- +
+overriding member procedure set_reporter_id(self in out nocopy ut_output_reporter_base, a_reporter_id raw) is- -
-overriding member function to_string return varchar2 is- -
begin- - 90 -
+ +return ut_utils.to_string(self.data_value);- + 117 +
+ +self.id := a_reporter_id;- + 117 +
+self.output_buffer.init(a_reporter_id);- +
end;- +
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
+l_result integer;member function set_reporter_id(self in ut_output_reporter_base, a_reporter_id raw) return ut_output_reporter_base is+ +- +
+l_result ut_output_reporter_base := self;- -
-l_other ut_data_value_timestamp_tz;- -
begin- - 47 -
-if a_other is of (ut_data_value_timestamp_tz) then- - 47 -
-l_other := treat(a_other as ut_data_value_timestamp_tz);- - 47 -
-if self.data_value = l_other.data_value then- - 7 -
-l_result := 0;- - 40 -
-elsif self.data_value > l_other.data_value then- - 18 -
-l_result := 1;- - 22 -
-elsif self.data_value < l_other.data_value then- - 8 -
+ +l_result := -1;- +
+ +l_result.set_reporter_id(a_reporter_id);- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member procedure before_calling_run(self in out nocopy ut_output_reporter_base, a_run in ut_run) is- +
+ +l_output_table_buffer ut_output_table_buffer;- +
+ +begin- + 113 +
+ +(self as ut_reporter_base).before_calling_run(a_run);- + 113 +
+l_output_table_buffer := treat(self.output_buffer as ut_output_table_buffer);- -
+end if;end;+- -
-else- -
+raise value_error;+ +- +
+member procedure print_text(self in out nocopy ut_output_reporter_base, a_text varchar2, a_item_type varchar2 := null) is- -
-end if;- - 47 -
+return l_result;begin+ +- + 1691 +
+self.output_buffer.send_line(a_text, a_item_type);- +
end;- +
- -
end;UT3.UT_DATA_VALUE_VARCHAR2
94.12 % covered
17 relevant lines. 16 lines covered and 1 lines missed-
- -
-type body ut_data_value_varchar2 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.- -
-*/- -
-- -
-constructor function ut_data_value_varchar2(self in out nocopy ut_data_value_varchar2, a_value varchar2) return self as result is- +
+ +member procedure print_text_lines(self in out nocopy ut_output_reporter_base, a_text_lines ut_varchar2_rows, a_item_type varchar2 := null) is- -
begin- - 392 -
-self.data_value := a_value;- - 392 -
-self.self_type := $$plsql_unit;- - 392 -
-self.data_type := 'varchar2';- - 392 -
-return;- + +
- + 333 +
+ +self.output_buffer.send_lines(a_text_lines, a_item_type);- -
end;- + +
- -
- -
-overriding member function is_null return boolean is- + +
- +
+ +member procedure print_clob(self in out nocopy ut_output_reporter_base, a_clob clob, a_item_type varchar2 := null) is- -
begin- - 807 -
-return (self.data_value is null);- + +
- + 30 +
+ +self.output_buffer.send_clob( a_clob, a_item_type );- -
end;- -
-- -
-overriding member function to_string return varchar2 is- + +
- +
+ +- +
+ +final member function get_lines(a_initial_timeout natural := null, a_timeout_sec natural) return ut_output_data_rows pipelined is- -
begin- - 384 -
-return self.format_multi_line( ut_utils.to_string(self.data_value) );- + +
- + 1/2 + 32 +
+ +for i in (select value(x) val from table(self.output_buffer.get_lines(a_initial_timeout, a_timeout_sec)) x ) loop- +
+ +pipe row (i.val);- +
+ +end loop;- -
end;- + +
- -
- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
-l_result integer;- -
-l_other ut_data_value_varchar2;- + +
- +
+ +final member function get_lines_cursor(a_initial_timeout natural := null, a_timeout_sec natural) return sys_refcursor is- -
begin- - 159 -
-if a_other is of (ut_data_value_varchar2) then- - 159 -
-l_other := treat(a_other as ut_data_value_varchar2);- - 159 -
-if self.data_value = l_other.data_value then- - 134 -
-l_result := 0;- - 25 -
-elsif self.data_value > l_other.data_value then- - 8 -
-l_result := 1;- - 17 -
-elsif self.data_value < l_other.data_value then- - 3 -
-l_result := -1;- -
-end if;- -
-else- -
-raise value_error;- -
-end if;- - 159 -
-return l_result;- + +
- + 81 +
+ +return self.output_buffer.get_lines_cursor(a_initial_timeout, a_timeout_sec);- -
end;- + +
- -
- -
-overriding member function is_multi_line return boolean is- + +
- +
+ +final member procedure lines_to_dbms_output(self in ut_output_reporter_base, a_initial_timeout natural := null, a_timeout_sec natural) is- -
begin- - 768 -
-return not self.is_null() and (length(self.data_value) > 100 or instr(self.data_value,chr(10)) > 0);- + +
- + 32 +
+ +self.output_buffer.lines_to_dbms_output(a_initial_timeout, a_timeout_sec);- -
end;- + +
- -
- -
end;+UT3.UT_DATA_VALUE_YMINTERVAL
100 % covered
15 relevant lines. 15 lines covered and 0 lines missed+ +
- +
+ +overriding final member procedure on_finalize(self in out nocopy ut_output_reporter_base, a_run in ut_run) is- +
+ +begin- + 116 +
+ +self.output_buffer.close();- +
+ +end;- +
+ +- +
+ +overriding member procedure on_initialize(self in out nocopy ut_output_reporter_base, a_run in ut_run) is- +
+ +begin- + 116 +
+ +self.output_buffer.send_line(null, 'initialize');- +
+ +end;- +
+ +- +
+end;UT3.UT_REPORTER_BASE
94.52 % lines covered
73 relevant lines. 69 lines covered and 4 lines missed+
- -
+type body ut_data_value_yminterval astype body ut_reporter_base is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_data_value_yminterval(self in out nocopy ut_data_value_yminterval, a_value yminterval_unconstrained) return self as result isfinal member procedure init(self in out nocopy ut_reporter_base, a_self_type varchar2) is+- -
begin- - 82 -
-self.data_value := a_value;- - 82 -
-self.self_type := $$plsql_unit;- - 82 -
-self.data_type := 'interval year to month';- - 82 + +
- + 117 +
+ +self.self_type := a_self_type;- + 117 +
+ +self.id := sys_guid();- + 117
-return;- + +
- -
end;- + +
- + +
- +
+member procedure set_reporter_id(self in out nocopy ut_reporter_base, a_reporter_id raw) is- -
-overriding member function is_null return boolean is- -
begin- - 16 -
-return (self.data_value is null);- + +
- +
+ +self.id := a_reporter_id;- -
end;- + +
- + +
- +
+member function get_reporter_id return raw is- -
-overriding member function to_string return varchar2 is- -
begin- - 78 -
-return ut_utils.to_string(self.data_value);- + +
- +
+ +return self.id;- -
end;- + +
- + +
- +
+member function get_description return varchar2 is- -
-overriding member function compare_implementation(a_other ut_data_value) return integer is- -
+l_result integer;begin+ +- +
+return 'No description available';- -
+l_other ut_data_value_yminterval;end;+- +
+ +- +
+ +-- run hooks- +
+ +member procedure before_calling_run(self in out nocopy ut_reporter_base, a_run in ut_run) is- -
begin- - 43 -
-if a_other is of (ut_data_value_yminterval) then- - 43 -
-l_other := treat(a_other as ut_data_value_yminterval);- - 43 -
-if self.data_value = l_other.data_value then- - 6 -
-l_result := 0;- - 37 -
-elsif self.data_value > l_other.data_value then- - 15 -
-l_result := 1;- - 22 -
-elsif self.data_value < l_other.data_value then- - 8 -
+ +l_result := -1;- + 113 +
+ +null;- +
+ +end;- +
+ +- +
+ +-- suite hooks- +
+member procedure before_calling_suite(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- -
-end if;- -
-end if;- - 43 -
-return l_result;- +
+ +begin- + 107 +
+ +null;- -
end;- -
end;UT3.UT_BE_BETWEEN
96.43 % covered
28 relevant lines. 27 lines covered and 1 lines missed-
- -
-type body ut_be_between is- -
-/*- -
-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.- -
-*/- -
-- -
-member procedure init(self in out nocopy ut_be_between, a_lower_bound ut_data_value, a_upper_bound ut_data_value) is- -
-begin- - 70 -
-self.self_type := $$plsql_unit;- - 70 -
-self.lower_bound := a_lower_bound;- - 70 -
-self.upper_bound := a_upper_bound;- -
-end;- -
-- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound date, a_upper_bound date)- -
-return self as result is- -
-begin- - 8 -
-init(ut_data_value_date(a_lower_bound), ut_data_value_date(a_upper_bound));- - 8 -
-return;- -
-end;- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound number, a_upper_bound number)- -
-return self as result is- -
-begin- - 8 -
-init(ut_data_value_number(a_lower_bound), ut_data_value_number(a_upper_bound));- - 8 -
-return;- -
-end;- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound varchar2, a_upper_bound varchar2)- -
-return self as result is- -
-begin- - 8 -
-init(ut_data_value_varchar2(a_lower_bound), ut_data_value_varchar2(a_upper_bound));- - 8 -
-return;- -
-end;- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)- -
-return self as result is- -
-begin- - 10 -
-init(ut_data_value_timestamp(a_lower_bound), ut_data_value_timestamp(a_upper_bound));- - 10 -
-return;- -
-end;- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)- -
-return self as result is- + +
- +
+ +member procedure before_calling_before_all(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 10 -
-init(ut_data_value_timestamp_tz(a_lower_bound), ut_data_value_timestamp_tz(a_upper_bound));- - 10 -
-return;- -
+ +end;- + 14 +
+null;- -
+constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)end;+- -
+return self as result ismember procedure after_calling_before_all (self in out nocopy ut_reporter_base, a_executable in ut_executable) is+- -
begin- - 10 -
-init(ut_data_value_timestamp_ltz(a_lower_bound), ut_data_value_timestamp_ltz(a_upper_bound));- - 10 -
-return;- + +
- + 7 +
+ +null;- -
end;- + +
- + +
- +
+member procedure before_calling_before_each(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
-constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained)- -
-return self as result is- -
begin- - 8 -
-init(ut_data_value_yminterval(a_lower_bound), ut_data_value_yminterval(a_upper_bound));- - 8 -
-return;- + +
- + 24 +
+ +null;- + +
end;- +
+ +member procedure after_calling_before_each (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 24 +
+null;- -
+end;+- -
+constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)+- -
+return self as result is-- test hooks+- +
+ +member procedure before_calling_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
begin- - 8 -
-init(ut_data_value_dsinterval(a_lower_bound), ut_data_value_dsinterval(a_upper_bound));- - 8 -
+ +return;- + 301 +
+null;- +
end;- +
- -
+overriding member function run_matcher(self in out nocopy ut_be_between, a_actual ut_data_value) return boolean ismember procedure before_calling_before_test(self in out nocopy ut_reporter_base, a_executable in ut_executable) is+- -
-l_lower_result boolean;- -
+l_upper_result boolean;begin+ +- + 23 +
+null;- -
+l_result boolean;end;+- +
+ +member procedure after_calling_before_test (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 70 -
-if self.lower_bound.data_type = a_actual.data_type then- - 70 -
-l_lower_result := a_actual >= self.lower_bound;- - 70 -
-l_upper_result := a_actual <= self.upper_bound;- - 70 -
-if l_lower_result is not null and l_upper_result is not null then- - 38 -
-l_result := l_lower_result and l_upper_result;- -
-end if;- -
-else- -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 70 -
-return l_result;- + +
- + 23 +
+ +null;- -
end;- + +
- -
- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- + +
- +
+ +member procedure before_calling_test_execute(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 38 -
-return (self as ut_matcher).failure_message(a_actual)- -
-|| ': '|| self.lower_bound.to_string_report(true,false)- -
-|| ' and ' || self.upper_bound.to_string_report(a_with_type_name => false);- + +
- + 291 +
+ +null;- -
end;- -
-- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- + +
- +
+ +member procedure after_calling_test_execute (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 32 -
-return (self as ut_matcher).failure_message_when_negated(a_actual)- -
-|| ': '|| self.lower_bound.to_string_report(true,false)- -
-|| ' and ' || self.upper_bound.to_string_report(a_with_type_name => false);- + +
- + 291 +
+ +null;- -
end;- -
-- -
end;UT3.UT_BE_EMPTY
100 % covered
9 relevant lines. 9 lines covered and 0 lines missed-
- -
-type body ut_be_empty 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.- -
-*/- + +
- -
- -
-member procedure init(self in out nocopy ut_be_empty) is- + +
- +
+ +member procedure before_calling_after_test(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- + +
- 10 -
-self.self_type := $$plsql_unit;- +
+ +null;- -
end;- -
-- -
-constructor function ut_be_empty(self in out nocopy ut_be_empty) return self as result is- + +
- +
+ +member procedure after_calling_after_test (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 10 -
-init();- + +
- 10 -
-return;- +
+ +null;- -
end;- + +
- -
- -
-overriding member function run_matcher(self in out nocopy ut_be_empty, a_actual ut_data_value) return boolean is- -
-l_result boolean;- + +
- +
+ +member procedure after_calling_test(self in out nocopy ut_reporter_base, a_test in ut_test) is- -
begin- - 10 -
-if a_actual is of(ut_data_value_refcursor) then- - 4 -
-l_result := treat(a_actual as ut_data_value_refcursor).is_empty;- - 6 -
-elsif a_actual is of(ut_data_value_collection) then- - 4 -
-l_result := treat(a_actual as ut_data_value_collection).is_empty;- -
-else- - 2 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 10 -
-return l_result;- + +
- + 85 +
+ +null;- -
end;- -
-- -
end;UT3.UT_BE_FALSE
100 % covered
6 relevant lines. 6 lines covered and 0 lines missed-
- -
-type body ut_be_false 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.- -
-*/- + +
- -
- -
-constructor function ut_be_false(self in out nocopy ut_be_false) return self as result is- + +
- +
+ +--suite hooks continued- +
+ +member procedure before_calling_after_each(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 8 -
-self.self_type := $$plsql_unit;- - 8 -
-return;- + +
- + 31 +
+ +null;- -
end;- + +
- +
+ +member procedure after_calling_after_each (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- +
+ +begin- + 31 +
+ +null;- +
+ +end;- -
- -
-overriding member function run_matcher(self in out nocopy ut_be_false, a_actual ut_data_value) return boolean is- -
-l_result boolean;- + +
- +
+ +member procedure before_calling_after_all(self in out nocopy ut_reporter_base, a_executable in ut_executable) is- -
begin- - 8 -
-if a_actual is of (ut_data_value_boolean) then- + +
- + 12 +
+ +null;- +
+ +end;- +
+ +member procedure after_calling_after_all (self in out nocopy ut_reporter_base, a_executable in ut_executable) is- +
+ +begin- 7 -
-l_result := not ut_utils.int_to_boolean(treat(a_actual as ut_data_value_boolean).data_value);- -
-else- - 1 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 8 -
-return l_result;- +
+ +null;- -
end;- + +
- -
- -
end;+UT3.UT_BE_GREATER_OR_EQUAL
95.45 % covered
22 relevant lines. 21 lines covered and 1 lines missed-
- -
-type body ut_be_greater_or_equal AS- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- +
+ +member procedure after_calling_suite(self in out nocopy ut_reporter_base, a_suite in ut_logical_suite) is- +
+ +begin- + 107 +
+ +null;- +
+ +end;- + +
- +
+ +-- run hooks continued- +
+ +member procedure after_calling_run (self in out nocopy ut_reporter_base, a_run in ut_run) is- +
+ +begin- + 75 +
+ +null;- +
+ +end;- +
+ +- +
+ +overriding member function get_supported_events return ut_varchar2_list is- +
+ +begin- + 115 +
+ +return ut_varchar2_list(- +
+ +ut_event_manager.gc_initialize,- +
+ +ut_event_manager.gc_before_run,- +
+ +ut_event_manager.gc_before_suite,- +
+ +ut_event_manager.gc_before_test,- +
+ +ut_event_manager.gc_before_before_all,- +
+ +ut_event_manager.gc_before_before_each,- +
+ +ut_event_manager.gc_before_before_test,- +
+ +ut_event_manager.gc_before_test_execute,- +
+ +ut_event_manager.gc_before_after_test,- +
+ +ut_event_manager.gc_before_after_each,- +
+ +ut_event_manager.gc_before_after_all,- +
+ +ut_event_manager.gc_after_run,- +
+ +ut_event_manager.gc_after_suite,- +
+ +ut_event_manager.gc_after_test,- +
+ +ut_event_manager.gc_after_before_all,- +
+ +ut_event_manager.gc_after_before_each,- +
+ +ut_event_manager.gc_after_before_test,- +
+ +ut_event_manager.gc_after_test_execute,- +
+ +ut_event_manager.gc_after_after_test,- +
+ +ut_event_manager.gc_after_after_each,- +
+ +ut_event_manager.gc_after_after_all,- +
+ +ut_event_manager.gc_finalize- +
+ +);- +
+ +end;- +
+ +- +
+ +overriding member procedure on_event( self in out nocopy ut_reporter_base, a_event_name varchar2, a_event_item ut_event_item) is- +
+ +begin- + 2596 +
+ +case a_event_name- + 2596 +
+ +when ut_event_manager.gc_initialize- + 115 +
+ +then self.on_initialize(treat(a_event_item as ut_run));- + 2481 +
+ +when ut_event_manager.gc_before_run- + 114 +
+ +then self.before_calling_run(treat(a_event_item as ut_run));- + 2367 +
+ +when ut_event_manager.gc_before_suite- + 327 +
+ +then self.before_calling_suite(treat(a_event_item as ut_logical_suite));- + 2040 +
+ +when ut_event_manager.gc_before_before_all- + 15 +
+ +then self.before_calling_before_all(treat(a_event_item as ut_executable));- + 2025 +
+ +when ut_event_manager.gc_before_before_each- + 27 +
+ +then self.before_calling_before_each(treat(a_event_item as ut_executable));- + 1998 +
+ +when ut_event_manager.gc_before_test- + 315 +
+ +then self.before_calling_test(treat(a_event_item as ut_test));- + 1683 +
+ +when ut_event_manager.gc_before_before_test- + 24 +
+ +then self.before_calling_before_test(treat(a_event_item as ut_executable));- + 1659 +
+ +when ut_event_manager.gc_before_test_execute- + 303 +
+ +then self.before_calling_test_execute(treat(a_event_item as ut_executable));- + 1356 +
+ +when ut_event_manager.gc_before_after_test- + 11 +
+ +then self.before_calling_after_test(treat(a_event_item as ut_executable));- + 1345 +
+ +when ut_event_manager.gc_before_after_each- + 34 +
+ +then self.before_calling_after_each(treat(a_event_item as ut_executable));- + 1311 +
+ +when ut_event_manager.gc_before_after_all- + 13 +
+ +then self.before_calling_after_all(treat(a_event_item as ut_executable));- + 1298 +
+ +when ut_event_manager.gc_after_run- + 114 +
+ +then self.after_calling_run(treat(a_event_item as ut_run));- + 1184 +
+ +when ut_event_manager.gc_after_suite- + 327 +
+ +then self.after_calling_suite(treat(a_event_item as ut_logical_suite));- + 857 +
+ +when ut_event_manager.gc_after_before_all- + 15 +
+ +then self.after_calling_before_all(treat(a_event_item as ut_executable));- + 842 +
+ +when ut_event_manager.gc_after_before_each- + 27 +
+ +then self.after_calling_before_each(treat(a_event_item as ut_executable));- + 815 +
+ +when ut_event_manager.gc_after_test- + 315 +
+ +then self.after_calling_test(treat(a_event_item as ut_test));- + 500 +
+ +when ut_event_manager.gc_after_before_test- + 24 +
+ +then self.after_calling_before_test(treat(a_event_item as ut_executable));- + 476 +
+ +when ut_event_manager.gc_after_test_execute- + 303 +
+ +then self.after_calling_test_execute(treat(a_event_item as ut_executable));- + 173 +
+ +when ut_event_manager.gc_after_after_test- + 11 +
+ +then self.after_calling_after_test(treat(a_event_item as ut_executable));- + 162 +
+ +when ut_event_manager.gc_after_after_each- + 34 +
+ +then self.after_calling_after_each(treat(a_event_item as ut_executable));- + 128 +
+ +when ut_event_manager.gc_after_after_all- + 13 +
+ +then self.after_calling_after_all(treat(a_event_item as ut_executable));- + 115 +
+ +when ut_event_manager.gc_finalize- + 115 +
+ +then self.on_finalize(treat(a_event_item as ut_run));- +
+ +else null;- +
+ +end case;- +
+ +end;- +
+ +- +
+end;UT3.UT_RESULTS_COUNTER
100 % lines covered
27 relevant lines. 27 lines covered and 0 lines missed+ +
- +
+ +type body ut_results_counter as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
*/- -
+constructor function ut_results_counter(self in out nocopy ut_results_counter) return self as result is+- -
-member procedure init(self in out nocopy ut_be_greater_or_equal, a_expected ut_data_value) is- -
-begin- - 28 -
-self.self_type := $$plsql_unit;- - 28 -
-self.expected := a_expected;- -
-end;- -
-- -
-constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected date) return self as result is- -
begin- - 4 -
-init(ut_data_value_date(a_expected));- - 4 + +
- + 4201 +
+ +self.disabled_count := 0;- + 4201 +
+ +self.success_count := 0;- + 4201 +
+ +self.failure_count := 0;- + 4201 +
+ +self.errored_count := 0;- + 4201 +
+ +self.warnings_count := 0;- + 4201
-return;- + +
- -
end;- + +
- -
- -
-constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected NUMBER) return self as result is- + +
- +
+ +member procedure set_counter_values(self in out nocopy ut_results_counter, a_status integer) is- -
begin- - 4 -
-init(ut_data_value_number(a_expected));- - 4 -
-return;- + +
- + 361 +
+ +self.disabled_count := case when a_status = ut_utils.gc_disabled then 1 else 0 end;- + 360 +
+ +self.success_count := case when a_status = ut_utils.gc_success then 1 else 0 end;- + 360 +
+ +self.failure_count := case when a_status = ut_utils.gc_failure then 1 else 0 end;- + 360 +
+ +self.errored_count := case when a_status = ut_utils.gc_error then 1 else 0 end;- -
end;- + +
- + +
- +
+member procedure sum_counter_values(self in out nocopy ut_results_counter, a_item ut_results_counter) is- -
-constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_unconstrained) return self as result is- -
begin- - 4 -
-init(ut_data_value_timestamp(a_expected));- - 4 -
-return;- -
-end;- -
+ +- + 673 +
+ +self.disabled_count := self.disabled_count + a_item.disabled_count;- + 673 +
+ +self.success_count := self.success_count + a_item.success_count;- + 673 +
+ +self.failure_count := self.failure_count + a_item.failure_count;- + 673 +
+ +self.errored_count := self.errored_count + a_item.errored_count;- + 673 +
+self.warnings_count := self.warnings_count + a_item.warnings_count;- -
+constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_tz_unconstrained) return self as result isend;+- +
+ +- +
+ +member procedure increase_warning_count(self in out nocopy ut_results_counter, a_count integer := 1) is- -
begin- - 4 -
-init(ut_data_value_timestamp_tz(a_expected));- - 4 -
-return;- -
+ +end;- + 409 +
+self.warnings_count := self.warnings_count + nvl(a_count,0);- -
+end;+- -
+constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_ltz_unconstrained) return self as result is+- +
+ +member function total_count return integer is- -
begin- - 4 -
-init(ut_data_value_timestamp_ltz(a_expected));- - 4 -
-return;- -
+ +end;- +
+ +--skip warnings here- + 70 +
+return self.disabled_count + self.success_count + self.failure_count + self.errored_count;- -
-- -
-constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected yminterval_unconstrained) return self as RESULT IS- -
-begin- - 4 -
-init(ut_data_value_yminterval(a_expected));- - 4 -
-return;- -
end;- + +
- -
- -
-constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected dsinterval_unconstrained) return self as RESULT IS- + +
- +
+ +member function result_status return integer is- +
+ +l_result integer;- -
begin- - 4 -
-init(ut_data_value_dsinterval(a_expected));- - 4 -
-return;- -
-end;- -
+ +- + 459 +
+ +if self.errored_count > 0 then- + 208 +
+ +l_result := ut_utils.gc_error;- + 251 +
+ +elsif self.failure_count > 0 then- + 46 +
+ +l_result := ut_utils.gc_failure;- + 205 +
+ +elsif self.success_count > 0 then- + 200 +
+ +l_result := ut_utils.gc_success;- + 5 +
+ +elsif self.disabled_count > 0 then- + 1 +
+l_result := ut_utils.gc_disabled;- -
-overriding member function run_matcher(self in out nocopy ut_be_greater_or_equal, a_actual ut_data_value) return boolean is- -
-l_result boolean;- -
-begin- - 28 -
-if self.expected.data_type = a_actual.data_type then- - 28 -
-l_result := a_actual >= self.expected;- -
else- -
-l_result := (self as ut_matcher).run_matcher(a_actual);- + +
- + 4 +
+ +l_result := ut_utils.gc_error;- -
end if;- - 28 + +
- + 459
-return l_result;- -
-end;- -
-- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- -
-begin- - 21 -
-return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- -
-end;- -
-- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- -
-begin- - 7 -
-return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- + +
- -
end;- + +
- -
- -
end;+UT3.UT_BE_GREATER_THAN
95.45 % covered
22 relevant lines. 21 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_RUN
93.94 % lines covered
33 relevant lines. 31 lines covered (including 1 lines partially covered ) and 2 lines missed+
- -
+type body ut_be_greater_than AStype body ut_run as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+member procedure init(self in out nocopy ut_be_greater_than, a_expected ut_data_value) isconstructor function ut_run(+- -
-begin- - 27 -
-self.self_type := $$plsql_unit;- - 27 -
+self.expected := a_expected;self in out nocopy ut_run,+ +- +
+ +a_items ut_suite_items,- +
+a_run_paths ut_varchar2_list := null,- -
+end;a_schema_names ut_varchar2_rows := null,+- -
+a_exclude_objects ut_object_names := null,+- -
+constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected date) return self as result isa_include_objects ut_object_names := null,+- -
-begin- - 3 -
-init(ut_data_value_date(a_expected));- - 3 -
+return;a_project_file_mappings ut_file_mappings := null,+ +- +
+ +a_test_file_mappings ut_file_mappings := null,- +
+a_client_character_set varchar2 := null,- -
+end;a_random_test_order_seed positive := null,+- -
+a_run_tags ut_varchar2_rows := null+- -
+constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected NUMBER) return self as result is) return self as result is+- -
begin- - 9 -
-init(ut_data_value_number(a_expected));- - 9 -
-return;- -
-end;- -
-- -
-constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_unconstrained) return self as result is- -
-begin- - 3 -
-init(ut_data_value_timestamp(a_expected));- - 3 -
-return;- -
+ +end;- + 116 +
+ +self.run_paths := a_run_paths;- + 116 +
+ +self.run_tags := a_run_tags;- + 116 +
+ +self.self_type := $$plsql_unit;- + 116 +
+ +self.items := a_items;- + 116 +
+ +self.client_character_set := lower(a_client_character_set);- + 116 +
+ +self.random_test_order_seed := a_random_test_order_seed;- + 116 +
+ +self.results_count := ut_results_counter();- + 116 +
+ +self.test_file_mappings := coalesce(a_test_file_mappings, ut_file_mappings());- + 116 +
+self.coverage_options := ut_coverage_options(- -
+a_schema_names,+- -
+constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_tz_unconstrained) return self as result isa_exclude_objects,+- -
-begin- - 3 -
-init(ut_data_value_timestamp_tz(a_expected));- - 3 +
+ +a_include_objects,- +
+ +a_project_file_mappings- +
+ +);- + 116
-return;- -
+end;- -
+end;+- -
+constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_ltz_unconstrained) return self as result is+- +
+ +overriding member procedure mark_as_skipped(self in out nocopy ut_run) is- -
begin- - 3 -
-init(ut_data_value_timestamp_ltz(a_expected));- - 3 -
+ +return;- +
+null;- +
end;- +
- -
+constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected yminterval_unconstrained) return self as RESULT ISoverriding member function do_execute(self in out nocopy ut_run) return boolean is+- +
+ +l_completed_without_errors boolean;- -
begin- - 3 -
-init(ut_data_value_yminterval(a_expected));- - 3 -
+ +return;- + 115 +
+ut_utils.debug_log('ut_run.execute');- -
-end;- -
- -
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected dsinterval_unconstrained) return self as RESULT IS- + 116 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_run, self);- + 115 +
+self.start_time := current_timestamp;- -
-begin- - 3 -
-init(ut_data_value_dsinterval(a_expected));- - 3 -
+return;+ +- +
+ +-- clear anything that might stay in the session's cache- + 116 +
+ut_expectation_processor.clear_expectations;- -
-end;- -
- -
+ +overriding member function run_matcher(self in out nocopy ut_be_greater_than, a_actual ut_data_value) return boolean is- + 257 +
+ +for i in 1 .. self.items.count loop- + 142 +
+l_completed_without_errors := self.items(i).do_execute();- -
+l_result boolean;end loop;+- +
+ +- + 115 +
+ +self.calc_execution_result();- +
+ +- + 115 +
+ +self.end_time := current_timestamp;- +
+ +- + 115 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_run, self);- +
+ +- + 115 +
+ +return l_completed_without_errors;- +
+ +end;- +
+ +- +
+ +overriding member procedure set_rollback_type(self in out nocopy ut_run, a_rollback_type integer, a_force boolean := false) is- -
begin- - 27 -
-if self.expected.data_type = a_actual.data_type then- - 27 -
-l_result := a_actual > self.expected;- + +
- + 2/4 + 2 +
+ +self.rollback_type := case when a_force then a_rollback_type else coalesce(self.rollback_type, a_rollback_type) end;- + 4 +
+ +for i in 1 .. self.items.count loop- + 2 +
+ +self.items(i).set_rollback_type(self.rollback_type, a_force);- +
+ +end loop;- +
+ +end;- +
+ +- +
+ +overriding member procedure calc_execution_result(self in out nocopy ut_run) is- +
+ +l_result integer(1);- +
+ +begin- + 115 +
+ +if self.items is not null and self.items.count > 0 then- + 256 +
+ +for i in 1 .. self.items.count loop- + 142 +
+ +self.results_count.sum_counter_values( self.items(i).results_count );- +
+ +end loop;- + 114 +
+ +l_result := self.results_count.result_status();- -
else- -
-l_result := (self as ut_matcher).run_matcher(a_actual);- + +
- +
+ +--if suite is empty then it's successful (no errors)- + 1 +
+ +l_result := ut_utils.gc_success;- -
end if;- - 27 -
-return l_result;- + +
- +
+ +- + 115 +
+ +self.result := l_result;- -
end;- + +
- -
- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- + +
- +
+ +overriding member procedure mark_as_errored(self in out nocopy ut_run, a_error_stack_trace varchar2) is- -
begin- - 20 -
-return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- + +
- +
+ +null;- -
end;- + +
- -
- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- + +
- +
+ +overriding member function get_error_stack_traces return ut_varchar2_list is- -
begin- - 7 -
-return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- + +
- + 1 +
+ +return ut_varchar2_list();- -
end;- + +
- -
- -
end;+UT3.UT_BE_LESS_OR_EQUAL
95.45 % covered
22 relevant lines. 21 lines covered and 1 lines missed+ +
- +
+ +overriding member function get_serveroutputs return clob is- +
+ +begin- + 1 +
+ +return null;- +
+ +end;- +
+ +- +
+ +- +
+end;UT3.UT_RUN_INFO
100 % lines covered
10 relevant lines. 10 lines covered and 0 lines missed+
- -
+type body ut_be_less_or_equal AStype body ut_run_info as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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 andSee the License for the specific language governing permissions andTEST_GET_REPORTERS_LIST+- +
limitations under the License.- +
*/- -
-- -
+member procedure init(self in out nocopy ut_be_less_or_equal, a_expected ut_data_value) isconstructor function ut_run_info(self in out nocopy ut_run_info) return self as result is+ +- + 116 +
+l_ut_owner varchar2(250) := ut_utils.ut_owner;- -
begin- - 28 + +
- + 116
-self.self_type := $$plsql_unit;- - 28 -
+ +self.expected := a_expected;- + 116 +
+execute immediate- -
+end;'select '||l_ut_owner||'.ut.version() from dual'+- -
+into self.ut_version;+- -
-constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected date) return self as result is- -
-begin- - 4 -
-init(ut_data_value_date(a_expected));- - 4 -
-return;- -
-end;- + +
- + 116 +
+ +dbms_utility.db_version( self.db_version, self.db_compatibility );- + 116 +
+ +db_os_type := dbms_utility.port_string();- +
+ +- + 116 +
+ +execute immediate- +
+'select '||l_ut_owner||'.ut_key_value_pair(x.product, x.version) from product_component_version x'- -
+constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected NUMBER) return self as result isbulk collect into self.db_component_version;+- -
-begin- - 4 -
-init(ut_data_value_number(a_expected));- - 4 -
+return;+ +- + 116 +
+ +execute immediate- +
+'select '||l_ut_owner||'.ut_key_value_pair(x.parameter, x.value)- -
+end;from nls_session_parameters x'+- -
+bulk collect into self.nls_session_params;+- -
-constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_unconstrained) return self as result is- -
-begin- - 4 -
-init(ut_data_value_timestamp(a_expected));- - 4 -
+return;+ +- + 116 +
+ +execute immediate- +
+ +'select '||l_ut_owner||'.ut_key_value_pair(x.parameter, x.value) from nls_instance_parameters x'- +
+bulk collect into self.nls_instance_params;- -
-end;- + +
- + 116 +
+execute immediate- -
+constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_tz_unconstrained) return self as result is'select '||l_ut_owner||'.ut_key_value_pair(x.parameter, x.value) from nls_database_parameters x'+- -
-begin- - 4 -
-init(ut_data_value_timestamp_tz(a_expected));- - 4 -
-return;- -
-end;- -
-- -
-constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_ltz_unconstrained) return self as result is- -
-begin- - 4 -
-init(ut_data_value_timestamp_ltz(a_expected));- - 4 -
-return;- -
-end;- -
-- -
-constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected yminterval_unconstrained) return self as RESULT IS- -
-begin- - 4 -
-init(ut_data_value_yminterval(a_expected));- - 4 -
-return;- -
-end;- -
-- -
-constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected dsinterval_unconstrained) return self as RESULT IS- -
-begin- - 4 -
-init(ut_data_value_dsinterval(a_expected));- - 4 +
+ +bulk collect into self.nls_db_params;- + 116
-return;- -
-end;- -
-- -
-overriding member function run_matcher(self in out nocopy ut_be_less_or_equal, a_actual ut_data_value) return boolean is- -
-l_result boolean;- -
-begin- - 28 -
-if self.expected.data_type = a_actual.data_type then- - 28 -
-l_result := a_actual <= self.expected;- -
-else- -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 28 -
-return l_result;- -
-end;- -
-- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- -
-begin- - 21 -
-return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- -
-end;- -
-- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- -
-begin- - 7 -
-return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- + +
- -
end;- -
-- -
end;+UT3.UT_BE_LESS_THAN
95.45 % covered
22 relevant lines. 21 lines covered and 1 lines missed+ +
- +
+end;UT3.UT_SUITE
100 % lines covered
44 relevant lines. 44 lines covered and 0 lines missed+
- -
+type body ut_be_less_than astype body ut_suite as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+member procedure init(self in out nocopy ut_be_less_than, a_expected ut_data_value) isconstructor function ut_suite (+- -
-begin- - 21 -
-self.self_type := $$plsql_unit;- - 21 -
+self.expected := a_expected;self in out nocopy ut_suite, a_object_owner varchar2, a_object_name varchar2, a_line_no integer,+ +- +
+ +a_tags ut_varchar2_rows := null- +
+) return self as result is- -
-end;- -
-- -
-constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected date) return self as result is- -
begin- - 3 -
-init(ut_data_value_date(a_expected));- - 3 + +
- + 284 +
+ +self.self_type := $$plsql_unit;- + 284 +
+ +self.init(a_object_owner, a_object_name, a_object_name, a_line_no);- + 284 +
+ +self.items := ut_suite_items();- + 284 +
+ +before_all_list := ut_executables();- + 284 +
+ +after_all_list := ut_executables();- + 284 +
+ +self.tags := coalesce(a_tags,ut_varchar2_rows());- + 284
-return;- -
-end;- -
+- -
+constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected number) return self as result isend;+- -
-begin- - 3 -
-init(ut_data_value_number(a_expected));- - 3 -
+return;+ +- +
+ +overriding member function do_execute(self in out nocopy ut_suite) return boolean is- +
+l_suite_savepoint varchar2(30);- -
+end;l_no_errors boolean;+- +
- -
+constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_unconstrained)procedure propagate_error(a_error_stack_trace varchar2) is+- -
-return self as result is- -
-begin- - 3 -
-init(ut_data_value_timestamp(a_expected));- - 3 -
+return;begin+ +- + 4 +
+ +for i in 1..self.items.count loop- + 2 +
+ +self.items(i).mark_as_errored(a_error_stack_trace);- +
+end loop;- -
+end;end;+- -
-- -
-constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_tz_unconstrained)- -
-return self as result is- -
begin- - 3 -
-init(ut_data_value_timestamp_tz(a_expected));- - 3 -
-return;- -
-end;- + +
- + 204 +
+ +ut_utils.debug_log('ut_suite.execute');- + +
- + 204 +
+ +if self.get_disabled_flag() then- + 1 +
+ +self.mark_as_skipped();- +
+ +else- + 203 +
+ +self.start_time := current_timestamp;- + 204 +
+ut_event_manager.trigger_event(ut_event_manager.gc_before_suite, self);- -
-constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_ltz_unconstrained)- -
+return self as result is+ +- + 203 +
+l_suite_savepoint := self.create_savepoint_if_needed();- -
-begin- - 3 -
-init(ut_data_value_timestamp_ltz(a_expected));- - 3 -
-return;- -
-end;- -
- -
-constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected yminterval_unconstrained)- -
-return self as result is- -
-begin- - 3 -
-init(ut_data_value_yminterval(a_expected));- - 3 -
+ +return;- +
+ +--includes listener calls for before and after actions- + 203 +
+ +l_no_errors := true;- + 227 +
+ +for i in 1 .. self.before_all_list.count loop- + 26 +
+ +l_no_errors := self.before_all_list(i).do_execute(self);- + 26 +
+ +if not l_no_errors then- + 2 +
+ +propagate_error(self.before_all_list(i).get_error_stack_trace());- + 2 +
+ +exit;- +
+ +end if;- +
+end loop;- -
-end;- -
- -
-constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected dsinterval_unconstrained)- -
+ +return self as result is- + 203 +
+ +if l_no_errors then- + 582 +
+ +for i in 1 .. self.items.count loop- + 381 +
+self.items(i).do_execute();- -
-begin- - 3 -
-init(ut_data_value_dsinterval(a_expected));- - 3 -
-return;- -
-end;- +
+ +end loop;- +
+ +end if;- -
- -
-overriding member function run_matcher(self in out nocopy ut_be_less_than, a_actual ut_data_value) return boolean is- -
+ +l_result boolean;- + 218 +
+ +for i in 1 .. after_all_list.count loop- + 15 +
+ +l_no_errors := self.after_all_list(i).do_execute(self);- + 15 +
+ +if not l_no_errors then- + 2 +
+self.put_warning(self.after_all_list(i).get_error_stack_trace());- -
-begin- - 21 -
-if self.expected.data_type = a_actual.data_type then- - 21 -
-l_result := a_actual < self.expected;- -
-else- -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 21 -
-return l_result;- -
-end;- +
+ +end if;- +
+ +end loop;- +
+ +- + 203 +
+ +self.rollback_to_savepoint(l_suite_savepoint);- + +
- + 203 +
+ +self.calc_execution_result();- + 203 +
+ +self.end_time := current_timestamp;- + 203 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_suite, self);- +
+end if;- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- -
-begin- - 14 -
-return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- +
+ +- + 204 +
+ +return l_no_errors;- -
end;- + +
- -
- -
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +overriding member function get_error_stack_traces(self ut_suite) return ut_varchar2_list is- + 29 +
+l_stack_traces ut_varchar2_list := ut_varchar2_list();- -
begin- - 7 -
-return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- -
+ +end;- + 33 +
+ +for i in 1 .. before_all_list.count loop- + 4 +
+ut_utils.append_to_list(l_stack_traces, self.before_all_list(i).get_error_stack_trace());- +
+ +end loop;- + 33 +
+ +for i in 1 .. after_all_list.count loop- + 4 +
+ +ut_utils.append_to_list(l_stack_traces, self.after_all_list(i).get_error_stack_trace());- +
+ +end loop;- + 29 +
+ +return l_stack_traces;- +
+ +end;- -
- -
end;UT3.UT_BE_LIKE
100 % covered
23 relevant lines. 23 lines covered and 0 lines missed-
- -
-type body ut_be_like 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.- -
-*/- -
-- -
-constructor function ut_be_like(self in out nocopy ut_be_like, a_mask in varchar2, a_escape_char in varchar2 := null) return self as result is- -
-begin- - 20 -
-self.self_type := $$plsql_unit;- - 20 -
-self.mask := a_mask;- - 20 -
-self.escape_char := a_escape_char;- - 20 -
-return;- -
-end ut_be_like;- -
-- -
-overriding member function run_matcher(self in out nocopy ut_be_like, a_actual ut_data_value) return boolean is- -
-l_value clob;- -
-l_result boolean;- -
-begin- - 20 -
-if a_actual is of (ut_data_value_varchar2, ut_data_value_clob) then- -
-- - 19 -
-if a_actual is of (ut_data_value_varchar2) then- - 8 -
-l_value := treat(a_actual as ut_data_value_varchar2).data_value;- -
-else- - 11 -
-l_value := treat(a_actual as ut_data_value_clob).data_value;- -
-end if;- -
-- - 19 -
-if escape_char is not null then- - 8 -
-l_result := l_value like mask escape escape_char;- -
-else- - 11 -
-l_result := l_value like mask;- -
-end if;- -
-else- - 1 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 20 -
-return l_result;- -
-end run_matcher;- -
-- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- -
-l_result varchar2(32767);- -
-begin- - 11 -
-l_result := (self as ut_matcher).failure_message(a_actual);- - 11 -
-if self.escape_char is not null then- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(true, false) || ', escape ''' || self.escape_char ||'''';- -
-else- - 7 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(false, false);- -
-end if;- - 11 -
-return l_result;- -
-end;- -
-- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- -
-l_result varchar2(32767);- + +
- +
+ +overriding member function get_serveroutputs return clob is- +
+ +l_outputs clob;- -
begin- - 8 -
-l_result := (self as ut_matcher).failure_message_when_negated(a_actual);- - 8 -
-if self.escape_char is not null then- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(true, false) || ', escape ''' || self.escape_char ||'''';- -
-else- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(false, false);- -
-end if;- - 8 -
-return l_result;- + +
- + 35 +
+ +for i in 1 .. before_all_list.count loop- + 5 +
+ +ut_utils.append_to_clob(l_outputs, self.before_all_list(i).serveroutput);- +
+ +end loop;- + 35 +
+ +for i in 1 .. after_all_list.count loop- + 5 +
+ +ut_utils.append_to_clob(l_outputs, self.after_all_list(i).serveroutput);- +
+ +end loop;- + 30 +
+ +return l_outputs;- -
end;- + +
- -
- -
end;+UT3.UT_BE_NOT_NULL
100 % covered
3 relevant lines. 3 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_SUITE_CONTEXT
100 % lines covered
6 relevant lines. 6 lines covered and 0 lines missed+
- -
+type body ut_be_not_null astype body ut_suite_context as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_be_not_null(self in out nocopy ut_be_not_null) return self as result isconstructor function ut_suite_context (+- +
+ +self in out nocopy ut_suite_context, a_object_owner varchar2, a_object_name varchar2, a_context_name varchar2 := null, a_line_no integer- +
+ +) return self as result is- -
begin- - 18 + +
- + 176
-self.self_type := $$plsql_unit;- - 18 + +
- + 176 +
+ +self.init(a_object_owner, a_object_name, a_context_name, a_line_no);- + 176 +
+ +self.items := ut_suite_items();- + 176 +
+ +before_all_list := ut_executables();- + 176 +
+ +after_all_list := ut_executables();- + 176
-return;- -
-end;- -
-- -
-overriding member function run_matcher(self in out nocopy ut_be_not_null, a_actual ut_data_value) return boolean is- -
-begin- - 18 -
-return not a_actual.is_null;- -
+end;- -
+end;+- -
end;+UT3.UT_BE_NULL
100 % covered
3 relevant lines. 3 lines covered and 0 lines missed+
+ +- +
+end;UT3.UT_SUITE_ITEM
100 % lines covered
33 relevant lines. 33 lines covered and 0 lines missed+
- -
+type body ut_be_null astype body ut_suite_item as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_be_null(self in out nocopy ut_be_null) return self as result ismember procedure init(self in out nocopy ut_suite_item, a_object_owner varchar2, a_object_name varchar2, a_name varchar2, a_line_no integer) is+- -
begin- - 57 -
-self.self_type := $$plsql_unit;- - 57 -
-return;- -
-end;- -
-- -
-overriding member function run_matcher(self in out nocopy ut_be_null, a_actual ut_data_value) return boolean is- -
-begin- - 57 -
-return a_actual.is_null;- -
+ +end;- + 2921 +
+ +self.object_owner := a_object_owner;- + 2921 +
+ +self.object_name := lower(trim(a_object_name));- + 2921 +
+ +self.name := lower(trim(a_name));- + 2921 +
+ +self.results_count := ut_results_counter();- + 2921 +
+ +self.warnings := ut_varchar2_rows();- + 2921 +
+ +self.line_no := a_line_no;- + 2921 +
+ +self.transaction_invalidators := ut_varchar2_list();- + 2921 +
+self.disabled_flag := ut_utils.boolean_to_int(false);- -
+end;+- -
end;+UT3.UT_BE_TRUE
100 % covered
6 relevant lines. 6 lines covered and 0 lines missed+
+ +- +
+ +member function get_disabled_flag return boolean is- +
+ +begin- + 569 +
+ +return ut_utils.int_to_boolean(self.disabled_flag);- +
+ +end;- +
+ +- +
+ +member procedure set_rollback_type(self in out nocopy ut_suite_item, a_rollback_type integer, a_force boolean := false) is- +
+ +begin- + 1315 +
+ +self.rollback_type := case when a_force then a_rollback_type else coalesce(self.rollback_type, a_rollback_type) end;- +
+ +end;- +
+ +- +
+ +member function get_rollback_type return integer is- +
+ +begin- + 1512 +
+ +return nvl(self.rollback_type, ut_utils.gc_rollback_default);- +
+ +end;- +
+ +- +
+ +final member procedure do_execute(self in out nocopy ut_suite_item) is- +
+ +l_completed_without_errors boolean;- +
+ +begin- + 674 +
+ +l_completed_without_errors := self.do_execute();- +
+ +end;- +
+ +- +
+ +member function create_savepoint_if_needed return varchar2 is- +
+ +l_savepoint varchar2(30);- +
+ +begin- + 548 +
+ +if get_rollback_type() = ut_utils.gc_rollback_auto then- + 321 +
+ +l_savepoint := ut_utils.gen_savepoint_name();- + 321 +
+ +execute immediate 'savepoint ' || l_savepoint;- +
+ +end if;- + 548 +
+ +return l_savepoint;- +
+ +end;- +
+ +- +
+ +member procedure rollback_to_savepoint(self in out nocopy ut_suite_item, a_savepoint varchar2) is- +
+ +ex_savepoint_not_exists exception;- +
+ +l_transaction_invalidators clob;- +
+ +pragma exception_init(ex_savepoint_not_exists, -1086);- +
+ +l_savepoint varchar2(250);- +
+ +begin- + 549 +
+ +if get_rollback_type() = ut_utils.gc_rollback_auto and a_savepoint is not null then- + 322 +
+ +l_savepoint := sys.dbms_assert.qualified_sql_name(a_savepoint);- + 322 +
+ +execute immediate 'rollback to ' || l_savepoint;- +
+ +end if;- +
+ +exception- + 12 +
+ +when ex_savepoint_not_exists then- + 6 +
+ +l_transaction_invalidators :=- +
+ +lower( ut_utils.indent_lines( ut_utils.table_to_clob( self.get_transaction_invalidators() ), 2, true ) );- + 6 +
+ +if length(l_transaction_invalidators) > 3000 then- + 1 +
+ +l_transaction_invalidators := substr(l_transaction_invalidators,1,3000)||'...';- +
+ +end if;- + 6 +
+ +put_warning(- +
+ +'Unable to perform automatic rollback after test'- + 1 +
+ +|| case when self_type like '%SUITE' then ' suite' when self_type like '%CONTEXT' then ' context' end || '. '- +
+ +||'An implicit or explicit commit/rollback occurred in procedures:'||chr(10)- +
+ +||l_transaction_invalidators||chr(10)- +
+ +||'Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.'- +
+ +);- +
+ +end;- +
+ +- +
+ +member function execution_time return number is- +
+ +begin- + 424 +
+ +return ut_utils.time_diff(start_time, end_time);- +
+ +end;- +
+ +- +
+ +member procedure put_warning(self in out nocopy ut_suite_item, a_message varchar2) is- +
+ +begin- + 62 +
+ +self.warnings.extend;- + 62 +
+ +self.warnings(self.warnings.last) := a_message;- + 62 +
+ +self.results_count.increase_warning_count;- +
+ +end;- +
+ +- +
+ +member function get_transaction_invalidators return ut_varchar2_list is- +
+ +begin- + 5 +
+ +return transaction_invalidators;- +
+ +end;- +
+ +- +
+ +member procedure add_transaction_invalidator(self in out nocopy ut_suite_item, a_object_name varchar2) is- +
+ +begin- + 103 +
+ +if a_object_name not member of transaction_invalidators then- + 103 +
+ +transaction_invalidators.extend();- + 103 +
+ +transaction_invalidators(transaction_invalidators.last) := a_object_name;- +
+ +end if;- +
+ +end;- +
+ +- +
+end;UT3.UT_TEST
100 % lines covered
87 relevant lines. 87 lines covered and 0 lines missed+
- -
+type body ut_be_true astype body ut_test as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
-constructor function ut_be_true(self in out nocopy ut_be_true) return self as result is- -
-begin- - 51 -
-self.self_type := $$plsql_unit;- - 51 -
-return;- -
-end;- -
-- -
-overriding member function run_matcher(self in out nocopy ut_be_true, a_actual ut_data_value) return boolean is- -
-l_result boolean;- -
-begin- - 51 -
-if a_actual is of (ut_data_value_boolean) then- - 50 -
-l_result := ut_utils.int_to_boolean( treat(a_actual as ut_data_value_boolean).data_value);- -
-else- - 1 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 51 -
-return l_result;- -
-end;- -
-- -
end;UT3.UT_COMPARISON_MATCHER
100 % covered
3 relevant lines. 3 lines covered and 0 lines missed-
- -
-type body ut_comparison_matcher 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.- -
-*/- -
-- -
+overriding member function error_message(a_actual ut_data_value) return varchar2 isconstructor function ut_test(+- -
+l_result varchar2(32767);self in out nocopy ut_test, a_object_owner varchar2 := null, a_object_name varchar2, a_name varchar2,+- +
+ +a_line_no integer, a_expected_error_codes ut_integer_list := null, a_tags ut_varchar2_rows := null- +
+ +) return self as result is- -
begin- - 691 -
-if ut_utils.int_to_boolean(self.is_errored) then- - 35 -
-l_result := 'Actual ('||a_actual.data_type||') cannot be compared to Expected ('||expected.data_type||') using matcher '''||self.name()||'''.';- -
-end if;- - 691 -
-return l_result;- -
-end;- -
-- -
end;UT3.UT_EQUAL
100 % covered
39 relevant lines. 39 lines covered and 0 lines missed-
- -
-type body ut_equal 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.- -
-*/- -
-- -
-member procedure init(self in out nocopy ut_equal, a_expected ut_data_value, a_nulls_are_equal boolean) is- -
-begin- - 587 -
-self.nulls_are_equal_flag := ut_utils.boolean_to_int( coalesce(a_nulls_are_equal, ut_expectation_processor.nulls_are_equal()) );- - 587 + +
- + 2461
-self.self_type := $$plsql_unit;- - 587 -
-self.expected := a_expected;- -
-end;- -
-- -
-member function equal_with_nulls(a_assert_result boolean, a_actual ut_data_value) return boolean is- -
-begin- - 552 -
-ut_utils.debug_log('ut_equal.equal_with_nulls :' || ut_utils.to_test_result(a_assert_result) || ':');- - 552 -
-return ( a_assert_result or ( self.expected.is_null() and a_actual.is_null() and ut_utils.int_to_boolean( nulls_are_equal_flag ) ) );- -
-end;- -
-- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected anydata, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 14 -
-init(ut_data_value_anydata.get_instance(a_expected), a_nulls_are_equal);- - 14 + +
- + 2461 +
+ +self.init(a_object_owner, a_object_name, a_name, a_line_no);- + 2461 +
+ +self.item := ut_executable_test(a_object_owner, a_object_name, a_name, ut_utils.gc_test_execute);- + 2461 +
+ +self.before_each_list := ut_executables();- + 2461 +
+ +self.before_test_list := ut_executables();- + 2461 +
+ +self.after_test_list := ut_executables();- + 2461 +
+ +self.after_each_list := ut_executables();- + 2461 +
+ +self.all_expectations := ut_expectation_results();- + 2461 +
+ +self.failed_expectations := ut_expectation_results();- + 2461 +
+ +self.expected_error_codes := a_expected_error_codes;- + 2461 +
+ +self.tags := coalesce(a_tags,ut_varchar2_rows());- + 2461
+return;- +
end;- +
- -
+constructor function ut_equal(self in out nocopy ut_equal, a_expected blob, a_nulls_are_equal boolean := null) return self as result isoverriding member procedure mark_as_skipped(self in out nocopy ut_test) is+- -
begin- - 15 -
-init(ut_data_value_blob(a_expected), a_nulls_are_equal);- - 15 -
-return;- + +
- + 13 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_test, self);- + 13 +
+ +self.start_time := current_timestamp;- + 13 +
+ +self.result := ut_utils.gc_disabled;- + 13 +
+ +ut_utils.debug_log('ut_test.execute - disabled');- + 13 +
+ +self.results_count.set_counter_values(self.result);- + 13 +
+ +self.end_time := self.start_time;- + 13 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_test, self);- -
end;- -
-- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected boolean, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 15 -
-init(ut_data_value_boolean(a_expected), a_nulls_are_equal);- - 15 -
+return;- -
-end;- + +
- +
+overriding member function do_execute(self in out nocopy ut_test) return boolean is- -
+constructor function ut_equal(self in out nocopy ut_equal, a_expected clob, a_nulls_are_equal boolean := null) return self as result isl_no_errors boolean;+- +
+ +l_savepoint varchar2(30);- -
begin- - 15 -
-init(ut_data_value_clob(a_expected), a_nulls_are_equal);- - 15 -
-return;- -
+ +end;- +
+ +- + 356 +
+ut_utils.debug_log('ut_test.execute');- -
- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected date, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 15 -
-init(ut_data_value_date(a_expected), a_nulls_are_equal);- - 15 -
-return;- -
+ +end;- + 356 +
+ +if self.get_disabled_flag() then- + 11 +
+ +mark_as_skipped();- +
+ +else- + 345 +
+ +self.start_time := current_timestamp;- + 346 +
+ut_event_manager.trigger_event(ut_event_manager.gc_before_test, self);- -
- -
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected number, a_nulls_are_equal boolean := null) return self as result is- + 345 +
+l_savepoint := self.create_savepoint_if_needed();- -
-begin- - 276 -
-init(ut_data_value_number(a_expected), a_nulls_are_equal);- - 276 -
-return;- -
-end;- -
- -
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null) return self as result is- +
+ +--includes listener calls for before and after actions- + 345 +
+ +l_no_errors := true;- + 345 +
+ +for i in 1 .. self.before_each_list.count loop- + 35 +
+ +l_no_errors := self.before_each_list(i).do_execute(self);- + 35 +
+exit when not l_no_errors;- -
-begin- - 11 -
-init(ut_data_value_refcursor(a_expected, a_exclude), a_nulls_are_equal);- - 11 -
-return;- -
-end;- +
+ +end loop;- -
- -
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) return self as result is- + 345 +
+ +if l_no_errors then- + 342 +
+ +for i in 1 .. self.before_test_list.count loop- + 30 +
+ +l_no_errors := self.before_test_list(i).do_execute(self);- + 30 +
+exit when not l_no_errors;- -
-begin- - 2 -
-init(ut_data_value_refcursor(a_expected, a_exclude), a_nulls_are_equal);- - 2 -
-return;- -
-end;- +
+ +end loop;- + +
- + 342 +
+ +if l_no_errors then- +
+ +-- execute the test- + 337 +
+self.item.do_execute(self, self.expected_error_codes);- -
+constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) return self as result is+- -
-begin- - 17 -
-init(ut_data_value_timestamp(a_expected), a_nulls_are_equal);- +
+ +end if;- +
+ +-- perform cleanup regardless of the test or setup failure- + 359 +
+ +for i in 1 .. self.after_test_list.count loop- 17 -
-return;- -
+end;self.after_test_list(i).do_execute(self);+- -
+end loop;+- -
+constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) return self as result isend if;+- -
-begin- - 15 -
-init(ut_data_value_timestamp_tz(a_expected), a_nulls_are_equal);- - 15 -
-return;- -
-end;- + +
- + 387 +
+ +for i in 1 .. self.after_each_list.count loop- + 42 +
+ +self.after_each_list(i).do_execute(self);- +
+ +end loop;- + 345 +
+self.rollback_to_savepoint(l_savepoint);- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 15 -
-init(ut_data_value_timestamp_ltz(a_expected), a_nulls_are_equal);- - 15 -
-return;- -
-end;- + +
- + 345 +
+ +self.calc_execution_result();- + 345 +
+ +self.end_time := current_timestamp;- + 345 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_after_test, self);- +
+ +end if;- + 356 +
+return l_no_errors;- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected varchar2, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 147 -
-init(ut_data_value_varchar2(a_expected), a_nulls_are_equal);- - 147 -
-return;- -
end;- + +
- -
- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) return self as result is- + +
- +
+ +overriding member procedure calc_execution_result(self in out nocopy ut_test) is- +
+ +l_warnings ut_varchar2_rows;- -
begin- - 15 -
-init(ut_data_value_yminterval(a_expected), a_nulls_are_equal);- - 15 -
+ +return;- + 347 +
+ +if self.get_error_stack_traces().count = 0 then- + 261 +
+ +self.result := ut_expectation_processor.get_status();- +
+ +else- + 86 +
+ +self.result := ut_utils.gc_error;- +
+end if;- -
-end;- -
-- -
-constructor function ut_equal(self in out nocopy ut_equal, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) return self as result is- -
-begin- - 15 -
-init(ut_data_value_dsinterval(a_expected), a_nulls_are_equal);- - 15 -
-return;- -
-end;- -
+--expectation results need to be part of test results+ +- + 347 +
+ +self.all_expectations := ut_expectation_processor.get_all_expectations();- + 347 +
+ +self.failed_expectations := ut_expectation_processor.get_failed_expectations();- + 347 +
+ +l_warnings := coalesce( ut_expectation_processor.get_warnings(), ut_varchar2_rows() );- + 347 +
+ +self.warnings := self.warnings multiset union all l_warnings;- + 347 +
+ +self.results_count.increase_warning_count( cardinality(l_warnings) );- + 347 +
+ +self.results_count.set_counter_values(self.result);- + 347 +
+ut_expectation_processor.clear_expectations();- -
+overriding member function run_matcher(self in out nocopy ut_equal, a_actual ut_data_value) return boolean isend;+- -
+l_result boolean;+- +
+ +overriding member procedure mark_as_errored(self in out nocopy ut_test, a_error_stack_trace varchar2) is- -
begin- - 587 -
-if self.expected.data_type = a_actual.data_type then- - 552 -
-l_result := equal_with_nulls((self.expected = a_actual), a_actual);- -
-else- - 35 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 587 -
-return l_result;- -
-end;- -
+ +- + 2 +
+ +ut_utils.debug_log('ut_test.fail');- + 2 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_before_test, self);- + 2 +
+ +self.start_time := current_timestamp;- + 2 +
+ +self.parent_error_stack_trace := a_error_stack_trace;- + 2 +
+ +self.calc_execution_result();- + 2 +
+ +self.end_time := self.start_time;- + 2 +
+ut_event_manager.trigger_event(ut_event_manager.gc_after_test, self);- -
+overriding member function failure_message(a_actual ut_data_value) return varchar2 isend;+- -
+l_result varchar2(32767);+- -
-begin- - 529 -
+return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();overriding member function get_error_stack_traces(self ut_test) return ut_varchar2_list is+ +- + 424 +
+l_stack_traces ut_varchar2_list := ut_varchar2_list();- -
-end;- -
-- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- -
+l_result varchar2(32767);begin+ +- + 424 +
+ +ut_utils.append_to_list(l_stack_traces, self.parent_error_stack_trace);- + 466 +
+ +for i in 1 .. before_each_list.count loop- + 42 +
+ut_utils.append_to_list(l_stack_traces, self.before_each_list(i).get_error_stack_trace());- +
+ +end loop;- + 464 +
+ +for i in 1 .. before_test_list.count loop- + 40 +
+ +ut_utils.append_to_list(l_stack_traces, self.before_test_list(i).get_error_stack_trace());- +
+ +end loop;- + 424 +
+ +ut_utils.append_to_list(l_stack_traces, self.item.get_error_stack_trace());- + 441 +
+ +for i in 1 .. after_test_list.count loop- + 17 +
+ +ut_utils.append_to_list(l_stack_traces, self.after_test_list(i).get_error_stack_trace());- +
+ +end loop;- + 475 +
+ +for i in 1 .. after_each_list.count loop- + 51 +
+ +ut_utils.append_to_list(l_stack_traces, self.after_each_list(i).get_error_stack_trace());- +
+ +end loop;- + 424 +
+ +return l_stack_traces;- +
+ +end;- +
+ +overriding member function get_serveroutputs return clob is- +
+ +l_outputs clob;- -
begin- - 23 -
-return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- + +
- + 278 +
+ +for i in 1 .. before_each_list.count loop- + 24 +
+ +ut_utils.append_to_clob(l_outputs, self.before_each_list(i).serveroutput);- +
+ +end loop;- + 278 +
+ +for i in 1 .. before_test_list.count loop- + 24 +
+ +ut_utils.append_to_clob(l_outputs, self.before_test_list(i).serveroutput);- +
+ +end loop;- + 254 +
+ +ut_utils.append_to_clob(l_outputs, self.item.serveroutput );- + 263 +
+ +for i in 1 .. after_test_list.count loop- + 9 +
+ +ut_utils.append_to_clob(l_outputs, self.after_test_list(i).serveroutput);- +
+ +end loop;- + 285 +
+ +for i in 1 .. after_each_list.count loop- + 31 +
+ +ut_utils.append_to_clob(l_outputs, self.after_each_list(i).serveroutput);- +
+ +end loop;- + 254 +
+ +return l_outputs;- -
end;- + +
- -
- -
end;+UT3.UT_MATCH
100 % covered
20 relevant lines. 20 lines covered and 0 lines missed+ +
- +
+ +member function get_failed_expectation_lines return ut_varchar2_rows is- +
+ +l_results ut_varchar2_rows;- +
+ +begin- + 34 +
+ +for i in 1 .. failed_expectations.count loop- + 17 +
+ +ut_utils.append_to_list( l_results, ut_utils.convert_collection( failed_expectations(i).get_result_lines() ) );- + 17 +
+ +ut_utils.append_to_list( l_results, failed_expectations(i).caller_info );- +
+ +end loop;- + 17 +
+ +return l_results;- +
+ +end;- +
+end;UT3.UT_EXPECTATION_PROCESSOR
100 % lines covered
71 relevant lines. 71 lines covered and 0 lines missed+
- -
+type body ut_match aspackage body ut_expectation_processor as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_match(self in out nocopy ut_match, a_pattern in varchar2, a_modifiers in varchar2 default null) return self as result istype tt_nls_params is table of nls_session_parameters%rowtype;+- -
-begin- - 17 -
-self.self_type := $$plsql_unit;- - 17 -
-self.pattern := a_pattern;- - 17 -
-self.modifiers := a_modifiers;- - 17 -
-return;- -
+end;+ +- +
+ +g_session_params tt_nls_params;- +
+ +- + 1 +
+ +g_expectations_called ut_expectation_results := ut_expectation_results();- +
+ +- + 1 +
+g_warnings ut_varchar2_rows := ut_varchar2_rows();- -
- -
+ +overriding member function run_matcher(self in out nocopy ut_match, a_actual ut_data_value) return boolean is- + 1 +
+g_nulls_are_equal boolean_not_null := gc_default_nulls_are_equal;- -
-l_result boolean;- +
+ +- + 1 +
+ +g_package_invalidated boolean := false;- +
+ +- +
+ +function nulls_are_equal return boolean is- -
begin- - 17 -
-if a_actual is of (ut_data_value_varchar2) then- - 8 -
-l_result := regexp_like(treat(a_actual as ut_data_value_varchar2).data_value, pattern, modifiers);- - 9 -
-elsif a_actual is of (ut_data_value_clob) then- - 8 -
+ +l_result := regexp_like(treat(a_actual as ut_data_value_clob).data_value, pattern, modifiers);- + 373 +
+return g_nulls_are_equal;- -
-else- - 1 -
-l_result := (self as ut_matcher).run_matcher(a_actual);- -
-end if;- - 17 -
-return l_result;- -
end;- + +
- -
- -
-overriding member function failure_message(a_actual ut_data_value) return varchar2 is- -
-l_result varchar2(32767);- + +
- +
+ +procedure nulls_are_equal(a_setting boolean_not_null) is- -
begin- - 8 -
-l_result := (self as ut_matcher).failure_message(a_actual);- - 8 -
-if self.modifiers is not null then- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(true, false) || ', modifiers ''' || self.modifiers ||'''';- -
-else- + +
- 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(false, false);- -
-end if;- - 8 -
-return l_result;- +
+ +g_nulls_are_equal := a_setting;- -
end;- + +
- -
- -
-overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- -
-l_result varchar2(32767);- + +
- +
+ +function get_status return integer is- + 261 +
+ +l_result integer := ut_utils.gc_success;- -
begin- - 8 -
-l_result := (self as ut_matcher).failure_message_when_negated(a_actual);- - 8 -
-if self.modifiers is not null then- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(true, false) || ', modifiers ''' || self.modifiers ||'''';- -
-else- - 4 -
-l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(false, false);- -
-end if;- - 8 -
-return l_result;- -
-end;- -
-- -
end;UT3.UT_MATCHER
100 % covered
12 relevant lines. 12 lines covered and 0 lines missed-
- -
-type body ut_matcher 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.- -
-*/- -
-- -
-member function run_matcher(self in out nocopy ut_matcher, a_actual ut_data_value) return boolean is- -
-begin- - 41 -
-ut_utils.debug_log('Failure - ut_matcher.run_matcher'||'(a_actual '||a_actual.data_type||')');- - 41 -
-self.is_errored := ut_utils.boolean_to_int(true);- -
--- self.error_message := 'The matcher '''||name()||''' cannot be used';- -
--- if self.expected is not null then- -
--- self.error_message := self.error_message ||' for comparison of data type ('||self.expected.data_type||')';- -
--- end if;- -
--- self.error_message := self.error_message ||' with data type ('||a_actual.data_type||').';- - 41 -
-return null;- -
-end;- -
-- -
-member function run_matcher_negated(self in out nocopy ut_matcher, a_actual ut_data_value) return boolean is- -
-begin- - 138 -
-return not run_matcher(a_actual);- -
-end;- -
-- -
-member function name return varchar2 is- -
-begin- - 942 -
-return replace(ltrim(lower(self.self_type),'ut_'),'_',' ');- -
-end;- -
-- -
-member function description return varchar2 is- -
-begin- - 780 -
-return 'was expected to '||name();- -
+ +end;- + 261 +
+ut_utils.debug_log('ut_expectation_processor.get_status');- -
- -
-member function description_when_negated return varchar2 is- -
-begin- - 121 -
+ +return 'was expected not to '||name();- + 261 +
+ +for i in 1 .. g_expectations_called.count loop- + 82 +
+ +l_result := greatest(l_result, g_expectations_called(i).status);- + 82 +
+exit when l_result = ut_utils.gc_error;- -
-end;- -
+end loop;+ +- + 261 +
+return l_result;- -
+member function error_message(a_actual ut_data_value) return varchar2 isend get_status;+- -
+l_result varchar2(32767);+- +
+ +procedure clear_expectations is- -
begin- - 251 -
-if ut_utils.int_to_boolean(self.is_errored) then- - 6 -
-l_result := 'The matcher '''||name()||''' cannot be used with data type ('||a_actual.data_type||').';- -
-end if;- - 251 -
+ +return l_result;- + 1188 +
+ +ut_utils.debug_log('ut_expectation_processor.clear_expectations');- + 1188 +
+ +g_expectations_called.delete;- + 1188 +
+g_warnings.delete;- +
end;- +
- -
+member function failure_message(a_actual ut_data_value) return varchar2 isfunction get_all_expectations return ut_expectation_results is+- -
begin- - 780 -
-return 'Actual: ' || a_actual.to_string_report(true) || description();- -
+ +end;- + 347 +
+ +ut_utils.debug_log('ut_expectation_processor.get_all_expectations: g_expectations_called.count='||g_expectations_called.count);- + 347 +
+return g_expectations_called;- -
+end get_all_expectations;+- -
+member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is+- -
-begin- - 121 -
+return 'Actual: ' || a_actual.to_string_report(true) || description_when_negated();function get_failed_expectations return ut_expectation_results is+ +- + 1039 +
+l_expectations_results ut_expectation_results := ut_expectation_results();- -
-end;- -
-- -
end;UT3.UT_EXPECTATION
94.74 % covered
76 relevant lines. 72 lines covered and 4 lines missed-
- -
-type body ut_expectation 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.- -
-*/- -
-member procedure to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null) is- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null)');- - 2 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- + 1039 +
+ +ut_utils.debug_log('ut_expectation_processor.get_failed_expectations: g_expectations_called.count='||g_expectations_called.count);- + 1813 +
+ +for i in 1 .. g_expectations_called.count loop- + 774 +
+ +if g_expectations_called(i).status > ut_utils.gc_success then- + 423 +
+ +l_expectations_results.extend;- + 423 +
+ +l_expectations_results(l_expectations_results.last) := g_expectations_called(i);- +
+ +end if;- +
+ +end loop;- + 1039 +
+ +ut_utils.debug_log('ut_expectation_processor.get_failed_expectations: l_expectations_results.count='||l_expectations_results.count);- + 1039 +
+ +return l_expectations_results;- +
+ +end get_failed_expectations;- -
- -
-member procedure to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure add_expectation_result(a_expectation_result ut_expectation_result) is- +
+ +l_results ut_varchar2_list;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null)');- - 2 -
-self.to_( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null)');- - 2 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null)');- + +
- + 799 +
+ +if ut_session_context.is_ut_run then- + 794 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_debug, a_expectation_result);- + 793 +
+ +g_expectations_called.extend;- + 793 +
+ +g_expectations_called(g_expectations_called.last) := a_expectation_result;- +
+ +else- + 6 +
+ +l_results := a_expectation_result.get_result_lines();- + 6 +
+ +dbms_output.put_line( upper( ut_utils.test_result_to_char( a_expectation_result.status ) ) || '');- + 12 +
+ +for i in 1 .. l_results.count loop- + 6 +
+ +dbms_output.put_line( ' ' || l_results(i) );- +
+ +end loop;- + 6 +
+ +if a_expectation_result.caller_info is not null then- 2 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
+end;dbms_output.put_line( ut_utils.indent_lines( a_expectation_result.caller_info, 2, true) );+- -
+end if;+- -
+member procedure to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) isend if;+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
end;- + +
- + +
- +
+ +procedure report_failure(a_message in varchar2) is- +
+ +begin- + 1 +
+add_expectation_result(ut_expectation_result(ut_utils.gc_failure, null, a_message));- -
+final member procedure to_(self in ut_expectation, a_matcher ut_matcher) isend;+- -
-l_expectation_result boolean;- - 804 -
+l_matcher ut_matcher := a_matcher;+ +- +
+function get_session_parameters return tt_nls_params is- -
+l_message varchar2(32767);l_session_params tt_nls_params;+- -
begin- - 804 -
+ +ut_utils.debug_log('ut_expectation.to_(self in ut_expectation, a_matcher ut_matcher)');- + 397 +
+select nsp.parameter, nsp.value- -
-- - 804 -
-l_expectation_result := l_matcher.run_matcher( self.actual_data );- - 804 -
-l_expectation_result := coalesce(l_expectation_result,false);- - 804 -
-l_message := coalesce( l_matcher.error_message( self.actual_data ), l_matcher.failure_message( self.actual_data ) );- - 804 -
+ut_expectation_processor.add_expectation_result( ut_expectation_result( ut_utils.to_test_result( l_expectation_result ), self.description, l_message ) );bulk collect into l_session_params+ +- +
+ +from nls_session_parameters nsp- +
+ +where parameter- +
+ +in ( 'NLS_DATE_FORMAT', 'NLS_TIMESTAMP_FORMAT', 'NLS_TIMESTAMP_TZ_FORMAT')- +
+order by 1;- -
-end;- + +
- + 397 +
+return l_session_params;- -
+final member procedure not_to(self in ut_expectation, a_matcher ut_matcher) isend;+- -
-l_expectation_result boolean;- - 138 -
+l_matcher ut_matcher := a_matcher;+ +- +
+procedure set_xml_nls_params is- -
+l_message varchar2(32767);insuf_privs exception;+- +
+ +pragma exception_init(insuf_privs, -1031);- -
begin- - 138 -
-ut_utils.debug_log('ut_expectation.not_to(self in ut_expectation, a_matcher ut_matcher)');- -
-- - 138 -
-l_expectation_result := l_matcher.run_matcher_negated( self.actual_data );- - 138 -
-l_expectation_result := coalesce(l_expectation_result,false);- - 138 -
-l_message := coalesce( l_matcher.error_message( self.actual_data ), l_matcher.failure_message_when_negated( self.actual_data ) );- - 138 -
-ut_expectation_processor.add_expectation_result( ut_expectation_result( ut_utils.to_test_result( l_expectation_result ), self.description, l_message ) );- -
-end;- + +
- + 397 +
+ +g_session_params := get_session_parameters();- -
- -
-final member procedure to_be_null(self in ut_expectation) is- -
-begin- - 39 -
-ut_utils.debug_log('ut_expectation.to_be_null');- - 39 -
-self.to_( ut_be_null() );- + +
- +
+ +begin- + 397 +
+ +execute immediate q'[alter session set events '19119 trace name context forever, level 0x8']';- +
+ +exception- + 1191 +
+ +when insuf_privs then NULL;- +
+ +end;- +
+ +- + 397 +
+ +execute immediate 'alter session set nls_timestamp_format = '''||ut_utils.gc_timestamp_format||'''';- + 397 +
+ +execute immediate 'alter session set nls_timestamp_tz_format = '''||ut_utils.gc_timestamp_tz_format||'''';- -
end;- + +
- + +
- +
+procedure reset_nls_params is- -
+final member procedure to_be_not_null(self in ut_expectation) isinsuf_privs exception;+- +
+ +pragma exception_init(insuf_privs, -1031);- -
begin- - 18 -
-ut_utils.debug_log('ut_expectation.to_be_not_null');- - 18 -
-self.to_( ut_be_not_null() );- -
+ +end;- +
+ +begin- + 397 +
+execute immediate q'[alter session set events '19119 trace name context off']';- -
-- -
+final member procedure not_to_be_null(self in ut_expectation) isexception+ +- + 1191 +
+when insuf_privs then NULL;- -
-begin- - 18 -
-ut_utils.debug_log('ut_expectation.to_be_null');- - 18 -
-self.not_to( ut_be_null() );- -
-end;- +
+ +end;- + +
- + 397 +
+ +if g_session_params is not null then- + 1588 +
+ +for i in 1 .. g_session_params.count loop- + 1191 +
+execute immediate 'alter session set '||g_session_params(i).parameter||' = '''||g_session_params(i).value||'''';- -
+final member procedure not_to_be_not_null(self in ut_expectation) isend loop;+- -
-begin- -
-ut_utils.debug_log('ut_expectation.to_be_not_null');- -
-self.not_to( ut_be_not_null() );- +
+ +end if;- +
+ +- -
end;- + +
- + +
- +
+function who_called_expectation(a_call_stack varchar2) return varchar2 is- -
+member procedure not_to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null) isl_caller_stack_line varchar2(4000);+- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null)');- - 2 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );l_call_stack varchar2(4000);+ +- +
+ +l_line_no integer;- +
+l_owner varchar2(1000);- -
+end;l_object_name varchar2(1000);+- -
+l_result varchar2(4000);+- -
+member procedure not_to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null) is-- in 12.2 format_call_stack reportes not only package name, but also the procedure name+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
+end;-- when 11g and 12c reports only package name+ +- +
+ +function cut_header_and_expectations( a_stack varchar2 ) return varchar2 is- +
+ +begin- + 450 +
+return regexp_substr( a_stack, '(.*\.(UT_EXPECTATION[A-Z0-9#_$]*|UT|UTASSERT2?)(\.[A-Z0-9#_$]+)?\s+)+((.|\s)*)', 1, 1, 'm', 4);- -
+end;+- -
+member procedure not_to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null) isfunction cut_address_columns( a_stack varchar2 ) return varchar2 is+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null)');- - 1 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );begin+ +- + 450 +
+ +return regexp_replace( a_stack, '^(0x)?[0-9a-f]+\s+', '', 1, 0, 'm' );- +
+end;- -
+end;function cut_framework_stack( a_stack varchar2 ) return varchar2 is+- -
-- -
+member procedure not_to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null) isbegin+ +- + 450 +
+return regexp_replace(- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null)');- - 1 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );a_stack,+ +- +
+ +'[0-9]+\s+anonymous\s+block\s+[0-9]+\s+package\s+body\s+sys\.dbms_sql(\.execute)?\s+[0-9]+\s+[0-9_$#a-z ]+\.ut_executable.*',- +
+'',- -
+end;1, 1, 'mni'+- -
+);+- -
+member procedure not_to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null) isend;+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null)');- - 1 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );function format_stack( a_stack varchar2 ) return varchar2 is+ +- +
+ +begin- + 450 +
+return regexp_replace(- -
+end;a_stack,+- -
+'([0-9]+)\s+(.* )?((anonymous block)|(([0-9_$#a-z]+\.[0-9_$#a-z]+(\.([0-9_$#a-z])+)?)))',+- -
+member procedure not_to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null) is'at "\3", line \1', 1, 0, 'i'+- +
+ +);- +
+ +end;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- -
-begin- -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null)');- -
+ +self.not_to( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- + 450 +
+ +l_call_stack := cut_header_and_expectations( a_call_stack );- + 450 +
+ +l_call_stack := cut_address_columns( l_call_stack );- + 450 +
+ +l_call_stack := cut_framework_stack( l_call_stack );- + 450 +
+ +l_call_stack := format_stack( l_call_stack );- + 450 +
+ +l_caller_stack_line := regexp_substr(l_call_stack,'^(.*)');- + 450 +
+ +if l_caller_stack_line like '%.%' then- + 195 +
+ +l_line_no := to_number( regexp_substr( l_caller_stack_line, ', line (\d+)', subexpression => 1 ) );- + 195 +
+ +l_owner := regexp_substr( l_caller_stack_line, 'at "([A-Za-z0-9$#_]+)\.(([A-Za-z0-9$#_]+)(\.([A-Za-z0-9$#_]+))?)", line (\d+)', subexpression => 1 );- + 195 +
+ +l_object_name := regexp_substr( l_caller_stack_line, 'at "([A-Za-z0-9$#_]+)\.(([A-Za-z0-9$#_]+)(\.([A-Za-z0-9$#_]+))?)", line (\d+)', subexpression => 3 );- + 195 +
+ +l_result :=- +
+ +l_caller_stack_line || ' ' || rtrim(ut_metadata.get_source_definition_line(l_owner, l_object_name, l_line_no),chr(10))- +
+|| replace( l_call_stack, l_caller_stack_line );- +
+ +else- + 255 +
+ +l_result := l_call_stack;- +
+ +end if;- + 450 +
+ +return rtrim(l_result,chr(10));- -
end;- + +
- -
- -
-member procedure not_to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null)');- - 2 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
+end;procedure add_warning(a_messsage varchar2) is+- -
-- -
-member procedure not_to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 23 +
+ +g_warnings.extend;- + 23 +
+ +g_warnings(g_warnings.last) := a_messsage;- -
end;- + +
- -
- -
-member procedure not_to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure add_depreciation_warning(a_deprecated_syntax varchar2, a_new_syntax varchar2) is- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + 17 +
+ +add_warning(- +
+ +ut_utils.build_depreciation_warning( a_deprecated_syntax, a_new_syntax ) || chr(10)- +
+ +|| ut_expectation_processor.who_called_expectation(dbms_utility.format_call_stack())- +
+);- +
end;- +
- -
+member procedure not_to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null) isfunction get_warnings return ut_varchar2_rows is+- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 371 +
+ +return g_warnings;- -
end;- + +
- + +
- +
+function invalidation_exception_found return boolean is- -
-member procedure not_to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 113 +
+ +return g_package_invalidated;- -
end;- + +
- -
- -
-member procedure not_to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure set_invalidation_exception is- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation.not_to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null)');- + +
- 1 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +g_package_invalidated := true;- -
end;- + +
- + +
- +
+ +procedure reset_invalidation_exception is- +
+ +begin- + 117 +
+g_package_invalidated := false;- -
end;+UT3.UT_EXPECTATION_ANYDATA
75 % covered
8 relevant lines. 6 lines covered and 2 lines missed+
end;+ +- +
+ +- +
+end;UT3.UT_FILE_MAPPER
100 % lines covered
27 relevant lines. 27 lines covered and 0 lines missed+
- -
+type body ut_expectation_anydata aspackage body ut_file_mapper is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+overriding member procedure to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null) is+- -
-begin- - 10 -
-ut_utils.debug_log('ut_expectation_anydata.to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null)');- - 10 -
+self.to_( ut_equal(a_expected, a_nulls_are_equal) );type tt_key_values is table of varchar2(4000) index by varchar2(4000);+ +- +
+ +- +
+/**- -
+end;* Private functions+- -
+*/+- -
+member procedure to_be_empty(self in ut_expectation_anydata) is+- +
+ +function to_hash_table(a_key_value_tab ut_key_value_pairs) return tt_key_values is- +
+ +l_result tt_key_values;- -
begin- - 3 -
-ut_utils.debug_log('ut_expectation_anydata.to_be_empty(self in ut_expectation_anydata)');- - 3 -
-self.to_( ut_be_empty() );- -
-end;- -
-- -
+ +overriding member procedure not_to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null) is- + 31 +
+ +if a_key_value_tab is not null then- + 217 +
+ +for i in 1 .. a_key_value_tab.count loop- + 186 +
+l_result(upper(a_key_value_tab(i).key)) := a_key_value_tab(i).value;- -
-begin- -
-ut_utils.debug_log('ut_expectation_anydata.not_to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null)');- -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );end loop;+ +- +
+ +end if;- + 31 +
+return l_result;- +
end;- +
- -
+member procedure not_to_be_empty(self in ut_expectation_anydata) is/**+- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_anydata.not_to_be_empty(self in ut_expectation_anydata)');- - 3 -
+self.not_to( ut_be_empty() );* Public functions+ +- +
+ +*/- +
+function default_file_to_obj_type_map return ut_key_value_pairs is- -
-end;- -
+begin+ +- + 31 +
+return ut_key_value_pairs(- -
+ut_key_value_pair('fnc', 'FUNCTION'),+- -
end;UT3.UT_EXPECTATION_BLOB
100 % covered
4 relevant lines. 4 lines covered and 0 lines missed-
- -
-type body ut_expectation_blob 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- +
+ +ut_key_value_pair('prc', 'PROCEDURE'),- +
+ +ut_key_value_pair('tpb', 'TYPE BODY'),- +
+ +ut_key_value_pair('pkb', 'PACKAGE BODY'),- +
+ +ut_key_value_pair('bdy', 'PACKAGE BODY'),- +
+ +ut_key_value_pair('trg', 'TRIGGER')- +
+ +);- +
+ +end;- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_blob, a_expected blob, a_nulls_are_equal boolean := null) is- -
-begin- - 11 -
-ut_utils.debug_log('ut_expectation_blob.to_equal(self in ut_expectation, a_expected blob)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- +
+ +function build_file_mappings(- +
+ +a_file_paths ut_varchar2_list,- +
+ +a_file_to_object_type_mapping ut_key_value_pairs := null,- +
+ +a_regex_pattern varchar2 := null,- +
+ +a_object_owner_subexpression positive := null,- +
+ +a_object_name_subexpression positive := null,- +
+ +a_object_type_subexpression positive := null- +
+ +) return ut_file_mappings is- +
+ +begin- + 29 +
+ +return build_file_mappings(- +
+ +null, a_file_paths, a_file_to_object_type_mapping, a_regex_pattern,- +
+ +a_object_owner_subexpression, a_object_name_subexpression, a_object_type_subexpression- +
+ +);- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_blob, a_expected blob, a_nulls_are_equal boolean := null) is- + +
- +
+ +function build_file_mappings(- +
+ +a_object_owner varchar2,- +
+ +a_file_paths ut_varchar2_list,- +
+ +a_file_to_object_type_mapping ut_key_value_pairs := null,- +
+ +a_regex_pattern varchar2 := null,- +
+ +a_object_owner_subexpression positive := null,- +
+ +a_object_name_subexpression positive := null,- +
+ +a_object_type_subexpression positive := null- +
+ +) return ut_file_mappings is- + 31 +
+ +l_file_to_object_type_mapping ut_key_value_pairs := coalesce(a_file_to_object_type_mapping, default_file_to_obj_type_map());- + 31 +
+ +l_regex_pattern varchar2(4000) := coalesce(a_regex_pattern, gc_file_mapping_regex);- + 31 +
+ +l_object_owner_subexpression positive := coalesce(a_object_owner_subexpression, gc_regex_owner_subexpression);- + 31 +
+ +l_object_name_subexpression positive := coalesce(a_object_name_subexpression, gc_regex_name_subexpression);- + 31 +
+ +l_object_type_subexpression positive := coalesce(a_object_type_subexpression, gc_regex_type_subexpression);- +
+ +- +
+ +l_key_values tt_key_values;- +
+ +l_mappings ut_file_mappings;- +
+ +l_mapping ut_file_mapping;- +
+ +l_object_type_key varchar2(4000);- +
+ +l_object_type varchar2(4000);- +
+ +l_object_owner varchar2(4000);- +
+ +l_file_path varchar2(32767);- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_blob.not_to_equal(self in ut_expectation, a_expected blob)');- + +
- + 31 +
+ +if a_file_paths is not null then- + 31 +
+ +l_key_values := to_hash_table(l_file_to_object_type_mapping);- + 31 +
+ +l_mappings := ut_file_mappings();- +
+ +- + 67 +
+ +for i in 1 .. a_file_paths.count loop- + 36 +
+ +l_file_path := replace(a_file_paths(i),'\','/');- + 36 +
+ +l_object_type_key := upper(regexp_substr(l_file_path, l_regex_pattern, 1, 1, 'i', l_object_type_subexpression));- + 36 +
+ +if l_key_values.exists(l_object_type_key) then- + 34 +
+ +l_object_type := upper(l_key_values(l_object_type_key));- +
+ +else- 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +l_object_type := null;- +
+ +end if;- +
+ +- + 36 +
+ +l_object_owner := coalesce(- + 1 +
+ +upper(a_object_owner),- + 1 +
+ +upper(regexp_substr(l_file_path, l_regex_pattern, 1, 1, 'i', l_object_owner_subexpression)),- +
+ +sys_context('USERENV', 'CURRENT_SCHEMA'));- +
+ +- + 36 +
+ +l_mapping := ut_file_mapping(- +
+ +file_name => a_file_paths(i),- +
+ +object_owner => l_object_owner,- +
+ +object_name => upper(regexp_substr(l_file_path, l_regex_pattern, 1, 1, 'i', l_object_name_subexpression)),- +
+ +object_type => l_object_type- +
+ +);- + 36 +
+ +l_mappings.extend();- + 36 +
+ +l_mappings(l_mappings.last) := l_mapping;- +
+ +end loop;- +
+ +end if;- +
+ +- + 31 +
+ +return l_mappings;- -
end;- + +
- -
- -
end;+UT3.UT_EXPECTATION_BOOLEAN
66.67 % covered
12 relevant lines. 8 lines covered and 4 lines missed+ +
- +
+end;UT3.UT_METADATA
91.76 % lines covered
85 relevant lines. 78 lines covered and 7 lines missed+
- -
+type body ut_expectation_boolean aspackage body ut_metadata as+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+overriding member procedure to_equal(self in ut_expectation_boolean, a_expected boolean, a_nulls_are_equal boolean := null) is+- -
-begin- - 11 -
-ut_utils.debug_log('ut_expectation_boolean.to_equal(self in ut_expectation_boolean, a_expected boolean, a_nulls_are_equal boolean := null)');- - 11 -
+self.to_( ut_equal(a_expected, a_nulls_are_equal) );type t_cache is table of all_source.text%type;+ +- +
+ +g_source_cache t_cache;- +
+g_cached_object varchar2(500);- -
+end;------------------------------+- -
+--public definitions+- -
+member procedure to_be_true(self in ut_expectation_boolean) isfunction form_name(a_owner_name varchar2, a_object varchar2, a_subprogram varchar2 default null) return varchar2 is+- +
+ +l_name varchar2(200);- -
begin- - 50 -
-ut_utils.debug_log('ut_expectation_boolean.to_be_true(self in ut_expectation_boolean)');- - 50 -
-self.to_( ut_be_true() );- -
-end;- -
+ +- + 563 +
+ +l_name := trim(a_object);- + 563 +
+ +if trim(a_owner_name) is not null then- + 176 +
+l_name := trim(a_owner_name) || '.' || l_name;- -
-member procedure to_be_false(self in ut_expectation_boolean) is- -
-begin- - 7 -
-ut_utils.debug_log('ut_expectation_boolean.to_be_false(self in ut_expectation_boolean)');- - 7 -
-self.to_( ut_be_false() );- -
+end;end if;+ +- + 563 +
+ +if trim(a_subprogram) is not null then- + 561 +
+ +l_name := l_name || '.' || trim(a_subprogram);- +
+ +end if;- + 563 +
+return l_name;- -
+end form_name;+- -
+overriding member procedure not_to_equal(self in ut_expectation_boolean, a_expected boolean, a_nulls_are_equal boolean := null) is+- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_boolean.not_to_equal(self in ut_expectation_boolean, a_expected boolean, a_nulls_are_equal boolean := null)');- - 2 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );function package_valid(a_owner_name varchar2, a_package_name in varchar2) return boolean as+ +- +
+ +l_cnt number;- + 12 +
+l_view_name varchar2(200) := get_objects_view_name;- -
+end;begin+- -
- -
+ +member procedure not_to_be_true(self in ut_expectation_boolean) is- + 12 +
+execute immediate q'[select count(*)- -
-begin- -
-ut_utils.debug_log('ut_expectation_boolean.not_to_be_true(self in ut_expectation_boolean)');- -
+self.not_to( ut_be_true() );from ]'||l_view_name||q'[+ +- +
+ +where owner = :a_owner_name- +
+and object_name = :a_package_name- -
+end;and object_type = 'PACKAGE'+- -
+and status = 'VALID']'+- -
-member procedure not_to_be_false(self in ut_expectation_boolean) is- -
-begin- -
+ut_utils.debug_log('ut_expectation_boolean.not_to_be_false(self in ut_expectation_boolean)');into l_cnt using upper(a_owner_name), upper(a_package_name);+ +- + 12 +
+ +return l_cnt = 1;- +
+exception- -
-self.not_to( ut_be_false() );- -
+end;when others then+ +- +
+return false;- -
+end;+- -
end;UT3.UT_EXPECTATION_CLOB
100 % covered
12 relevant lines. 12 lines covered and 0 lines missed-
- -
-type body ut_expectation_clob 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- + +
- +
+ +function procedure_exists(a_owner_name varchar2, a_package_name in varchar2, a_procedure_name in varchar2)- +
+ +return boolean as- +
+ +l_cnt number;- + 6 +
+ +l_view_name varchar2(200) := get_dba_view('dba_procedures');- +
+ +begin- + 6 +
+ +execute immediate- +
+ +'select count(*) from '||l_view_name- +
+ +||' where owner = :l_schema and object_name = :l_package_name and procedure_name = :l_procedure_name and rownum = 1'- +
+ +into l_cnt using a_owner_name, a_package_name, a_procedure_name;- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- +
+ +--expect one method only for the package with that name.- + 6 +
+ +return l_cnt = 1;- +
+ +exception- +
+ +when others then- +
+ +return false;- +
+ +end;- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_clob, a_expected clob, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_source_definition_line(a_owner varchar2, a_object_name varchar2, a_line_no integer) return varchar2 is- + 195 +
+ +l_view_name varchar2(128) := get_source_view_name();- +
+ +l_line all_source.text%type;- + 195 +
+ +c_key constant varchar2(500) := a_owner || '.' || a_object_name;- -
begin- - 11 -
-ut_utils.debug_log('ut_expectation_clob.to_equal(self in ut_expectation, a_expected clob)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 195 +
+ +if not nvl(c_key = g_cached_object, false) then- + 50 +
+ +g_cached_object := c_key;- + 50 +
+ +execute immediate- +
+ +'select trim(text) text- +
+ +from '||l_view_name||q'[ s- +
+ +where s.owner = :a_owner- +
+ +and s.name = :a_object_name- +
+ +/*skip the declarations, consider only definitions*/- +
+ +and s.type not in ('PACKAGE', 'TYPE')- +
+ +order by line]'- +
+ +bulk collect into g_source_cache- +
+ +using a_owner, a_object_name;- +
+ +end if;- +
+ +- + 195 +
+ +if g_source_cache.exists(a_line_no) then- + 190 +
+ +l_line := g_source_cache(a_line_no);- +
+ +end if;- + 195 +
+ +return l_line;- -
end;- + +
- -
- -
-member procedure to_be_like(self in ut_expectation_clob, a_mask in varchar2, a_escape_char in varchar2 := null) is- + +
- +
+ +procedure reset_source_definition_cache is- -
begin- - 7 -
-ut_utils.debug_log('ut_expectation_clob.to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 default null)');- - 7 -
-self.to_( ut_be_like(a_mask, a_escape_char) );- + +
- + 116 +
+ +g_source_cache := null;- + 116 +
+ +g_cached_object := null;- -
end;- + +
- -
- -
-member procedure to_match(self in ut_expectation_clob, a_pattern in varchar2, a_modifiers in varchar2 default null) is- + +
- +
+ +function get_dba_view(a_dba_view_name varchar2) return varchar2 is- + 903 +
+ +l_result varchar2(128) := lower(a_dba_view_name);- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_clob.to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null)');- - 4 -
-self.to_( ut_match(a_pattern, a_modifiers) );- + +
- + 903 +
+ +if not is_object_visible(a_dba_view_name) then- + 761 +
+ +l_result := replace(l_result,'dba_','all_');- +
+ +end if;- + 903 +
+ +return l_result;- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_clob, a_expected clob, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_source_view_name return varchar2 is- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_clob.not_to_equal(self in ut_expectation, a_expected clob)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 293 +
+ +return get_dba_view('dba_source');- -
end;- + +
- -
- -
-member procedure not_to_be_like(self in ut_expectation_clob, a_mask in varchar2, a_escape_char in varchar2 := null) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_clob.not_to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 default null)');- - 4 -
-self.not_to( ut_be_like(a_mask, a_escape_char) );- -
-end;- + +
- -
- -
-member procedure not_to_match(self in ut_expectation_clob, a_pattern in varchar2, a_modifiers in varchar2 default null) is- + +
- +
+ +function get_objects_view_name return varchar2 is- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_clob.not_to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null)');- - 4 -
-self.not_to( ut_match(a_pattern, a_modifiers) );- + +
- + 604 +
+ +return get_dba_view('dba_objects');- -
end;- -
-- -
end;UT3.UT_EXPECTATION_DATE
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_date 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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_date, a_expected date, a_nulls_are_equal boolean := null) is- + +
- +
+ +function user_has_execute_any_proc return boolean is- + 169 +
+ +l_ut_owner varchar2(250) := ut_utils.ut_owner;- -
begin- - 11 -
-ut_utils.debug_log('ut_expectation_date.to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 169 +
+ +return is_object_visible(l_ut_owner||'.ut_utils');- -
end;- + +
- -
- -
-member procedure to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date) is- + +
- +
+ +function is_object_visible(a_object_name varchar2) return boolean is- +
+ +l_invalid_object_name exception;- +
+ +pragma exception_init(l_invalid_object_name,-44002);- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_date.to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date)');- - 4 -
-self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- + +
- + 1377 +
+ +return dbms_assert.sql_object_name(a_object_name) is not null;- +
+ +exception- + 1972 +
+ +when l_invalid_object_name then- + 986 +
+ +return false;- -
end;- + +
- -
- -
-member procedure to_be_greater_or_equal(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function package_exists_in_cur_schema(a_object_name varchar2) return boolean is- +
+ +l_cnt number;- + 135 +
+ +c_current_schema constant all_tables.owner%type := sys_context('USERENV','CURRENT_SCHEMA');- -
begin- - 3 -
-ut_utils.debug_log('ut_expectation_date.to_be_greater_or_equal(self in ut_expectation_date, a_expected date)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- + +
- + 135 +
+ +select count(*)- +
+ +into l_cnt- +
+ +from all_objects t- +
+ +where t.object_name = a_object_name- +
+ +and t.object_type = 'PACKAGE'- +
+ +and t.owner = c_current_schema;- + 135 +
+ +return l_cnt > 0;- -
end;- + +
- -
- -
-member procedure to_be_greater_than(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function is_collection (a_anytype_code in integer) return boolean is- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_date.to_be_greater_than(self in ut_expectation_date, a_expected date)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- + +
- + 1062 +
+ +return coalesce(a_anytype_code in (dbms_types.typecode_varray,dbms_types.typecode_table,dbms_types.typecode_namedcollection),false);- -
end;- + +
- -
- -
-member procedure to_be_less_or_equal(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function is_collection (a_owner varchar2, a_type_name varchar2) return boolean is- -
begin- - 3 -
-ut_utils.debug_log('ut_expectation_date.to_be_less_or_equal(self in ut_expectation_date, a_expected date)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- + +
- + 845 +
+ +return is_collection(- +
+ +get_anytype_members_info(- +
+ +get_user_defined_type(a_owner, a_type_name)- +
+ +).type_code- +
+ +);- -
end;- + +
- -
- -
-member procedure to_be_less_than(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function get_attr_elem_info( a_anytype anytype, a_pos pls_integer := null )- +
+ +return t_anytype_elem_info_rec is- +
+ +l_result t_anytype_elem_info_rec;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_date.to_be_less_than(self in ut_expectation_date, a_expected date');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- + +
- + 525 +
+ +if a_anytype is not null then- + 525 +
+ +l_result.type_code := a_anytype.getattreleminfo(- +
+ +pos => a_pos,- +
+ +prec => l_result.precision,- +
+ +scale => l_result.scale,- +
+ +len => l_result.length,- +
+ +csid => l_result.char_set_id,- +
+ +csfrm => l_result.char_set_frm,- +
+ +attr_elt_type => l_result.attr_elt_type,- +
+ +aname => l_result.attribute_name- +
+ +);- +
+ +end if;- + 525 +
+ +return l_result;- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_date, a_expected date, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_anytype_members_info( a_anytype anytype )- +
+ +return t_anytype_members_rec is- +
+ +l_result t_anytype_members_rec;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_date.not_to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure not_to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_date.not_to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- -
-end;- -
-- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_date, a_expected date) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_date.not_to_be_greater_or_equal(self in ut_expectation_date, a_expected date)');- - 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- + +
- + 1062 +
+ +if a_anytype is not null then- + 336 +
+ +l_result.type_code := a_anytype.getinfo(- +
+ +prec => l_result.precision,- +
+ +scale => l_result.scale,- +
+ +len => l_result.length,- +
+ +csid => l_result.char_set_id,- +
+ +csfrm => l_result.char_set_frm,- +
+ +schema_name => l_result.schema_name,- +
+ +type_name => l_result.type_name,- +
+ +version => l_result.version,- +
+ +numelems => l_result.elements_count- +
+ +);- +
+ +end if;- + 1062 +
+ +return l_result;- -
end;- + +
- -
- -
-member procedure not_to_be_greater_than(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function get_user_defined_type(a_owner varchar2, a_type_name varchar2) return anytype is- +
+ +l_anytype anytype;- +
+ +not_found exception;- +
+ +pragma exception_init(not_found,-22303);- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_date.not_to_be_greater_than(self in ut_expectation_date, a_expected date)');- - 1 -
-self.not_to( ut_be_greater_than (a_expected) );- + +
- + 964 +
+ +if a_type_name is not null then- +
+ +begin- + 238 +
+ +if ut_metadata.is_object_visible('GETANYTYPEFROMPERSISTENT') then- + 238 +
+ +execute immediate 'begin :l_anytype := getanytypefrompersistent( :a_owner, :a_type_name ); end;'- +
+ +using out l_anytype, in nvl(a_owner,sys_context('userenv','current_schema')), in a_type_name;- +
+ +else- +
+ +execute immediate 'begin :l_anytype := anytype.getpersistent( :a_owner, :a_type_name ); end;'- +
+ +using out l_anytype, in nvl(a_owner,sys_context('userenv','current_schema')), in a_type_name;- +
+ +end if;- +
+ +exception- +
+ +when not_found then- +
+ +null;- +
+ +end;- +
+ +end if;- + 964 +
+ +return l_anytype;- -
end;- + +
- -
- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function get_collection_element(a_anydata in anydata) return varchar2- +
+ +is- +
+ +l_anytype anytype;- +
+ +l_nested_type t_anytype_members_rec;- +
+ +l_elements_rec t_anytype_elem_info_rec;- +
+ +l_type_code integer;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_date.not_to_be_less_or_equal(self in ut_expectation_date, a_expected date)');- - 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- + +
- + 72 +
+ +l_type_code := a_anydata.gettype(l_anytype);- + 72 +
+ +if is_collection(l_type_code) then- + 72 +
+ +l_elements_rec := get_attr_elem_info(l_anytype);- + 72 +
+ +if l_elements_rec.attr_elt_type is null then- + 38 +
+ +l_nested_type := get_anytype_members_info(l_anytype);- +
+ +else- + 34 +
+ +l_nested_type := get_anytype_members_info(l_elements_rec.attr_elt_type);- +
+ +end if;- +
+ +end if;- + 72 +
+ +return l_nested_type.schema_name || '.' ||l_nested_type.type_name;- -
end;- + +
- -
- -
-member procedure not_to_be_less_than(self in ut_expectation_date, a_expected date) is- + +
- +
+ +function has_collection_members (a_anydata in anydata) return boolean is- +
+ +l_anytype anytype;- +
+ +l_elements_rec t_anytype_elem_info_rec;- +
+ +l_type_code integer;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_date.not_to_be_less_than(self in ut_expectation_date, a_expected date');- - 1 -
-self.not_to( ut_be_less_than (a_expected) );- + +
- + 72 +
+ +l_type_code := a_anydata.gettype(l_anytype);- + 72 +
+ +l_elements_rec := get_attr_elem_info(l_anytype);- + 72 +
+ +return l_elements_rec.attr_elt_type is not null;- -
end;- -
-- -
end;UT3.UT_EXPECTATION_DSINTERVAL
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_dsinterval 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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_anydata_typename(a_data_value anydata) return varchar2- +
+ +is- -
begin- - 11 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_equal(self in ut_expectation, a_expected dsinterval_unconstrained)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 335 +
+ +return case when a_data_value is not null then lower(a_data_value.gettypename()) else 'undefined' end;- -
end;- + +
- -
- -
-member procedure to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained) is- + +
- +
+ +function is_anytype_null(a_value in anydata, a_compound_type in varchar2) return number is- + 173 +
+ +l_result integer := 0;- +
+ +l_anydata_sql varchar2(4000);- +
+ +l_compound_type varchar2(250);- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');- - 4 -
-self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- -
-end;- -
-- -
-member procedure to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- -
-end;- -
-member procedure to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_dsinterval.to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- -
-end;- -
-- -
-overriding member procedure not_to_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_equal(self in ut_expectation, a_expected dsinterval_unconstrained)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 173 +
+ +if a_value is not null then- + 162 +
+ +l_compound_type := sys.dbms_assert.qualified_sql_name(a_compound_type);- + 162 +
+ +l_anydata_sql := '- +
+ +declare- +
+ +l_data '||get_anydata_typename(a_value)||';- +
+ +l_value anydata := :a_value;- +
+ +l_status integer;- +
+ +begin- +
+ +l_status := l_value.get'||l_compound_type||'(l_data);- +
+ +:l_data_is_null := case when l_data is null then 1 else 0 end;- +
+ +end;';- + 162 +
+ +execute immediate l_anydata_sql using in a_value, out l_result;- +
+ +else- + 11 +
+ +l_result := 1;- +
+ +end if;- + 173 +
+ +return l_result;- -
end;- + +
- -
- -
-member procedure not_to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained) is- + +
- +
+ +function get_object_name(a_full_object_name in varchar2) return varchar2 is- +
+ +l_result varchar2(250);- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- + +
- + 127 +
+ +l_result := regexp_substr(- +
+ +a_full_object_name,- +
+ +'^([A-Za-z0-9$#_]+|".*?")\.([A-Za-z0-9$#_]+|".*?")', subexpression => 2- +
+ +);- + 127 +
+ +if not l_result like '"%"' then- + 127 +
+ +l_result := upper(l_result);- +
+ +end if;- + 127 +
+ +return ut_utils.qualified_sql_name(l_result);- -
end;- + +
- -
- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_than (a_expected) );- -
-end;- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- - 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is- + +
- +
+ +function get_anydata_compound_type(a_data_value anydata) return varchar2 is- +
+ +l_result varchar2(30);- +
+ +l_type anytype;- +
+ +l_type_code integer;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_dsinterval.not_to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');- + +
- + 173 +
+ +if a_data_value is not null then- + 162 +
+ +l_type_code := a_data_value.gettype(l_type);- + 162 +
+ +if l_type_code in (dbms_types.typecode_table, dbms_types.typecode_varray, dbms_types.typecode_namedcollection,- 1 -
-self.not_to( ut_be_less_than (a_expected) );- +
+ +dbms_types.typecode_object) then- + 162 +
+ +if l_type_code = dbms_types.typecode_object then- + 67 +
+ +l_result := 'object';- +
+ +else- + 95 +
+ +l_result := 'collection';- +
+ +end if;- +
+ +end if;- +
+ +end if;- + 173 +
+ +return l_result;- -
end;- + +
- -
- -
end;+UT3.UT_EXPECTATION_NUMBER
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_SUITE_BUILDER
98.76 % lines covered
322 relevant lines. 318 lines covered and 4 lines missed+
- -
+type body ut_expectation_number aspackage body ut_suite_builder is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- -
+overriding member procedure to_equal(self in ut_expectation_number, a_expected number, a_nulls_are_equal boolean := null) is+- -
-begin- - 272 -
-ut_utils.debug_log('ut_expectation_number.to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null)');- - 272 -
+self.to_( ut_equal(a_expected, a_nulls_are_equal) );subtype t_annotation_text is varchar2(4000);+ +- +
+ +subtype t_annotation_name is varchar2(4000);- +
+subtype t_object_name is varchar2(500);- -
+end;subtype t_annotation_position is binary_integer;+- -
- -
-member procedure to_be_between(self in ut_expectation_number, a_lower_bound number, a_upper_bound number) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_number.to_be_between(self in ut_expectation_date, a_lower_bound number, a_upper_bound number)');- - 4 -
-self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- -
-end;- -
-- -
-member procedure to_be_greater_or_equal(self in ut_expectation_number, a_expected number) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_number.to_be_greater_or_equal(self in ut_expectation_number, a_expected number)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-- -
-member procedure to_be_greater_than(self in ut_expectation_number, a_expected number) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_number.to_be_greater_than(self in ut_expectation_number, a_expected number)');- - 2 -
+ +self.to_( ut_be_greater_than (a_expected) );- + 1 +
+ +gc_suite constant t_annotation_name := 'suite';- + 1 +
+ +gc_suitepath constant t_annotation_name := 'suitepath';- + 1 +
+ +gc_tags constant t_annotation_name := 'tags';- + 1 +
+ +gc_test constant t_annotation_name := ut_utils.gc_test_execute;- + 1 +
+ +gc_disabled constant t_annotation_name := 'disabled';- + 1 +
+ +gc_displayname constant t_annotation_name := 'displayname';- + 1 +
+ +gc_beforeall constant t_annotation_name := ut_utils.gc_before_all;- + 1 +
+ +gc_beforeeach constant t_annotation_name := ut_utils.gc_before_each;- + 1 +
+ +gc_beforetest constant t_annotation_name := ut_utils.gc_before_test;- + 1 +
+ +gc_afterall constant t_annotation_name := ut_utils.gc_after_all;- + 1 +
+ +gc_aftereach constant t_annotation_name := ut_utils.gc_after_each;- + 1 +
+ +gc_aftertest constant t_annotation_name := ut_utils.gc_after_test;- + 1 +
+ +gc_throws constant t_annotation_name := 'throws';- + 1 +
+ +gc_rollback constant t_annotation_name := 'rollback';- + 1 +
+ +gc_context constant t_annotation_name := 'context';- + 1 +
+gc_endcontext constant t_annotation_name := 'endcontext';- -
-end;- + +
- +
+type tt_annotations is table of t_annotation_name;- -
-member procedure to_be_less_or_equal(self in ut_expectation_number, a_expected number) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_number.to_be_less_or_equal(self in ut_expectation_number, a_expected number)');- - 3 -
+self.to_( ut_be_less_or_equal (a_expected) );+ +- + 1 +
+ +gc_supported_annotations constant tt_annotations- +
+ +:= tt_annotations(- +
+gc_suite,- -
+end;gc_suitepath,+- -
+gc_tags,+- -
+member procedure to_be_less_than(self in ut_expectation_number, a_expected number) isgc_test,+- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_number.to_be_less_than(self in ut_expectation_number, a_expected number');- - 2 -
+self.to_( ut_be_less_than (a_expected) );gc_disabled,+ +- +
+ +gc_displayname,- +
+gc_beforeall,- -
+end;gc_beforeeach,+- -
+gc_beforetest,+- -
+overriding member procedure not_to_equal(self in ut_expectation_number, a_expected number, a_nulls_are_equal boolean := null) isgc_afterall,+- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_number.not_to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null)');- - 2 -
+self.not_to( ut_equal(a_expected, a_nulls_are_equal) );gc_aftereach,+ +- +
+ +gc_aftertest,- +
+gc_throws,- -
+end;gc_rollback,+- -
+gc_context,+- -
+member procedure not_to_be_between(self in ut_expectation_number, a_lower_bound number, a_upper_bound number) isgc_endcontext+- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_number.not_to_be_between(self in ut_expectation_date, a_lower_bound number, a_upper_bound number)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- -
+end;);+ +- +
+ +- + 1 +
+ +gc_integer_exception constant varchar2(1) := 'I';- + 1 +
+gc_named_exception constant varchar2(1) := 'N';- +
- -
+member procedure not_to_be_greater_or_equal(self in ut_expectation_number, a_expected number) istype tt_executables is table of ut_executables index by t_annotation_position;+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_number.not_to_be_greater_or_equal(self in ut_expectation_number, a_expected number)');- - 1 -
+self.not_to( ut_be_greater_or_equal (a_expected) );+ +- +
+ +type t_annotation is record(- +
+name t_annotation_name,- -
+end;text t_annotation_text,+- -
+procedure_name t_object_name+- -
+member procedure not_to_be_greater_than(self in ut_expectation_number, a_expected number) is);+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_number.not_to_be_greater_than(self in ut_expectation_number, a_expected number)');- - 1 -
+self.not_to( ut_be_greater_than (a_expected) );+ +- +
+ +type tt_annotations_by_line is table of t_annotation index by t_annotation_position;- +
+- -
+end;--list of annotation texts for a given annotation indexed by annotation position:+- -
+--This would hold: ('some', 'other') for a single annotation name recurring in a single procedure example+- -
+member procedure not_to_be_less_or_equal(self in ut_expectation_number, a_expected number) is-- --%beforetest(some)+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_number.not_to_be_less_or_equal(self in ut_expectation_number, a_expected number)');- - 1 -
+self.not_to( ut_be_less_or_equal (a_expected) );-- --%beforetest(other)+ +- +
+ +-- --%test(some test with two before test procedures)- +
+-- procedure some_test ...- -
+end;-- when you'd like to have two beforetest procedures executed in a single test+- -
+type tt_annotation_texts is table of t_annotation_text index by t_annotation_position;+- -
+member procedure not_to_be_less_than(self in ut_expectation_number, a_expected number) is+- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_number.not_to_be_less_than(self in ut_expectation_number, a_expected number');- - 1 -
+self.not_to( ut_be_less_than (a_expected) );type tt_annotations_by_name is table of tt_annotation_texts index by t_annotation_name;+ +- +
+ +- +
+type tt_annotations_by_proc is table of tt_annotations_by_name index by t_object_name;- -
-end;- + +
- +
+type t_annotations_info is record (- -
end;UT3.UT_EXPECTATION_REFCURSOR
100 % covered
8 relevant lines. 8 lines covered and 0 lines missed-
- -
-type body ut_expectation_refcursor 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- +
+ +owner t_object_name,- +
+ +name t_object_name,- +
+ +parse_time timestamp,- +
+ +by_line tt_annotations_by_line,- +
+ +by_proc tt_annotations_by_proc,- +
+ +by_name tt_annotations_by_name- +
+ +);- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_refcursor, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_qualified_object_name(- +
+ +a_suite ut_suite_item, a_procedure_name t_object_name- +
+ +) return varchar2 is- +
+ +l_result varchar2(1000);- -
begin- - 8 -
-ut_utils.debug_log('ut_expectation_refcursor.to_equal(self in ut_expectation_refcursor, a_expected sys_refcursor, a_nulls_are_equal boolean := null)');- - 8 -
-self.to_( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_be_empty(self in ut_expectation_refcursor) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_refcursor.to_be_empty(self in ut_expectation_refcursor)');- - 2 -
-self.to_( ut_be_empty() );- + +
- + 54 +
+ +if a_suite is not null then- + 54 +
+ +l_result := upper( a_suite.object_owner || '.' || a_suite.object_name );- + 54 +
+ +if a_procedure_name is not null then- + 32 +
+ +l_result := l_result || upper( '.' || a_procedure_name );- +
+ +end if;- +
+ +end if;- + 54 +
+ +return l_result;- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_refcursor, a_expected sys_refcursor, a_exclude varchar2 := null, a_nulls_are_equal boolean := null) is- + +
- +
+ +function get_object_reference(- +
+ +a_suite ut_suite_item, a_procedure_name t_object_name, a_line_no binary_integer- +
+ +) return varchar2 is- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_refcursor.not_to_equal(self in ut_expectation_refcursor, a_expected sys_refcursor, a_nulls_are_equal boolean := null)');- - 1 -
-self.not_to( ut_equal(a_expected, a_exclude, a_nulls_are_equal) );- + +
- + 54 +
+ +return chr( 10 ) || 'at package "' || get_qualified_object_name(a_suite, a_procedure_name) || '", line ' || a_line_no;- -
end;- + +
- -
- -
-member procedure not_to_be_empty(self in ut_expectation_refcursor) is- + +
- +
+ +procedure delete_annotations_range(- +
+ +a_annotations in out nocopy t_annotations_info,- +
+ +a_start_pos t_annotation_position,- +
+ +a_end_pos t_annotation_position- +
+ +) is- + 177 +
+ +l_pos t_annotation_position := a_start_pos;- +
+ +l_annotation t_annotation;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_refcursor.not_to_be_empty(self in ut_expectation_refcursor)');- - 2 -
-self.not_to( ut_be_empty() );- + +
- + 2037 +
+ +while l_pos is not null and l_pos <= a_end_pos loop- + 1860 +
+ +l_annotation := a_annotations.by_line(l_pos);- + 1860 +
+ +if l_annotation.procedure_name is not null and a_annotations.by_proc.exists(l_annotation.procedure_name) then- + 1163 +
+ +a_annotations.by_proc.delete(l_annotation.procedure_name);- + 697 +
+ +elsif a_annotations.by_name.exists(l_annotation.name) then- + 530 +
+ +a_annotations.by_name(l_annotation.name).delete(l_pos);- + 530 +
+ +if a_annotations.by_name(l_annotation.name).count = 0 then- + 169 +
+ +a_annotations.by_name.delete(l_annotation.name);- +
+ +end if;- +
+ +end if;- + 1860 +
+ +l_pos := a_annotations.by_line.next( l_pos );- +
+ +end loop;- + 177 +
+ +a_annotations.by_line.delete(a_start_pos, a_end_pos);- -
end;- -
end;UT3.UT_EXPECTATION_TIMESTAMP
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_timestamp 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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure add_items_to_list(a_list in out nocopy ut_suite_items, a_items ut_suite_items) is- -
begin- - 11 -
-ut_utils.debug_log('ut_expectation_timestamp.to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 1286 +
+ +for i in 1 .. a_items.count loop- + 1110 +
+ +a_list.extend();- + 1110 +
+ +a_list(a_list.last) := a_items(i);- +
+ +end loop;- -
end;- + +
- -
- -
-member procedure to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained) is- -
-begin- - 6 -
-ut_utils.debug_log('ut_expectation_timestamp.to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)');- - 6 -
-self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- -
-end;- + +
- +
+ +------------------------------------------------ +
+ +-- Processing annotations- +
+ +------------------------------------------------ -
- -
-member procedure to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- + +
- +
+ +procedure add_annotation_ignored_warning(- +
+ +a_suite in out nocopy ut_suite_item,- +
+ +a_annotation t_annotation_name,- +
+ +a_message varchar2,- +
+ +a_line_no binary_integer,- +
+ +a_procedure_name t_object_name := null- +
+ +) is- -
begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp.to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- + +
- + 30 +
+ +a_suite.put_warning(- +
+ +replace(a_message,'%%%','"--%'||a_annotation||'"')- +
+ +|| ' Annotation ignored.' || get_object_reference( a_suite, a_procedure_name, a_line_no )- +
+ +);- -
end;- + +
- -
- -
-member procedure to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- + +
- +
+ +function get_rollback_type(a_rollback_type_name varchar2) return ut_utils.t_rollback_type is- +
+ +l_rollback_type ut_utils.t_rollback_type;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp.to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- + +
- + 22 +
+ +l_rollback_type :=- + 1 +
+ +case lower(a_rollback_type_name)- + 1 +
+ +when 'manual' then ut_utils.gc_rollback_manual- + 1 +
+ +when 'auto' then ut_utils.gc_rollback_auto- +
+ +end;- + 22 +
+ +return l_rollback_type;- -
end;- + +
- -
- -
-member procedure to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp.to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- -
-end;- -
-- -
-member procedure to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp.to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- -
-end;- + +
- +
+ +procedure add_to_throws_numbers_list(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_list in out nocopy ut_integer_list,- +
+ +a_procedure_name t_object_name,- +
+ +a_throws_ann_text tt_annotation_texts- +
+ +) is- +
+ +l_annotation_pos binary_integer;- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- +
+ +function is_valid_qualified_name (a_name varchar2) return boolean is- +
+ +l_name varchar2(500);- +
+ +begin- + 51 +
+ +l_name := dbms_assert.qualified_sql_name(a_name);- + 19 +
+ +return true;- + 64 +
+ +exception when others then- + 32 +
+ +return false;- +
+ +end;- -
- -
-member procedure not_to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- -
-end;- + +
- +
+ +function check_exception_type(a_exception_name in varchar2) return varchar2 is- +
+ +l_exception_type varchar2(50);- +
+ +begin- +
+ +--check if it is a predefined exception- +
+ +begin- + 19 +
+ +execute immediate 'begin null; exception when '||a_exception_name||' then null; end;';- + 3 +
+ +l_exception_type := gc_named_exception;- +
+ +exception- + 32 +
+ +when others then- + 16 +
+ +if dbms_utility.format_error_stack() like '%PLS-00485%' then- +
+ +begin- + 7 +
+ +execute immediate 'declare x positiven := -('||a_exception_name||'); begin null; end;';- + 7 +
+ +l_exception_type := gc_integer_exception;- +
+ +exception- +
+ +when others then- +
+ +--invalid exception number (positive)- +
+ +--TODO add warning for this value- +
+ +null;- +
+ +end;- +
+ +end if;- +
+ +end;- + 19 +
+ +return l_exception_type;- +
+ +end;- -
- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- -
-end;- + +
- +
+ +function get_exception_number (a_exception_var in varchar2) return integer is- +
+ +l_exc_no integer;- +
+ +l_exc_type varchar2(50);- +
+ +function remap_no_data_found (a_number integer) return integer is- +
+ +begin- + 19 +
+ +return case a_number when 100 then -1403 else a_number end;- +
+ +end;- +
+ +begin- + 19 +
+ +l_exc_type := check_exception_type(a_exception_var);- -
- -
-member procedure not_to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_than (a_expected) );- -
-end;- + +
- + 19 +
+ +if l_exc_type is not null then- -
- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- + +
- + 10 +
+ +execute immediate- 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- -
-end;- -
-- -
-member procedure not_to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is- -
-begin- +
+ +case l_exc_type- 1 -
-ut_utils.debug_log('ut_expectation_timestamp.not_to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');- +
+ +when gc_integer_exception then- +
+ +'declare- +
+ +l_exception number;- +
+ +begin- +
+ +:l_exception := '||a_exception_var||'; '- 1 -
-self.not_to( ut_be_less_than (a_expected) );- -
-end;- +
+ +when gc_named_exception then- +
+ +'begin- +
+ +raise '||a_exception_var||';- +
+ +exception- +
+ +when others then- +
+ +:l_exception := sqlcode; '- +
+ +end ||- +
+ +'end;'- +
+ +using out l_exc_no;- -
- -
end;UT3.UT_EXPECTATION_TIMESTAMP_LTZ
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_timestamp_ltz as- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- +
+ +end if;- + 19 +
+ +return remap_no_data_found(l_exc_no);- +
+ +end;- -
- -
-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- + +
- +
+ +function build_exception_numbers_list(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_procedure_name t_object_name,- +
+ +a_line_no integer,- +
+ +a_annotation_text in varchar2- +
+ +) return ut_integer_list is- +
+ +l_throws_list ut_varchar2_list;- +
+ +l_exception_number integer;- + 29 +
+ +l_exception_number_list ut_integer_list := ut_integer_list();- + 29 +
+ +c_regexp_for_exception_no constant varchar2(30) := '^-?[[:digit:]]{1,5}$';- +
+ +begin- +
+ +--the a_expected_error_codes is converted to a ut_varchar2_list after that is trimmed and filtered to left only valid exception numbers- + 29 +
+ +l_throws_list := ut_utils.trim_list_elements(ut_utils.string_to_table(a_annotation_text, ',', 'Y'));- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 80 +
+ +for i in 1 .. l_throws_list.count- +
+ +loop- +
+ +/**- +
+ +* Check if its a valid qualified name and if so try to resolve name to an exception number- +
+ +*/- + 51 +
+ +if is_valid_qualified_name(l_throws_list(i)) then- + 19 +
+ +l_exception_number := get_exception_number(l_throws_list(i));- + 32 +
+ +elsif regexp_like(l_throws_list(i), c_regexp_for_exception_no) then- + 24 +
+ +l_exception_number := l_throws_list(i);- +
+ +end if;- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 11 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- + 51 +
+ +if l_exception_number is null then- + 17 +
+ +a_suite.put_warning(- +
+ +'Invalid parameter value "'||l_throws_list(i)- +
+ +||'" for "--%throws" annotation. Parameter ignored.'||get_object_reference( a_suite, a_procedure_name, a_line_no )- +
+ +);- +
+ +else- + 34 +
+ +l_exception_number_list.extend;- + 34 +
+ +l_exception_number_list(l_exception_number_list.last) := l_exception_number;- +
+ +end if;- + 51 +
+ +l_exception_number := null;- +
+ +end loop;- -
- -
-member procedure to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained) is- + +
- + 29 +
+ +return l_exception_number_list;- +
+ +end;- +
+ +- -
begin- - 6 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)');- - 6 -
-self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- + +
- + 33 +
+ +a_list := ut_integer_list();- + 33 +
+ +l_annotation_pos := a_throws_ann_text.first;- + 66 +
+ +while l_annotation_pos is not null loop- + 33 +
+ +if a_throws_ann_text(l_annotation_pos) is null then- + 4 +
+ +a_suite.put_warning(- +
+ +'"--%throws" annotation requires a parameter. Annotation ignored.'- +
+ +|| get_object_reference( a_suite, a_procedure_name, l_annotation_pos )- +
+ +);- +
+ +else- + 29 +
+ +a_list :=- +
+ +a_list multiset union- +
+ +build_exception_numbers_list(- +
+ +a_suite,- +
+ +a_procedure_name,- +
+ +l_annotation_pos,- +
+ +a_throws_ann_text(l_annotation_pos)- +
+ +);- +
+ +end if;- + 33 +
+ +l_annotation_pos := a_throws_ann_text.next(l_annotation_pos);- +
+ +end loop;- -
end;- + +
- -
- -
-member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- + +
- +
+ +procedure add_tags_to_suite_item(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_tags_ann_text tt_annotation_texts,- +
+ +a_list in out nocopy ut_varchar2_rows,- +
+ +a_procedure_name t_object_name := null- +
+ +) is- +
+ +l_annotation_pos binary_integer;- + 55 +
+ +l_tag_list ut_varchar2_list := ut_varchar2_list();- -
begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- + +
- + 55 +
+ +l_annotation_pos := a_tags_ann_text.first;- + 114 +
+ +while l_annotation_pos is not null loop- + 59 +
+ +if a_tags_ann_text(l_annotation_pos) is null then- 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +a_suite.put_warning(- +
+ +'"--%tags" annotation requires a tag value populated. Annotation ignored.'- +
+ +|| get_object_reference( a_suite, a_procedure_name, l_annotation_pos )- +
+ +);- +
+ +else- + 56 +
+ +l_tag_list := l_tag_list multiset union distinct ut_utils.trim_list_elements(- +
+ +ut_utils.string_to_table(a_tags_ann_text(l_annotation_pos),',')- +
+ +);- +
+ +end if;- + 59 +
+ +l_annotation_pos := a_tags_ann_text.next(l_annotation_pos);- +
+ +end loop;- +
+ +--remove empty strings from table list e.g. tag1,,tag2 and conver to rows- + 55 +
+ +a_list := ut_utils.convert_collection( ut_utils.filter_list(l_tag_list,ut_utils.gc_word_no_space) );- -
end;- -
-member procedure to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- + +
- +
+ +- +
+ +procedure set_seq_no(- +
+ +a_list in out nocopy ut_executables- +
+ +) is- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- + +
- + 8368 +
+ +if a_list is not null then- + 10116 +
+ +for i in 1 .. a_list.count loop- + 1748 +
+ +a_list(i).seq_no := i;- +
+ +end loop;- +
+ +end if;- -
end;- -
-member procedure to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- -
-end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +function convert_list(- +
+ +a_list tt_executables- +
+ +) return ut_executables is- + 8368 +
+ +l_result ut_executables := ut_executables();- + 8368 +
+ +l_pos t_annotation_position := a_list.first;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 10004 +
+ +while l_pos is not null loop- + 3308 +
+ +for i in 1 .. a_list(l_pos).count loop- + 1672 +
+ +l_result.extend;- + 1672 +
+ +l_result(l_result.last) := a_list(l_pos)(i);- +
+ +end loop;- + 1636 +
+ +l_pos := a_list.next(l_pos);- +
+ +end loop;- + 8368 +
+ +return l_result;- -
end;- + +
- -
- -
-member procedure not_to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained) is- + +
- +
+ +function add_executables(- +
+ +a_owner t_object_name,- +
+ +a_package_name t_object_name,- +
+ +a_annotation_texts tt_annotation_texts,- +
+ +a_event_name ut_event_manager.t_event_name- +
+ +) return tt_executables is- +
+ +l_executables ut_executables;- +
+ +l_result tt_executables;- +
+ +l_annotation_pos binary_integer;- +
+ +l_procedures_list ut_varchar2_list;- +
+ +l_procedures_pos binary_integer;- +
+ +l_components_list ut_varchar2_list;- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- -
-end;- + +
- + 543 +
+ +l_annotation_pos := a_annotation_texts.first;- + 1103 +
+ +while l_annotation_pos is not null loop- + 560 +
+ +l_procedures_list :=- +
+ +ut_utils.filter_list(- +
+ +ut_utils.trim_list_elements(- +
+ +ut_utils.string_to_table(a_annotation_texts(l_annotation_pos), ',')- +
+ +)- +
+ +, '[[:alpha:]]+'- +
+ +);- -
- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- -
-begin- + +
- + 560 +
+ +l_procedures_pos := l_procedures_list.first;- + 560 +
+ +l_executables := ut_executables();- + 1144 +
+ +while l_procedures_pos is not null loop- + 584 +
+ +l_components_list := ut_utils.string_to_table(l_procedures_list(l_procedures_pos), '.');- +
+ +- + 584 +
+ +l_executables.extend;- + 584 +
+ +l_executables(l_executables.last) :=- 1 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- +
+ +case(l_components_list.count())- 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- -
-begin- +
+ +when 1 then- +
+ +ut_executable(a_owner, a_package_name, l_components_list(1), a_event_name)- 1 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- +
+ +when 2 then- +
+ +ut_executable(a_owner,l_components_list(1), l_components_list(2), a_event_name)- 1 -
-self.not_to( ut_be_greater_than (a_expected) );- +
+ +when 3 then- +
+ +ut_executable(l_components_list(1), l_components_list(2), l_components_list(3), a_event_name)- +
+ +else- +
+ +null- +
+ +end;- + 584 +
+ +l_procedures_pos := l_procedures_list.next(l_procedures_pos);- +
+ +end loop;- + 560 +
+ +l_result(l_annotation_pos) := l_executables;- + 560 +
+ +l_annotation_pos := a_annotation_texts.next(l_annotation_pos);- +
+ +end loop;- + 543 +
+ +return l_result;- -
end;- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- + +
- +
+ +- +
+ +procedure warning_on_duplicate_annot(- +
+ +a_suite in out nocopy ut_suite_item,- +
+ +a_annotations tt_annotations_by_name,- +
+ +a_for_annotation varchar2,- +
+ +a_procedure_name t_object_name := null- +
+ +) is- +
+ +l_line_no binary_integer;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- - 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- + +
- + 8204 +
+ +if a_annotations.exists(a_for_annotation) and a_annotations(a_for_annotation).count > 1 then- +
+ +--start from second occurrence of annotation- + 14 +
+ +l_line_no := a_annotations(a_for_annotation).next( a_annotations(a_for_annotation).first );- + 28 +
+ +while l_line_no is not null loop- + 14 +
+ +add_annotation_ignored_warning( a_suite, a_for_annotation, 'Duplicate annotation %%%.', l_line_no, a_procedure_name );- + 14 +
+ +l_line_no := a_annotations(a_for_annotation).next( l_line_no );- +
+ +end loop;- +
+ +end if;- -
end;- -
-member procedure not_to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is- + +
- +
+ +- +
+ +procedure warning_bad_annot_combination(- +
+ +a_suite in out nocopy ut_suite_item,- +
+ +a_procedure_name t_object_name,- +
+ +a_proc_annotations tt_annotations_by_name,- +
+ +a_for_annotation varchar2,- +
+ +a_invalid_annotations ut_varchar2_list- +
+ +) is- +
+ +l_annotation_name t_annotation_name;- +
+ +l_line_no binary_integer;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp_ltz.not_to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');- - 1 -
-self.not_to( ut_be_less_than (a_expected) );- + +
- + 2417 +
+ +if a_proc_annotations.exists(a_for_annotation) then- + 2417 +
+ +l_annotation_name := a_proc_annotations.first;- + 5359 +
+ +while l_annotation_name is not null loop- + 2942 +
+ +if l_annotation_name member of a_invalid_annotations then- + 4 +
+ +l_line_no := a_proc_annotations(l_annotation_name).first;- + 8 +
+ +while l_line_no is not null loop- + 4 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, l_annotation_name, 'Annotation %%% cannot be used with "--%'|| a_for_annotation || '".',- +
+ +l_line_no, a_procedure_name- +
+ +);- + 4 +
+ +l_line_no := a_proc_annotations(l_annotation_name).next(l_line_no);- +
+ +end loop;- +
+ +end if;- + 2942 +
+ +l_annotation_name := a_proc_annotations.next(l_annotation_name);- +
+ +end loop;- +
+ +end if;- -
end;- + +
- -
- -
end;UT3.UT_EXPECTATION_TIMESTAMP_TZ
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_timestamp_tz 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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 11 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- -
-- -
-member procedure to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained) is- -
-begin- - 6 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)');- - 6 -
-self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- -
-end;- -
-- -
-member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- -
-end;- -
-member procedure to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- + +
- +
+ +procedure add_test(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_suite_items in out nocopy ut_suite_items,- +
+ +a_procedure_name t_object_name,- +
+ +a_annotations t_annotations_info- +
+ +) is- +
+ +l_test ut_test;- +
+ +l_annotation_texts tt_annotation_texts;- + 2646 +
+ +l_proc_annotations tt_annotations_by_name := a_annotations.by_proc(a_procedure_name);- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- -
-end;- + +
- + 2646 +
+ +if not l_proc_annotations.exists(gc_test) then- + 229 +
+ +return;- +
+ +end if;- + 2417 +
+ +warning_on_duplicate_annot( a_suite, l_proc_annotations, gc_test, a_procedure_name);- + 2417 +
+ +warning_on_duplicate_annot( a_suite, l_proc_annotations, gc_displayname, a_procedure_name);- + 2417 +
+ +warning_on_duplicate_annot( a_suite, l_proc_annotations, gc_rollback, a_procedure_name);- + 2417 +
+ +warning_bad_annot_combination(- +
+ +a_suite, a_procedure_name, l_proc_annotations, gc_test,- +
+ +ut_varchar2_list(gc_beforeeach, gc_aftereach, gc_beforeall, gc_afterall)- +
+ +);- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- + 2417 +
+ +l_test := ut_test(a_suite.object_owner, a_suite.object_name, a_procedure_name, l_proc_annotations( gc_test).first);- + 2417 +
+ +l_test.parse_time := a_annotations.parse_time;- -
- -
-member procedure not_to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- -
-end;- + +
- + 2417 +
+ +if l_proc_annotations.exists( gc_displayname) then- + 5 +
+ +l_annotation_texts := l_proc_annotations( gc_displayname);- +
+ +--take the last definition if more than one was provided- + 5 +
+ +l_test.description := l_annotation_texts(l_annotation_texts.first);- +
+ +--TODO if more than one - warning- +
+ +else- + 2412 +
+ +l_test.description := l_proc_annotations(gc_test)(l_proc_annotations(gc_test).first);- +
+ +end if;- + 2417 +
+ +l_test.path := a_suite.path ||'.'||a_procedure_name;- -
- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_than (a_expected) );- -
-end;- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- + +
- + 2417 +
+ +if l_proc_annotations.exists(gc_rollback) then- 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is- -
-begin- +
+ +l_annotation_texts := l_proc_annotations(gc_rollback);- 1 -
-ut_utils.debug_log('ut_expectation_timestamp_tz.not_to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');- +
+ +l_test.rollback_type := get_rollback_type(l_annotation_texts(l_annotation_texts.first));- 1 -
-self.not_to( ut_be_less_than (a_expected) );- -
-end;- +
+ +if l_test.rollback_type is null then- +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_rollback, 'Annotation %%% must be provided with one of values: "auto" or "manual".',- +
+ +l_annotation_texts.first, a_procedure_name- +
+ +);- +
+ +end if;- +
+ +end if;- -
- -
end;UT3.UT_EXPECTATION_VARCHAR2
100 % covered
16 relevant lines. 16 lines covered and 0 lines missed-
- -
-type body ut_expectation_varchar2 as- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- + 2417 +
+ +if l_proc_annotations.exists( gc_beforetest) then- + 215 +
+ +l_test.before_test_list := convert_list(- +
+ +add_executables( l_test.object_owner, l_test.object_name, l_proc_annotations( gc_beforetest ), gc_beforetest )- +
+ +);- + 215 +
+ +set_seq_no(l_test.before_test_list);- +
+ +end if;- + 2417 +
+ +if l_proc_annotations.exists( gc_aftertest) then- + 213 +
+ +l_test.after_test_list := convert_list(- +
+ +add_executables( l_test.object_owner, l_test.object_name, l_proc_annotations( gc_aftertest ), gc_aftertest )- +
+ +);- + 213 +
+ +set_seq_no(l_test.after_test_list);- +
+ +end if;- -
- -
-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- + +
- + 2417 +
+ +if l_proc_annotations.exists( gc_tags) then- + 33 +
+ +add_tags_to_suite_item(a_suite, l_proc_annotations( gc_tags), l_test.tags, a_procedure_name);- +
+ +end if;- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 2417 +
+ +if l_proc_annotations.exists( gc_throws) then- + 33 +
+ +add_to_throws_numbers_list(a_suite, l_test.expected_error_codes, a_procedure_name, l_proc_annotations( gc_throws));- +
+ +end if;- + 2417 +
+ +l_test.disabled_flag := ut_utils.boolean_to_int( l_proc_annotations.exists( gc_disabled));- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_varchar2, a_expected varchar2, a_nulls_are_equal boolean := null) is- -
-begin- - 141 -
-ut_utils.debug_log('ut_expectation_varchar2.to_equal(self in ut_expectation, a_expected varchar2)');- - 141 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- + 2417 +
+ +a_suite_items.extend;- + 2417 +
+ +a_suite_items( a_suite_items.last ) := l_test;- -
- -
-member procedure to_be_between(self in ut_expectation_varchar2, a_lower_bound varchar2, a_upper_bound varchar2) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.to_be_between(self in ut_expectation_varchar2, a_lower_bound varchar2, a_upper_bound varchar2)');- - 4 -
-self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- + +
- -
end;- + +
- -
- -
-member procedure to_be_like(self in ut_expectation_varchar2, a_mask in varchar2, a_escape_char in varchar2 := null) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 default null)');- - 4 -
-self.to_( ut_be_like(a_mask, a_escape_char) );- -
-end;- + +
- +
+ +procedure propagate_before_after_each(- +
+ +a_suite_items in out nocopy ut_suite_items,- +
+ +a_before_each_list tt_executables,- +
+ +a_after_each_list tt_executables- +
+ +) is- +
+ +l_test ut_test;- +
+ +l_context ut_logical_suite;- +
+ +begin- + 619 +
+ +if a_suite_items is not null then- + 4322 +
+ +for i in 1 .. a_suite_items.count loop- + 3703 +
+ +if a_suite_items(i) is of (ut_test) then- + 3527 +
+ +l_test := treat( a_suite_items(i) as ut_test);- + 3527 +
+ +l_test.before_each_list := convert_list(a_before_each_list) multiset union all l_test.before_each_list;- + 3527 +
+ +set_seq_no(l_test.before_each_list);- + 3527 +
+ +l_test.after_each_list := l_test.after_each_list multiset union all convert_list(a_after_each_list);- + 3527 +
+ +set_seq_no(l_test.after_each_list);- + 3527 +
+ +a_suite_items(i) := l_test;- + 176 +
+ +elsif a_suite_items(i) is of (ut_logical_suite) then- + 176 +
+ +l_context := treat(a_suite_items(i) as ut_logical_suite);- + 176 +
+ +propagate_before_after_each( l_context.items, a_before_each_list, a_after_each_list);- + 176 +
+ +a_suite_items(i) := l_context;- +
+ +end if;- +
+ +end loop;- +
+ +end if;- +
+ +end;- -
- -
-member procedure to_match(self in ut_expectation_varchar2, a_pattern in varchar2, a_modifiers in varchar2 default null) is- + +
- +
+ +procedure process_before_after_annot(- +
+ +a_list in out nocopy tt_executables,- +
+ +a_annotation_name t_annotation_name,- +
+ +a_procedure_name t_object_name,- +
+ +a_proc_annotations tt_annotations_by_name,- +
+ +a_suite in out nocopy ut_suite- +
+ +) is- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null)');- - 4 -
-self.to_( ut_match(a_pattern, a_modifiers) );- + +
- + 10584 +
+ +if a_proc_annotations.exists(a_annotation_name) and not a_proc_annotations.exists(gc_test) then- + 231 +
+ +a_list( a_proc_annotations(a_annotation_name).first ) := ut_executables(ut_executable(a_suite.object_owner, a_suite.object_name, a_procedure_name, a_annotation_name));- + 231 +
+ +warning_on_duplicate_annot(a_suite, a_proc_annotations, a_annotation_name, a_procedure_name);- +
+ +--TODO add warning if annotation has text - text ignored- +
+ +end if;- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_varchar2, a_expected varchar2, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure get_annotated_procedures(- +
+ +a_proc_annotations t_annotations_info,- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_suite_items in out nocopy ut_suite_items,- +
+ +a_before_each_list in out nocopy tt_executables,- +
+ +a_after_each_list in out nocopy tt_executables,- +
+ +a_before_all_list in out nocopy tt_executables,- +
+ +a_after_all_list in out nocopy tt_executables- +
+ +) is- +
+ +l_procedure_name t_object_name;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_varchar2.not_to_equal(self in ut_expectation, a_expected varchar2)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 443 +
+ +l_procedure_name := a_proc_annotations.by_proc.first;- + 3089 +
+ +while l_procedure_name is not null loop- + 2646 +
+ +add_test( a_suite, a_suite_items, l_procedure_name, a_proc_annotations );- + 2646 +
+ +process_before_after_annot(a_before_each_list, gc_beforeeach, l_procedure_name, a_proc_annotations.by_proc(l_procedure_name), a_suite);- + 2646 +
+ +process_before_after_annot(a_after_each_list, gc_aftereach, l_procedure_name, a_proc_annotations.by_proc(l_procedure_name), a_suite);- + 2646 +
+ +process_before_after_annot(a_before_all_list, gc_beforeall, l_procedure_name, a_proc_annotations.by_proc(l_procedure_name), a_suite);- + 2646 +
+ +process_before_after_annot(a_after_all_list, gc_afterall, l_procedure_name, a_proc_annotations.by_proc(l_procedure_name), a_suite);- + 2646 +
+ +l_procedure_name := a_proc_annotations.by_proc.next( l_procedure_name );- +
+ +end loop;- -
end;- + +
- -
- -
-member procedure not_to_be_between(self in ut_expectation_varchar2, a_lower_bound varchar2, a_upper_bound varchar2) is- + +
- +
+ +procedure build_suitepath(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_annotations t_annotations_info- +
+ +) is- +
+ +l_annotation_text t_annotation_text;- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.not_to_be_between(self in ut_expectation_varchar2, a_lower_bound varchar2, a_upper_bound varchar2)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- + +
- + 269 +
+ +if a_annotations.by_name.exists(gc_suitepath) then- + 169 +
+ +l_annotation_text := trim(a_annotations.by_name(gc_suitepath)(a_annotations.by_name(gc_suitepath).first));- + 169 +
+ +if l_annotation_text is not null then- + 167 +
+ +if regexp_like(l_annotation_text,'^((\w|[$#])+\.)*(\w|[$#])+$') then- + 166 +
+ +a_suite.path := l_annotation_text||'.'||a_suite.object_name;- +
+ +else- + 1 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_suitepath||'('||l_annotation_text||')',- +
+ +'Invalid path value in annotation %%%.', a_annotations.by_name(gc_suitepath).first- +
+ +);- +
+ +end if;- +
+ +else- + 2 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_suitepath, '%%% annotation requires a non-empty parameter value.',- +
+ +a_annotations.by_name(gc_suitepath).first- +
+ +);- +
+ +end if;- + 167 +
+ +warning_on_duplicate_annot(a_suite, a_annotations.by_name, gc_suitepath);- +
+ +end if;- + 267 +
+ +a_suite.path := lower(coalesce(a_suite.path, a_suite.object_name));- -
end;- + +
- -
- -
-member procedure not_to_be_like(self in ut_expectation_varchar2, a_mask in varchar2, a_escape_char in varchar2 := null) is- + +
- +
+ +procedure add_suite_tests(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_annotations t_annotations_info,- +
+ +a_suite_items in out nocopy ut_suite_items- +
+ +) is- +
+ +l_before_each_list tt_executables;- +
+ +l_after_each_list tt_executables;- +
+ +l_before_all_list tt_executables;- +
+ +l_after_all_list tt_executables;- +
+ +l_rollback_type ut_utils.t_rollback_type;- +
+ +l_annotation_text t_annotation_text;- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.not_to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 default null)');- - 4 -
-self.not_to( ut_be_like(a_mask, a_escape_char) );- -
-end;- + +
- + 443 +
+ +if a_annotations.by_name.exists(gc_displayname) then- + 89 +
+ +l_annotation_text := trim(a_annotations.by_name(gc_displayname)(a_annotations.by_name(gc_displayname).first));- + 89 +
+ +if l_annotation_text is not null then- + 88 +
+ +a_suite.description := l_annotation_text;- +
+ +else- + 1 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_displayname, '%%% annotation requires a non-empty parameter value.',- +
+ +a_annotations.by_name(gc_displayname).first- +
+ +);- +
+ +end if;- + 89 +
+ +warning_on_duplicate_annot(a_suite, a_annotations.by_name, gc_displayname);- +
+ +end if;- -
- -
-member procedure not_to_match(self in ut_expectation_varchar2, a_pattern in varchar2, a_modifiers in varchar2 default null) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_varchar2.not_to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null)');- - 4 -
-self.not_to( ut_match(a_pattern, a_modifiers) );- -
-end;- + +
- + 443 +
+ +if a_annotations.by_name.exists(gc_rollback) then- + 21 +
+ +l_rollback_type := get_rollback_type(a_annotations.by_name(gc_rollback)(a_annotations.by_name(gc_rollback).first));- + 21 +
+ +if l_rollback_type is null then- + 2 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_rollback, '%%% annotation requires one of values as parameter: "auto" or "manual".',- +
+ +a_annotations.by_name(gc_rollback).first- +
+ +);- +
+ +end if;- + 21 +
+ +warning_on_duplicate_annot(a_suite, a_annotations.by_name, gc_rollback);- +
+ +end if;- + 443 +
+ +if a_annotations.by_name.exists(gc_beforeall) then- + 52 +
+ +l_before_all_list := add_executables( a_suite.object_owner, a_suite.object_name, a_annotations.by_name(gc_beforeall), gc_beforeall );- +
+ +end if;- + 443 +
+ +if a_annotations.by_name.exists(gc_afterall) then- + 52 +
+ +l_after_all_list := add_executables( a_suite.object_owner, a_suite.object_name, a_annotations.by_name(gc_afterall), gc_afterall );- +
+ +end if;- -
- -
end;UT3.UT_EXPECTATION_YMINTERVAL
100 % covered
24 relevant lines. 24 lines covered and 0 lines missed-
- -
-type body ut_expectation_yminterval as- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- + 443 +
+ +if a_annotations.by_name.exists(gc_beforeeach) then- + 4 +
+ +l_before_each_list := add_executables( a_suite.object_owner, a_suite.object_name, a_annotations.by_name(gc_beforeeach), gc_beforeeach );- +
+ +end if;- + 443 +
+ +if a_annotations.by_name.exists(gc_aftereach) then- + 7 +
+ +l_after_each_list := add_executables( a_suite.object_owner, a_suite.object_name, a_annotations.by_name(gc_aftereach), gc_aftereach );- +
+ +end if;- -
- -
-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- + +
- + 443 +
+ +if a_annotations.by_name.exists(gc_tags) then- + 22 +
+ +add_tags_to_suite_item(a_suite, a_annotations.by_name(gc_tags),a_suite.tags);- +
+ +end if;- + 443 +
+ +a_suite.disabled_flag := ut_utils.boolean_to_int(a_annotations.by_name.exists(gc_disabled));- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- +
+ +--process procedure annotations for suite- + 443 +
+ +get_annotated_procedures(a_annotations, a_suite, a_suite_items, l_before_each_list, l_after_each_list, l_before_all_list, l_after_all_list);- -
- -
-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.- -
-*/- -
-overriding member procedure to_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- -
-begin- - 11 -
-ut_utils.debug_log('ut_expectation_yminterval.to_equal(self in ut_expectation, a_expected yminterval_unconstrained)');- - 11 -
-self.to_( ut_equal(a_expected, a_nulls_are_equal) );- + +
- + 443 +
+ +a_suite.set_rollback_type(l_rollback_type);- + 443 +
+ +propagate_before_after_each( a_suite_items, l_before_each_list, l_after_each_list);- + 443 +
+ +a_suite.before_all_list := convert_list(l_before_all_list);- + 443 +
+ +set_seq_no(a_suite.before_all_list);- + 443 +
+ +a_suite.after_all_list := convert_list(l_after_all_list);- + 443 +
+ +set_seq_no(a_suite.after_all_list);- -
end;- + +
- -
- -
-member procedure to_be_between(self in ut_expectation_yminterval, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained) is- + +
- +
+ +function get_endcontext_position(- +
+ +a_context_ann_pos t_annotation_position,- +
+ +a_package_annotations in out nocopy tt_annotations_by_name- +
+ +) return t_annotation_position is- +
+ +l_result t_annotation_position;- -
begin- - 4 -
-ut_utils.debug_log('ut_expectation_yminterval.to_be_between(self in ut_expectation_yminterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');- - 4 -
-self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- + +
- + 179 +
+ +if a_package_annotations.exists(gc_endcontext) then- + 177 +
+ +l_result := a_package_annotations(gc_endcontext).first;- + 177 +
+ +while l_result <= a_context_ann_pos loop- +
+ +l_result := a_package_annotations(gc_endcontext).next(l_result);- +
+ +end loop;- +
+ +end if;- + 179 +
+ +return l_result;- -
end;- + +
- -
- -
-member procedure to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_yminterval.to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 3 -
-self.to_( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- -
-begin- - 2 -
-ut_utils.debug_log('ut_expectation_yminterval.to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 2 -
-self.to_( ut_be_greater_than (a_expected) );- -
-end;- -
-member procedure to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- -
-begin- - 3 -
-ut_utils.debug_log('ut_expectation_yminterval.to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 3 -
-self.to_( ut_be_less_or_equal (a_expected) );- -
-end;- -
-member procedure to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- + +
- +
+ +function get_annotations_in_context(- +
+ +a_annotations t_annotations_info,- +
+ +a_context_pos t_annotation_position,- +
+ +a_end_context_pos t_annotation_position- +
+ +) return t_annotations_info is- +
+ +l_result t_annotations_info;- +
+ +l_position t_annotation_position;- +
+ +l_procedure_name t_object_name;- +
+ +l_annotation_name t_annotation_name;- +
+ +l_annotation_text t_annotation_text;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_yminterval.to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 2 -
-self.to_( ut_be_less_than (a_expected) );- + +
- + 177 +
+ +l_position := a_context_pos;- + 177 +
+ +l_result.owner := a_annotations.owner;- + 177 +
+ +l_result.name := a_annotations.name;- + 177 +
+ +l_result.parse_time := a_annotations.parse_time;- + 2037 +
+ +while l_position is not null and l_position <= a_end_context_pos loop- + 1860 +
+ +l_result.by_line(l_position) := a_annotations.by_line(l_position);- + 1860 +
+ +l_procedure_name := l_result.by_line(l_position).procedure_name;- + 1860 +
+ +l_annotation_name := l_result.by_line(l_position).name;- + 1860 +
+ +l_annotation_text := l_result.by_line(l_position).text;- + 1860 +
+ +if l_procedure_name is not null then- + 1330 +
+ +l_result.by_proc(l_procedure_name)(l_annotation_name)(l_position) := l_annotation_text;- +
+ +else- + 530 +
+ +l_result.by_name(l_annotation_name)(l_position) := l_annotation_text;- +
+ +end if;- + 1860 +
+ +l_position := a_annotations.by_line.next(l_position);- +
+ +end loop;- + 177 +
+ +return l_result;- -
end;- + +
- -
- -
-overriding member procedure not_to_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- + +
- +
+ +procedure get_suite_contexts_items(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_annotations in out nocopy t_annotations_info,- +
+ +a_suite_items out nocopy ut_suite_items- +
+ +) is- +
+ +l_context_pos t_annotation_position;- +
+ +l_end_context_pos t_annotation_position;- +
+ +l_context_name t_object_name;- +
+ +l_ctx_annotations t_annotations_info;- +
+ +l_context ut_suite_context;- + 267 +
+ +l_context_no binary_integer := 1;- +
+ +l_context_items ut_suite_items;- +
+ +type tt_context_names is table of boolean index by t_object_name;- +
+ +l_context_names tt_context_names;- -
begin- - 2 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_equal(self in ut_expectation, a_expected yminterval_unconstrained)');- - 2 -
-self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- -
-end;- + +
- + 267 +
+ +a_suite_items := ut_suite_items();- + 267 +
+ +if not a_annotations.by_name.exists(gc_context) then- + 204 +
+ +return;- +
+ +end if;- -
- -
-member procedure not_to_be_between(self in ut_expectation_yminterval, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained) is- -
-begin- - 4 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_be_between(self in ut_expectation_yminterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');- - 4 -
-self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- -
-end;- + +
- + 63 +
+ +l_context_pos := a_annotations.by_name( gc_context).first;- -
- -
-member procedure not_to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 1 -
-self.not_to( ut_be_greater_or_equal (a_expected) );- -
-end;- -
-member procedure not_to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- -
-begin- - 1 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- + +
- + 179 +
+ +while l_context_pos is not null loop- + 179 +
+ +l_end_context_pos := get_endcontext_position(l_context_pos, a_annotations.by_name );- +
+ +- + 179 +
+ +exit when l_end_context_pos is null;- +
+ +- + 177 +
+ +l_context_items := ut_suite_items();- +
+ +--create a sub-set of annotations to process as sub-suite (context)- + 177 +
+ +l_ctx_annotations := get_annotations_in_context( a_annotations, l_context_pos, l_end_context_pos);- +
+ +- + 177 +
+ +l_context_name := coalesce(- 1 -
-self.not_to( ut_be_greater_than (a_expected) );- +
+ +l_ctx_annotations.by_line( l_context_pos ).text- +
+ +, gc_context||'_'||l_context_no- +
+ +);- + 177 +
+ +if l_context_names.exists(l_context_name) then- + 1 +
+ +add_annotation_ignored_warning( a_suite, 'context', 'Context name must be unique in a suite. Context and all of it''s content ignored.', l_context_pos );- +
+ +else- + 176 +
+ +l_context_names(l_context_name) := true;- +
+ +- + 176 +
+ +l_context := ut_suite_context(a_suite.object_owner, a_suite.object_name, l_context_name, l_context_pos );- +
+ +- + 176 +
+ +l_context.path := a_suite.path||'.'||l_context_name;- + 176 +
+ +l_context.description := l_ctx_annotations.by_line( l_context_pos ).text;- + 176 +
+ +l_context.parse_time := a_annotations.parse_time;- +
+ +- + 176 +
+ +warning_on_duplicate_annot( l_context, l_ctx_annotations.by_name, gc_context );- +
+ +- + 176 +
+ +add_suite_tests( l_context, l_ctx_annotations, l_context_items );- + 176 +
+ +add_items_to_list(a_suite_items, l_context_items);- + 176 +
+ +a_suite_items.extend;- + 176 +
+ +a_suite_items(a_suite_items.last) := l_context;- +
+ +end if;- +
+ +-- remove annotations within context after processing them- + 177 +
+ +delete_annotations_range(a_annotations, l_context_pos, l_end_context_pos);- +
+ +- + 177 +
+ +exit when not a_annotations.by_name.exists( gc_context);- +
+ +- + 116 +
+ +l_context_pos := a_annotations.by_name( gc_context).next( l_context_pos);- + 116 +
+ +l_context_no := l_context_no + 1;- +
+ +end loop;- -
end;- -
-member procedure not_to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- + +
- +
+ +- +
+ +procedure warning_on_incomplete_context(- +
+ +a_suite in out nocopy ut_suite,- +
+ +a_package_ann_index tt_annotations_by_name- +
+ +) is- +
+ +l_annotation_pos t_annotation_position;- -
begin- + +
- + 267 +
+ +if a_package_ann_index.exists(gc_context) then- + 2 +
+ +l_annotation_pos := a_package_ann_index(gc_context).first;- + 4 +
+ +while l_annotation_pos is not null loop- + 2 +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_context, 'Invalid annotation %%%. Cannot find following "--%endcontext".',- +
+ +l_annotation_pos- +
+ +);- + 2 +
+ +l_annotation_pos := a_package_ann_index(gc_context).next(l_annotation_pos);- +
+ +end loop;- +
+ +end if;- + 267 +
+ +if a_package_ann_index.exists(gc_endcontext) then- 1 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- +
+ +l_annotation_pos := a_package_ann_index(gc_endcontext).first;- + 2 +
+ +while l_annotation_pos is not null loop- 1 -
-self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +add_annotation_ignored_warning(- +
+ +a_suite, gc_endcontext, 'Invalid annotation %%%. Cannot find preceding "--%context".',- +
+ +l_annotation_pos- +
+ +);- + 1 +
+ +l_annotation_pos := a_package_ann_index(gc_endcontext).next(l_annotation_pos);- +
+ +end loop;- +
+ +end if;- -
end;- -
-member procedure not_to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is- + +
- +
+ +- +
+ +procedure warning_on_unknown_annotations(- +
+ +a_suite in out nocopy ut_suite_item,- +
+ +a_annotations tt_annotations_by_line- +
+ +) is- + 269 +
+ +l_line_no t_annotation_position := a_annotations.first;- -
begin- - 1 -
-ut_utils.debug_log('ut_expectation_yminterval.not_to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');- - 1 -
-self.not_to( ut_be_less_than (a_expected) );- + +
- + 4525 +
+ +while l_line_no is not null loop- + 4256 +
+ +if a_annotations(l_line_no).name not member of (gc_supported_annotations) then- + 2 +
+ +add_annotation_ignored_warning(- +
+ +a_suite,- +
+ +a_annotations(l_line_no).name,- +
+ +'Unsupported annotation %%%.',- +
+ +l_line_no,- +
+ +a_annotations(l_line_no).procedure_name- +
+ +);- +
+ +end if;- + 4256 +
+ +l_line_no := a_annotations.next(l_line_no);- +
+ +end loop;- -
end;- + +
- -
- -
end;+UT3.UT_ANSICONSOLE_HELPER
83.33 % covered
18 relevant lines. 15 lines covered and 3 lines missed+ +
- +
+ +function convert_package_annotations(a_object ut_annotated_object) return t_annotations_info is- +
+ +l_result t_annotations_info;- +
+ +l_annotation t_annotation;- +
+ +l_annotation_no binary_integer;- +
+ +l_annotation_pos binary_integer;- +
+ +begin- + 274 +
+ +l_result.owner := a_object.object_owner;- + 274 +
+ +l_result.name := lower(trim(a_object.object_name));- + 274 +
+ +l_result.parse_time := a_object.parse_time;- + 274 +
+ +l_annotation_no := a_object.annotations.first;- + 4542 +
+ +while l_annotation_no is not null loop- + 4268 +
+ +l_annotation_pos := a_object.annotations(l_annotation_no).position;- + 4268 +
+ +l_annotation.name := a_object.annotations(l_annotation_no).name;- + 4268 +
+ +l_annotation.text := a_object.annotations(l_annotation_no).text;- + 4268 +
+ +l_annotation.procedure_name := lower(trim(a_object.annotations(l_annotation_no).subobject_name));- + 4268 +
+ +l_result.by_line( l_annotation_pos) := l_annotation;- + 4268 +
+ +if l_annotation.procedure_name is null then- + 1063 +
+ +l_result.by_name( l_annotation.name)( l_annotation_pos) := l_annotation.text;- +
+ +else- + 3205 +
+ +l_result.by_proc(l_annotation.procedure_name)(l_annotation.name)(l_annotation_pos) := l_annotation.text;- +
+ +end if;- + 4268 +
+ +l_annotation_no := a_object.annotations.next(l_annotation_no);- +
+ +end loop;- + 274 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +procedure create_suite_item_list( a_annotated_object ut_annotated_object, a_suite_items out nocopy ut_suite_items ) is- +
+ +l_annotations t_annotations_info;- +
+ +l_annotation_pos t_annotation_position;- +
+ +l_suite ut_suite;- +
+ +begin- + 274 +
+ +l_annotations := convert_package_annotations( a_annotated_object );- +
+ +- + 274 +
+ +if l_annotations.by_name.exists(gc_suite) then- + 269 +
+ +l_annotation_pos := l_annotations.by_name(gc_suite).first;- + 269 +
+ +l_suite := ut_suite(l_annotations.owner, l_annotations.name, l_annotation_pos);- + 269 +
+ +l_suite.description := l_annotations.by_name( gc_suite)( l_annotation_pos);- + 269 +
+ +l_suite.parse_time := l_annotations.parse_time;- + 269 +
+ +warning_on_unknown_annotations(l_suite, l_annotations.by_line);- +
+ +- + 269 +
+ +warning_on_duplicate_annot( l_suite, l_annotations.by_name, gc_suite );- +
+ +- + 269 +
+ +build_suitepath( l_suite, l_annotations );- + 267 +
+ +get_suite_contexts_items( l_suite, l_annotations, a_suite_items );- +
+ +--create suite tests and add- + 267 +
+ +add_suite_tests( l_suite, l_annotations, a_suite_items );- +
+ +- +
+ +--by this time all contexts were consumed and l_annotations should not have any context/endcontext annotation in it.- + 267 +
+ +warning_on_incomplete_context( l_suite, l_annotations.by_name );- +
+ +- + 267 +
+ +a_suite_items.extend;- + 267 +
+ +a_suite_items( a_suite_items.last) := l_suite;- +
+ +end if;- +
+ +end;- +
+ +- +
+end ut_suite_builder;UT3.UT_SUITE_CACHE_MANAGER
96.92 % lines covered
65 relevant lines. 63 lines covered and 2 lines missed+
- -
+package body ut_ansiconsole_helper aspackage body ut_suite_cache_manager is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- -
*/- - 1 -
-c_red constant varchar2(7) := chr(27) || '[31m';- - 1 -
-c_green constant varchar2(7) := chr(27) || '[32m';- - 1 -
-c_yellow constant varchar2(7) := chr(27) || '[33m';- - 1 -
-c_blue constant varchar2(7) := chr(27) || '[34m';- - 1 -
-c_magenta constant varchar2(7) := chr(27) || '[35m';- - 1 -
-c_cyan constant varchar2(7) := chr(27) || '[36m';- - 1 -
-c_reset constant varchar2(7) := chr(27) || '[0m';- - 1 -
-g_enabled boolean := false;- + +
- -
- -
+ +procedure color_enabled(a_enabled boolean) is- +
+ +/*- +
+ +* Private code- +
+ +*/- +
+ +- + 1 +
+ +gc_get_cache_suite_sql constant varchar2(32767) :=- +
+ +q'[with- +
+ +suite_items as (- +
+ +select /*+ cardinality(c 500) */ value(c) as obj- +
+from ut_suite_cache c- -
-begin- - 48 -
+g_enabled := a_enabled;where 1 = 1+ +- +
+and c.object_owner = :l_object_owner- -
+end;and ( {:path:}+- -
+and {:object_name:}+- -
+function add_color(a_text varchar2, a_color varchar2 := c_reset) return varchar2 isand {:procedure_name:}+- -
-begin- - 185 -
-if g_enabled and a_text is not null then- -
+return a_color||a_text||c_reset;)+ +- +
+ +)- +
+),- -
-else- - 185 -
+return a_text;{:tags:}+ +- +
+suitepaths as (- -
+end if;select distinct substr(c.obj.path,1,instr(c.obj.path,'.',-1)-1) as suitepath,+- -
+end;c.obj.path as path,+- -
+c.obj.object_owner as object_owner+- -
+function red(a_text varchar2) return varchar2 isfrom {:suite_item_name:} c+- -
-begin- - 95 -
+return add_color(a_text, c_red);where c.obj.self_type = 'UT_SUITE'+ +- +
+),- -
+end;gen as (+- -
+select rownum as pos+- -
+function green(a_text varchar2) return varchar2 isfrom xmltable('1 to 20')+- -
-begin- - 64 -
+return add_color(a_text, c_green);),+ +- +
+suitepath_part AS (- -
+end;select distinct+- -
+substr(b.suitepath, 1, instr(b.suitepath || '.', '.', 1, g.pos) -1) as path,+- -
+function yellow(a_text varchar2) return varchar2 isobject_owner+- -
-begin- - 13 -
+return add_color(a_text, c_yellow);from suitepaths b+ +- +
+join gen g- -
+end;on g.pos <= regexp_count(b.suitepath, '\w+')+- -
+),+- -
+function blue(a_text varchar2) return varchar2 islogical_suite_data as (+- -
-begin- -
+return add_color(a_text, c_blue);select 'UT_LOGICAL_SUITE' as self_type, p.path, p.object_owner,+ +- +
+upper( substr(p.path, instr( p.path, '.', -1 ) + 1 ) ) as object_name,- -
+end;cast(null as ut_executables) as x,+- -
+cast(null as ut_integer_list) as y,+- -
+function magenta(a_text varchar2) return varchar2 iscast(null as ut_executable_test) as z+- -
-begin- -
+return add_color(a_text, c_magenta);from suitepath_part p+ +- +
+where p.path- -
+end;not in (select s.path from suitepaths s)+- -
+),+- -
+function cyan(a_text varchar2) return varchar2 islogical_suites as (+- -
-begin- - 13 -
+return add_color(a_text, c_cyan);select ut_suite_cache_row(+ +- +
+null,- -
+end;s.self_type, s.path, s.object_owner, s.object_name,+- -
+s.object_name, null, null, null, null, 0,+- -
end;UT3.UT_COVERAGE_HTML_REPORTER
100 % covered
9 relevant lines. 9 lines covered and 0 lines missed-
- -
-type body ut_coverage_html_reporter is- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- +
+ +ut_varchar2_rows(),- +
+ +s.x, s.x, s.x, s.x, s.x, s.x,- +
+ +s.y, null, s.z- +
+ +) as obj- +
+ +from logical_suite_data s- +
+ +),- +
+ +items as (- +
+ +select obj from {:suite_item_name:}- +
+ +union all- +
+ +select obj from logical_suites- +
+ +)- +
+ +select c.obj- +
+ +from items c- +
+ +order by c.obj.object_owner,{:random_seed:}]';- -
- -
-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- + +
- +
+ +function get_missing_cache_objects(a_object_owner varchar2) return ut_varchar2_rows is- +
+ +l_result ut_varchar2_rows;- +
+ +l_data ut_annotation_objs_cache_info;- +
+ +begin- + 301 +
+ +l_data := ut_annotation_cache_manager.get_cached_objects_list(a_object_owner, 'PACKAGE');- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 301 +
+ +select i.object_name- +
+ +bulk collect into l_result- +
+ +from ut_suite_cache_package i- +
+ +where not exists (- +
+ +select 1 from table(l_data) o- +
+ +where o.object_owner = i.object_owner- +
+ +and o.object_name = i.object_name- +
+ +and o.object_type = 'PACKAGE'- +
+ +)- +
+ +and i.object_owner = a_object_owner;- + 301 +
+ +return l_result;- +
+ +end;- -
- -
-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.- -
-*/- + +
- -
- -
-constructor function ut_coverage_html_reporter(- -
-self in out nocopy ut_coverage_html_reporter,- -
-a_project_name varchar2 := null,- -
-a_html_report_assets_path varchar2 := null- -
-) return self as result is- + +
- +
+ +function get_path_sql(a_path in varchar2) return varchar2 is- -
begin- - 3 -
-self.init($$plsql_unit);- - 3 -
-self.project_name := a_project_name;- - 3 -
-assets_path := nvl(a_html_report_assets_path, ut_coverage_report_html_helper.get_default_html_assets_path());- - 3 -
-return;- + +
- + 215 +
+ +return case when a_path is not null then q'[- +
+ +:l_path||'.' like c.path || '.%' /*all children and self*/- +
+ +or ( c.path||'.' like :l_path || '.%' --all parents- +
+ +]'- +
+ +else ' :l_path is null and ( :l_path is null ' end;- -
end;- + +
- -
- -
-overriding member procedure after_calling_run(self in out nocopy ut_coverage_html_reporter, a_run in ut_run) as- -
-l_report_lines ut_varchar2_list;- - 3 -
-l_coverage_data ut_coverage.t_coverage;- + +
- +
+ +function get_object_name_sql(a_object_name in varchar2) return varchar2 is- -
begin- - 5 -
-ut_coverage.coverage_stop();- -
-- - 3 -
-l_coverage_data := ut_coverage.get_coverage_data(a_run.coverage_options);- -
-- - 3 -
-self.print_clob( ut_coverage_report_html_helper.get_index( l_coverage_data, self.assets_path, self.project_name ) );- -
-- - 3 -
-(self as ut_reporter_base).after_calling_run(a_run);- + +
- + 215 +
+ +return case when a_object_name is not null- +
+ +then ' c.object_name = :a_object_name '- +
+ +else ' :a_object_name is null' end;- -
end;- -
-- -
end;UT3.UT_COVERAGE_REPORT_HTML_HELPER
88.64 % covered
88 relevant lines. 78 lines covered and 10 lines missed-
- -
-package body ut_coverage_report_html_helper is- -
-/*- -
-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.- -
-*/- -
-- - 1 -
-gc_green_coverage_pct constant integer := 90;- - 1 -
-gc_yellow_coverage_pct constant integer := 80;- -
-- - 1 -
-gc_green_css constant varchar2(10) := 'green';- - 1 -
-gc_yellow_css constant varchar2(10) := 'yellow';- - 1 -
-gc_red_css constant varchar2(10) := 'red';- -
-- - 1 -
-gc_missed constant varchar2(7) := 'missed';- - 1 -
-gc_skipped constant varchar2(7) := 'skipped';- - 1 -
-gc_disabled constant varchar2(7) := 'never';- - 1 -
-gc_covered constant varchar2(7) := 'covered';- -
-- + +
- -
- -
-function get_default_html_assets_path return varchar2 deterministic is- - 3 -
-c_assets_path constant varchar2(200) := 'https://utplsql.github.io/utPLSQL-coverage-html/assets/';- + +
- +
+ +function get_procedure_name_sql(a_procedure_name in varchar2) return varchar2 is- -
begin- - 3 -
-return c_assets_path;- + +
- + 215 +
+ +return case when a_procedure_name is not null- +
+ +then ' c.name = :a_procedure_name'- +
+ +else ' :a_procedure_name is null' end;- -
end;- + +
- -
- -
-function coverage_css_class(a_covered_pct number) return varchar2 is- -
-l_result varchar2(10);- + +
- +
+ +function get_tags_sql(a_tags_count in integer) return varchar2 is- -
begin- - 347 -
-if a_covered_pct > gc_green_coverage_pct then- -
-l_result := gc_green_css;- - 347 -
-elsif a_covered_pct > gc_yellow_coverage_pct then- -
-l_result := gc_yellow_css;- -
-else- - 347 -
-l_result := gc_red_css;- -
-end if;- - 347 -
-return l_result;- + +
- + 215 +
+ +return case when a_tags_count > 0 then- +
+ +q'[filter_tags as (- +
+ +select c.obj.path as path- +
+ +from suite_items c- +
+ +where c.obj.tags multiset intersect :a_tag_list is not empty- +
+ +),- +
+ +suite_items_tags as (- +
+ +select c.*- +
+ +from suite_items c- +
+ +where exists (- +
+ +select 1 from filter_tags t- +
+ +where t.path||'.' like c.obj.path || '.%' /*all children and self*/- +
+ +or c.obj.path||'.' like t.path || '.%' --all parents- +
+ +)- +
+ +),]'- +
+ +else- +
+ +q'[dummy as (select 'x' from dual where :a_tag_list is null ),]'- +
+ +end;- -
end;- + +
- -
- -
-function line_status(a_executions binary_integer) return varchar2 is- -
-l_result varchar2(10);- + +
- +
+ +function get_random_seed_sql(a_random_seed positive) return varchar2 is- -
begin- - 17764 -
-if a_executions > 0 then- -
-l_result := gc_covered;- - 17764 -
-elsif a_executions = 0 then- -
-l_result := gc_missed;- -
-else- - 17764 -
-l_result := gc_disabled;- -
-end if;- - 17764 -
-return l_result;- + +
- + 215 +
+ +return case- + 1 +
+ +when a_random_seed is null then q'[- +
+ +replace(- +
+ +case- +
+ +when c.obj.self_type in ( 'UT_TEST' )- +
+ +then substr(c.obj.path, 1, instr(c.obj.path, '.', -1) )- +
+ +else c.obj.path- +
+ +end, '.', chr(0)- +
+ +) desc nulls last,- +
+ +c.obj.object_name desc,- +
+ +c.obj.line_no,- +
+ +:a_random_seed]'- +
+ +else- +
+ +' ut_runner.hash_suite_path(- +
+ +c.obj.path, :a_random_seed- +
+ +) desc nulls last'- +
+ +end;- -
end;- + +
- -
- -
-function executions_per_line(a_executions number, a_lines integer) return integer is- -
-begin- - 175 -
-return nvl(a_executions/nullif(a_lines,0),0);- -
-end;- + +
- -
- -
-function line_hits_css_class(a_line_hist number) return varchar2 is- -
-l_result varchar2(10);- -
-begin- - 3 -
-if a_line_hist > 1 then- -
-l_result := gc_green_css;- - 3 -
-elsif a_line_hist = 1 then- -
-l_result := gc_yellow_css;- -
-else- - 3 -
-l_result := gc_red_css;- -
-end if;- - 3 -
-return l_result;- -
-end;- -
-- -
-function coverage_pct(a_covered_lines integer, a_uncovered_lines integer) return number is- -
-begin- - 344 -
-return round(nvl(a_covered_lines/nullif(a_covered_lines+a_uncovered_lines,0),0)*100,2);- -
-end;- -
-- -
-function object_id(a_object_full_name varchar2) return varchar2 is- -
-begin- - 341 -
-return rawtohex( utl_raw.CAST_TO_RAW(dbms_obfuscation_toolkit.md5(input_string=>a_object_full_name)) );- -
-end;- -
-- -
-function link_to_source_file(a_object_full_name varchar2) return varchar2 is- -
-begin- - 169 -
-return '<a href="#'||object_id(a_object_full_name)||'" class="src_link" title="'||a_object_full_name||'">'||a_object_full_name||'</a>';- -
-end;- -
-- -
-function get_details_file_content(a_object_id varchar2, a_unit ut_object_name, a_unit_coverage ut_coverage.t_unit_coverage) return clob is- -
-type tt_source_data is table of varchar2(32767);- -
-l_source_code tt_source_data;- -
-l_result clob;- -
-- -
-function build_details_file_content(a_object_id varchar2, a_object_full_name varchar2, a_source_code tt_source_data, a_coverage_unit ut_coverage.t_unit_coverage ) return clob is- -
-l_file_part varchar2(32767);- -
-l_result clob;- -
-l_coverage_pct number(5,2);- -
-begin- - 169 -
-dbms_lob.createtemporary(l_result, true);- - 169 -
-l_coverage_pct := coverage_pct(a_coverage_unit.covered_lines, a_coverage_unit.uncovered_lines);- - 169 -
-l_file_part :=- -
-'<div class="source_table" id="'||a_object_id||'"><div class="header"> <h3>'||a_object_full_name||'</h3>' ||- -
-'<h4><span class="'||coverage_css_class(l_coverage_pct)||'">'||l_coverage_pct||' %</span> covered</h4>' ||- -
-'<div> <b>'||(a_coverage_unit.covered_lines+a_coverage_unit.uncovered_lines)||'</b> relevant lines. ' ||- -
-'<span class="green"><b>'||a_coverage_unit.covered_lines||'</b> lines covered</span> and ' ||- -
-'<span class="red"><b>'||a_coverage_unit.uncovered_lines||'</b> lines missed</span></div></div>' ||- -
-'<pre><ol>';- - 169 -
-ut_utils.append_to_clob(l_result, l_file_part);- -
-- - 17933 -
-for line_no in 1 .. a_source_code.count loop- - 17764 -
-if not a_coverage_unit.lines.exists(line_no) then- - 17764 -
-l_file_part :='- -
-<li class="'||line_status(null)||'" data-hits="" data-linenumber="'||line_no||'">- -
-<code class="sql">' || (dbms_xmlgen.convert(a_source_code(line_no))) || '</code></li>';- -
-else- -
-l_file_part :='- -
-<li class="'||line_status(a_coverage_unit.lines(line_no))||'" data-hits="'||(a_coverage_unit.lines(line_no))||'" data-linenumber="'||(line_no)||'">';- -
-if a_coverage_unit.lines(line_no) > 0 then- -
-l_file_part := l_file_part || '- -
-<span class="hits">'||(a_coverage_unit.lines(line_no))||'</span>';- -
-end if;- -
-l_file_part := l_file_part || '- -
-<code class="sql">' || (dbms_xmlgen.convert(a_source_code(line_no))) || '</code></li>';- -
-end if;- - 17764 -
-ut_utils.append_to_clob(l_result, l_file_part);- -
-end loop;- -
-- - 169 -
-l_file_part := '</ol></pre></div>';- - 169 -
-ut_utils.append_to_clob(l_result, l_file_part);- - 169 -
-return l_result;- -
-end;- -
-begin- - 169 -
-select rtrim(s.text,chr(10)) text- -
-bulk collect into l_source_code- -
-from ut_coverage_sources_tmp s- -
-where s.owner = a_unit.owner- -
-and s.name = a_unit.name- -
-order by s.line;- - 169 -
-dbms_lob.createtemporary(l_result,true);- - 169 -
-l_result := build_details_file_content(a_object_id, a_unit.identity, l_source_code, a_unit_coverage);- - 169 -
-return l_result;- -
-end;- -
-- -
-function file_list(a_title varchar2, a_coverage ut_coverage.t_coverage) return clob is- -
-l_file_part varchar2(32767);- - 3 -
-l_title varchar2(100) := 'All files';- -
-l_coverage_pct number(5,2);- -
-l_result clob;- - 3 -
-l_id varchar2(50) := object_id(a_title);- - 3 -
-l_unit_coverage ut_coverage.t_unit_coverage;- -
-l_unit ut_coverage.t_object_name;- -
-begin- - 3 -
-dbms_lob.createtemporary(l_result,true);- - 3 -
-l_coverage_pct := coverage_pct(a_coverage.covered_lines, a_coverage.uncovered_lines);- - 3 -
-l_file_part :=- -
-'<div class="file_list_container" id="'||l_id||'">' ||- -
-'<h2><span class="group_name">'||l_title||'</span>' ||- -
-' (<span class="covered_percent"><span class="'||coverage_css_class(l_coverage_pct)||'">'||l_coverage_pct||'%</span></span>' ||- -
-' covered at <span class="covered_strength">' ||- -
-'<span class="'||line_hits_css_class(executions_per_line(a_coverage.executions, a_coverage.uncovered_lines + a_coverage.covered_lines))||'">'||- -
-executions_per_line(a_coverage.executions, a_coverage.uncovered_lines + a_coverage.covered_lines)||'</span></span> hits/line)</h2>' ||- -
-'<a name="'||l_id||'"></a>' ||- -
-'<div><b>'||a_coverage.objects.count||'</b> files in total. ' ||- -
+'<b>'||(a_coverage.uncovered_lines + a_coverage.covered_lines)||'</b> relevant lines. ' ||- -
+'<span class="green"><b>'||a_coverage.covered_lines||'</b> lines covered</span> and ' ||+- -
+'<span class="red"><b>'||a_coverage.uncovered_lines||'</b> lines missed </span></div>' ||/*+- -
+'<table class="file_list"><thead>' ||* Public code+- -
+'<tr>' ||*/+- -
+'<th>File</th><th>% covered</th><th>Lines</th><th>Relevant Lines</th><th>Lines covered</th><th>Lines missed</th><th>Avg. Hits / Line</th>' ||function get_cached_suite_rows(+- -
-'</tr></thead><tbody>';- - 3 -
-ut_utils.append_to_clob(l_result, l_file_part);- - 3 -
-l_unit := a_coverage.objects.first;- - 172 -
-loop- - 172 -
-exit when l_unit is null;- - 169 -
-l_unit_coverage := a_coverage.objects(l_unit);- - 169 -
-l_coverage_pct := coverage_pct(l_unit_coverage.covered_lines, l_unit_coverage.uncovered_lines);- - 169 -
-l_file_part :=- -
+chr(10)||a_object_owner varchar2,+ +- +
+ +a_path varchar2 := null,- +
+ +a_object_name varchar2 := null,- +
+ +a_procedure_name varchar2 := null,- +
+ +a_random_seed positive := null,- +
+ +a_tags ut_varchar2_rows := null- +
+ +) return ut_suite_cache_rows is- +
+ +l_path varchar2(4000);- + 215 +
+l_results ut_suite_cache_rows := ut_suite_cache_rows();- -
+'<tr>' ||l_sql varchar2(32767);+- -
-'<td class="strong">'||link_to_source_file(l_unit)||'</td>' ||- -
-'<td class="'||coverage_css_class(l_coverage_pct)||' strong">'||l_coverage_pct||' %</td>' ||- -
-'<td>'||l_unit_coverage.total_lines||'</td>' ||- -
-'<td>'||(l_unit_coverage.covered_lines+l_unit_coverage.uncovered_lines)||'</td>' ||- -
+'<td>'||l_unit_coverage.covered_lines||'</td>' ||l_suite_item_name varchar2(20);+ +- + 215 +
+ +l_tags ut_varchar2_rows := coalesce(a_tags,ut_varchar2_rows());- + 215 +
+ +l_object_owner varchar2(250) := ut_utils.qualified_sql_name(a_object_owner);- + 215 +
+ +l_object_name varchar2(250) := ut_utils.qualified_sql_name(a_object_name);- + 215 +
+l_procedure_name varchar2(250) := ut_utils.qualified_sql_name(a_procedure_name);- -
-'<td>'||l_unit_coverage.uncovered_lines||'</td>' ||- -
-'<td>'||executions_per_line(l_unit_coverage.executions, l_unit_coverage.uncovered_lines + l_unit_coverage.covered_lines)||'</td>' ||- -
-'</tr>';- - 169 -
-ut_utils.append_to_clob(l_result, l_file_part);- - 169 -
+l_unit := a_coverage.objects.next(l_unit);begin+ +- + 215 +
+ +if a_path is null and a_object_name is not null then- + 165 +
+ +select min(c.path)- +
+ +into l_path- +
+from ut_suite_cache c- -
-end loop;- - 3 -
-l_file_part := '</tbody></table></div>';- - 3 -
-ut_utils.append_to_clob(l_result, l_file_part);- - 3 -
-return l_result;- -
+end;where c.object_owner = upper(l_object_owner)+ +- +
+ +and c.object_name = upper(l_object_name)- +
+ +and c.name = nvl(upper(l_procedure_name), c.name);- +
+ +else- + 50 +
+l_path := lower(ut_utils.qualified_sql_name(a_path));- -
-- -
+/*end if;+ +- + 215 +
+l_suite_item_name := case when l_tags.count > 0 then 'suite_items_tags' else 'suite_items' end;- -
-* public definitions- -
-*/- -
-function get_index(a_coverage_data ut_coverage.t_coverage, a_assets_path varchar2, a_project_name varchar2 := null, a_command_line varchar2 := null) return clob is- -
- -
-l_file_part varchar2(32767);- -
-l_result clob;- -
-l_title varchar2(250);- -
-l_coverage_pct number(5,2);- -
+ +l_time_str varchar2(50);- + 215 +
+ +l_sql := gc_get_cache_suite_sql;- + 215 +
+ +l_sql := replace(l_sql,'{:suite_item_name:}',l_suite_item_name);- + 215 +
+ +l_sql := replace(l_sql,'{:object_owner:}',upper(l_object_owner));- + 215 +
+ +l_sql := replace(l_sql,'{:path:}',get_path_sql(l_path));- + 215 +
+ +l_sql := replace(l_sql,'{:object_name:}',get_object_name_sql(l_object_name));- + 215 +
+ +l_sql := replace(l_sql,'{:procedure_name:}',get_procedure_name_sql(l_procedure_name));- + 215 +
+ +l_sql := replace(l_sql,'{:tags:}',get_tags_sql(l_tags.count));- + 215 +
+l_sql := replace(l_sql,'{:random_seed:}',get_random_seed_sql(a_random_seed));- -
-l_using varchar2(1000);- -
-l_unit ut_coverage.t_full_name;- -
-begin- - 3 -
-l_coverage_pct := coverage_pct(a_coverage_data.covered_lines, a_coverage_data.uncovered_lines);- - 3 -
-l_time_str := ut_utils.to_string(sysdate);- - 3 -
-l_using := case when a_command_line is not null then '<br/>using '||dbms_xmlgen.convert(a_command_line) end;- - 3 -
+dbms_lob.createtemporary(l_result,true);+ +- + 215 +
+ +ut_event_manager.trigger_event(ut_event_manager.gc_debug, ut_key_anyvalues().put('l_sql',l_sql) );- +
+ +- + 215 +
+ +execute immediate l_sql- +
+ +bulk collect into l_results- +
+ +using upper(l_object_owner), l_path, l_path, upper(a_object_name), upper(a_procedure_name), l_tags, a_random_seed;- + 215 +
+return l_results;- +
+ +end;- -
- - 3 -
+l_title := case when a_project_name is null then 'Code coverage' else dbms_xmlgen.convert(a_project_name) ||' code coverage' end;- -
---TODO - build main file containing total run data and per schema data- - 3 -
+l_file_part :=function get_schema_parse_time(a_schema_name varchar2) return timestamp result_cache is+ +- +
+l_cache_parse_time timestamp;- -
-'<!DOCTYPE html><html xmlns=''http://www.w3.org/1999/xhtml''><head>' ||- -
+'<title>'||l_title||'</title>' ||begin+ +- + 302 +
+select min(t.parse_time)- -
+'<meta http-equiv="content-type" content="text/html; charset=utf-8" />' ||into l_cache_parse_time+- -
+'<script src='''||a_assets_path||'application.js'' type=''text/javascript''></script>' ||from ut_suite_cache_schema t+- -
-'<link href='''||a_assets_path||'application.css'' media=''screen, projection, print'' rel=''stylesheet'' type=''text/css''>' ||- -
+'<link rel="shortcut icon" type="image/png" href="'||a_assets_path||'favicon_'||coverage_css_class(l_coverage_pct)||'.png" />' ||where object_owner = upper(a_schema_name);+ +- + 302 +
+return l_cache_parse_time;- -
+'<link rel="icon" type="image/png" href="'||a_assets_path||'favicon_'||coverage_css_class(l_coverage_pct)||'.png" />' ||end;+- -
+'</head>' ||+- -
+'<body><div id="loading"><img src="'||a_assets_path||'loading.gif" alt="loading"/></div>' ||procedure save_object_cache(+- -
+'<div id="wrapper" style="display:none;">' ||a_object_owner varchar2,+- -
+'<div class="timestamp">Generated <abbr class="timeago" title="'||l_time_str||'">'||l_time_str||'</abbr></div>' ||a_object_name varchar2,+- -
+'<ul class="group_tabs"></ul>' ||a_parse_time timestamp,+- -
-'<div id="content">';- - 3 -
+ut_utils.append_to_clob(l_result, l_file_part);a_suite_items ut_suite_items+ +- +
+) is- -
-- - 3 -
-dbms_lob.append(l_result, file_list('All files', a_coverage_data));- -
-- - 3 -
+l_file_part :=pragma autonomous_transaction;+ +- +
+ +l_cached_parse_time timestamp;- + 274 +
+ +l_object_owner varchar2(250) := upper(a_object_owner);- + 274 +
+l_object_name varchar2(250) := upper(a_object_name);- -
-chr(10)||- -
+'</div><div id="footer">' ||begin+ +- + 274 +
+if a_suite_items is not null and a_suite_items.count = 0 then- -
-'Generated by <a href="http://github.com/utPLSQL/utPLSQL">'||ut_utils.gc_version||'</a><br/>' ||- -
+'Based on <a href="http://github.com/colszowka/simplecov-html">simplecov-html</a> v0.10.0 '||l_using||'' ||+ +- +
+delete from ut_suite_cache t- -
-'</div><div class="source_files">';- - 3 -
+ut_utils.append_to_clob(l_result, l_file_part);where t.object_owner = l_object_owner+ +- +
+and t.object_name = l_object_name;- -
- - 3 -
-l_unit := a_coverage_data.objects.first;- - 172 -
-loop- - 172 -
-exit when l_unit is null;- - 169 -
-dbms_lob.append(l_result, get_details_file_content(object_id(l_unit), ut_object_name(a_coverage_data.objects(l_unit).owner, a_coverage_data.objects(l_unit).name), a_coverage_data.objects(l_unit)));- - 169 -
+ +l_unit := a_coverage_data.objects.next(l_unit);- +
+ +delete from ut_suite_cache_package t- +
+ +where t.object_owner = l_object_owner- +
+ +and t.object_name = l_object_name;- +
+ +- +
+else- -
-end loop;- -
- - 3 -
+ +l_file_part := '</div></div></body></html>- + 274 +
+ +select min(parse_time)- +
+into l_cached_parse_time- -
+';from ut_suite_cache_package t+- +
+ +where t.object_name = l_object_name- +
+ +and t.object_owner = l_object_owner;- -
- - 3 -
-ut_utils.append_to_clob(l_result, l_file_part);- - 3 -
-return l_result;- -
+ +end;- + 274 +
+if a_parse_time > l_cached_parse_time or l_cached_parse_time is null then- -
- -
end;UT3.UT_COVERAGE_SONAR_REPORTER
82.35 % covered
34 relevant lines. 28 lines covered and 6 lines missed-
- -
-type body ut_coverage_sonar_reporter is- -
-/*- -
-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- + +
- + 274 +
+ +update ut_suite_cache_schema t- +
+ +set t.parse_time = a_parse_time- +
+ +where object_owner = l_object_owner;- -
- -
-http://www.apache.org/licenses/LICENSE-2.0- + +
- + 274 +
+ +if sql%rowcount = 0 then- + 4 +
+ +insert into ut_suite_cache_schema- +
+ +(object_owner, parse_time)- +
+ +values (l_object_owner, a_parse_time);- +
+ +end if;- -
- -
-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.- -
-*/- + +
- + 274 +
+ +update ut_suite_cache_package t- +
+ +set t.parse_time = a_parse_time- +
+ +where t.object_owner = l_object_owner- +
+ +and t.object_name = l_object_name;- -
- -
-constructor function ut_coverage_sonar_reporter(- -
-self in out nocopy ut_coverage_sonar_reporter- -
-) return self as result is- -
-begin- - 3 -
-self.init($$plsql_unit);- - 3 -
-return;- -
-end;- + +
- + 274 +
+ +if sql%rowcount = 0 then- + 111 +
+ +insert into ut_suite_cache_package- +
+ +(object_owner, object_name, parse_time)- +
+ +values (l_object_owner, l_object_name, a_parse_time );- +
+ +end if;- -
- + +
- + 274 +
+ +delete from ut_suite_cache t- +
+ +where t.object_owner = l_object_owner- +
+ +and t.object_name = l_object_name;- -
- -
-overriding member procedure after_calling_run(self in out nocopy ut_coverage_sonar_reporter, a_run in ut_run) as- -
-l_report_lines ut_varchar2_list;- - 3 -
-l_coverage_data ut_coverage.t_coverage;- -
-function get_lines_xml(a_unit_coverage ut_coverage.t_unit_coverage) return clob is- -
-l_file_part varchar2(32767);- -
-l_result clob;- -
-l_line_no binary_integer;- -
-begin- - 79 -
-dbms_lob.createtemporary(l_result, true);- - 79 -
-l_line_no := a_unit_coverage.lines.first;- - 79 -
-if l_line_no is null then- - 8643 -
-for i in 1 .. a_unit_coverage.total_lines loop- - 8564 -
-l_file_part := '<lineToCover lineNumber="'||i||'" covered="false"/>'||chr(10);- - 8564 -
-ut_utils.append_to_clob(l_result, l_file_part);- -
-end loop;- -
-else- -
-while l_line_no is not null loop- -
-l_file_part :=- -
-case a_unit_coverage.lines(l_line_no)- -
-when 0 then- -
-'<lineToCover lineNumber="'||l_line_no||'" covered="false"/>'||chr(10)- -
-else- -
-'<lineToCover lineNumber="'||l_line_no||'" covered="true"/>'||chr(10)- -
-end;- -
-ut_utils.append_to_clob(l_result, l_file_part);- -
-l_line_no := a_unit_coverage.lines.next(l_line_no);- -
-end loop;- -
-end if;- - 79 -
-return l_result;- -
-end;- -
-function get_coverage_xml(- -
-a_coverage_data ut_coverage.t_coverage- -
-) return clob is- -
-l_file_part varchar2(32767);- -
-l_result clob;- -
-l_unit ut_coverage.t_full_name;- - 3 -
-c_coverage_header constant varchar2(30) := '<coverage version="1">'||chr(10);- - 3 -
-c_file_footer constant varchar2(30) := '</file>'||chr(10);- - 3 -
-c_coverage_footer constant varchar2(30) := '</coverage>';- -
-begin- - 3 -
-dbms_lob.createtemporary(l_result,true);- -
-- - 3 -
-ut_utils.append_to_clob(l_result, c_coverage_header);- - 3 -
-l_unit := a_coverage_data.objects.first;- - 82 -
-while l_unit is not null loop- - 79 -
-l_file_part := '<file path="'||l_unit||'">'||chr(10);- - 79 -
-ut_utils.append_to_clob(l_result, l_file_part);- + +
- + 274 +
+ +insert into ut_suite_cache t- +
+ +(- +
+ +id, self_type, path, object_owner, object_name, name,- +
+ +line_no, parse_time, description,- +
+ +rollback_type, disabled_flag, warnings,- +
+ +before_all_list, after_all_list,- +
+ +before_each_list, after_each_list,- +
+ +before_test_list, after_test_list,- +
+ +expected_error_codes, tags,- +
+ +item- +
+ +)- +
+ +with suites as (- +
+ +select treat(value(x) as ut_suite) i- +
+ +from table(a_suite_items) x- +
+ +where x.self_type in( 'UT_SUITE', 'UT_SUITE_CONTEXT' ) )- +
+ +select ut_suite_cache_seq.nextval, s.i.self_type as self_type, s.i.path as path,- +
+ +upper(s.i.object_owner) as object_owner, upper(s.i.object_name) as object_name, upper(s.i.name) as name,- +
+ +s.i.line_no as line_no, s.i.parse_time as parse_time, s.i.description as description,- +
+ +s.i.rollback_type as rollback_type, s.i.disabled_flag as disabled_flag, s.i.warnings as warnings,- +
+ +s.i.before_all_list as before_all_list, s.i.after_all_list as after_all_list,- +
+ +null before_each_list, null after_each_list,- +
+ +null before_test_list, null after_test_list,- +
+ +null expected_error_codes, s.i.tags tags,- +
+ +null item- +
+ +from suites s;- -
- - 79 -
-dbms_lob.append(l_result,get_lines_xml(a_coverage_data.objects(l_unit)));- + +
- + 274 +
+ +insert into ut_suite_cache t- +
+ +(- +
+ +id, self_type, path, object_owner, object_name, name,- +
+ +line_no, parse_time, description,- +
+ +rollback_type, disabled_flag, warnings,- +
+ +before_all_list, after_all_list,- +
+ +before_each_list, after_each_list,- +
+ +before_test_list, after_test_list,- +
+ +expected_error_codes, tags,- +
+ +item- +
+ +)- +
+ +with tests as (- +
+ +select treat(value(x) as ut_test) t- +
+ +from table ( a_suite_items ) x- +
+ +where x.self_type in ( 'UT_TEST' ) )- +
+ +select ut_suite_cache_seq.nextval, s.t.self_type as self_type, s.t.path as path,- +
+ +upper(s.t.object_owner) as object_owner, upper(s.t.object_name) as object_name, upper(s.t.name) as name,- +
+ +s.t.line_no as line_no, s.t.parse_time as parse_time, s.t.description as description,- +
+ +s.t.rollback_type as rollback_type, s.t.disabled_flag as disabled_flag, s.t.warnings as warnings,- +
+ +null before_all_list, null after_all_list,- +
+ +s.t.before_each_list as before_each_list, s.t.after_each_list as after_each_list,- +
+ +s.t.before_test_list as before_test_list, s.t.after_test_list as after_test_list,- +
+ +s.t.expected_error_codes as expected_error_codes, s.t.tags as test_tags,- +
+ +s.t.item as item- +
+ +from tests s;- -
- - 79 -
-ut_utils.append_to_clob(l_result, c_file_footer);- + +
- +
+ +end if;- +
+ +end if;- + 274 +
+ +commit;- +
+ +end;- -
- - 79 -
-l_unit := a_coverage_data.objects.next(l_unit);- -
-end loop;- - 3 -
-ut_utils.append_to_clob(l_result, c_coverage_footer);- - 3 -
-return l_result;- -
-end;- + +
- +
+ +procedure remove_missing_objs_from_cache(a_schema_name varchar2) is- +
+ +l_objects ut_varchar2_rows;- +
+ +pragma autonomous_transaction;- -
begin- - 5 -
-ut_coverage.coverage_stop();- + +
- + 301 +
+ +l_objects := get_missing_cache_objects(a_schema_name);- -
- - 3 -
-l_coverage_data := ut_coverage.get_coverage_data(a_run.coverage_options);- + +
- + 301 +
+ +if l_objects is not empty then- + 36 +
+ +delete from ut_suite_cache i- +
+ +where i.object_owner = a_schema_name- +
+ +and i.object_name in ( select column_value from table (l_objects) );- +
+ +- + 36 +
+ +delete from ut_suite_cache_package i- +
+ +where i.object_owner = a_schema_name- +
+ +and i.object_name in ( select column_value from table (l_objects) );- +
+ +end if;- +
+ +- + 301 +
+ +commit;- +
+ +end;- -
- + +
- +
+ +function get_cached_suite_info(- +
+ +a_object_owner varchar2,- +
+ +a_object_name varchar2- +
+ +) return ut_suite_items_info is- +
+ +l_cache_rows ut_suite_cache_rows;- +
+ +l_results ut_suite_items_info;- +
+ +begin- 3 -
-self.print_clob( get_coverage_xml( l_coverage_data ) );- +
+ +l_cache_rows := get_cached_suite_rows( a_object_owner => a_object_owner, a_object_name =>a_object_name );- + 2 +
+ +select ut_suite_item_info(- +
+ +c.object_owner, c.object_name, c.name,- +
+ +c.description, c.self_type, c.line_no,- +
+ +c.path, c.disabled_flag, c.tags- +
+ +)- +
+ +bulk collect into l_results- +
+ +from table(l_cache_rows) c;- -
- + +
- 3 -
-(self as ut_reporter_base).after_calling_run(a_run);- +
+ +return l_results;- -
end;- -
-- -
end;+UT3.UT_COVERALLS_REPORTER
82.93 % covered
41 relevant lines. 34 lines covered and 7 lines missed-
- -
-type body ut_coveralls_reporter is- -
-/*- -
-utPLSQL - Version X.X.X.X- -
-Copyright 2016 - 2017 utPLSQL Project- + +
- -
- -
-Licensed under the Apache License, Version 2.0 (the "License"):- + +
- +
+ +function get_cached_packages(- +
+ +a_schema_names ut_varchar2_rows- +
+ +) return ut_object_names is- +
+ +l_results ut_object_names;- +
+ +begin- + 116 +
+ +select ut_object_name( c.object_owner, c.object_name )- +
+ +bulk collect into l_results- +
+ +from ut_suite_cache_package c- +
+ +join table ( a_schema_names ) s- +
+ +on c.object_owner = upper(s.column_value);- + 117 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function suite_item_exists(- +
+ +a_owner_name varchar2,- +
+ +a_package_name varchar2,- +
+ +a_procedure_name varchar2- +
+ +) return boolean is- +
+ +l_count integer;- +
+ +begin- + 12 +
+ +if a_procedure_name is not null then- + 4 +
+ +select count( 1 ) into l_count from dual- +
+ +where exists(- +
+ +select 1- +
+ +from ut_suite_cache c- +
+ +where c.object_owner = a_owner_name- +
+ +and c.object_name = a_package_name- +
+ +and c.name = a_procedure_name- +
+ +);- + 8 +
+ +elsif a_package_name is not null then- + 4 +
+ +select count( 1 ) into l_count from dual- +
+ +where exists(- +
+ +select 1- +
+ +from ut_suite_cache c- +
+ +where c.object_owner = a_owner_name- +
+ +and c.object_name = a_package_name- +
+ +);- +
+ +else- + 4 +
+ +select count( 1 ) into l_count from dual- +
+ +where exists(- +
+ +select 1- +
+ +from ut_suite_cache c- +
+ +where c.object_owner = a_owner_name- +
+ +);- +
+ +end if;- +
+ +- + 12 +
+ +return l_count > 0;- +
+ +end;- +
+ +- +
+end;+UT3.UT_SUITE_MANAGER
94.68 % lines covered
188 relevant lines. 178 lines covered (including 3 lines partially covered ) and 10 lines missed+ +
- +
+ +package body ut_suite_manager is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
*/- -
- -
+ +constructor function ut_coveralls_reporter(- + 1 +
+gc_suitpath_error_message constant varchar2(100) := 'Suitepath exceeds 1000 CHAR on: ';- -
+self in out nocopy ut_coveralls_reporter+- -
+) return self as result istype t_path_item is record (+- -
-begin- - 1 -
-self.init($$plsql_unit);- - 1 -
+return;object_name varchar2(250),+ +- +
+ +procedure_name varchar2(250),- +
+suite_path varchar2(4000)- -
+end;);+- -
+type t_path_items is table of t_path_item;+- -
+overriding member procedure after_calling_run(self in out nocopy ut_coveralls_reporter, a_run in ut_run) astype t_schema_paths is table of t_path_items index by varchar2(250 char);+- -
-l_report_lines ut_varchar2_list;- - 1 -
-l_coverage_data ut_coverage.t_coverage;- + +
- +
+ +cursor c_cached_suites_cursor is select * from table(ut_suite_cache_rows());- +
+type tt_cached_suites is table of c_cached_suites_cursor%rowtype;- -
+function get_lines_json(a_unit_coverage ut_coverage.t_unit_coverage) return clob istype t_cached_suites_cursor is ref cursor return c_cached_suites_cursor%rowtype;+- -
+l_file_part varchar2(32767);+- -
+l_result clob;type t_item_levels is table of ut_suite_items index by binary_integer;+- -
-l_last_line_no binary_integer;- - 78 -
-c_coverage_header constant varchar2(30) := '"coverage": [';- - 78 -
-c_null constant varchar2(4) := 'null';- -
-begin- - 78 -
-dbms_lob.createtemporary(l_result, true);- - 78 -
-ut_utils.append_to_clob(l_result, c_coverage_header);- +
+ +------------------- -
- - 78 -
-l_last_line_no := a_unit_coverage.lines.last;- - 78 -
-if l_last_line_no is null then- - 78 -
-l_last_line_no := a_unit_coverage.total_lines - 1;- - 8499 -
-for i in 1 .. l_last_line_no loop- - 8421 -
+ +ut_utils.append_to_clob(l_result, '0,');- +
+ +procedure validate_paths(a_paths in ut_varchar2_list) is- +
+ +l_path varchar2(32767);- +
+ +begin- + 263 +
+ +if a_paths is null or a_paths.count = 0 then- +
+ +raise_application_error(ut_utils.gc_path_list_is_empty, 'Path list is empty');- +
+ +else- + 548 +
+ +for i in 1 .. a_paths.count loop- + 285 +
+ +l_path := a_paths(i);- + 285 +
+ +if l_path is null or not (regexp_like(l_path, '^[A-Za-z0-9$#_]+(\.[A-Za-z0-9$#_]+){0,2}$') or regexp_like(l_path, '^([A-Za-z0-9$#_]+)?:[A-Za-z0-9$#_]+(\.[A-Za-z0-9$#_]+)*$')) then- +
+raise_application_error(ut_utils.gc_invalid_path_format, 'Invalid path format: ' || nvl(l_path, 'NULL'));- -
-end loop;- - 78 -
+ut_utils.append_to_clob(l_result, '0');end if;+ +- +
+end loop;- -
-else- -
-for line_no in 1 .. l_last_line_no loop- -
-if a_unit_coverage.lines.exists(line_no) then- -
-l_file_part := to_char(a_unit_coverage.lines(line_no));- -
-else- -
-l_file_part := c_null;- -
-end if;- -
-if line_no < l_last_line_no then- -
+l_file_part := l_file_part ||',';end if;+ +- +
+ +end;- +
+ +- +
+ +function trim_and_lower_paths( a_paths ut_varchar2_list) return ut_varchar2_list is- + 263 +
+ +l_paths_temp ut_varchar2_list := ut_varchar2_list();- +
+ +begin- + 263 +
+ +l_paths_temp.extend(a_paths.count);- + 548 +
+ +for i in 1 .. a_paths.count loop- + 285 +
+l_paths_temp(i) := trim(lower(a_paths(i)));- -
-end if;- -
+ut_utils.append_to_clob(l_result, l_file_part);end loop;+ +- + 263 +
+return l_paths_temp;- -
+end loop;end;+- -
-end if;- - 78 -
-ut_utils.append_to_clob(l_result, ']');- - 78 -
+return l_result;+ +- +
+ +function resolve_schema_names(a_paths in out nocopy ut_varchar2_list) return ut_varchar2_rows is- +
+l_schema varchar2(4000);- -
-end;- +
+ +l_object varchar2(4000);- + 263 +
+ +l_schema_names ut_varchar2_rows := ut_varchar2_rows();- + 263 +
+ +c_current_schema constant all_tables.owner%type := sys_context('USERENV','CURRENT_SCHEMA');- +
+ +begin- + 263 +
+ +a_paths := set( trim_and_lower_paths( a_paths) );- +
+ +- + 263 +
+ +validate_paths(a_paths);- +
+ +- + 547 +
+ +for i in 1 .. a_paths.count loop- +
+ +--if path is suite-path- + 285 +
+ +if regexp_like(a_paths(i), '^([A-Za-z0-9$#_]+)?:') then- +
+ +--get schema name / path- + 34 +
+ +l_schema := regexp_substr(a_paths(i), '^([A-Za-z0-9$#_]+)?:',subexpression => 1);- +
+ +-- transform ":path1[.path2]" to "schema:path1[.path2]"- + 34 +
+ +if l_schema is not null then- + 6 +
+ +l_schema := sys.dbms_assert.schema_name(upper(l_schema));- +
+ +else- + 28 +
+ +a_paths(i) := c_current_schema || a_paths(i);- + 28 +
+ +l_schema := c_current_schema;- +
+ +end if;- +
+ +else- +
+ +-- get schema name / object.[procedure] name- +
+ +-- When path is one of: schema or schema.package[.object] or package[.object]- +
+ +-- transform it back to schema[.package[.object]]- +
+ +begin- + 251 +
+ +l_object := regexp_substr(a_paths(i), '^[A-Za-z0-9$#_]+');- + 251 +
+ +l_schema := sys.dbms_assert.schema_name(upper(l_object));- +
+ +exception- + 270 +
+ +when sys.dbms_assert.invalid_schema_name then- + 135 +
+ +if ut_metadata.package_exists_in_cur_schema(upper(l_object)) then- + 134 +
+ +a_paths(i) := c_current_schema || '.' || a_paths(i);- + 134 +
+ +l_schema := c_current_schema;- +
+ +else- + 1 +
+ +raise;- +
+ +end if;- +
+ +end;- +
+ +end if;- + 284 +
+ +l_schema_names.extend;- + 284 +
+ +l_schema_names(l_schema_names.last) := l_schema;- +
+ +end loop;- +
+ +- + 262 +
+ +return l_schema_names;- +
+ +end;- +
+ +- +
+ +procedure resolve_schema_names(a_paths in out nocopy ut_varchar2_list) is- +
+ +l_schema_names ut_varchar2_rows;- +
+ +begin- + 148 +
+ +l_schema_names := resolve_schema_names(a_paths);- +
+ +end;- +
+ +- +
+ +function group_paths_by_schema(a_paths ut_varchar2_list) return t_schema_paths is- + 147 +
+ +c_package_path_regex constant varchar2(100) := '^([A-Za-z0-9$#_]+)(\.([A-Za-z0-9$#_]+))?(\.([A-Za-z0-9$#_]+))?$';- +
+ +l_schema varchar2(4000);- +
+ +l_empty_result t_path_item;- +
+ +l_result t_path_item;- +
+ +l_results t_schema_paths;- +
+ +begin- + 305 +
+ +for i in 1 .. a_paths.count loop- + 158 +
+ +l_result := l_empty_result;- + 158 +
+ +if a_paths(i) like '%:%' then- + 23 +
+ +l_schema := upper(regexp_substr(a_paths(i),'^[^.:]+'));- + 23 +
+ +l_result.suite_path := ltrim(regexp_substr(a_paths(i),'[.:].*$'),':');- +
+ +else- + 135 +
+ +l_schema := regexp_substr(a_paths(i), c_package_path_regex, subexpression => 1);- + 135 +
+ +l_result.object_name := regexp_substr(a_paths(i), c_package_path_regex, subexpression => 3);- + 135 +
+ +l_result.procedure_name := regexp_substr(a_paths(i), c_package_path_regex, subexpression => 5);- +
+ +end if;- + 158 +
+ +if l_results.exists(l_schema) then- + 11 +
+ +l_results(l_schema).extend;- + 11 +
+ +l_results(l_schema)(l_results(l_schema).last) := l_result;- +
+ +else- + 147 +
+ +l_results(l_schema) := t_path_items(l_result);- +
+ +end if;- +
+ +end loop;- + 147 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +- +
+ +function sort_by_seq_no(- +
+ +a_list ut_executables- +
+ +) return ut_executables is- + 3302 +
+ +l_results ut_executables := ut_executables();- +
+ +begin- + 3302 +
+ +if a_list is not null then- + 3302 +
+ +l_results.extend(a_list.count);- + 3856 +
+ +for i in 1 .. a_list.count loop- + 554 +
+ +l_results(a_list(i).seq_no) := a_list(i);- +
+ +end loop;- +
+ +end if;- + 3302 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +procedure reverse_list_order(- +
+ +a_list in out nocopy ut_suite_items- +
+ +) is- +
+ +l_start_idx pls_integer;- +
+ +l_end_idx pls_integer;- +
+ +l_item ut_suite_item;- +
+ +begin- + 212 +
+ +l_start_idx := a_list.first;- + 212 +
+ +l_end_idx := a_list.last;- + 242 +
+ +while l_start_idx < l_end_idx loop- + 30 +
+ +l_item := a_list(l_start_idx);- + 30 +
+ +a_list(l_start_idx) := a_list(l_end_idx);- + 30 +
+ +a_list(l_end_idx) := l_item;- + 30 +
+ +l_end_idx := a_list.prior(l_end_idx);- + 30 +
+ +l_start_idx := a_list.next(l_start_idx);- +
+ +end loop;- +
+ +end;- +
+ +- +
+ +function get_logical_suite(- +
+ +a_rows tt_cached_suites,- +
+ +a_idx pls_integer,- +
+ +a_level pls_integer,- +
+ +a_prev_level pls_integer,- +
+ +a_items_at_level t_item_levels- +
+ +) return ut_suite_item is- +
+ +l_result ut_suite_item;- +
+ +begin- + 1164 +
+ +case a_rows( a_idx ).self_type- + 1164 +
+ +when 'UT_SUITE' then- + 290 +
+ +l_result :=- + 1/2 + 1 +
+ +case when a_prev_level > a_level then- +
+ +ut_suite(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => a_items_at_level(a_prev_level),- +
+ +before_all_list => sort_by_seq_no( a_rows( a_idx ).before_all_list), after_all_list => sort_by_seq_no(- +
+ +a_rows( a_idx ).after_all_list), tags => a_rows(a_idx).tags- +
+ +)- +
+ +else- +
+ +ut_suite(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => ut_suite_items(),- +
+ +before_all_list => sort_by_seq_no( a_rows( a_idx ).before_all_list), after_all_list => sort_by_seq_no(- +
+ +a_rows( a_idx ).after_all_list), tags => a_rows(a_idx).tags- +
+ +)- +
+ +end;- + 874 +
+ +when 'UT_SUITE_CONTEXT' then- + 41 +
+ +l_result :=- + 1/2 + 1 +
+ +case when a_prev_level > a_level then- +
+ +ut_suite_context(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => a_items_at_level(a_prev_level),- +
+ +before_all_list => sort_by_seq_no( a_rows( a_idx ).before_all_list), after_all_list => sort_by_seq_no(- +
+ +a_rows( a_idx ).after_all_list), tags => a_rows(a_idx).tags- +
+ +)- +
+ +else- +
+ +ut_suite_context(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => ut_suite_items(),- +
+ +before_all_list => sort_by_seq_no( a_rows( a_idx ).before_all_list), after_all_list => sort_by_seq_no(- +
+ +a_rows( a_idx ).after_all_list), tags => a_rows(a_idx).tags- +
+ +)- +
+ +end;- + 833 +
+ +when 'UT_LOGICAL_SUITE' then- + 173 +
+ +l_result :=- + 1/2 + 1 +
+ +case when a_prev_level > a_level then- +
+ +ut_logical_suite(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => a_items_at_level(a_prev_level), tags => null- +
+ +)- +
+ +else- +
+ +ut_logical_suite(- +
+ +self_type => a_rows( a_idx ).self_type,- +
+ +object_owner => a_rows( a_idx ).object_owner, object_name => lower( a_rows( a_idx ).object_name),- +
+ +name => lower( a_rows( a_idx ).name), description => a_rows( a_idx ).description, path => a_rows( a_idx ).path,- +
+ +rollback_type => a_rows( a_idx ).rollback_type, disabled_flag => a_rows( a_idx ).disabled_flag,- +
+ +line_no => a_rows( a_idx ).line_no, parse_time => a_rows( a_idx ).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows( a_idx ).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +items => ut_suite_items(), tags => null- +
+ +)- +
+ +end;- + 660 +
+ +when 'UT_TEST' then- + 660 +
+ +l_result :=- +
+ +ut_test(- +
+ +self_type => a_rows(a_idx).self_type,- +
+ +object_owner => a_rows(a_idx).object_owner, object_name => lower(a_rows(a_idx).object_name),- +
+ +name => lower(a_rows(a_idx).name), description => a_rows(a_idx).description, path => a_rows(a_idx).path,- +
+ +rollback_type => a_rows(a_idx).rollback_type, disabled_flag => a_rows(a_idx).disabled_flag,- +
+ +line_no => a_rows(a_idx).line_no, parse_time => a_rows(a_idx).parse_time,- +
+ +start_time => null, end_time => null, result => null, warnings => a_rows(a_idx).warnings,- +
+ +results_count => ut_results_counter(), transaction_invalidators => ut_varchar2_list(),- +
+ +before_each_list => sort_by_seq_no(a_rows(a_idx).before_each_list), before_test_list => sort_by_seq_no(a_rows(a_idx).before_test_list),- +
+ +item => a_rows(a_idx).item,- +
+ +after_test_list => sort_by_seq_no(a_rows(a_idx).after_test_list), after_each_list => sort_by_seq_no(a_rows(a_idx).after_each_list),- +
+ +all_expectations => ut_expectation_results(), failed_expectations => ut_expectation_results(),- +
+ +parent_error_stack_trace => null, expected_error_codes => a_rows(a_idx).expected_error_codes,- +
+ +tags => a_rows(a_idx).tags- +
+ +);- +
+ +end case;- + 1164 +
+ +l_result.results_count.warnings_count := l_result.warnings.count;- + 1164 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +procedure reconstruct_from_cache(- +
+ +a_suites in out nocopy ut_suite_items,- +
+ +a_suite_data_cursor sys_refcursor- +
+ +) is- + 212 +
+ +c_bulk_limit constant pls_integer := 1000;- +
+ +l_items_at_level t_item_levels;- +
+ +l_rows tt_cached_suites;- +
+ +l_level pls_integer;- +
+ +l_prev_level pls_integer;- +
+ +l_idx integer;- +
+ +begin- + 212 +
+ +loop- + 212 +
+ +fetch a_suite_data_cursor bulk collect into l_rows limit c_bulk_limit;- +
+ +- + 212 +
+ +l_idx := l_rows.first;- + 1376 +
+ +while l_idx is not null loop- + 1164 +
+ +l_level := length(l_rows(l_idx).path) - length( replace(l_rows(l_idx).path, '.') ) + 1;- + 1164 +
+ +if l_level > 1 then- + 935 +
+ +if not l_items_at_level.exists(l_level) then- + 399 +
+ +l_items_at_level(l_level) := ut_suite_items();- +
+ +end if;- + 935 +
+ +l_items_at_level(l_level).extend;- + 935 +
+ +pragma inline(get_logical_suite, 'YES');- + 935 +
+ +l_items_at_level(l_level)(l_items_at_level(l_level).last) := get_logical_suite(l_rows, l_idx, l_level,l_prev_level, l_items_at_level );- +
+ +else- + 229 +
+ +a_suites.extend;- + 229 +
+ +pragma inline(get_logical_suite, 'YES');- + 229 +
+ +a_suites(a_suites.last) := get_logical_suite(l_rows, l_idx, l_level,l_prev_level, l_items_at_level );- +
+ +end if;- + 1164 +
+ +if l_prev_level > l_level then- + 477 +
+ +l_items_at_level(l_prev_level).delete;- +
+ +end if;- + 1164 +
+ +l_prev_level := l_level;- + 1164 +
+ +l_idx := l_rows.next(l_idx);- +
+ +end loop;- + 212 +
+ +exit when a_suite_data_cursor%NOTFOUND;- +
+ +end loop;- +
+ +- + 212 +
+ +reverse_list_order( a_suites );- +
+ +- + 452 +
+ +for i in 1 .. a_suites.count loop- + 240 +
+ +a_suites( i ).set_rollback_type( a_suites( i ).get_rollback_type );- +
+ +end loop;- + 212 +
+ +close a_suite_data_cursor;- +
+ +end reconstruct_from_cache;- +
+ +- +
+ +function get_cached_suite_data(- +
+ +a_object_owner varchar2,- +
+ +a_path varchar2 := null,- +
+ +a_object_name varchar2 := null,- +
+ +a_procedure_name varchar2 := null,- +
+ +a_skip_all_objects boolean := false,- +
+ +a_random_seed positive,- +
+ +a_tags ut_varchar2_rows := null- +
+ +) return t_cached_suites_cursor is- +
+ +l_unfiltered_rows ut_suite_cache_rows;- +
+ +l_result t_cached_suites_cursor;- +
+ +begin- + 212 +
+ +l_unfiltered_rows := ut_suite_cache_manager.get_cached_suite_rows(- +
+ +a_object_owner,- +
+ +a_path,- +
+ +a_object_name,- +
+ +a_procedure_name,- +
+ +a_random_seed,- +
+ +a_tags- +
+ +);- + 212 +
+ +if a_skip_all_objects then- + 212 +
+ +open l_result for- + 1 +
+ +select c.* from table(l_unfiltered_rows) c;- +
+ +else- +
+ +open l_result for- +
+ +select c.* from table(l_unfiltered_rows) c- +
+ +where exists- +
+ +( select 1- +
+ +from all_objects a- +
+ +where a.object_name = c.object_name- +
+ +and a.owner = c.object_owner- +
+ +and a.object_type = 'PACKAGE'- +
+ +);- +
+ +end if;- +
+ +- + 212 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function can_skip_all_objects_scan(- +
+ +a_owner_name varchar2- +
+ +) return boolean is- +
+ +begin- + 474 +
+ +return sys_context( 'userenv', 'current_schema' ) = a_owner_name or ut_metadata.user_has_execute_any_proc() or ut_trigger_check.is_alive();- +
+ +end;- +
+ +- +
+ +procedure build_and_cache_suites(- +
+ +a_owner_name varchar2,- +
+ +a_annotated_objects sys_refcursor- +
+ +) is- +
+ +l_annotated_objects ut_annotated_objects;- +
+ +l_suite_items ut_suite_items;- +
+ +- + 356 +
+ +l_bad_suitepath_obj ut_varchar2_list := ut_varchar2_list();- +
+ +ex_string_too_small exception;- +
+ +pragma exception_init (ex_string_too_small,-06502);- +
+ +begin- + 356 +
+ +ut_event_manager.trigger_event('build_and_cache_suites - start');- + 366 +
+ +loop- + 366 +
+ +fetch a_annotated_objects bulk collect into l_annotated_objects limit 10;- +
+ +- + 640 +
+ +for i in 1 .. l_annotated_objects.count loop- +
+ +begin- + 274 +
+ +ut_suite_builder.create_suite_item_list( l_annotated_objects( i ), l_suite_items );- +
+ +exception- + 4 +
+ +when ex_string_too_small then- + 2 +
+ +ut_utils.append_to_list(l_bad_suitepath_obj,a_owner_name||'.'||l_annotated_objects( i ).object_name);- +
+ +end;- + 274 +
+ +ut_suite_cache_manager.save_object_cache(- +
+ +a_owner_name,- +
+ +l_annotated_objects( i ).object_name,- +
+ +l_annotated_objects( i ).parse_time,- +
+ +l_suite_items- +
+ +);- +
+ +end loop;- + 366 +
+ +exit when a_annotated_objects%notfound;- +
+ +end loop;- + 356 +
+ +close a_annotated_objects;- +
+ +- +
+ +--Check for any invalid suitepath objects- + 356 +
+ +if l_bad_suitepath_obj.count > 0 then- + 1 +
+ +raise_application_error(- +
+ +ut_utils.gc_value_too_large,- +
+ +ut_utils.to_string(gc_suitpath_error_message||ut_utils.table_to_clob(l_bad_suitepath_obj,','))- +
+ +);- +
+ +end if;- + 355 +
+ +ut_event_manager.trigger_event('build_and_cache_suites - end');- +
+ +end;- +
+ +- +
+ +procedure refresh_cache(- +
+ +a_owner_name varchar2- +
+ +) is- +
+ +l_annotations_cursor sys_refcursor;- +
+ +l_suite_cache_time timestamp;- +
+ +begin- + 302 +
+ +ut_event_manager.trigger_event('refresh_cache - start');- + 302 +
+ +l_suite_cache_time := ut_suite_cache_manager.get_schema_parse_time(a_owner_name);- + 302 +
+ +l_annotations_cursor := ut_annotation_manager.get_annotated_objects(- +
+ +a_owner_name, 'PACKAGE', l_suite_cache_time- +
+ +);- +
+ +- + 302 +
+ +build_and_cache_suites(a_owner_name, l_annotations_cursor);- +
+ +- + 301 +
+ +if can_skip_all_objects_scan(a_owner_name) or ut_metadata.is_object_visible( 'dba_objects') then- + 301 +
+ +ut_suite_cache_manager.remove_missing_objs_from_cache( a_owner_name );- +
+ +end if;- +
+ +- + 301 +
+ +ut_event_manager.trigger_event('refresh_cache - end');- +
+ +end;- +
+ +- +
+ +procedure add_suites_for_path(- +
+ +a_owner_name varchar2,- +
+ +a_path varchar2 := null,- +
+ +a_object_name varchar2 := null,- +
+ +a_procedure_name varchar2 := null,- +
+ +a_suites in out nocopy ut_suite_items,- +
+ +a_random_seed positive,- +
+ +a_tags ut_varchar2_rows := null- +
+ +) is- +
+ +begin- + 158 +
+ +refresh_cache(a_owner_name);- +
+ +- + 158 +
+ +reconstruct_from_cache(- +
+ +a_suites,- +
+ +get_cached_suite_data(- +
+ +a_owner_name,- +
+ +a_path,- +
+ +a_object_name,- +
+ +a_procedure_name,- +
+ +can_skip_all_objects_scan(a_owner_name),- +
+ +a_random_seed,- +
+ +a_tags- +
+ +)- +
+ +);- +
+ +- +
+ +end;- +
+ +- +
+ +------------------------------------------------ +
+ +------------------------------------------------ +
+ +------------- Public definitions -------------- +
+ +- +
+ +function build_suites_from_annotations(- +
+ +a_owner_name varchar2,- +
+ +a_annotated_objects sys_refcursor,- +
+ +a_path varchar2 := null,- +
+ +a_object_name varchar2 := null,- +
+ +a_procedure_name varchar2 := null,- +
+ +a_skip_all_objects boolean := false- +
+ +) return ut_suite_items is- + 54 +
+ +l_suites ut_suite_items := ut_suite_items();- +
+ +begin- + 54 +
+ +build_and_cache_suites(a_owner_name, a_annotated_objects);- +
+ +- + 54 +
+ +reconstruct_from_cache(- +
+ +l_suites,- +
+ +get_cached_suite_data(- +
+ +a_owner_name,- +
+ +a_path,- +
+ +a_object_name,- +
+ +a_procedure_name,- +
+ +a_skip_all_objects,- +
+ +null,- +
+ +null- +
+ +)- +
+ +);- + 54 +
+ +return l_suites;- +
+ +end;- +
+ +- +
+ +function get_schema_ut_packages(a_schema_names ut_varchar2_rows) return ut_object_names is- +
+ +begin- + 246 +
+ +for i in 1 .. a_schema_names.count loop- + 129 +
+ +refresh_cache(a_schema_names(i));- +
+ +end loop;- +
+ +- + 117 +
+ +return ut_suite_cache_manager.get_cached_packages( a_schema_names );- +
+ +end;- +
+ +- +
+ +function get_schema_names(a_paths ut_varchar2_list) return ut_varchar2_rows is- +
+ +l_paths ut_varchar2_list;- +
+ +begin- + 115 +
+ +l_paths := a_paths;- + 115 +
+ +return resolve_schema_names(l_paths);- +
+ +end;- +
+ +- +
+ +function configure_execution_by_path(a_paths ut_varchar2_list, a_random_seed positive := null) return ut_suite_items is- + 32 +
+ +l_suites ut_suite_items := ut_suite_items();- +
+ +begin- + 32 +
+ +configure_execution_by_path(a_paths, l_suites );- + 30 +
+ +return l_suites;- +
+ +end;- +
+ +- +
+ +procedure configure_execution_by_path(- +
+ +a_paths ut_varchar2_list,- +
+ +a_suites out nocopy ut_suite_items,- +
+ +a_random_seed positive := null,- +
+ +a_tags ut_varchar2_rows := ut_varchar2_rows()- +
+ +) is- + 148 +
+ +l_paths ut_varchar2_list := a_paths;- +
+ +l_path_items t_path_items;- +
+ +l_path_item t_path_item;- +
+ +l_schema varchar2(4000);- + 148 +
+ +l_suites_count pls_integer := 0;- +
+ +l_index varchar2(4000 char);- +
+ +l_schema_paths t_schema_paths;- +
+ +begin- + 148 +
+ +ut_event_manager.trigger_event('configure_execution_by_path - start');- + 148 +
+ +a_suites := ut_suite_items();- +
+ +--resolve schema names from paths and group paths by schema name- + 148 +
+ +resolve_schema_names(l_paths);- +
+ +- + 147 +
+ +l_schema_paths := group_paths_by_schema(l_paths);- +
+ +- + 147 +
+ +l_schema := l_schema_paths.first;- + 292 +
+ +while l_schema is not null loop- + 147 +
+ +l_path_items := l_schema_paths(l_schema);- + 303 +
+ +for i in 1 .. l_path_items.count loop- + 158 +
+ +l_path_item := l_path_items(i);- + 158 +
+ +add_suites_for_path(- +
+ +upper(l_schema),- +
+ +l_path_item.suite_path,- +
+ +l_path_item.object_name,- +
+ +l_path_item.procedure_name,- +
+ +a_suites,- +
+ +a_random_seed,- +
+ +a_tags- +
+ +);- + 158 +
+ +if a_suites.count = l_suites_count then- + 3 +
+ +if l_path_item.suite_path is not null then- +
+ +raise_application_error(ut_utils.gc_suite_package_not_found,'No suite packages found for path '||l_schema||':'||l_path_item.suite_path|| '.');- + 3 +
+ +elsif l_path_item.procedure_name is not null then- +
+ +raise_application_error(ut_utils.gc_suite_package_not_found,'Suite test '||l_schema||'.'||l_path_item.object_name|| '.'||l_path_item.procedure_name||' does not exist');- + 3 +
+ +elsif l_path_item.object_name is not null then- + 2 +
+ +raise_application_error(ut_utils.gc_suite_package_not_found,'Suite package '||l_schema||'.'||l_path_item.object_name|| ' does not exist');- +
+ +end if;- +
+ +end if;- + 156 +
+ +l_index := a_suites.first;- + 156 +
+ +l_suites_count := a_suites.count;- +
+ +end loop;- + 145 +
+ +l_schema := l_schema_paths.next(l_schema);- +
+ +end loop;- +
+ +- +
+ +--propagate rollback type to suite items after organizing suites into hierarchy- + 320 +
+ +for i in 1 .. a_suites.count loop- + 175 +
+ +a_suites(i).set_rollback_type( a_suites(i).get_rollback_type() );- +
+ +end loop;- +
+ +- + 145 +
+ +ut_event_manager.trigger_event('configure_execution_by_path - start');- +
+ +end configure_execution_by_path;- +
+ +- +
+ +function get_suites_info(- +
+ +a_owner_name varchar2,- +
+ +a_package_name varchar2 := null- +
+ +) return sys_refcursor is- +
+ +l_result sys_refcursor;- +
+ +l_all_suite_info ut_suite_items_info;- + 3 +
+ +l_owner_name varchar2(250) := ut_utils.qualified_sql_name(a_owner_name);- + 3 +
+ +l_package_name varchar2(250) := ut_utils.qualified_sql_name(a_package_name);- +
+ +begin- +
+ +- + 3 +
+ +refresh_cache(l_owner_name);- +
+ +- + 3 +
+ +l_all_suite_info := ut_suite_cache_manager.get_cached_suite_info( l_owner_name, l_package_name );- + 3 +
+ +if can_skip_all_objects_scan( l_owner_name ) then- + 3 +
+ +open l_result for- + 1 +
+ +select value(c)- +
+ +from table(l_all_suite_info) c- +
+ +order by c.object_owner, c.object_name, c.item_line_no;- +
+ +else- +
+ +open l_result for- +
+ +select value(c)- +
+ +from table(l_all_suite_info) c- +
+ +where exists- +
+ +( select 1- +
+ +from all_objects a- +
+ +where a.object_name = c.object_name- +
+ +and a.owner = c.object_owner- +
+ +and a.object_type = 'PACKAGE'- +
+ +)- +
+ +order by c.object_owner, c.object_name, c.item_line_no;- +
+ +end if;- + 3 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function suite_item_exists(- +
+ +a_owner_name varchar2,- +
+ +a_package_name varchar2 := null,- +
+ +a_procedure_name varchar2 := null- +
+ +) return boolean is- + 12 +
+ +l_count integer := 1;- +
+ +l_item_exists boolean;- + 12 +
+ +l_owner_name varchar2(250) := upper(a_owner_name);- + 12 +
+ +l_package_name varchar2(250) := upper(a_package_name);- + 12 +
+ +l_procedure_name varchar2(250) := upper(a_procedure_name);- +
+ +begin- +
+ +- + 12 +
+ +refresh_cache(l_owner_name);- + 12 +
+ +l_item_exists := ut_suite_cache_manager.suite_item_exists( l_owner_name, l_package_name, l_procedure_name );- + 12 +
+ +if not can_skip_all_objects_scan( l_owner_name ) then- +
+ +select count(1)- +
+ +into l_count- +
+ +from dual c- +
+ +where exists- +
+ +( select 1- +
+ +from all_objects a- +
+ +where a.object_name = l_package_name- +
+ +and a.owner = l_owner_name- +
+ +and a.object_type = 'PACKAGE'- +
+ +);- +
+ +end if;- +
+ +- + 12 +
+ +return l_count > 0 and l_item_exists;- +
+ +end;- +
+ +- +
+end ut_suite_manager;+UT3.UT_UTILS
94.29 % lines covered
350 relevant lines. 330 lines covered (including 4 lines partially covered ) and 20 lines missed+ +
- +
+ +package body ut_utils is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +/**- +
+ +* Constants regex used to validate XML name- +
+ +*/- + 1 +
+ +gc_invalid_first_xml_char constant varchar2(50) := '[^_a-zA-Z]';- + 1 +
+ +gc_invalid_xml_char constant varchar2(50) := '[^_a-zA-Z0-9\.-]';- + 1 +
+ +gc_full_valid_xml_name constant varchar2(50) := '^([_a-zA-Z])([_a-zA-Z0-9\.-])*$';- +
+ +- +
+ +function surround_with(a_value varchar2, a_quote_char varchar2) return varchar2 is- +
+ +begin- + 1516 +
+ +return case when a_quote_char is not null then a_quote_char||a_value||a_quote_char else a_value end;- +
+ +end;- +
+ +- +
+ +function test_result_to_char(a_test_result integer) return varchar2 as- +
+ +l_result varchar2(20);- +
+ +begin- + 21 +
+ +if a_test_result = gc_success then- + 5 +
+ +l_result := gc_success_char;- + 16 +
+ +elsif a_test_result = gc_failure then- + 10 +
+ +l_result := gc_failure_char;- + 6 +
+ +elsif a_test_result = gc_error then- + 2 +
+ +l_result := gc_error_char;- + 4 +
+ +elsif a_test_result = gc_disabled then- + 2 +
+ +l_result := gc_disabled_char;- +
+ +else- + 2 +
+ +l_result := 'Unknown(' || coalesce(to_char(a_test_result),'NULL') || ')';- +
+ +end if ;- + 21 +
+ +return l_result;- +
+ +end test_result_to_char;- +
+ +- +
+ +- +
+ +function to_test_result(a_test boolean) return integer is- +
+ +l_result integer;- +
+ +begin- + 1306 +
+ +if a_test then- + 621 +
+ +l_result := gc_success;- +
+ +else- + 685 +
+ +l_result := gc_failure;- +
+ +end if;- + 1306 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function gen_savepoint_name return varchar2 is- +
+ +begin- + 321 +
+ +return 's'||trim(to_char(ut_savepoint_seq.nextval,'0000000000000000000000000000'));- +
+ +end;- +
+ +- +
+ +procedure debug_log(a_message varchar2) is- +
+ +begin- +
+ +$if $$ut_trace $then- +
+ +dbms_output.put_line(a_message);- +
+ +$else- + 5779 +
+ +null;- +
+ +$end- +
+ +end;- +
+ +- +
+ +procedure debug_log(a_message clob) is- +
+ +l_varchars ut_varchar2_list;- +
+ +begin- +
+ +$if $$ut_trace $then- +
+ +l_varchars := clob_to_table(a_message);- +
+ +for i in 1..l_varchars.count loop- +
+ +dbms_output.put_line(l_varchars(i));- +
+ +end loop;- +
+ +$else- + 429 +
+ +null;- +
+ +$end- +
+ +end;- +
+ +- +
+ +function to_string(- +
+ +a_value varchar2,- +
+ +a_quote_char varchar2 := '''',- +
+ +a_max_output_len in number := gc_max_output_string_length- +
+ +) return varchar2 is- +
+ +l_result varchar2(32767);- + 1189 +
+ +c_length constant integer := coalesce( length( a_value ), 0 );- + 1189 +
+ +c_max_input_string_length constant integer := a_max_output_len - coalesce( length( a_quote_char ) * 2, 0 );- + 1189 +
+ +c_overflow_substr_len constant integer := c_max_input_string_length - gc_more_data_string_len;- +
+ +begin- + 1189 +
+ +if c_length = 0 then- + 18 +
+ +l_result := gc_null_string;- + 1171 +
+ +elsif c_length <= c_max_input_string_length then- + 1166 +
+ +l_result := surround_with(a_value, a_quote_char);- +
+ +else- + 5 +
+ +l_result := surround_with(substr(a_value, 1, c_overflow_substr_len ), a_quote_char) || gc_more_data_string;- +
+ +end if ;- + 1189 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function to_string(- +
+ +a_value clob,- +
+ +a_quote_char varchar2 := '''',- +
+ +a_max_output_len in number := gc_max_output_string_length- +
+ +) return varchar2 is- +
+ +l_result varchar2(32767);- + 355 +
+ +c_length constant integer := coalesce(dbms_lob.getlength(a_value), 0);- + 355 +
+ +c_max_input_string_length constant integer := a_max_output_len - coalesce( length( a_quote_char ) * 2, 0 );- + 355 +
+ +c_overflow_substr_len constant integer := c_max_input_string_length - gc_more_data_string_len;- +
+ +begin- + 355 +
+ +if a_value is null then- + 16 +
+ +l_result := gc_null_string;- + 339 +
+ +elsif c_length = 0 then- + 6 +
+ +l_result := gc_empty_string;- + 333 +
+ +elsif c_length <= c_max_input_string_length then- + 315 +
+ +l_result := surround_with(a_value,a_quote_char);- +
+ +else- + 18 +
+ +l_result := surround_with(dbms_lob.substr(a_value, c_overflow_substr_len), a_quote_char) || gc_more_data_string;- +
+ +end if;- + 355 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function to_string(- +
+ +a_value blob,- +
+ +a_quote_char varchar2 := '''',- +
+ +a_max_output_len in number := gc_max_output_string_length- +
+ +) return varchar2 is- +
+ +l_result varchar2(32767);- + 34 +
+ +c_length constant integer := coalesce(dbms_lob.getlength(a_value), 0);- + 34 +
+ +c_max_input_string_length constant integer := a_max_output_len - coalesce( length( a_quote_char ) * 2, 0 );- + 34 +
+ +c_overflow_substr_len constant integer := c_max_input_string_length - gc_more_data_string_len;- +
+ +begin- + 34 +
+ +if a_value is null then- + 14 +
+ +l_result := gc_null_string;- + 20 +
+ +elsif c_length = 0 then- + 6 +
+ +l_result := gc_empty_string;- + 14 +
+ +elsif c_length <= c_max_input_string_length then- + 12 +
+ +l_result := surround_with(rawtohex(a_value),a_quote_char);- +
+ +else- + 2 +
+ +l_result := to_string( rawtohex(dbms_lob.substr(a_value, c_overflow_substr_len)) );- +
+ +end if ;- + 34 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function to_string(a_value boolean) return varchar2 is- +
+ +begin- + 86 +
+ +return case a_value when true then 'TRUE' when false then 'FALSE' else gc_null_string end;- +
+ +end;- +
+ +- +
+ +function to_string(a_value number) return varchar2 is- +
+ +begin- + 493 +
+ +return coalesce(to_char(a_value,gc_number_format), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value date) return varchar2 is- +
+ +begin- + 80 +
+ +return coalesce(to_char(a_value,gc_date_format), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value timestamp_unconstrained) return varchar2 is- +
+ +begin- + 479 +
+ +return coalesce(to_char(a_value,gc_timestamp_format), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value timestamp_tz_unconstrained) return varchar2 is- +
+ +begin- + 748 +
+ +return coalesce(to_char(a_value,gc_timestamp_tz_format), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value timestamp_ltz_unconstrained) return varchar2 is- +
+ +begin- + 86 +
+ +return coalesce(to_char(a_value,gc_timestamp_format), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value yminterval_unconstrained) return varchar2 IS- +
+ +begin- + 72 +
+ +return coalesce(to_char(a_value), gc_null_string);- +
+ +end;- +
+ +- +
+ +function to_string(a_value dsinterval_unconstrained) return varchar2 IS- +
+ +begin- + 72 +
+ +return coalesce(to_char(a_value), gc_null_string);- +
+ +end;- +
+ +- +
+ +- +
+ +function boolean_to_int(a_value boolean) return integer is- +
+ +begin- + 9853 +
+ +return case a_value when true then 1 when false then 0 end;- +
+ +end;- +
+ +- +
+ +function int_to_boolean(a_value integer) return boolean is- +
+ +begin- + 4412 +
+ +return case a_value when 1 then true when 0 then false end;- +
+ +end;- +
+ +- +
+ +function string_to_table(a_string varchar2, a_delimiter varchar2:= chr(10), a_skip_leading_delimiter varchar2 := 'N') return ut_varchar2_list is- + 20813 +
+ +l_offset integer := 1;- +
+ +l_delimiter_position integer;- + 20813 +
+ +l_skip_leading_delimiter boolean := coalesce(a_skip_leading_delimiter = 'Y',false);- + 20813 +
+ +l_result ut_varchar2_list := ut_varchar2_list();- +
+ +begin- + 20813 +
+ +if a_string is null then- +
+ +return l_result;- +
+ +end if;- + 20813 +
+ +if a_delimiter is null then- + 2 +
+ +return ut_varchar2_list(a_string);- +
+ +end if;- +
+ +- + 27082 +
+ +loop- + 27082 +
+ +l_delimiter_position := instr(a_string, a_delimiter, l_offset);- + 27082 +
+ +if not (l_delimiter_position = 1 and l_skip_leading_delimiter) then- + 27081 +
+ +l_result.extend;- + 27081 +
+ +if l_delimiter_position > 0 then- + 6270 +
+ +l_result(l_result.last) := substr(a_string, l_offset, l_delimiter_position - l_offset);- +
+ +else- + 20811 +
+ +l_result(l_result.last) := substr(a_string, l_offset);- +
+ +end if;- +
+ +end if;- + 27082 +
+ +exit when l_delimiter_position = 0;- + 6271 +
+ +l_offset := l_delimiter_position + 1;- +
+ +end loop;- + 20811 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function clob_to_table(a_clob clob, a_max_amount integer := 8191, a_delimiter varchar2:= chr(10)) return ut_varchar2_list is- + 18302 +
+ +l_offset integer := 1;- + 18302 +
+ +l_length integer := dbms_lob.getlength(a_clob);- +
+ +l_amount integer;- +
+ +l_buffer varchar2(32767);- +
+ +l_last_line varchar2(32767);- +
+ +l_string_results ut_varchar2_list;- + 18302 +
+ +l_results ut_varchar2_list := ut_varchar2_list();- +
+ +l_has_last_line boolean;- + 18302 +
+ +l_skip_leading_delimiter varchar2(1) := 'N';- +
+ +begin- + 36615 +
+ +while l_offset <= l_length loop- + 18313 +
+ +l_amount := a_max_amount - coalesce( length(l_last_line), 0 );- +
+ +-- dbms_lob.read(a_clob, l_amount, l_offset, l_buffer);- + 18313 +
+ +l_buffer := substr(a_clob, l_offset, l_amount);- + 18313 +
+ +l_amount := length(l_buffer);- + 18313 +
+ +l_offset := l_offset + l_amount;- +
+ +- + 18313 +
+ +l_string_results := string_to_table( l_last_line || l_buffer, a_delimiter, l_skip_leading_delimiter );- + 42495 +
+ +for i in 1 .. l_string_results.count loop- +
+ +--if a split of lines was not done or not at the last line- + 24182 +
+ +if l_string_results.count = 1 or i < l_string_results.count then- + 23630 +
+ +l_results.extend;- + 23630 +
+ +l_results(l_results.last) := l_string_results(i);- +
+ +end if;- +
+ +end loop;- +
+ +- +
+ +--check if we need to append the last line to the next element- + 18313 +
+ +if l_string_results.count = 1 then- + 17761 +
+ +l_has_last_line := false;- + 17761 +
+ +l_last_line := null;- + 552 +
+ +elsif l_string_results.count > 1 then- + 552 +
+ +l_has_last_line := true;- + 552 +
+ +l_last_line := l_string_results(l_string_results.count);- +
+ +end if;- +
+ +- + 18313 +
+ +l_skip_leading_delimiter := 'Y';- +
+ +end loop;- + 18302 +
+ +if l_has_last_line then- + 545 +
+ +l_results.extend;- + 545 +
+ +l_results(l_results.last) := l_last_line;- +
+ +end if;- + 18302 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function table_to_clob(a_text_table ut_varchar2_list, a_delimiter varchar2:= chr(10)) return clob is- +
+ +l_result clob;- + 1018 +
+ +l_table_rows integer := coalesce(cardinality(a_text_table),0);- +
+ +begin- + 22014 +
+ +for i in 1 .. l_table_rows loop- + 20996 +
+ +if i < l_table_rows then- + 20013 +
+ +append_to_clob(l_result, a_text_table(i)||a_delimiter);- +
+ +else- + 983 +
+ +append_to_clob(l_result, a_text_table(i));- +
+ +end if;- +
+ +end loop;- + 1018 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function table_to_clob(a_text_table ut_varchar2_rows, a_delimiter varchar2:= chr(10)) return clob is- +
+ +l_result clob;- + 18 +
+ +l_table_rows integer := coalesce(cardinality(a_text_table),0);- +
+ +begin- + 28 +
+ +for i in 1 .. l_table_rows loop- + 10 +
+ +if i < l_table_rows then- + 3 +
+ +append_to_clob(l_result, a_text_table(i)||a_delimiter);- +
+ +else- + 7 +
+ +append_to_clob(l_result, a_text_table(i));- +
+ +end if;- +
+ +end loop;- + 18 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function table_to_clob(a_integer_table ut_integer_list, a_delimiter varchar2:= chr(10)) return clob is- +
+ +l_result clob;- + 16 +
+ +l_table_rows integer := coalesce(cardinality(a_integer_table),0);- +
+ +begin- + 39 +
+ +for i in 1 .. l_table_rows loop- + 23 +
+ +if i < l_table_rows then- + 7 +
+ +append_to_clob(l_result, a_integer_table(i)||a_delimiter);- +
+ +else- + 16 +
+ +append_to_clob(l_result, a_integer_table(i));- +
+ +end if;- +
+ +end loop;- + 16 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function time_diff(a_start_time timestamp with time zone, a_end_time timestamp with time zone) return number is- +
+ +begin- + 424 +
+ +return- +
+ +extract(day from(a_end_time - a_start_time)) * 24 * 60 * 60 +- +
+ +extract(hour from(a_end_time - a_start_time)) * 60 * 60 +- +
+ +extract(minute from(a_end_time - a_start_time)) * 60 +- +
+ +extract(second from(a_end_time - a_start_time));- +
+ +end;- +
+ +- +
+ +function indent_lines(a_text varchar2, a_indent_size integer := 4, a_include_first_line boolean := false) return varchar2 is- +
+ +begin- + 82 +
+ +if a_include_first_line then- + 82 +
+ +return rtrim(lpad( ' ', a_indent_size ) || replace( a_text, chr(10), chr(10) || lpad( ' ', a_indent_size ) ));- +
+ +else- +
+ +return rtrim(replace( a_text, chr(10), chr(10) || lpad( ' ', a_indent_size ) ));- +
+ +end if;- +
+ +end;- +
+ +- +
+ +function get_utplsql_objects_list return ut_object_names is- +
+ +l_result ut_object_names;- +
+ +begin- +
+ +select distinct ut_object_name(sys_context('userenv','current_user'), o.object_name)- +
+ +bulk collect into l_result- +
+ +from user_objects o- +
+ +where o.object_name = 'UT' or object_name like 'UT\_%' escape '\'- +
+ +and o.object_type <> 'SYNONYM';- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +procedure append_to_list(a_list in out nocopy ut_varchar2_list, a_item varchar2) is- +
+ +begin- + 1028 +
+ +if a_item is not null then- + 169 +
+ +if a_list is null then- + 6 +
+ +a_list := ut_varchar2_list();- +
+ +end if;- + 169 +
+ +a_list.extend;- + 169 +
+ +a_list(a_list.last) := a_item;- +
+ +end if;- +
+ +end append_to_list;- +
+ +- +
+ +procedure append_to_list(a_list in out nocopy ut_varchar2_rows, a_items ut_varchar2_rows) is- +
+ +begin- + 570 +
+ +if a_items is not null then- + 570 +
+ +if a_list is null then- + 17 +
+ +a_list := ut_varchar2_rows();- +
+ +end if;- + 13651 +
+ +for i in 1 .. a_items.count loop- + 13081 +
+ +a_list.extend;- + 13081 +
+ +a_list(a_list.last) := a_items(i);- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure append_to_list(a_list in out nocopy ut_varchar2_rows, a_item clob) is- +
+ +begin- + 479 +
+ +append_to_list(- +
+ +a_list,- +
+ +convert_collection(- +
+ +clob_to_table( a_item, ut_utils.gc_max_storage_varchar2_len )- +
+ +)- +
+ +);- +
+ +end;- +
+ +- +
+ +procedure append_to_list(a_list in out nocopy ut_varchar2_rows, a_item varchar2) is- +
+ +begin- + 13264 +
+ +if a_item is not null then- + 13264 +
+ +if a_list is null then- + 30 +
+ +a_list := ut_varchar2_rows();- +
+ +end if;- + 13264 +
+ +if length(a_item) > gc_max_storage_varchar2_len then- +
+ +append_to_list(- +
+ +a_list,- +
+ +ut_utils.convert_collection(- +
+ +ut_utils.clob_to_table( a_item, gc_max_storage_varchar2_len )- +
+ +)- +
+ +);- +
+ +else- + 13264 +
+ +a_list.extend;- + 13264 +
+ +a_list(a_list.last) := a_item;- +
+ +end if;- +
+ +end if;- +
+ +end append_to_list;- +
+ +- +
+ +procedure append_to_clob(a_src_clob in out nocopy clob, a_clob_table t_clob_tab, a_delimiter varchar2:= chr(10)) is- +
+ +begin- + 127 +
+ +if a_clob_table is not null and cardinality(a_clob_table) > 0 then- + 104 +
+ +if a_src_clob is null then- +
+ +dbms_lob.createtemporary(a_src_clob, true);- +
+ +end if;- + 433 +
+ +for i in 1 .. a_clob_table.count loop- + 329 +
+ +dbms_lob.append(a_src_clob,a_clob_table(i));- + 329 +
+ +if i < a_clob_table.count then- + 225 +
+ +append_to_clob(a_src_clob,a_delimiter);- +
+ +end if;- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure append_to_clob(a_src_clob in out nocopy clob, a_new_data clob) is- +
+ +begin- + 1421 +
+ +if a_new_data is not null and dbms_lob.getlength(a_new_data) > 0 then- + 1300 +
+ +if a_src_clob is null then- + 1018 +
+ +dbms_lob.createtemporary(a_src_clob, true);- +
+ +end if;- + 1300 +
+ +dbms_lob.append(a_src_clob, a_new_data);- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure append_to_clob(a_src_clob in out nocopy clob, a_new_data varchar2) is- +
+ +begin- + 40854 +
+ +if a_new_data is not null then- + 40852 +
+ +if a_src_clob is null then- + 1673 +
+ +dbms_lob.createtemporary(a_src_clob, true);- +
+ +end if;- + 40852 +
+ +dbms_lob.writeappend(a_src_clob, dbms_lob.getlength(a_new_data), a_new_data);- +
+ +end if;- +
+ +end;- +
+ +- +
+ +function convert_collection(a_collection ut_varchar2_list) return ut_varchar2_rows is- +
+ +l_result ut_varchar2_rows;- +
+ +begin- + 1064 +
+ +if a_collection is not null then- + 1064 +
+ +l_result := ut_varchar2_rows();- + 5588 +
+ +for i in 1 .. a_collection.count loop- + 4524 +
+ +l_result.extend();- + 4524 +
+ +l_result(i) := substr(a_collection(i),1,gc_max_storage_varchar2_len);- +
+ +end loop;- +
+ +end if;- + 1064 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function to_xpath(a_list varchar2, a_ancestors varchar2 := '/*/') return varchar2 is- +
+ +l_xpath varchar2(32767) := a_list;- +
+ +begin- +
+ +l_xpath := to_xpath( clob_to_table(a_clob=>a_list, a_delimiter=>','), a_ancestors);- +
+ +return l_xpath;- +
+ +end;- +
+ +- +
+ +function to_xpath(a_list ut_varchar2_list, a_ancestors varchar2 := '/*/') return varchar2 is- +
+ +l_xpath varchar2(32767);- +
+ +l_item varchar2(32767);- +
+ +l_iter integer;- +
+ +begin- + 165 +
+ +if a_list is not null then- + 165 +
+ +l_iter := a_list.first;- + 464 +
+ +while l_iter is not null loop- + 299 +
+ +l_item := trim(a_list(l_iter));- + 299 +
+ +if l_item is not null then- + 299 +
+ +if l_item like '%,%' then- +
+ +l_xpath := l_xpath || to_xpath( l_item, a_ancestors ) || '|';- + 299 +
+ +elsif l_item like '/%' then- +
+ +l_xpath := l_xpath || l_item || '|';- +
+ +else- + 299 +
+ +l_xpath := l_xpath || a_ancestors || l_item || '|';- +
+ +end if;- +
+ +end if;- + 299 +
+ +l_iter := a_list.next(l_iter);- +
+ +end loop;- + 165 +
+ +l_xpath := rtrim(l_xpath,',|');- +
+ +end if;- + 165 +
+ +return l_xpath;- +
+ +end;- +
+ +- +
+ +procedure cleanup_session_temp_tables is- +
+ +begin- + 114 +
+ +execute immediate 'truncate table dbmspcc_blocks';- + 114 +
+ +execute immediate 'truncate table dbmspcc_units';- + 114 +
+ +execute immediate 'truncate table dbmspcc_runs';- +
+ +end;- +
+ +- +
+ +function to_version(a_version_no varchar2) return t_version is- +
+ +l_result t_version;- + 32 +
+ +c_version_part_regex constant varchar2(20) := '[0-9]+';- +
+ +begin- +
+ +- + 32 +
+ +if regexp_like(a_version_no,'v?([0-9]+(\.|$)){1,4}') then- + 30 +
+ +l_result.major := regexp_substr(a_version_no, c_version_part_regex, 1, 1);- + 30 +
+ +l_result.minor := regexp_substr(a_version_no, c_version_part_regex, 1, 2);- + 30 +
+ +l_result.bugfix := regexp_substr(a_version_no, c_version_part_regex, 1, 3);- + 30 +
+ +l_result.build := regexp_substr(a_version_no, c_version_part_regex, 1, 4);- +
+ +else- + 2 +
+ +raise_application_error(gc_invalid_version_no, 'Version string "'||a_version_no||'" is not a valid version');- +
+ +end if;- + 30 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +procedure save_dbms_output_to_cache is- +
+ +l_status number;- +
+ +l_line varchar2(32767);- + 116 +
+ +l_offset integer := 0;- + 116 +
+ +l_lines ut_varchar2_rows := ut_varchar2_rows();- + 116 +
+ +c_lines_limit constant integer := 100;- +
+ +pragma autonomous_transaction;- +
+ +- +
+ +procedure flush_lines(a_lines ut_varchar2_rows, a_offset integer) is- +
+ +begin- + 119 +
+ +if a_lines is not empty then- + 4 +
+ +insert into ut_dbms_output_cache (seq_no,text)- +
+ +select rownum+a_offset, column_value- +
+ +from table(a_lines);- +
+ +end if;- +
+ +end;- +
+ +begin- + 419 +
+ +loop- + 419 +
+ +dbms_output.get_line(line => l_line, status => l_status);- + 419 +
+ +exit when l_status = 1;- + 303 +
+ +l_lines := l_lines multiset union all ut_utils.convert_collection(ut_utils.clob_to_table(l_line||chr(7),4000));- + 303 +
+ +if l_lines.count > c_lines_limit then- + 3 +
+ +flush_lines(l_lines, l_offset);- + 3 +
+ +l_offset := l_offset + l_lines.count;- + 3 +
+ +l_lines.delete;- +
+ +end if;- +
+ +end loop;- + 116 +
+ +flush_lines(l_lines, l_offset);- + 116 +
+ +commit;- +
+ +end;- +
+ +- +
+ +procedure read_cache_to_dbms_output is- +
+ +l_lines_data sys_refcursor;- +
+ +l_lines ut_varchar2_rows;- + 116 +
+ +c_lines_limit constant integer := 10000;- +
+ +pragma autonomous_transaction;- +
+ +begin- + 116 +
+ +open l_lines_data for select text from ut_dbms_output_cache order by seq_no;- + 116 +
+ +loop- + 116 +
+ +fetch l_lines_data bulk collect into l_lines limit c_lines_limit;- + 421 +
+ +for i in 1 .. l_lines.count loop- + 305 +
+ +if substr(l_lines(i),-1) = chr(7) then- + 303 +
+ +dbms_output.put_line(rtrim(l_lines(i),chr(7)));- +
+ +else- + 2 +
+ +dbms_output.put(l_lines(i));- +
+ +end if;- +
+ +end loop;- + 116 +
+ +exit when l_lines_data%notfound;- +
+ +end loop;- + 116 +
+ +execute immediate 'truncate table ut_dbms_output_cache';- + 116 +
+ +commit;- +
+ +end;- +
+ +- +
+ +function ut_owner return varchar2 is- +
+ +begin- + 1428 +
+ +return sys_context('userenv','current_schema');- +
+ +end;- +
+ +- +
+ +function scale_cardinality(a_cardinality natural) return natural is- +
+ +begin- + 396 +
+ +return case when a_cardinality > 0 then trunc(power(10,(floor(log(10,a_cardinality))+1))/3) else 1 end;- +
+ +end;- +
+ +- +
+ +function build_depreciation_warning(a_old_syntax varchar2, a_new_syntax varchar2) return varchar2 is- +
+ +begin- + 23 +
+ +return 'The syntax: "'||a_old_syntax||'" is deprecated.' ||chr(10)||- +
+ +'Please use the new syntax: "'||a_new_syntax||'".' ||chr(10)||- +
+ +'The deprecated syntax will not be supported in future releases.';- +
+ +end;- +
+ +- +
+ +function to_xml_number_format(a_value number) return varchar2 is- +
+ +begin- + 90 +
+ +return to_char(a_value, gc_number_format, 'NLS_NUMERIC_CHARACTERS=''. ''');- +
+ +end;- +
+ +- +
+ +function get_xml_header(a_encoding varchar2) return varchar2 is- +
+ +begin- + 38 +
+ +return- +
+ +'<?xml version="1.0"'- + 1 +
+ +||case- + 1 +
+ +when a_encoding is not null- +
+ +then ' encoding="'||upper(a_encoding)||'"'- +
+ +end- +
+ +||'?>';- +
+ +end;- +
+ +- +
+ +function trim_list_elements(a_list ut_varchar2_list, a_regexp_to_trim varchar2 default '[:space:]') return ut_varchar2_list is- +
+ +l_trimmed_list ut_varchar2_list;- +
+ +l_index integer;- +
+ +begin- + 800 +
+ +if a_list is not null then- + 799 +
+ +l_trimmed_list := ut_varchar2_list();- + 799 +
+ +l_index := a_list.first;- +
+ +- + 1734 +
+ +while (l_index is not null) loop- + 935 +
+ +l_trimmed_list.extend;- + 935 +
+ +l_trimmed_list(l_trimmed_list.count) := regexp_replace(a_list(l_index), '(^['||a_regexp_to_trim||']*)|(['||a_regexp_to_trim||']*$)');- + 935 +
+ +l_index := a_list.next(l_index);- +
+ +end loop;- +
+ +end if;- +
+ +- + 800 +
+ +return l_trimmed_list;- +
+ +end;- +
+ +- +
+ +function filter_list(a_list in ut_varchar2_list, a_regexp_filter in varchar2) return ut_varchar2_list is- +
+ +l_filtered_list ut_varchar2_list;- +
+ +l_index integer;- +
+ +begin- + 770 +
+ +if a_list is not null then- + 769 +
+ +l_filtered_list := ut_varchar2_list();- + 769 +
+ +l_index := a_list.first;- + 1651 +
+ +while (l_index is not null) loop- + 882 +
+ +if regexp_like(a_list(l_index), a_regexp_filter) then- + 875 +
+ +l_filtered_list.extend;- + 875 +
+ +l_filtered_list(l_filtered_list.count) := a_list(l_index);- +
+ +end if;- + 882 +
+ +l_index := a_list.next(l_index);- +
+ +end loop;- +
+ +end if;- +
+ +- + 770 +
+ +return l_filtered_list;- +
+ +end;- +
+ +- +
+ +function xmlgen_escaped_string(a_string in varchar2) return varchar2 is- +
+ +l_result varchar2(4000) := a_string;- +
+ +l_sql varchar2(32767) := q'!select q'[!'||a_string||q'!]' as "!'||a_string||'" from dual';- +
+ +begin- +
+ +if a_string is not null then- +
+ +select extract(dbms_xmlgen.getxmltype(l_sql),'/*/*/*').getRootElement()- +
+ +into l_result- +
+ +from dual;- +
+ +end if;- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function replace_multiline_comments(a_source clob) return clob is- +
+ +l_result clob;- + 558 +
+ +l_ml_comment_start binary_integer := 1;- + 558 +
+ +l_comment_start binary_integer := 1;- + 558 +
+ +l_text_start binary_integer := 1;- + 558 +
+ +l_escaped_text_start binary_integer := 1;- +
+ +l_escaped_text_end_char varchar2(1 char);- + 558 +
+ +l_end binary_integer := 1;- +
+ +l_ml_comment clob;- +
+ +l_newlines_count binary_integer;- + 558 +
+ +l_offset binary_integer := 1;- + 558 +
+ +l_length binary_integer := coalesce(dbms_lob.getlength(a_source), 0);- +
+ +begin- + 558 +
+ +l_ml_comment_start := instr(a_source,'/*');- + 558 +
+ +l_comment_start := instr(a_source,'--');- + 558 +
+ +l_text_start := instr(a_source,'''');- + 558 +
+ +l_escaped_text_start := instr(a_source,q'[q']');- + 739 +
+ +while l_offset > 0 and l_ml_comment_start > 0 loop- +
+ +- + 181 +
+ +if l_ml_comment_start > 0 and (l_ml_comment_start < l_comment_start or l_comment_start = 0)- + 1 +
+ +and (l_ml_comment_start < l_text_start or l_text_start = 0)and (l_ml_comment_start < l_escaped_text_start or l_escaped_text_start = 0)- +
+ +then- + 13 +
+ +l_end := instr(a_source,'*/',l_ml_comment_start+2);- + 13 +
+ +append_to_clob(l_result, dbms_lob.substr(a_source, l_ml_comment_start-l_offset, l_offset));- + 13 +
+ +if l_end > 0 then- + 13 +
+ +l_ml_comment := substr(a_source, l_ml_comment_start, l_end-l_ml_comment_start);- + 13 +
+ +l_newlines_count := length( l_ml_comment ) - length( translate( l_ml_comment, 'a'||chr(10), 'a') );- + 13 +
+ +if l_newlines_count > 0 then- + 6 +
+ +append_to_clob(l_result, lpad( chr(10), l_newlines_count, chr(10) ) );- +
+ +end if;- + 13 +
+ +l_end := l_end + 2;- +
+ +end if;- +
+ +else- +
+ +- + 168 +
+ +if l_comment_start > 0 and (l_comment_start < l_ml_comment_start or l_ml_comment_start = 0)- + 1 +
+ +and (l_comment_start < l_text_start or l_text_start = 0) and (l_comment_start < l_escaped_text_start or l_escaped_text_start = 0)- +
+ +then- + 163 +
+ +l_end := instr(a_source,chr(10),l_comment_start+2);- + 163 +
+ +if l_end > 0 then- + 163 +
+ +l_end := l_end + 1;- +
+ +end if;- + 2/3 + 5 +
+ +elsif l_text_start > 0 and (l_text_start < l_ml_comment_start or l_ml_comment_start = 0)- + 1 +
+ +and (l_text_start < l_comment_start or l_comment_start = 0) and (l_text_start < l_escaped_text_start or l_escaped_text_start = 0)- +
+ +then- + 3 +
+ +l_end := instr(a_source,q'[']',l_text_start+1);- +
+ +- +
+ +--skip double quotes while searching for end of quoted text- + 3 +
+ +while l_end > 0 and l_end = instr(a_source,q'['']',l_text_start+1) loop- +
+ +l_end := instr(a_source,q'[']',l_end+1);- +
+ +end loop;- + 3 +
+ +if l_end > 0 then- + 3 +
+ +l_end := l_end + 1;- +
+ +end if;- +
+ +- + 2/3 + 2 +
+ +elsif l_escaped_text_start > 0 and (l_escaped_text_start < l_ml_comment_start or l_ml_comment_start = 0)- + 3/4 + 1 +
+ +and (l_escaped_text_start < l_comment_start or l_comment_start = 0) and (l_escaped_text_start < l_text_start or l_text_start = 0)- +
+ +then- +
+ +--translate char "[" from the start of quoted text "q'[someting]'" into "]"- + 2 +
+ +l_escaped_text_end_char := translate( substr(a_source, l_escaped_text_start + 2, 1), '[{(<', ']})>');- + 2 +
+ +l_end := instr(a_source,l_escaped_text_end_char||'''',l_escaped_text_start + 3 );- + 2 +
+ +if l_end > 0 then- + 2 +
+ +l_end := l_end + 2;- +
+ +end if;- +
+ +end if;- +
+ +- + 168 +
+ +if l_end = 0 then- +
+ +append_to_clob(l_result, substr(a_source, l_offset, l_length-l_offset));- +
+ +else- + 168 +
+ +append_to_clob(l_result, substr(a_source, l_offset, l_end-l_offset));- +
+ +end if;- +
+ +end if;- + 181 +
+ +l_offset := l_end;- + 181 +
+ +if l_offset >= l_ml_comment_start then- + 19 +
+ +l_ml_comment_start := instr(a_source,'/*',l_offset);- +
+ +end if;- + 181 +
+ +if l_offset >= l_comment_start then- + 167 +
+ +l_comment_start := instr(a_source,'--',l_offset);- +
+ +end if;- + 181 +
+ +if l_offset >= l_text_start then- + 166 +
+ +l_text_start := instr(a_source,'''',l_offset);- +
+ +end if;- + 181 +
+ +if l_offset >= l_escaped_text_start then- + 171 +
+ +l_escaped_text_start := instr(a_source,q'[q']',l_offset);- +
+ +end if;- +
+ +end loop;- + 558 +
+ +append_to_clob(l_result, substr(a_source, l_end));- + 558 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_child_reporters(a_for_reporters ut_reporters_info := null) return ut_reporters_info is- + 4 +
+ +l_for_reporters ut_reporters_info := a_for_reporters;- +
+ +l_results ut_reporters_info;- +
+ +begin- + 4 +
+ +if l_for_reporters is null then- + 1 +
+ +l_for_reporters := ut_reporters_info(ut_reporter_info('UT_REPORTER_BASE','N','N','N'));- +
+ +end if;- +
+ +- + 4 +
+ +select /*+ cardinality(f 10) */- +
+ +ut_reporter_info(- +
+ +object_name => t.type_name,- +
+ +is_output_reporter =>- +
+ +case- +
+ +when f.is_output_reporter = 'Y' or t.type_name = 'UT_OUTPUT_REPORTER_BASE'- +
+ +then 'Y' else 'N'- +
+ +end,- +
+ +is_instantiable => case when t.instantiable = 'YES' then 'Y' else 'N' end,- +
+ +is_final => case when t.final = 'YES' then 'Y' else 'N' end- +
+ +)- +
+ +bulk collect into l_results- +
+ +from user_types t- +
+ +join (select * from table(l_for_reporters) where is_final = 'N' ) f- +
+ +on f.object_name = supertype_name;- +
+ +- + 4 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function remove_error_from_stack(a_error_stack varchar2, a_ora_code number) return varchar2 is- +
+ +l_caller_stack_line varchar2(4000);- + 4 +
+ +l_ora_search_pattern varchar2(500) := '^ORA'||a_ora_code||': (.*)$';- +
+ +begin- + 4 +
+ +l_caller_stack_line := regexp_replace(srcstr => a_error_stack- +
+ +,pattern => l_ora_search_pattern- +
+ +,replacestr => null- +
+ +,position => 1- +
+ +,occurrence => 1- +
+ +,modifier => 'm');- + 4 +
+ +return l_caller_stack_line;- +
+ +end;- +
+ +- +
+ +/**- +
+ +* Change string into unicode to match xmlgen format _00<unicode>_- +
+ +* https://docs.oracle.com/en/database/oracle/oracle-database/12.2/adxdb/generation-of-XML-data-from-relational-data.html#GUID-5BE09A7D-80D8-4734-B9AF-4A61F27FA9B2- +
+ +* secion v3.1.8.3169-develop- +
+ +*/- +
+ +function char_to_xmlgen_unicode(a_character varchar2) return varchar2 is- +
+ +begin- + 20 +
+ +return '_x00'||rawtohex(utl_raw.cast_to_raw(a_character))||'_';- +
+ +end;- +
+ +- +
+ +/**- +
+ +* Build valid XML column name as element names can contain letters, digits, hyphens, underscores, and periods- +
+ +*/- +
+ +function build_valid_xml_name(a_preprocessed_name varchar2) return varchar2 is- +
+ +l_post_processed varchar2(4000);- +
+ +begin- + 1/2 + 92 +
+ +for i in (select regexp_substr( a_preprocessed_name ,'(.{1})', 1, level, null, 1 ) AS string_char,level level_no- +
+ +from dual connect by level <= regexp_count(a_preprocessed_name, '(.{1})'))- +
+ +loop- + 60 +
+ +if i.level_no = 1 and regexp_like(i.string_char,gc_invalid_first_xml_char) then- + 16 +
+ +l_post_processed := l_post_processed || char_to_xmlgen_unicode(i.string_char);- + 44 +
+ +elsif regexp_like(i.string_char,gc_invalid_xml_char) then- + 4 +
+ +l_post_processed := l_post_processed || char_to_xmlgen_unicode(i.string_char);- +
+ +else- + 40 +
+ +l_post_processed := l_post_processed || i.string_char;- +
+ +end if;- +
+ +end loop;- + 16 +
+ +return l_post_processed;- +
+ +end;- +
+ +- +
+ +function get_valid_xml_name(a_name varchar2) return varchar2 is- +
+ +l_valid_name varchar2(4000);- +
+ +begin- + 1226 +
+ +if regexp_like(a_name,gc_full_valid_xml_name) then- + 1210 +
+ +l_valid_name := a_name;- +
+ +else- + 16 +
+ +l_valid_name := build_valid_xml_name(a_name);- +
+ +end if;- + 1226 +
+ +return l_valid_name;- +
+ +end;- +
+ +- +
+ +function to_cdata(a_lines ut_varchar2_rows) return ut_varchar2_rows is- +
+ +l_results ut_varchar2_rows;- +
+ +begin- + 29 +
+ +if a_lines is not empty then- + 29 +
+ +ut_utils.append_to_list( l_results, gc_cdata_start_tag);- + 80 +
+ +for i in 1 .. a_lines.count loop- + 51 +
+ +ut_utils.append_to_list( l_results, replace( a_lines(i), gc_cdata_end_tag, gc_cdata_end_tag_wrap ) );- +
+ +end loop;- + 29 +
+ +ut_utils.append_to_list( l_results, gc_cdata_end_tag);- +
+ +else- +
+ +l_results := a_lines;- +
+ +end if;- + 29 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function to_cdata(a_clob clob) return clob is- +
+ +l_result clob;- +
+ +begin- + 9 +
+ +if a_clob is not null and a_clob != empty_clob() then- + 9 +
+ +l_result := replace( a_clob, gc_cdata_end_tag, gc_cdata_end_tag_wrap );- +
+ +else- +
+ +l_result := a_clob;- +
+ +end if;- + 9 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function add_prefix(a_list ut_varchar2_list, a_prefix varchar2, a_connector varchar2 := '/') return ut_varchar2_list is- + 73 +
+ +l_result ut_varchar2_list := ut_varchar2_list();- +
+ +l_idx binary_integer;- +
+ +begin- + 73 +
+ +if a_prefix is not null then- + 65 +
+ +l_idx := a_list.first;- + 69 +
+ +while l_idx is not null loop- + 4 +
+ +l_result.extend;- + 4 +
+ +l_result(l_idx) := add_prefix(a_list(l_idx), a_prefix, a_connector);- + 4 +
+ +l_idx := a_list.next(l_idx);- +
+ +end loop;- +
+ +end if;- + 73 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function add_prefix(a_item varchar2, a_prefix varchar2, a_connector varchar2 := '/') return varchar2 is- +
+ +begin- + 4 +
+ +return a_prefix||a_connector||trim(leading a_connector from a_item);- +
+ +end;- +
+ +- +
+ +function strip_prefix(a_item varchar2, a_prefix varchar2, a_connector varchar2 := '/') return varchar2 is- +
+ +begin- + 380 +
+ +return regexp_replace(a_item,a_prefix||a_connector);- +
+ +end;- +
+ +- +
+ +function get_hash(a_data raw, a_hash_type binary_integer := dbms_crypto.hash_sh1) return t_hash is- +
+ +begin- + 390 +
+ +return dbms_crypto.hash(a_data, a_hash_type);- +
+ +end;- +
+ +- +
+ +function get_hash(a_data clob, a_hash_type binary_integer := dbms_crypto.hash_sh1) return t_hash is- +
+ +begin- + 48 +
+ +return dbms_crypto.hash(a_data, a_hash_type);- +
+ +end;- +
+ +- +
+ +function qualified_sql_name(a_name varchar2) return varchar2 is- +
+ +begin- + 1580 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_name is not null- +
+ +then sys.dbms_assert.qualified_sql_name(a_name)- +
+ +end;- +
+ +end;- +
+ +- +
+end ut_utils;+UT3.UT_COMPOUND_DATA_HELPER
99.09 % lines covered
220 relevant lines. 218 lines covered (including 1 lines partially covered ) and 2 lines missed+ +
- +
+ +package body ut_compound_data_helper is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +g_diff_count integer;- +
+ +type t_type_name_map is table of varchar2(128) index by binary_integer;- +
+ +type t_types_no_length is table of varchar2(128) index by varchar2(128);- +
+ +g_type_name_map t_type_name_map;- +
+ +g_anytype_name_map t_type_name_map;- +
+ +g_type_no_length_map t_types_no_length;- +
+ +- + 1 +
+ +g_compare_sql_template varchar2(4000) :=- +
+ +q'[- +
+ +with exp as (- +
+ +select- +
+ +ucd.*,- +
+ +{:duplicate_number:} dup_no- +
+ +from (- +
+ +select- +
+ +ucd.item_data- +
+ +,x.data_id data_id- +
+ +,position + x.item_no item_no- +
+ +{:columns:}- +
+ +from ut_compound_data_tmp x,- +
+ +xmltable('/ROWSET/ROW' passing x.item_data columns- +
+ +item_data xmltype path '*'- +
+ +,position for ordinality- +
+ +{:xml_to_columns:} ) ucd- +
+ +where data_id = :exp_guid- +
+ +) ucd- +
+ +)- +
+ +, act as (- +
+ +select- +
+ +ucd.*,- +
+ +{:duplicate_number:} dup_no- +
+ +from (- +
+ +select- +
+ +ucd.item_data- +
+ +,x.data_id data_id- +
+ +,position + x.item_no item_no- +
+ +{:columns:}- +
+ +from ut_compound_data_tmp x,- +
+ +xmltable('/ROWSET/ROW' passing x.item_data columns- +
+ +item_data xmltype path '*'- +
+ +,position for ordinality- +
+ +{:xml_to_columns:} ) ucd- +
+ +where data_id = :act_guid- +
+ +) ucd- +
+ +)- +
+ +select- +
+ +a.item_data as act_item_data,- +
+ +a.data_id act_data_id,- +
+ +e.item_data as exp_item_data,- +
+ +e.data_id exp_data_id,- +
+ +{:item_no:} as item_no,- +
+ +nvl(e.dup_no,a.dup_no) dup_no- +
+ +from act a {:join_type:} exp e on ( {:join_condition:} )- +
+ +where {:where_condition:}]';- +
+ +- +
+ +function get_columns_diff(- +
+ +a_expected ut_cursor_column_tab,- +
+ +a_actual ut_cursor_column_tab,- +
+ +a_order_enforced boolean := false- +
+ +) return tt_column_diffs is- +
+ +l_results tt_column_diffs;- +
+ +begin- + 158 +
+ +execute immediate q'[with- +
+ +expected_cols as (- +
+ +select display_path exp_column_name,column_position exp_col_pos,- +
+ +replace(column_type_name,'VARCHAR2','CHAR') exp_col_type_compare, column_type_name exp_col_type- +
+ +from table(:a_expected)- +
+ +where parent_name is null and hierarchy_level = 1 and column_name is not null- +
+ +),- +
+ +actual_cols as (- +
+ +select display_path act_column_name,column_position act_col_pos,- +
+ +replace(column_type_name,'VARCHAR2','CHAR') act_col_type_compare, column_type_name act_col_type- +
+ +from table(:a_actual)- +
+ +where parent_name is null and hierarchy_level = 1 and column_name is not null- +
+ +),- +
+ +joined_cols as (- +
+ +select e.*,a.*]'- + 1 +
+ +|| case when a_order_enforced then ',- +
+ +row_number() over(partition by case when a.act_col_pos + e.exp_col_pos is not null then 1 end order by a.act_col_pos) a_pos_nn,- +
+ +row_number() over(partition by case when a.act_col_pos + e.exp_col_pos is not null then 1 end order by e.exp_col_pos) e_pos_nn'- +
+ +else- +
+ +null- +
+ +end ||q'[- +
+ +from expected_cols e- +
+ +full outer join actual_cols a- +
+ +on e.exp_column_name = a.act_column_name- +
+ +)- +
+ +select case- +
+ +when exp_col_pos is null and act_col_pos is not null then '+'- +
+ +when exp_col_pos is not null and act_col_pos is null then '-'- +
+ +when exp_col_type_compare != act_col_type_compare then 't'- +
+ +else 'p'- +
+ +end as diff_type,- +
+ +exp_column_name, exp_col_type, exp_col_pos,- +
+ +act_column_name, act_col_type, act_col_pos- +
+ +from joined_cols- +
+ +--column is unexpected (extra) or missing- +
+ +where act_col_pos is null or exp_col_pos is null- +
+ +--column type is not matching (except CHAR/VARCHAR2)- +
+ +or act_col_type_compare != exp_col_type_compare]'- + 1 +
+ +|| case when a_order_enforced then q'[- +
+ +--column position is not matching (both when excluded extra/missing columns as well as when they are included)- +
+ +or (a_pos_nn != e_pos_nn and exp_col_pos != act_col_pos)]'- +
+ +else- +
+ +null- +
+ +end ||q'[- +
+ +order by exp_col_pos, act_col_pos]'- +
+ +bulk collect into l_results using a_expected, a_actual;- + 158 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function generate_not_equal_stmt(- +
+ +a_data_info ut_cursor_column, a_pk_table ut_varchar2_list- +
+ +) return varchar2- +
+ +is- + 418 +
+ +l_pk_tab ut_varchar2_list := coalesce(a_pk_table,ut_varchar2_list());- +
+ +l_index integer;- +
+ +l_sql_stmt varchar2(32767);- + 418 +
+ +l_exists boolean := false;- +
+ +begin- + 418 +
+ +l_index := l_pk_tab.first;- + 418 +
+ +if l_pk_tab.count > 0 then- + 129 +
+ +loop- + 129 +
+ +if a_data_info.access_path = l_pk_tab(l_index) then- + 39 +
+ +l_exists := true;- +
+ +end if;- + 129 +
+ +exit when l_index = l_pk_tab.count or (a_data_info.access_path = l_pk_tab(l_index));- + 11 +
+ +l_index := a_pk_table.next(l_index);- +
+ +end loop;- +
+ +end if;- + 418 +
+ +if not(l_exists) then- + 379 +
+ +l_sql_stmt := ' (decode(a.'||a_data_info.transformed_name||','||' e.'||a_data_info.transformed_name||',1,0) = 0)';- +
+ +end if;- + 418 +
+ +return l_sql_stmt;- +
+ +end;- +
+ +- +
+ +function generate_join_by_stmt(- +
+ +a_data_info ut_cursor_column, a_pk_table ut_varchar2_list- +
+ +) return varchar2- +
+ +is- + 418 +
+ +l_pk_tab ut_varchar2_list := coalesce(a_pk_table,ut_varchar2_list());- +
+ +l_index integer;- +
+ +l_sql_stmt varchar2(32767);- +
+ +begin- + 418 +
+ +if l_pk_tab.count <> 0 then- + 118 +
+ +l_index:= l_pk_tab.first;- + 129 +
+ +loop- + 129 +
+ +if l_pk_tab(l_index) in (a_data_info.access_path, a_data_info.parent_name) then- +
+ +--When then table is nested and join is on whole table- + 44 +
+ +l_sql_stmt := l_sql_stmt ||' a.'||a_data_info.transformed_name||q'[ = ]'||' e.'||a_data_info.transformed_name;- +
+ +end if;- + 129 +
+ +exit when (a_data_info.access_path = l_pk_tab(l_index)) or l_index = l_pk_tab.count;- + 11 +
+ +l_index := l_pk_tab.next(l_index);- +
+ +end loop;- +
+ +end if;- + 418 +
+ +return l_sql_stmt;- +
+ +end;- +
+ +- +
+ +function generate_equal_sql(a_col_name in varchar2) return varchar2 is- +
+ +begin- + 418 +
+ +return ' decode(a.'||a_col_name||','||' e.'||a_col_name||',1,0) = 1 ';- +
+ +end;- +
+ +- +
+ +function generate_partition_stmt(- +
+ +a_data_info ut_cursor_column, a_pk_table in ut_varchar2_list, a_alias varchar2 := 'ucd.'- +
+ +) return varchar2- +
+ +is- +
+ +l_index integer;- +
+ +l_sql_stmt varchar2(32767);- +
+ +begin- + 418 +
+ +if a_pk_table is not empty then- + 118 +
+ +l_index:= a_pk_table.first;- + 129 +
+ +loop- + 129 +
+ +if a_pk_table(l_index) in (a_data_info.access_path, a_data_info.parent_name) then- +
+ +--When then table is nested and join is on whole table- + 44 +
+ +l_sql_stmt := l_sql_stmt ||a_alias||a_data_info.transformed_name;- +
+ +end if;- + 129 +
+ +exit when (a_data_info.access_path = a_pk_table(l_index)) or l_index = a_pk_table.count;- + 11 +
+ +l_index := a_pk_table.next(l_index);- +
+ +end loop;- +
+ +else- + 300 +
+ +l_sql_stmt := a_alias||a_data_info.transformed_name;- +
+ +end if;- + 418 +
+ +return l_sql_stmt;- +
+ +end;- +
+ +- +
+ +function generate_select_stmt(a_data_info ut_cursor_column, a_alias varchar2 := 'ucd.')- +
+ +return varchar2- +
+ +is- + 418 +
+ +l_alias varchar2(10) := a_alias;- +
+ +l_col_syntax varchar2(4000);- +
+ +begin- + 418 +
+ +if a_data_info.is_sql_diffable = 0 then- + 11 +
+ +l_col_syntax := 'ut_utils.get_hash('||l_alias||a_data_info.transformed_name||'.getClobVal()) as '||a_data_info.transformed_name ;- + 407 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type = 'DATE' then- + 4 +
+ +l_col_syntax := 'to_date('||l_alias||a_data_info.transformed_name||') as '|| a_data_info.transformed_name;- + 403 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('TIMESTAMP') then- + 5 +
+ +l_col_syntax := 'to_timestamp('||l_alias||a_data_info.transformed_name||','''||ut_utils.gc_timestamp_format||''') as '|| a_data_info.transformed_name;- + 398 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('TIMESTAMP WITH TIME ZONE') then- + 1 +
+ +l_col_syntax := 'to_timestamp_tz('||l_alias||a_data_info.transformed_name||','''||ut_utils.gc_timestamp_tz_format||''') as '|| a_data_info.transformed_name;- + 397 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('TIMESTAMP WITH LOCAL TIME ZONE') then- + 1 +
+ +l_col_syntax := ' cast( to_timestamp_tz('||l_alias||a_data_info.transformed_name||','''||ut_utils.gc_timestamp_tz_format||''') AS TIMESTAMP WITH LOCAL TIME ZONE) as '|| a_data_info.transformed_name;- +
+ +else- + 396 +
+ +l_col_syntax := l_alias||a_data_info.transformed_name||' as '|| a_data_info.transformed_name;- +
+ +end if;- + 418 +
+ +return l_col_syntax;- +
+ +end;- +
+ +- +
+ +function generate_xmltab_stmt(a_data_info ut_cursor_column) return varchar2 is- +
+ +l_col_type varchar2(4000);- +
+ +begin- + 418 +
+ +if a_data_info.is_sql_diffable = 0 then- + 11 +
+ +l_col_type := 'XMLTYPE';- + 407 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('DATE','TIMESTAMP','TIMESTAMP WITH TIME ZONE',- + 1 +
+ +'TIMESTAMP WITH LOCAL TIME ZONE') then- + 11 +
+ +l_col_type := 'VARCHAR2(50)';- + 396 +
+ +elsif a_data_info.is_sql_diffable = 1 and type_no_length(a_data_info.column_type) then- + 9 +
+ +l_col_type := a_data_info.column_type;- + 387 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('VARCHAR2','CHAR') then- + 211 +
+ +l_col_type := 'VARCHAR2('||greatest(a_data_info.column_len,4000)||')';- + 176 +
+ +elsif a_data_info.is_sql_diffable = 1 and a_data_info.column_type in ('NUMBER') then- +
+ +--We cannot use a precision and scale as dbms_sql.describe_columns3 return precision 0 for dual table- +
+ +-- there is also no need for that as we not process data but only read and compare as they are stored- + 169 +
+ +l_col_type := a_data_info.column_type;- +
+ +else- + 7 +
+ +l_col_type := a_data_info.column_type- + 1 +
+ +||case when a_data_info.column_len is not null- +
+ +then '('||a_data_info.column_len||')'- +
+ +else null- +
+ +end;- +
+ +end if;- + 418 +
+ +return a_data_info.transformed_name||' '||l_col_type||q'[ PATH ']'||a_data_info.access_path||q'[']';- +
+ +end;- +
+ +- +
+ +procedure gen_sql_pieces_out_of_cursor(- +
+ +a_data_info ut_cursor_column_tab,- +
+ +a_pk_table ut_varchar2_list,- +
+ +a_unordered boolean,- +
+ +a_xml_stmt out nocopy clob,- +
+ +a_select_stmt out nocopy clob,- +
+ +a_partition_stmt out nocopy clob,- +
+ +a_join_by_stmt out nocopy clob,- +
+ +a_not_equal_stmt out nocopy clob- +
+ +) is- +
+ +l_partition_tmp clob;- + 173 +
+ +l_xmltab_list ut_varchar2_list := ut_varchar2_list();- + 173 +
+ +l_select_list ut_varchar2_list := ut_varchar2_list();- + 173 +
+ +l_partition_list ut_varchar2_list := ut_varchar2_list();- + 173 +
+ +l_equal_list ut_varchar2_list := ut_varchar2_list();- + 173 +
+ +l_join_by_list ut_varchar2_list := ut_varchar2_list();- + 173 +
+ +l_not_equal_list ut_varchar2_list := ut_varchar2_list();- +
+ +- +
+ +procedure add_element_to_list(a_list in out ut_varchar2_list, a_list_element in varchar2)- +
+ +is- +
+ +begin- + 2508 +
+ +if a_list_element is not null then- + 2021 +
+ +a_list.extend;- + 2021 +
+ +a_list(a_list.last) := a_list_element;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +begin- + 173 +
+ +if a_data_info is not empty then- + 627 +
+ +for i in 1..a_data_info.count loop- + 464 +
+ +if a_data_info(i).has_nested_col = 0 then- +
+ +--Get XMLTABLE column list- + 418 +
+ +add_element_to_list(l_xmltab_list,generate_xmltab_stmt(a_data_info(i)));- +
+ +--Get Select statment list of columns- + 418 +
+ +add_element_to_list(l_select_list, generate_select_stmt(a_data_info(i)));- +
+ +--Get columns by which we partition- + 418 +
+ +add_element_to_list(l_partition_list,generate_partition_stmt(a_data_info(i), a_pk_table));- +
+ +--Get equal statement- + 418 +
+ +add_element_to_list(l_equal_list,generate_equal_sql(a_data_info(i).transformed_name));- +
+ +--Generate join by stmt- + 418 +
+ +add_element_to_list(l_join_by_list,generate_join_by_stmt(a_data_info(i), a_pk_table));- +
+ +--Generate not equal stmt- + 418 +
+ +add_element_to_list(l_not_equal_list,generate_not_equal_stmt(a_data_info(i), a_pk_table));- +
+ +end if;- +
+ +end loop;- +
+ +- + 163 +
+ +a_xml_stmt := nullif(','||ut_utils.table_to_clob(l_xmltab_list, ' , '),',');- + 163 +
+ +a_select_stmt := nullif(','||ut_utils.table_to_clob(l_select_list, ' , '),',');- + 163 +
+ +l_partition_tmp := ut_utils.table_to_clob(l_partition_list, ' , ');- + 163 +
+ +ut_utils.append_to_clob(a_partition_stmt,' row_number() over (partition by '||l_partition_tmp||' order by '||l_partition_tmp||' ) ');- +
+ +- + 163 +
+ +if a_pk_table.count > 0 then- +
+ +-- If key defined do the join or these and where on diffrences- + 34 +
+ +a_join_by_stmt := ut_utils.table_to_clob(l_join_by_list, ' and ');- + 129 +
+ +elsif a_unordered then- +
+ +-- If no key defined do the join on all columns- + 27 +
+ +a_join_by_stmt := ' e.dup_no = a.dup_no and '||ut_utils.table_to_clob(l_equal_list, ' and ');- +
+ +else- +
+ +-- Else join on rownumber- + 102 +
+ +a_join_by_stmt := 'a.item_no = e.item_no ';- +
+ +end if;- + 163 +
+ +a_not_equal_stmt := ut_utils.table_to_clob(l_not_equal_list, ' or ');- +
+ +else- +
+ +--Partition by piece when no data- + 10 +
+ +ut_utils.append_to_clob(a_partition_stmt,' 1 ');- + 10 +
+ +a_join_by_stmt := 'a.item_no = e.item_no ';- +
+ +end if;- +
+ +end;- +
+ +- +
+ +function gen_compare_sql(- +
+ +a_other ut_data_value_refcursor,- +
+ +a_join_by_list ut_varchar2_list,- +
+ +a_unordered boolean,- +
+ +a_inclusion_type boolean,- +
+ +a_is_negated boolean- +
+ +) return clob is- +
+ +l_compare_sql clob;- +
+ +l_xmltable_stmt clob;- +
+ +l_select_stmt clob;- +
+ +l_partition_stmt clob;- +
+ +l_join_on_stmt clob;- +
+ +l_not_equal_stmt clob;- +
+ +l_where_stmt clob;- +
+ +l_join_by_list ut_varchar2_list;- +
+ +- +
+ +function get_join_type(a_inclusion_compare in boolean,a_negated in boolean) return varchar2 is- +
+ +begin- + 173 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_inclusion_compare and not(a_negated) then ' right outer join '- + 1 +
+ +when a_inclusion_compare and a_negated then ' inner join '- +
+ +else ' full outer join '- +
+ +end;- +
+ +end;- +
+ +- +
+ +function get_item_no(a_unordered boolean) return varchar2 is- +
+ +begin- + 173 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_unordered then 'row_number() over ( order by nvl(e.item_no,a.item_no))'- +
+ +else 'nvl(e.item_no,a.item_no) '- +
+ +end;- +
+ +end;- +
+ +- +
+ +begin- +
+ +/**- +
+ +* We already estabilished cursor equality so now we add anydata root if we compare anydata- +
+ +* to join by.- +
+ +*/- + 173 +
+ +l_join_by_list :=- + 1 +
+ +case- + 1 +
+ +when a_other is of (ut_data_value_anydata) then ut_utils.add_prefix(a_join_by_list, a_other.cursor_details.get_root)- +
+ +else a_join_by_list- +
+ +end;- +
+ +- + 173 +
+ +dbms_lob.createtemporary(l_compare_sql, true);- +
+ +--Initiate a SQL template with placeholders- + 173 +
+ +ut_utils.append_to_clob(l_compare_sql, g_compare_sql_template);- +
+ +--Generate a pieceso of dynamic SQL that will substitute placeholders- + 173 +
+ +gen_sql_pieces_out_of_cursor(- +
+ +a_other.cursor_details.cursor_columns_info, l_join_by_list, a_unordered,- +
+ +l_xmltable_stmt, l_select_stmt, l_partition_stmt, l_join_on_stmt,- +
+ +l_not_equal_stmt- +
+ +);- +
+ +- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:duplicate_number:}',l_partition_stmt);- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:columns:}',l_select_stmt);- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:xml_to_columns:}',l_xmltable_stmt);- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:item_no:}',get_item_no(a_unordered));- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:join_type:}',get_join_type(a_inclusion_type,a_is_negated));- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:join_condition:}',l_join_on_stmt);- +
+ +- + 173 +
+ +if l_not_equal_stmt is not null and ((l_join_by_list.count > 0 and not a_is_negated) or (not a_unordered)) then- + 130 +
+ +ut_utils.append_to_clob(l_where_stmt,' ( '||l_not_equal_stmt||' ) or ');- +
+ +end if;- +
+ +--If its inclusion we expect a actual set to fully match and have no extra elements over expected- + 173 +
+ +if a_inclusion_type then- + 20 +
+ +ut_utils.append_to_clob(l_where_stmt,case when a_is_negated then ' 1 = 1 ' else ' ( a.data_id is null ) ' end);- +
+ +else- + 153 +
+ +ut_utils.append_to_clob(l_where_stmt,' (a.data_id is null or e.data_id is null) ');- +
+ +end if;- +
+ +- + 173 +
+ +l_compare_sql := replace(l_compare_sql,'{:where_condition:}',l_where_stmt);- + 173 +
+ +return l_compare_sql;- +
+ +end;- +
+ +- +
+ +function get_column_extract_path(a_cursor_info ut_cursor_column_tab) return ut_varchar2_list is- + 110 +
+ +l_column_list ut_varchar2_list := ut_varchar2_list();- +
+ +begin- + 394 +
+ +for i in 1..a_cursor_info.count loop- + 284 +
+ +l_column_list.extend;- + 284 +
+ +l_column_list(l_column_list.last) := a_cursor_info(i).access_path;- +
+ +end loop;- + 110 +
+ +return l_column_list;- +
+ +end;- +
+ +- +
+ +function get_rows_diff_by_sql(- +
+ +a_act_cursor_info ut_cursor_column_tab, a_exp_cursor_info ut_cursor_column_tab,- +
+ +a_expected_dataset_guid raw, a_actual_dataset_guid raw, a_diff_id raw,- +
+ +a_join_by_list ut_varchar2_list, a_unordered boolean, a_enforce_column_order boolean := false,- +
+ +a_extract_path varchar2- +
+ +) return tt_row_diffs is- + 55 +
+ +l_act_extract_xpath varchar2(32767):= ut_utils.to_xpath(get_column_extract_path(a_act_cursor_info));- + 55 +
+ +l_exp_extract_xpath varchar2(32767):= ut_utils.to_xpath(get_column_extract_path(a_exp_cursor_info));- + 55 +
+ +l_join_xpath varchar2(32767) := ut_utils.to_xpath(a_join_by_list);- +
+ +l_results tt_row_diffs;- +
+ +l_sql varchar2(32767);- +
+ +begin- + 55 +
+ +l_sql := q'[- +
+ +with exp as (- +
+ +select- +
+ +exp_item_data, exp_data_id, item_no rn, rownum col_no, pk_value,- +
+ +s.column_value col, s.column_value.getRootElement() col_name,- +
+ +nvl(s.column_value.getclobval(),empty_clob()) col_val- +
+ +from (- +
+ +select- +
+ +exp_data_id, extract( ucd.exp_item_data, :column_path ) exp_item_data, item_no,- +
+ +replace( extract( ucd.exp_item_data, :join_by ).getclobval(), chr(10) ) pk_value- +
+ +from ut_compound_data_diff_tmp ucd- +
+ +where diff_id = :diff_id- +
+ +and ucd.exp_data_id = :self_guid- +
+ +) i,- +
+ +table( xmlsequence( extract(i.exp_item_data,:extract_path) ) ) s- +
+ +),- +
+ +act as (- +
+ +select- +
+ +act_item_data, act_data_id, item_no rn, rownum col_no, pk_value,- +
+ +s.column_value col, s.column_value.getRootElement() col_name,- +
+ +nvl(s.column_value.getclobval(),empty_clob()) col_val- +
+ +from (- +
+ +select- +
+ +act_data_id, extract( ucd.act_item_data, :column_path ) act_item_data, item_no,- +
+ +replace( extract( ucd.act_item_data, :join_by ).getclobval(), chr(10) ) pk_value- +
+ +from ut_compound_data_diff_tmp ucd- +
+ +where diff_id = :diff_id- +
+ +and ucd.act_data_id = :other_guid- +
+ +) i,- +
+ +table( xmlsequence( extract(i.act_item_data,:extract_path) ) ) s- +
+ +)- +
+ +select rn, diff_type, diffed_row, pk_value pk_value- +
+ +from (- +
+ +select rn, diff_type, diffed_row, pk_value,- +
+ +case when diff_type = 'Actual:' then 1 else 2 end rnk,- +
+ +1 final_order,- +
+ +col_name- +
+ +from ( ]'- + 1 +
+ +|| case when a_unordered then q'[- +
+ +select rn, diff_type, xmlserialize(content data_item no indent) diffed_row, pk_value, col_name- +
+ +from (- +
+ +select nvl(exp.rn, act.rn) rn,- +
+ +nvl(exp.pk_value, act.pk_value) pk_value,- +
+ +exp.col exp_item,- +
+ +act.col act_item,- +
+ +nvl(exp.col_name,act.col_name) col_name- +
+ +from exp- +
+ +join act- +
+ +on exp.rn = act.rn and exp.col_name = act.col_name- +
+ +where dbms_lob.compare(exp.col_val, act.col_val) != 0- +
+ +)- +
+ +unpivot ( data_item for diff_type in (exp_item as 'Expected:', act_item as 'Actual:') ) ]'- +
+ +else q'[- +
+ +select rn, diff_type, xmlserialize(content data_item no indent) diffed_row, null pk_value, col_name- +
+ +from (- +
+ +select nvl(exp.rn, act.rn) rn,- +
+ +xmlagg(exp.col order by exp.col_no) exp_item,- +
+ +xmlagg(act.col order by act.col_no) act_item,- +
+ +max(nvl(exp.col_name,act.col_name)) col_name- +
+ +from exp exp- +
+ +join act act- +
+ +on exp.rn = act.rn and exp.col_name = act.col_name- +
+ +where dbms_lob.compare(exp.col_val, act.col_val) != 0- +
+ +group by (exp.rn, act.rn)- +
+ +)- +
+ +unpivot ( data_item for diff_type in (exp_item as 'Expected:', act_item as 'Actual:') ) ]'- +
+ +end ||q'[- +
+ +)- +
+ +union all- +
+ +select- +
+ +item_no as rn,- +
+ +case when exp_data_id is null then 'Extra:' else 'Missing:' end as diff_type,- +
+ +xmlserialize(- +
+ +content (- +
+ +extract( (case when exp_data_id is null then act_item_data else exp_item_data end),'/*/*')- +
+ +) no indent- +
+ +) diffed_row,- +
+ +nvl2(- +
+ +:join_by,- +
+ +replace(- +
+ +extract( case when exp_data_id is null then act_item_data else exp_item_data end, :join_by ).getclobval(),- +
+ +chr(10)- +
+ +),- +
+ +null- +
+ +) pk_value,- +
+ +case when exp_data_id is null then 1 else 2 end rnk,- +
+ +2 final_order,- +
+ +null col_name- +
+ +from ut_compound_data_diff_tmp i- +
+ +where diff_id = :diff_id- +
+ +and act_data_id is null or exp_data_id is null- +
+ +)- +
+ +order by final_order,]'- + 5/6 + 1 +
+ +||case when a_enforce_column_order or (not(a_enforce_column_order) and not(a_unordered)) then- +
+ +q'[- +
+ +case when final_order = 1 then rn else rnk end,- +
+ +case when final_order = 1 then rnk else rn end- +
+ +]'- + 1 +
+ +when a_unordered then- +
+ +q'[- +
+ +case when final_order = 1 then col_name else to_char(rnk) end,- +
+ +case when final_order = 1 then to_char(rn) else col_name end,- +
+ +case when final_order = 1 then to_char(rnk) else col_name end- +
+ +]'- +
+ +else- +
+ +null- +
+ +end;- + 55 +
+ +execute immediate l_sql- +
+ +bulk collect into l_results- +
+ +using l_exp_extract_xpath, l_join_xpath, a_diff_id, a_expected_dataset_guid,a_extract_path,- +
+ +l_act_extract_xpath, l_join_xpath, a_diff_id, a_actual_dataset_guid,a_extract_path,- +
+ +l_join_xpath, l_join_xpath, a_diff_id;- + 55 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function get_fixed_size_hash(a_string varchar2, a_base integer :=0,a_size integer := 9999999) return number is- +
+ +begin- + 383 +
+ +return dbms_utility.get_hash_value(a_string,a_base,a_size);- +
+ +end;- +
+ +- +
+ +procedure insert_diffs_result(a_diff_tab t_diff_tab, a_diff_id raw) is- +
+ +begin- + 173 +
+ +forall idx in 1..a_diff_tab.count save exceptions- +
+ +insert into ut_compound_data_diff_tmp- +
+ +( diff_id, act_item_data, act_data_id, exp_item_data, exp_data_id, item_no, duplicate_no )- +
+ +values- +
+ +(a_diff_id,- +
+ +xmlelement( name "ROW", a_diff_tab(idx).act_item_data), a_diff_tab(idx).act_data_id,- +
+ +xmlelement( name "ROW", a_diff_tab(idx).exp_item_data), a_diff_tab(idx).exp_data_id,- +
+ +a_diff_tab(idx).item_no, a_diff_tab(idx).dup_no);- +
+ +exception- +
+ +when ut_utils.ex_failure_for_all then- +
+ +raise_application_error(ut_utils.gc_dml_for_all,'Failure to insert a diff tmp data.');- +
+ +end;- +
+ +- +
+ +procedure set_rows_diff(a_rows_diff integer) is- +
+ +begin- + 173 +
+ +g_diff_count := a_rows_diff;- +
+ +end;- +
+ +- +
+ +procedure cleanup_diff is- +
+ +begin- + 570 +
+ +g_diff_count := 0;- +
+ +end;- +
+ +- +
+ +function get_rows_diff_count return integer is- +
+ +begin- + 161 +
+ +return g_diff_count;- +
+ +end;- +
+ +- +
+ +function is_sql_compare_allowed(a_type_name varchar2)- +
+ +return boolean is- +
+ +l_assert boolean;- +
+ +begin- +
+ +--clob/blob/xmltype/object/nestedcursor/nestedtable- + 1107 +
+ +if a_type_name IN (g_type_name_map(dbms_sql.blob_type),- + 1 +
+ +g_type_name_map(dbms_sql.clob_type),- + 1 +
+ +g_type_name_map(dbms_sql.long_type),- + 1 +
+ +g_type_name_map(dbms_sql.long_raw_type),- + 1 +
+ +g_type_name_map(dbms_sql.bfile_type),- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_namedcollection))- +
+ +then- + 18 +
+ +l_assert := false;- +
+ +else- + 1089 +
+ +l_assert := true;- +
+ +end if;- + 1107 +
+ +return l_assert;- +
+ +end;- +
+ +- +
+ +function get_column_type_desc(a_type_code in integer, a_dbms_sql_desc in boolean)- +
+ +return varchar2 is- +
+ +begin- + 1226 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_dbms_sql_desc then g_type_name_map(a_type_code)- +
+ +else g_anytype_name_map(a_type_code)- +
+ +end;- +
+ +end;- +
+ +- +
+ +function get_compare_cursor(a_diff_cursor_text in clob,a_self_id raw, a_other_id raw) return sys_refcursor is- +
+ +l_diff_cursor sys_refcursor;- +
+ +begin- + 173 +
+ +open l_diff_cursor for a_diff_cursor_text using a_self_id, a_other_id;- + 173 +
+ +return l_diff_cursor;- +
+ +end;- +
+ +- +
+ +function create_err_cursor_msg(a_error_stack varchar2) return varchar2 is- +
+ +begin- + 4 +
+ +return 'SQL exception thrown when fetching data from cursor:'||- +
+ +ut_utils.remove_error_from_stack(sqlerrm,ut_utils.gc_xml_processing)||chr(10)||- +
+ +ut_expectation_processor.who_called_expectation(a_error_stack)||chr(10)||- +
+ +'Check the query and data for errors.';- +
+ +end;- +
+ +- +
+ +procedure save_cursor_data_for_diff(a_data_id raw, a_set_id integer, a_xml xmltype) is- +
+ +begin- + 363 +
+ +insert into ut_compound_data_tmp (data_id, item_no, item_data) values (a_data_id, a_set_id, a_xml);- +
+ +end;- +
+ +- +
+ +function get_row_data_as_xml(a_data_id raw, a_max_rows integer) return ut_utils.t_clob_tab is- +
+ +l_results ut_utils.t_clob_tab;- +
+ +begin- + 50 +
+ +select xmlserialize( content ucd.item_data no indent)- +
+ +bulk collect into l_results- +
+ +from ut_compound_data_tmp tmp- +
+ +,xmltable ( '/ROWSET' passing tmp.item_data- +
+ +columns item_data xmltype PATH '*'- +
+ +) ucd- +
+ +where tmp.data_id = a_data_id- +
+ +and rownum <= a_max_rows;- +
+ +- + 50 +
+ +return l_results;- +
+ +end;- +
+ +- +
+ +function type_no_length ( a_type_name varchar2) return boolean is- +
+ +begin- + 396 +
+ +return case- + 1 +
+ +when g_type_no_length_map.exists(a_type_name) then- +
+ +true- +
+ +else- +
+ +false- +
+ +end;- +
+ +end;- +
+ +- +
+ +function compare_json_data(a_act_json_data ut_json_leaf_tab,a_exp_json_data ut_json_leaf_tab) return tt_json_diff_tab is- + 10 +
+ +l_result_diff tt_json_diff_tab := tt_json_diff_tab();- +
+ +begin- +
+ +- + 10 +
+ +with- +
+ +differences as (- +
+ +select case- +
+ +when (a.element_name is null or e.element_name is null) then gc_json_missing- +
+ +when a.json_type != e.json_type then gc_json_type- +
+ +when (decode(a.element_value,e.element_value,1,0) = 0) then gc_json_notequal- +
+ +else gc_json_unknown- +
+ +end as difference_type,- +
+ +case- +
+ +when (a.element_name is null or e.element_name is null) then 1- +
+ +when a.json_type != e.json_type then 2- +
+ +when (decode(a.element_value,e.element_value,1,0) = 0) then 3- +
+ +else 4- +
+ +end as order_by_type,- +
+ +a.element_name as act_element_name,- +
+ +a.element_value as act_element_value,- +
+ +a.hierarchy_level as act_hierarchy_level,- +
+ +a.index_position as act_index_position,- +
+ +a.json_type as act_json_type,- +
+ +a.access_path as act_access_path,- +
+ +a.parent_name as act_par_name,- +
+ +a.parent_path as act_parent_path,- +
+ +e.element_name as exp_element_name,- +
+ +e.element_value as exp_element_value,- +
+ +e.hierarchy_level as exp_hierarchy_level,- +
+ +e.index_position as exp_index_position,- +
+ +e.json_type as exp_json_type,- +
+ +e.access_path as exp_access_path,- +
+ +e.parent_name as exp_par_name,- +
+ +e.parent_path as exp_parent_path- +
+ +from table(a_act_json_data) a- +
+ +full outer join table(a_exp_json_data) e- +
+ +on decode(a.parent_name,e.parent_name,1,0)= 1- +
+ +and decode(a.parent_path,e.parent_path,1,0)= 1- +
+ +and (- +
+ +case when a.parent_type = 'object' or e.parent_type = 'object' then- +
+ +decode(a.element_name,e.element_name,1,0)- +
+ +else 1 end = 1- +
+ +)- +
+ +and (- +
+ +case when a.parent_type = 'array' or e.parent_type = 'array' then- +
+ +decode(a.index_position,e.index_position,1,0)- +
+ +else 1 end = 1- +
+ +)- +
+ +and a.hierarchy_level = e.hierarchy_level- +
+ +where (a.element_name is null or e.element_name is null)- +
+ +or (a.json_type != e.json_type)- +
+ +or (decode(a.element_value,e.element_value,1,0) = 0)- +
+ +)- +
+ +select difference_type,- +
+ +act_element_name, act_element_value, act_json_type, act_access_path, act_parent_path,- +
+ +exp_element_name, exp_element_value, exp_json_type, exp_access_path, exp_parent_path- +
+ +bulk collect into l_result_diff- +
+ +from differences a- +
+ +where not exists (- +
+ +select 1 from differences b- +
+ +where (a.act_par_name = b.act_element_name and a.act_hierarchy_level - 1 = b.act_hierarchy_level)- +
+ +or (a.exp_par_name = b.exp_element_name and a.exp_hierarchy_level - 1 = b.exp_hierarchy_level)- +
+ +and a.difference_type = gc_json_missing and b.difference_type = gc_json_missing- +
+ +)- +
+ +order by order_by_type,- +
+ +nvl(act_hierarchy_level,exp_hierarchy_level),- +
+ +nvl(act_index_position,exp_index_position) nulls first,- +
+ +nvl(act_element_name,exp_element_name) ;- + 10 +
+ +return l_result_diff;- +
+ +end;- +
+ +- +
+ +function insert_json_diffs(a_diff_id raw, a_act_json_data ut_json_leaf_tab, a_exp_json_data ut_json_leaf_tab) return integer is- + 10 +
+ +l_diffs tt_json_diff_tab := compare_json_data(a_act_json_data,a_exp_json_data);- +
+ +begin- + 10 +
+ +forall i in 1..l_diffs.count- + 1 +
+ +insert into ut_json_data_diff_tmp (- +
+ +diff_id, difference_type,- +
+ +act_element_name, act_element_value, act_json_type, act_access_path, act_parent_path,- +
+ +exp_element_name, exp_element_value, exp_json_type, exp_access_path, exp_parent_path- +
+ +)- +
+ +values (- +
+ +a_diff_id,l_diffs(i).difference_type,- +
+ +l_diffs(i).act_element_name,l_diffs(i).act_element_value,l_diffs(i).act_json_type, l_diffs(i).act_access_path, l_diffs(i).act_parent_path,- +
+ +l_diffs(i).exp_element_name,l_diffs(i).exp_element_value,l_diffs(i).exp_json_type,l_diffs(i).exp_access_path, l_diffs(i).exp_parent_path- +
+ +);- +
+ +- + 10 +
+ +return l_diffs.count;- +
+ +end;- +
+ +- +
+ +function get_json_diffs_type(a_diff_id raw) return tt_json_diff_type_tab is- + 10 +
+ +l_diffs_summary tt_json_diff_type_tab := tt_json_diff_type_tab();- +
+ +begin- + 10 +
+ +select d.difference_type,count(1)- +
+ +bulk collect into l_diffs_summary- +
+ +from ut_json_data_diff_tmp d- +
+ +where diff_id = a_diff_id- +
+ +group by d.difference_type;- +
+ +- + 10 +
+ +return l_diffs_summary;- +
+ +end;- +
+ +- +
+ +function get_json_diffs_tmp(a_diff_id raw) return tt_json_diff_tab is- +
+ +l_diffs tt_json_diff_tab;- +
+ +begin- + 10 +
+ +select difference_type,- +
+ +act_element_name, act_element_value, act_json_type, act_access_path, act_parent_path,- +
+ +exp_element_name, exp_element_value, exp_json_type, exp_access_path, exp_parent_path- +
+ +bulk collect into l_diffs- +
+ +from ut_json_data_diff_tmp- +
+ +where diff_id = a_diff_id;- +
+ +- + 10 +
+ +return l_diffs;- +
+ +end;- +
+ +- +
+ +begin- + 2 +
+ +g_anytype_name_map(dbms_types.typecode_date) := 'DATE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_number) := 'NUMBER';- + 1 +
+ +g_anytype_name_map(3 /*INTEGER in object type*/) := 'NUMBER';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_raw) := 'RAW';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_char) := 'CHAR';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_varchar2) := 'VARCHAR2';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_varchar) := 'VARCHAR';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_blob) := 'BLOB';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_bfile) := 'BFILE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_clob) := 'CLOB';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_timestamp) := 'TIMESTAMP';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_timestamp_tz) := 'TIMESTAMP WITH TIME ZONE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_timestamp_ltz) := 'TIMESTAMP WITH LOCAL TIME ZONE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_interval_ym) := 'INTERVAL YEAR TO MONTH';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_interval_ds) := 'INTERVAL DAY TO SECOND';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_bfloat) := 'BINARY_FLOAT';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_bdouble) := 'BINARY_DOUBLE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_urowid) := 'UROWID';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_varray) := 'VARRRAY';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_table) := 'TABLE';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_namedcollection) := 'NAMEDCOLLECTION';- + 1 +
+ +g_anytype_name_map(dbms_types.typecode_object) := 'OBJECT';- +
+ +- + 2 +
+ +g_type_name_map( dbms_sql.binary_bouble_type ) := 'BINARY_DOUBLE';- + 1 +
+ +g_type_name_map( dbms_sql.bfile_type ) := 'BFILE';- + 1 +
+ +g_type_name_map( dbms_sql.binary_float_type ) := 'BINARY_FLOAT';- + 1 +
+ +g_type_name_map( dbms_sql.blob_type ) := 'BLOB';- + 1 +
+ +g_type_name_map( dbms_sql.long_raw_type ) := 'LONG RAW';- + 1 +
+ +g_type_name_map( dbms_sql.char_type ) := 'CHAR';- + 1 +
+ +g_type_name_map( dbms_sql.clob_type ) := 'CLOB';- + 1 +
+ +g_type_name_map( dbms_sql.long_type ) := 'LONG';- + 1 +
+ +g_type_name_map( dbms_sql.date_type ) := 'DATE';- + 1 +
+ +g_type_name_map( dbms_sql.interval_day_to_second_type ) := 'INTERVAL DAY TO SECOND';- + 1 +
+ +g_type_name_map( dbms_sql.interval_year_to_month_type ) := 'INTERVAL YEAR TO MONTH';- + 1 +
+ +g_type_name_map( dbms_sql.raw_type ) := 'RAW';- + 1 +
+ +g_type_name_map( dbms_sql.timestamp_type ) := 'TIMESTAMP';- + 1 +
+ +g_type_name_map( dbms_sql.timestamp_with_tz_type ) := 'TIMESTAMP WITH TIME ZONE';- + 1 +
+ +g_type_name_map( dbms_sql.timestamp_with_local_tz_type ) := 'TIMESTAMP WITH LOCAL TIME ZONE';- + 1 +
+ +g_type_name_map( dbms_sql.varchar2_type ) := 'VARCHAR2';- + 1 +
+ +g_type_name_map( dbms_sql.number_type ) := 'NUMBER';- + 1 +
+ +g_type_name_map( dbms_sql.rowid_type ) := 'ROWID';- + 1 +
+ +g_type_name_map( dbms_sql.urowid_type ) := 'UROWID';- + 1 +
+ +g_type_name_map( dbms_sql.user_defined_type ) := 'USER_DEFINED_TYPE';- + 1 +
+ +g_type_name_map( dbms_sql.ref_type ) := 'REF_TYPE';- +
+ +- +
+ +- +
+ +/**- +
+ +* List of types that have no length but can produce a max_len from desc_cursor function.- +
+ +*/- + 1 +
+ +g_type_no_length_map('ROWID') := 'ROWID';- + 1 +
+ +g_type_no_length_map('INTERVAL DAY TO SECOND') := 'INTERVAL DAY TO SECOND';- + 1 +
+ +g_type_no_length_map('INTERVAL YEAR TO MONTH') := 'INTERVAL YEAR TO MONTH';- + 1 +
+ +g_type_no_length_map('BINARY_DOUBLE') := 'BINARY_DOUBLE';- + 1 +
+ +g_type_no_length_map('BINARY_FLOAT') := 'BINARY_FLOAT';- +
+end;+UT3.UT_COMPOUND_DATA_VALUE
100 % lines covered
12 relevant lines. 12 lines covered and 0 lines missed+ +
- +
+ +type body ut_compound_data_value as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member function get_elements_count_info return varchar2 is- +
+ +begin- + 364 +
+ +return case when elements_count is null then ' [ null ]' else ' [ count = '||elements_count||' ]' end;- +
+ +end;- +
+ +- +
+ +overriding member function get_object_info return varchar2 is- +
+ +begin- + 270 +
+ +return self.data_type||get_elements_count_info();- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 1362 +
+ +return ut_utils.int_to_boolean(self.is_data_null);- +
+ +end;- +
+ +- +
+ +overriding member function is_diffable return boolean is- +
+ +begin- + 179 +
+ +return true;- +
+ +end;- +
+ +- +
+ +overriding member function is_multi_line return boolean is- +
+ +begin- + 79 +
+ +return not self.is_null();- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +l_result clob;- +
+ +l_result_string varchar2(32767);- +
+ +begin- + 50 +
+ +if not self.is_null() then- + 50 +
+ +dbms_lob.createtemporary(l_result, true);- + 50 +
+ +ut_utils.append_to_clob(l_result,'Data:'||chr(10));- + 50 +
+ +ut_utils.append_to_clob(- +
+ +l_result,- +
+ +ut_compound_data_helper.get_row_data_as_xml( self.data_id, ut_utils.gc_diff_max_rows )- +
+ +);- +
+ +- + 50 +
+ +l_result_string := ut_utils.to_string(l_result,null);- + 50 +
+ +dbms_lob.freetemporary(l_result);- +
+ +end if;- + 50 +
+ +return l_result_string;- +
+ +end;- +
+ +- +
+end;+UT3.UT_CURSOR_COLUMN
95.83 % lines covered
24 relevant lines. 23 lines covered and 1 lines missed+ +
- +
+ +type body ut_cursor_column as- +
+ +- +
+ +member procedure init(- +
+ +self in out nocopy ut_cursor_column,- +
+ +a_col_name varchar2, a_col_schema_name varchar2,- +
+ +a_col_type_name varchar2, a_col_max_len integer, a_parent_name varchar2 := null, a_hierarchy_level integer := 1,- +
+ +a_col_position integer, a_col_type varchar2, a_collection integer,a_access_path in varchar2, a_col_precision in integer,- +
+ +a_col_scale integer- +
+ +) is- +
+ +begin- + 1226 +
+ +self.parent_name := a_parent_name; --Name of the parent if its nested- + 1226 +
+ +self.hierarchy_level := a_hierarchy_level; --Hierarchy level- + 1226 +
+ +self.column_position := a_col_position; --Position of the column in cursor/ type- + 1226 +
+ +self.column_len := a_col_max_len; --length of column- + 1226 +
+ +self.column_precision := a_col_precision;- + 1226 +
+ +self.column_scale := a_col_scale;- + 1226 +
+ +self.column_name := TRIM( BOTH '''' FROM a_col_name); --name of the column- + 1226 +
+ +self.column_type_name := coalesce(a_col_type_name,a_col_type); --type name e.g. test_dummy_object or varchar2- + 1226 +
+ +self.xml_valid_name := ut_utils.get_valid_xml_name(self.column_name);- + 1226 +
+ +self.display_path := case when a_access_path is null then- +
+ +self.column_name- +
+ +else- +
+ +a_access_path||'/'||self.column_name- +
+ +end; --Access path used for incldue exclude eg/ TEST_DUMMY_OBJECT/VARCHAR2- + 1226 +
+ +self.access_path := case when a_access_path is null then- +
+ +self.xml_valid_name- +
+ +else- +
+ +a_access_path||'/'||self.xml_valid_name- +
+ +end; --Access path used for XMLTABLE query- + 1226 +
+ +self.filter_path := '/'||self.access_path; --Filter path will differ from access path in anydata type- + 1226 +
+ +self.transformed_name := case when length(self.xml_valid_name) > 30 then- +
+ +'"'||ut_compound_data_helper.get_fixed_size_hash(self.parent_name||self.xml_valid_name)||'"'- + 1 +
+ +when self.parent_name is null then- +
+ +'"'||self.xml_valid_name||'"'- +
+ +else- +
+ +'"'||ut_compound_data_helper.get_fixed_size_hash(self.parent_name||self.xml_valid_name)||'"'- +
+ +end; --when is nestd we need to hash name to make sure we dont exceed 30 char- + 1226 +
+ +self.column_type := a_col_type; --column type e.g. user_defined , varchar2- + 1226 +
+ +self.column_schema := a_col_schema_name; -- schema name- + 1226 +
+ +self.is_sql_diffable := case- + 1 +
+ +when lower(self.column_type) = 'user_defined_type' then- +
+ +0- +
+ +-- Due to bug in 11g/12.1 collection fails on varchar 4000+- + 1 +
+ +when (lower(self.column_type) in ('varchar2','char')) and (self.column_len > 4000) then- +
+ +0- +
+ +else- +
+ +ut_utils.boolean_to_int(ut_compound_data_helper.is_sql_compare_allowed(self.column_type))- +
+ +end; --can we directly compare or do we need to hash value- + 1226 +
+ +self.is_collection := a_collection;- + 1226 +
+ +self.has_nested_col := case when lower(self.column_type) = 'user_defined_type' and self.is_collection = 0 then 1 else 0 end;- +
+ +end;- +
+ +- +
+ +constructor function ut_cursor_column( self in out nocopy ut_cursor_column,- +
+ +a_col_name varchar2, a_col_schema_name varchar2,- +
+ +a_col_type_name varchar2, a_col_max_len integer, a_parent_name varchar2 := null, a_hierarchy_level integer := 1,- +
+ +a_col_position integer, a_col_type in varchar2, a_collection integer,a_access_path in varchar2, a_col_precision in integer,- +
+ +a_col_scale integer- +
+ +) return self as result is- +
+ +begin- + 1226 +
+ +init(a_col_name, a_col_schema_name, a_col_type_name, a_col_max_len, a_parent_name,a_hierarchy_level, a_col_position,- +
+ +a_col_type, a_collection,a_access_path,a_col_precision,a_col_scale);- + 1226 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_cursor_column( self in out nocopy ut_cursor_column) return self as result is- +
+ +begin- +
+ +return;- +
+ +end;- +
+end;+UT3.UT_CURSOR_DETAILS
100 % lines covered
62 relevant lines. 62 lines covered and 0 lines missed+ +
- +
+ +type body ut_cursor_details as- +
+ +- +
+ +member function equals( a_other ut_cursor_details, a_match_options ut_matcher_options ) return boolean is- +
+ +l_diffs integer;- +
+ +begin- + 161 +
+ +select count(1) into l_diffs- +
+ +from table(self.cursor_columns_info) a- +
+ +full outer join table(a_other.cursor_columns_info) e- +
+ +on decode(a.parent_name,e.parent_name,1,0)= 1- +
+ +and a.column_name = e.column_name- +
+ +and replace(a.column_type,'VARCHAR2','CHAR') = replace(e.column_type,'VARCHAR2','CHAR')- +
+ +and ( a.column_position = e.column_position or a_match_options.columns_are_unordered_flag = 1 )- +
+ +where a.column_name is null or e.column_name is null;- + 161 +
+ +return l_diffs = 0;- +
+ +end;- +
+ +- +
+ +member procedure desc_compound_data(- +
+ +self in out nocopy ut_cursor_details, a_compound_data anytype,- +
+ +a_parent_name in varchar2, a_level in integer, a_access_path in varchar2- +
+ +) is- + 145 +
+ +l_idx pls_integer := 1;- +
+ +l_elements_info ut_metadata.t_anytype_members_rec;- +
+ +l_element_info ut_metadata.t_anytype_elem_info_rec;- +
+ +l_is_collection boolean;- +
+ +begin- + 145 +
+ +l_elements_info := ut_metadata.get_anytype_members_info( a_compound_data );- + 145 +
+ +l_is_collection := ut_metadata.is_collection(l_elements_info.type_code);- + 145 +
+ +if l_elements_info.elements_count is null then- + 16 +
+ +l_element_info := ut_metadata.get_attr_elem_info( a_compound_data );- + 16 +
+ +self.cursor_columns_info.extend;- + 16 +
+ +self.cursor_columns_info(cursor_columns_info.last) :=- +
+ +ut_cursor_column(- +
+ +l_elements_info.type_name,- +
+ +l_elements_info.schema_name,- +
+ +null,- +
+ +l_elements_info.length,- +
+ +a_parent_name,- +
+ +a_level,- +
+ +l_idx,- +
+ +ut_compound_data_helper.get_column_type_desc(l_elements_info.type_code,false),- +
+ +ut_utils.boolean_to_int(l_is_collection),- +
+ +a_access_path,- +
+ +l_elements_info.precision,- +
+ +l_elements_info.scale- +
+ +);- + 16 +
+ +if l_element_info.attr_elt_type is not null then- + 16 +
+ +desc_compound_data(- +
+ +l_element_info.attr_elt_type, l_elements_info.type_name,- +
+ +a_level + 1, a_access_path || '/' || l_elements_info.type_name- +
+ +);- +
+ +end if;- +
+ +else- + 494 +
+ +while l_idx <= l_elements_info.elements_count loop- + 365 +
+ +l_element_info := ut_metadata.get_attr_elem_info( a_compound_data, l_idx );- +
+ +- + 365 +
+ +self.cursor_columns_info.extend;- + 365 +
+ +self.cursor_columns_info(cursor_columns_info.last) :=- +
+ +ut_cursor_column(- +
+ +l_element_info.attribute_name,- +
+ +l_elements_info.schema_name,- +
+ +null,- +
+ +l_element_info.length,- +
+ +a_parent_name,- +
+ +a_level,- +
+ +l_idx,- +
+ +ut_compound_data_helper.get_column_type_desc(l_element_info.type_code,false),- +
+ +ut_utils.boolean_to_int(l_is_collection),- +
+ +a_access_path,- +
+ +l_elements_info.precision,- +
+ +l_elements_info.scale- +
+ +);- + 365 +
+ +if l_element_info.attr_elt_type is not null then- + 10 +
+ +desc_compound_data(- +
+ +l_element_info.attr_elt_type, l_element_info.attribute_name,- +
+ +a_level + 1, a_access_path || '/' || l_element_info.attribute_name- +
+ +);- +
+ +end if;- + 365 +
+ +l_idx := l_idx + 1;- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +constructor function ut_cursor_details(self in out nocopy ut_cursor_details) return self as result is- +
+ +begin- + 454 +
+ +self.cursor_columns_info := ut_cursor_column_tab();- + 454 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_cursor_details(- +
+ +self in out nocopy ut_cursor_details,- +
+ +a_cursor_number in number- +
+ +) return self as result is- +
+ +l_columns_count pls_integer;- +
+ +l_columns_desc dbms_sql.desc_tab3;- +
+ +l_is_collection boolean;- + 393 +
+ +l_hierarchy_level integer := 1;- +
+ +begin- + 393 +
+ +self.cursor_columns_info := ut_cursor_column_tab();- + 393 +
+ +self.is_anydata := 0;- + 393 +
+ +dbms_sql.describe_columns3(a_cursor_number, l_columns_count, l_columns_desc);- +
+ +- +
+ +/**- +
+ +* Due to a bug with object being part of cursor in ANYDATA scenario- +
+ +* oracle fails to revert number to cursor. We ar using dbms_sql.close cursor to close it- +
+ +* to avoid leaving open cursors behind.- +
+ +* a_cursor := dbms_sql.to_refcursor(l_cursor_number);- +
+ +**/- + 1238 +
+ +for pos in 1 .. l_columns_count loop- + 845 +
+ +l_is_collection := ut_metadata.is_collection( l_columns_desc(pos).col_schema_name, l_columns_desc(pos).col_type_name );- + 845 +
+ +self.cursor_columns_info.extend;- + 845 +
+ +self.cursor_columns_info(self.cursor_columns_info.last) :=- +
+ +ut_cursor_column(- +
+ +l_columns_desc(pos).col_name,- +
+ +l_columns_desc(pos).col_schema_name,- +
+ +l_columns_desc(pos).col_type_name,- +
+ +l_columns_desc(pos).col_max_len,- +
+ +null,- +
+ +l_hierarchy_level,- +
+ +pos,- +
+ +ut_compound_data_helper.get_column_type_desc(l_columns_desc(pos).col_type,true),- +
+ +ut_utils.boolean_to_int(l_is_collection),- +
+ +null,- +
+ +l_columns_desc(pos).col_precision,- +
+ +l_columns_desc(pos).col_scale- +
+ +);- +
+ +- + 845 +
+ +if l_columns_desc(pos).col_type = dbms_sql.user_defined_type or l_is_collection then- + 119 +
+ +desc_compound_data(- +
+ +ut_metadata.get_user_defined_type( l_columns_desc(pos).col_schema_name, l_columns_desc(pos).col_type_name ),- +
+ +l_columns_desc(pos).col_name,- +
+ +l_hierarchy_level + 1,- +
+ +l_columns_desc(pos).col_name- +
+ +);- +
+ +end if;- +
+ +end loop;- + 393 +
+ +return;- +
+ +end;- +
+ +- +
+ +member function contains_collection return boolean is- +
+ +l_collection_elements number;- +
+ +begin- + 15 +
+ +select count(1) into l_collection_elements- +
+ +from table(cursor_columns_info) c- +
+ +where c.is_collection = 1 and rownum = 1;- + 15 +
+ +return l_collection_elements > 0;- +
+ +end;- +
+ +- +
+ +member function get_missing_join_by_columns( a_expected_columns ut_varchar2_list ) return ut_varchar2_list is- +
+ +l_result ut_varchar2_list;- +
+ +begin- +
+ +--regexp_replace(c.access_path,'^\/?([^\/]+\/){1}')- + 162 +
+ +select fl.column_value- +
+ +bulk collect into l_result- +
+ +from table(a_expected_columns) fl- +
+ +where not exists (- +
+ +select 1 from table(self.cursor_columns_info) c- +
+ +where regexp_like(c.filter_path,'^/?'||fl.column_value||'($|/.*)' )- +
+ +)- +
+ +order by fl.column_value;- + 162 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure filter_columns(self in out nocopy ut_cursor_details, a_match_options ut_matcher_options) is- + 700 +
+ +l_result ut_cursor_details := self;- + 700 +
+ +l_column_tab ut_cursor_column_tab := ut_cursor_column_tab();- +
+ +l_column ut_cursor_column;- + 700 +
+ +c_xpath_extract_reg constant varchar2(50) := '^((/ROW/)|^(//)|^(/\*/))?(.*)';- +
+ +begin- + 700 +
+ +if l_result.cursor_columns_info is not null then- +
+ +- +
+ +--limit columns to those on the include items minus exclude items- + 700 +
+ +if a_match_options.include.items.count > 0 then- +
+ +-- if include - exclude = 0 then keep all columns- + 86 +
+ +if a_match_options.include.items != a_match_options.exclude.items then- + 86 +
+ +with included_columns as (- +
+ +select regexp_replace( column_value, c_xpath_extract_reg, '\5' ) col_names- +
+ +from table(a_match_options.include.items)- +
+ +minus- +
+ +select regexp_replace( column_value, c_xpath_extract_reg, '\5' ) col_names- +
+ +from table(a_match_options.exclude.items)- +
+ +)- +
+ +select value(x)- +
+ +bulk collect into l_result.cursor_columns_info- +
+ +from table(self.cursor_columns_info) x- +
+ +where exists(- +
+ +select 1 from included_columns f where regexp_like(x.filter_path,'^/?'||f.col_names||'($|/.*)' )- +
+ +)- +
+ +or x.hierarchy_level = case when self.is_anydata = 1 then 1 else 0 end ;- +
+ +end if;- + 614 +
+ +elsif a_match_options.exclude.items.count > 0 then- + 122 +
+ +with excluded_columns as (- +
+ +select regexp_replace( column_value, c_xpath_extract_reg, '\5' ) col_names- +
+ +from table(a_match_options.exclude.items)- +
+ +)- +
+ +select value(x)- +
+ +bulk collect into l_result.cursor_columns_info- +
+ +from table(self.cursor_columns_info) x- +
+ +where not exists(- +
+ +select 1 from excluded_columns f where regexp_like(x.filter_path,'^/?'||f.col_names||'($|/.*)' )- +
+ +);- +
+ +end if;- +
+ +- +
+ +--Rewrite column order after columns been excluded- + 700 +
+ +for i in (- + 2599 +
+ +select parent_name, access_path, display_path, has_nested_col,- +
+ +transformed_name, hierarchy_level,- +
+ +rownum as new_position, xml_valid_name,- +
+ +column_name, column_type, column_type_name, column_schema,- +
+ +column_len, column_precision ,column_scale ,is_sql_diffable, is_collection,value(x) col_info- +
+ +from table(l_result.cursor_columns_info) x- +
+ +order by x.column_position asc- +
+ +) loop- + 1899 +
+ +l_column := i.col_info;- + 1899 +
+ +l_column.column_position := i.new_position;- + 1899 +
+ +l_column_tab.extend;- + 1899 +
+ +l_column_tab(l_column_tab.last) := l_column;- +
+ +end loop;- +
+ +- + 700 +
+ +l_result.cursor_columns_info := l_column_tab;- + 700 +
+ +self := l_result;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +member function get_xml_children(a_parent_name varchar2 := null) return xmltype is- +
+ +l_result xmltype;- +
+ +begin- + 50 +
+ +select xmlagg(xmlelement(evalname t.column_name,t.column_type_name))- +
+ +into l_result- +
+ +from table(self.cursor_columns_info) t- +
+ +where (a_parent_name is null and parent_name is null and hierarchy_level = 1 and column_name is not null)- +
+ +having count(*) > 0;- + 50 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function get_root return varchar2 is- +
+ +l_root varchar2(250);- +
+ +begin- + 200 +
+ +if self.cursor_columns_info.count > 0 then- + 192 +
+ +select x.access_path into l_root from table(self.cursor_columns_info) x- +
+ +where x.hierarchy_level = 1;- +
+ +else- + 8 +
+ +l_root := null;- +
+ +end if;- + 200 +
+ +return l_root;- +
+ +end;- +
+ +- +
+ +member procedure strip_root_from_anydata(self in out nocopy ut_cursor_details) is- + 127 +
+ +l_root varchar2(250) := get_root();- +
+ +begin- + 127 +
+ +self.is_anydata := 1;- + 507 +
+ +for i in 1..cursor_columns_info.count loop- + 380 +
+ +self.cursor_columns_info(i).filter_path := '/'||ut_utils.strip_prefix(self.cursor_columns_info(i).access_path,l_root);- +
+ +end loop;- +
+ +end;- +
+end;+UT3.UT_DATA_VALUE
93.33 % lines covered
15 relevant lines. 14 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- + 428 +
+ +order member function compare(a_other ut_data_value) return integer is- +
+ +begin- + 428 +
+ +return compare_implementation(a_other);- +
+ +end;- +
+ +- +
+ +member function is_diffable return boolean is- +
+ +begin- + 165 +
+ +return false;- +
+ +end;- +
+ +- +
+ +member function is_empty return boolean is- +
+ +begin- + 2 +
+ +raise value_error;- +
+ +end;- +
+ +- +
+ +member function diff( a_other ut_data_value, a_match_options ut_matcher_options ) return varchar2 is- +
+ +begin- +
+ +return null;- +
+ +end;- +
+ +- +
+ +member function is_multi_line return boolean is- +
+ +begin- + 722 +
+ +return false;- +
+ +end;- +
+ +- +
+ +member function get_object_info return varchar2 is- +
+ +begin- + 746 +
+ +return self.data_type;- +
+ +end;- +
+ +- +
+ +final member function to_string_report(a_add_new_line_for_multi_line boolean := false, a_with_object_info boolean := true) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +l_info varchar2(32767);- +
+ +begin- + 997 +
+ +if a_with_object_info then- + 825 +
+ +l_info := '('||get_object_info()||')';- +
+ +end if;- + 997 +
+ +if self.is_multi_line() then- + 74 +
+ +l_result :=- +
+ +l_info || chr(10) || ut_utils.indent_lines( rtrim(self.to_string(),chr(10)), a_include_first_line =>true );- + 74 +
+ +if a_add_new_line_for_multi_line then- + 62 +
+ +l_result := l_result || chr(10);- +
+ +end if;- +
+ +else- + 923 +
+ +l_result := self.to_string() || ' ' || l_info;- +
+ +end if;- + 997 +
+ +return l_result;- +
+ +end;- +
+end;+UT3.UT_DATA_VALUE_ANYDATA
79.59 % lines covered
49 relevant lines. 39 lines covered and 10 lines missed+ +
- +
+ +type body ut_data_value_anydata as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +overriding member function get_object_info return varchar2 is- +
+ +begin- + 153 +
+ +return self.data_type || case when self.compound_type = 'collection' then self.get_elements_count_info() end;- +
+ +end;- +
+ +- +
+ +member function get_extract_path(a_data_value anydata) return varchar2 is- +
+ +l_path varchar2(10);- +
+ +begin- + 127 +
+ +if self.compound_type = 'object' then- + 55 +
+ +l_path := '/*/*';- +
+ +else- + 144 +
+ +case when ut_metadata.has_collection_members(a_data_value) then- + 34 +
+ +l_path := '/*/*';- +
+ +else- + 38 +
+ +l_path := '/*';- +
+ +end case;- +
+ +end if;- + 127 +
+ +return l_path;- +
+ +end;- +
+ +- +
+ +member function get_cursor_sql_from_anydata(a_data_value anydata) return varchar2 is- +
+ +l_cursor_sql varchar2(32767);- +
+ +begin- + 127 +
+ +l_cursor_sql := '- +
+ +declare- +
+ +l_data '||self.data_type||';- +
+ +l_value anydata := :a_value;- +
+ +l_status integer;- +
+ +l_tmp_refcursor sys_refcursor;- +
+ +begin- +
+ +l_status := l_value.get'||self.compound_type||'(l_data); '||- + 1 +
+ +case when self.compound_type = 'collection' then- +
+ +q'[ open :l_tmp_refcursor for select value(x) as "]'||- +
+ +ut_metadata.get_object_name(ut_metadata.get_collection_element(a_data_value))||- +
+ +q'[" from table(l_data) x;]'- +
+ +else- +
+ +q'[ open :l_tmp_refcursor for select l_data as "]'||ut_metadata.get_object_name(self.data_type)||- +
+ +q'[" from dual;]'- +
+ +end ||- +
+ +'end;';- + 127 +
+ +return l_cursor_sql;- +
+ +end;- +
+ +- +
+ +member procedure init(self in out nocopy ut_data_value_anydata, a_value anydata) is- +
+ +l_refcursor sys_refcursor;- +
+ +cursor_not_open exception;- +
+ +l_cursor_number number;- +
+ +l_anydata_sql varchar2(32767);- +
+ +begin- + 173 +
+ +self.data_type := ut_metadata.get_anydata_typename(a_value);- + 173 +
+ +self.compound_type := get_instance(a_value);- + 173 +
+ +self.is_data_null := ut_metadata.is_anytype_null(a_value,self.compound_type);- + 173 +
+ +self.data_id := sys_guid();- + 173 +
+ +self.self_type := $$plsql_unit;- + 173 +
+ +self.cursor_details := ut_cursor_details();- +
+ +- + 284 +
+ +ut_compound_data_helper.cleanup_diff;- +
+ +- + 173 +
+ +if not self.is_null() then- + 127 +
+ +self.extract_path := get_extract_path(a_value);- + 127 +
+ +l_anydata_sql := get_cursor_sql_from_anydata(a_value);- + 127 +
+ +execute immediate l_anydata_sql using in a_value, in out l_refcursor;- + 127 +
+ +if l_refcursor%isopen then- + 127 +
+ +self.extract_cursor(l_refcursor);- + 127 +
+ +l_cursor_number := dbms_sql.to_cursor_number(l_refcursor);- + 127 +
+ +self.cursor_details := ut_cursor_details(l_cursor_number);- + 127 +
+ +self.cursor_details.strip_root_from_anydata;- + 127 +
+ +dbms_sql.close_cursor(l_cursor_number);- +
+ +elsif not l_refcursor%isopen then- +
+ +raise cursor_not_open;- +
+ +end if;- +
+ +end if;- +
+ +exception- +
+ +when cursor_not_open then- +
+ +raise_application_error(-20155, 'Cursor is not open');- +
+ +when others then- +
+ +if l_refcursor%isopen then- +
+ +close l_refcursor;- +
+ +end if;- +
+ +raise;- +
+ +end;- +
+ +- +
+ +member function get_instance(a_data_value anydata) return varchar2 is- +
+ +l_result varchar2(30);- +
+ +begin- + 173 +
+ +l_result := ut_metadata.get_anydata_compound_type(a_data_value);- + 173 +
+ +if l_result not in ('object','collection') then- +
+ +raise_application_error(-20000, 'Data type '||a_data_value.gettypename||' in ANYDATA is not supported by utPLSQL');- +
+ +end if;- + 173 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +constructor function ut_data_value_anydata(self in out nocopy ut_data_value_anydata, a_value anydata) return self as result- +
+ +is- +
+ +begin- + 173 +
+ +init(a_value);- + 173 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(- +
+ +a_other ut_data_value,- +
+ +a_match_options ut_matcher_options,- +
+ +a_inclusion_compare boolean := false,- +
+ +a_is_negated boolean := false- +
+ +) return integer is- + 57 +
+ +l_result integer := 0;- +
+ +begin- + 57 +
+ +if not a_other is of (ut_data_value_anydata) then- +
+ +raise value_error;- +
+ +end if;- + 57 +
+ +l_result := l_result + (self as ut_data_value_refcursor).compare_implementation(a_other,a_match_options,a_inclusion_compare,a_is_negated);- + 57 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function is_empty return boolean is- +
+ +begin- + 10 +
+ +if self.compound_type = 'collection' then- + 6 +
+ +return self.elements_count = 0;- +
+ +else- + 4 +
+ +raise value_error;- +
+ +end if;- +
+ +end;- +
+end;+UT3.UT_DATA_VALUE_BLOB
100 % lines covered
15 relevant lines. 15 lines covered and 0 lines missed+ +
- +
+ +type body ut_data_value_blob as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_blob(self in out nocopy ut_data_value_blob, a_value blob) return self as result is- +
+ +begin- + 38 +
+ +self.data_value := a_value;- + 38 +
+ +self.self_type := $$plsql_unit;- + 38 +
+ +self.data_type := 'blob';- + 38 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 58 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function is_empty return boolean is- + 4 +
+ +l_result boolean := false;- +
+ +begin- + 4 +
+ +if self.data_value is not null and dbms_lob.compare( self.data_value, empty_blob()) = 0 then- + 2 +
+ +l_result := true;- +
+ +end if;- + 4 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 35 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_blob;- +
+ +begin- + 8 +
+ +if a_other is of (ut_data_value_blob) then- + 8 +
+ +l_other := treat(a_other as ut_data_value_blob);- + 8 +
+ +l_result := dbms_lob.compare( self.data_value, l_other.data_value);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function is_multi_line return boolean is- +
+ +begin- + 29 +
+ +return not self.is_null() and dbms_lob.getlength(self.data_value) > 100;- +
+ +end;- +
+end;+UT3.UT_DATA_VALUE_BOOLEAN
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_boolean as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_boolean(self in out nocopy ut_data_value_boolean, a_value boolean) return self as result is- +
+ +begin- + 42 +
+ +self.data_value := ut_utils.boolean_to_int(a_value);- + 42 +
+ +self.self_type := $$plsql_unit;- + 42 +
+ +self.data_type := 'boolean';- + 42 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 28 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 36 +
+ +return ut_utils.to_string(ut_utils.int_to_boolean(self.data_value));- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_other ut_data_value_boolean;- +
+ +l_result integer;- +
+ +begin- + 9 +
+ +if a_other is of (ut_data_value_boolean) then- + 9 +
+ +l_other := treat(a_other as ut_data_value_boolean);- + 9 +
+ +if self.data_value = l_other.data_value then- + 1 +
+ +l_result := 0;- + 8 +
+ +elsif self.data_value > l_other.data_value then- + 1 +
+ +l_result := 1;- + 7 +
+ +elsif self.data_value < l_other.data_value then- + 1 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 9 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_CLOB
100 % lines covered
15 relevant lines. 15 lines covered and 0 lines missed+ +
- +
+ +type body ut_data_value_clob as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_clob(self in out nocopy ut_data_value_clob, a_value clob) return self as result is- +
+ +begin- + 63 +
+ +self.data_value := a_value;- + 63 +
+ +self.self_type := $$plsql_unit;- + 63 +
+ +self.data_type := 'clob';- + 63 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 74 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function is_empty return boolean is- + 4 +
+ +l_result boolean := false;- +
+ +begin- + 4 +
+ +if self.data_value is not null and dbms_lob.compare( self.data_value, empty_clob()) = 0 then- + 2 +
+ +l_result := true;- +
+ +end if;- + 4 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 51 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_clob;- +
+ +begin- + 8 +
+ +if a_other is of (ut_data_value_clob) then- + 8 +
+ +l_other := treat(a_other as ut_data_value_clob);- + 8 +
+ +l_result := dbms_lob.compare( self.data_value, l_other.data_value);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function is_multi_line return boolean is- +
+ +begin- + 45 +
+ +return not self.is_null() and (dbms_lob.getlength(self.data_value) > 100 or dbms_lob.instr(self.data_value,chr(10)) > 0);- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_DATE
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_date as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_date(self in out nocopy ut_data_value_date, a_value date) return self as result is- +
+ +begin- + 86 +
+ +self.data_value := a_value;- + 86 +
+ +self.self_type := $$plsql_unit;- + 86 +
+ +self.data_type := 'date';- + 86 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 26 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 80 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_date;- +
+ +begin- + 40 +
+ +if a_other is of (ut_data_value_date) then- + 40 +
+ +l_other := treat(a_other as ut_data_value_date);- + 40 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 35 +
+ +elsif self.data_value > l_other.data_value then- + 15 +
+ +l_result := 1;- + 20 +
+ +elsif self.data_value < l_other.data_value then- + 8 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 40 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_DSINTERVAL
100 % lines covered
15 relevant lines. 15 lines covered and 0 lines missed+ +
- +
+ +type body ut_data_value_dsinterval as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_dsinterval(self in out nocopy ut_data_value_dsinterval, a_value dsinterval_unconstrained) return self as result is- +
+ +begin- + 76 +
+ +self.data_value := a_value;- + 76 +
+ +self.self_type := $$plsql_unit;- + 76 +
+ +self.data_type := 'interval day to second';- + 76 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 20 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 72 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_dsinterval;- +
+ +begin- + 40 +
+ +if a_other is of (ut_data_value_dsinterval) then- + 40 +
+ +l_other := treat(a_other as ut_data_value_dsinterval);- + 40 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 35 +
+ +elsif self.data_value > l_other.data_value then- + 16 +
+ +l_result := 1;- + 19 +
+ +elsif self.data_value < l_other.data_value then- + 7 +
+ +l_result := -1;- +
+ +end if;- +
+ +end if;- + 40 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_JSON
98.39 % lines covered
62 relevant lines. 61 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_json as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init (self in out nocopy ut_data_value_json, a_value json_element_t) is- +
+ +begin- + 33 +
+ +self.is_data_null := case when a_value is null then 1 else 0 end;- + 33 +
+ +self.data_value := case when a_value is null then null else a_value.to_clob end;- + 33 +
+ +self.self_type := $$plsql_unit;- + 33 +
+ +self.data_type := 'json';- + 33 +
+ +self.json_tree := ut_json_tree_details(a_value);- + 33 +
+ +self.data_id := sys_guid();- +
+ +end;- +
+ +- +
+ +constructor function ut_data_value_json(self in out nocopy ut_data_value_json, a_value json_element_t) return self as result is- +
+ +begin- + 33 +
+ +init(a_value);- + 33 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 38 +
+ +return (ut_utils.int_to_boolean(self.is_data_null));- +
+ +end;- +
+ +- +
+ +overriding member function is_empty return boolean is- +
+ +begin- + 4 +
+ +return self.data_value = '{}';- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 8 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function diff( a_other ut_data_value, a_match_options ut_matcher_options ) return varchar2 is- +
+ +l_result clob;- + 10 +
+ +l_results ut_utils.t_clob_tab := ut_utils.t_clob_tab();- +
+ +l_result_string varchar2(32767);- +
+ +l_other ut_data_value_json;- + 10 +
+ +l_self ut_data_value_json := self;- +
+ +l_diff_id ut_utils.t_hash;- + 10 +
+ +c_max_rows integer := ut_utils.gc_diff_max_rows;- +
+ +l_diffs ut_compound_data_helper.tt_json_diff_tab;- +
+ +l_message varchar2(32767);- +
+ +- +
+ +function get_diff_by_type(a_diff_id raw) return clob is- + 10 +
+ +l_diff_summary ut_compound_data_helper.tt_json_diff_type_tab := ut_compound_data_helper.get_json_diffs_type(a_diff_id);- + 10 +
+ +l_message_list ut_varchar2_list := ut_varchar2_list();- +
+ +begin- + 16 +
+ +for i in 1..l_diff_summary.count loop- + 6 +
+ +l_message_list.extend;- + 6 +
+ +l_message_list(l_message_list.last) := l_diff_summary(i).no_of_occurence||' '||l_diff_summary(i).difference_type;- +
+ +end loop;- + 10 +
+ +return ut_utils.table_to_clob(l_message_list,', ');- +
+ +end;- +
+ +- +
+ +function get_json_diff_text (a_json_diff ut_compound_data_helper.t_json_diff_rec) return clob is- +
+ +begin- + 41 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_json_diff.difference_type = ut_compound_data_helper.gc_json_missing- +
+ +then- + 1 +
+ +case- + 1 +
+ +when a_json_diff.act_element_name is not null then q'[ Missing property: ]'||a_json_diff.act_element_name- + 1 +
+ +when a_json_diff.exp_element_name is not null then q'[ Extra property: ]'||a_json_diff.exp_element_name- +
+ +end || ' on path: '||nvl(a_json_diff.act_parent_path,a_json_diff.exp_parent_path)- +
+ +else- + 1 +
+ +case- + 1 +
+ +when a_json_diff.difference_type = ut_compound_data_helper.gc_json_type- +
+ +then q'[ Actual type: ']'||a_json_diff.act_json_type||q'[' was expected to be: ']'||a_json_diff.exp_json_type||q'[']'- + 1 +
+ +when a_json_diff.difference_type = ut_compound_data_helper.gc_json_notequal- +
+ +then q'[ Actual value: ]'||a_json_diff.act_element_value||q'[ was expected to be: ]'||a_json_diff.exp_element_value- +
+ +end || ' on path: '||nvl(a_json_diff.act_access_path,a_json_diff.exp_access_path)- +
+ +end;- +
+ +end;- +
+ +- +
+ +begin- + 10 +
+ +if not a_other is of (ut_data_value_json) then- +
+ +raise value_error;- +
+ +end if;- + 10 +
+ +dbms_lob.createtemporary(l_result, true);- + 10 +
+ +l_other := treat(a_other as ut_data_value_json);- + 10 +
+ +l_diff_id := ut_utils.get_hash(self.data_id||l_other.data_id);- +
+ +- + 10 +
+ +if not l_self.is_null and not l_other.is_null then- + 10 +
+ +l_diffs := ut_compound_data_helper.get_json_diffs_tmp(l_diff_id);- +
+ +- + 10 +
+ +l_message := ' '||l_diffs.count|| ' differences found' ||- + 1 +
+ +case when l_diffs.count > c_max_rows then ', showing first '|| c_max_rows else null end||chr(10);- + 10 +
+ +ut_utils.append_to_clob( l_result, l_message );- + 10 +
+ +l_message := get_diff_by_type(l_diff_id)||chr(10);- + 10 +
+ +ut_utils.append_to_clob( l_result, l_message );- +
+ +- + 51 +
+ +for i in 1 .. least( c_max_rows, l_diffs.count ) loop- + 41 +
+ +l_results.extend;- + 41 +
+ +l_results(l_results.last) := get_json_diff_text(l_diffs(i));- +
+ +end loop;- + 10 +
+ +ut_utils.append_to_clob(l_result, l_results);- +
+ +- +
+ +end if;- +
+ +- + 10 +
+ +if l_result != empty_clob() then- + 10 +
+ +l_result_string := chr(10) || 'Diff:' || ut_utils.to_string(l_result,null);- +
+ +end if;- + 10 +
+ +dbms_lob.freetemporary(l_result);- + 10 +
+ +return l_result_string;- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- + 10 +
+ +l_self ut_data_value_json := self;- + 10 +
+ +l_other ut_data_value := a_other;- +
+ +begin- + 10 +
+ +return l_self.compare_implementation( l_other, null );- +
+ +end;- +
+ +- +
+ +member function compare_implementation(a_other in ut_data_value,a_match_options ut_matcher_options) return- +
+ +integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_json;- +
+ +l_diff_id ut_utils.t_hash;- +
+ +begin- + 10 +
+ +if a_other is of (ut_data_value_json) then- + 10 +
+ +l_other := treat(a_other as ut_data_value_json);- + 10 +
+ +l_diff_id := ut_utils.get_hash(self.data_id||l_other.data_id);- + 10 +
+ +l_result :=- + 1 +
+ +case- + 1 +
+ +when ut_compound_data_helper.insert_json_diffs(- +
+ +l_diff_id, self.json_tree.json_tree_info, l_other.json_tree.json_tree_info- +
+ +) > 0 then 1- +
+ +else 0- +
+ +end;- +
+ +end if;- + 10 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function get_elements_count return integer is- +
+ +begin- + 10 +
+ +return json_element_t.parse(self.data_value).get_size;- +
+ +end;- +
+ +- +
+ +member function get_json_count_info return varchar2 is- +
+ +begin- + 5 +
+ +return self.data_type||' [ count = '||self.get_elements_count||' ]';- +
+ +end;- +
+ +- +
+ +overriding member function get_object_info return varchar2 is- +
+ +begin- + 28 +
+ +return self.data_type;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_NUMBER
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_number as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_number(self in out nocopy ut_data_value_number, a_value number) return self as result is- +
+ +begin- + 237 +
+ +self.data_value := a_value;- + 237 +
+ +self.self_type := $$plsql_unit;- + 237 +
+ +self.data_type := 'number';- + 237 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 60 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 215 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_number;- +
+ +begin- + 104 +
+ +if a_other is of (ut_data_value_number) then- + 104 +
+ +l_other := treat(a_other as ut_data_value_number);- + 104 +
+ +if self.data_value = l_other.data_value then- + 54 +
+ +l_result := 0;- + 50 +
+ +elsif self.data_value > l_other.data_value then- + 29 +
+ +l_result := 1;- + 21 +
+ +elsif self.data_value < l_other.data_value then- + 9 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 104 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_REFCURSOR
93.57 % lines covered
171 relevant lines. 160 lines covered and 11 lines missed+ +
- +
+ +type body ut_data_value_refcursor as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_refcursor(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor)- +
+ +return self as result is- +
+ +begin- + 281 +
+ +init(a_value);- + 276 +
+ +return;- +
+ +end;- +
+ +- +
+ +member procedure extract_cursor(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor)- +
+ +is- + 397 +
+ +c_bulk_rows constant integer := 10000;- + 397 +
+ +l_cursor sys_refcursor := a_value;- +
+ +l_ctx number;- +
+ +l_xml xmltype;- + 397 +
+ +l_ut_owner varchar2(250) := ut_utils.ut_owner;- + 397 +
+ +l_set_id integer := 0;- + 397 +
+ +l_elements_count number := 0;- +
+ +begin- +
+ +-- We use DBMS_XMLGEN in order to:- +
+ +-- 1) be able to process data in bulks (set of rows)- +
+ +-- 2) be able to influence the ROWSET/ROW tags- +
+ +-- 3) be able to influence the way NULL values are handled (empty TAG)- +
+ +-- 4) be able to influence the way TIMESTAMP is formatted.- +
+ +-- Due to Oracle feature/bug, it is not possible to change the DATE formatting of cursor data- +
+ +-- AFTER the cursor was opened.- +
+ +-- The only solution for this is to change NLS settings before opening the cursor.- +
+ +--- +
+ +-- This would work fine if we could use DBMS_XMLGEN.restartQuery.- +
+ +-- The restartQuery fails however if PLSQL variables of TIMESTAMP/INTERVAL or CLOB/BLOB are used.- + 621 +
+ +ut_expectation_processor.set_xml_nls_params();- + 397 +
+ +l_ctx := dbms_xmlgen.newContext(l_cursor);- + 397 +
+ +dbms_xmlgen.setNullHandling(l_ctx, dbms_xmlgen.empty_tag);- + 397 +
+ +dbms_xmlgen.setMaxRows(l_ctx, c_bulk_rows);- + 760 +
+ +loop- + 760 +
+ +l_xml := dbms_xmlgen.getxmltype(l_ctx);- + 756 +
+ +exit when dbms_xmlgen.getNumRowsProcessed(l_ctx) = 0;- +
+ +--Bug in oracle 12.2+ where XML binary storage trimming insignificant whitespaces.- +
+ +$if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then- + 363 +
+ +l_xml := xmltype( replace(l_xml.getClobVal(),'<ROWSET','<ROWSET xml:space=''preserve'''));- +
+ +$else- +
+ +null;- +
+ +$end- + 363 +
+ +l_elements_count := l_elements_count + dbms_xmlgen.getNumRowsProcessed(l_ctx);- + 363 +
+ +ut_compound_data_helper.save_cursor_data_for_diff( self.data_id, l_set_id, l_xml );- + 363 +
+ +l_set_id := l_set_id + c_bulk_rows;- +
+ +end loop;- +
+ +- + 393 +
+ +ut_expectation_processor.reset_nls_params();- + 393 +
+ +dbms_xmlgen.closeContext(l_ctx);- + 393 +
+ +self.elements_count := l_elements_count;- +
+ +exception- + 8 +
+ +when others then- + 4 +
+ +ut_expectation_processor.reset_nls_params();- + 4 +
+ +dbms_xmlgen.closeContext(l_ctx);- + 4 +
+ +raise;- +
+ +end;- +
+ +- +
+ +member procedure init(self in out nocopy ut_data_value_refcursor, a_value sys_refcursor) is- + 281 +
+ +l_cursor sys_refcursor := a_value;- +
+ +cursor_not_open exception;- +
+ +l_cursor_number number;- +
+ +begin- + 281 +
+ +self.is_data_null := ut_utils.boolean_to_int(l_cursor is null);- + 281 +
+ +self.self_type := $$plsql_unit;- + 281 +
+ +self.data_id := sys_guid();- + 281 +
+ +self.data_type := 'refcursor';- + 281 +
+ +self.compound_type := 'refcursor';- + 281 +
+ +self.extract_path := '/*';- + 434 +
+ +ut_compound_data_helper.cleanup_diff;- + 281 +
+ +self.cursor_details := ut_cursor_details();- +
+ +- + 281 +
+ +if l_cursor is not null then- + 271 +
+ +if l_cursor%isopen then- +
+ +--Get some more info regarding cursor, including if it containts collection columns and what is their name- + 270 +
+ +extract_cursor(l_cursor);- + 266 +
+ +l_cursor_number := dbms_sql.to_cursor_number(l_cursor);- + 266 +
+ +self.cursor_details := ut_cursor_details(l_cursor_number);- + 266 +
+ +dbms_sql.close_cursor(l_cursor_number);- + 1 +
+ +elsif not l_cursor%isopen then- + 1 +
+ +raise cursor_not_open;- +
+ +end if;- +
+ +end if;- +
+ +exception- + 2 +
+ +when cursor_not_open then- + 1 +
+ +raise_application_error(-20155, 'Cursor is not open');- + 8 +
+ +when ut_utils.ex_xml_processing then- + 4 +
+ +if l_cursor%isopen then- + 4 +
+ +close l_cursor;- +
+ +end if;- + 4 +
+ +raise_application_error(ut_utils.gc_failed_open_cur,- +
+ +ut_compound_data_helper.create_err_cursor_msg(dbms_utility.format_call_stack()));- +
+ +when others then- +
+ +if l_cursor%isopen then- +
+ +close l_cursor;- +
+ +end if;- +
+ +raise;- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +l_result clob;- +
+ +l_result_string varchar2(32767);- +
+ +begin- + 71 +
+ +if not self.is_null() then- + 50 +
+ +dbms_lob.createtemporary(l_result, true);- + 50 +
+ +ut_utils.append_to_clob(l_result, 'Data-types:'||chr(10));- +
+ +- + 50 +
+ +if self.cursor_details.cursor_columns_info.count > 0 then- + 50 +
+ +ut_utils.append_to_clob( l_result, self.cursor_details.get_xml_children().getclobval() );- +
+ +end if;- + 50 +
+ +ut_utils.append_to_clob(l_result,chr(10)||(self as ut_compound_data_value).to_string());- + 50 +
+ +l_result_string := ut_utils.to_string(l_result,null);- + 50 +
+ +dbms_lob.freetemporary(l_result);- +
+ +end if;- + 71 +
+ +return l_result_string;- +
+ +end;- +
+ +- +
+ +overriding member function diff( a_other ut_data_value, a_match_options ut_matcher_options ) return varchar2 is- +
+ +l_result clob;- + 169 +
+ +l_results ut_utils.t_clob_tab := ut_utils.t_clob_tab();- +
+ +l_result_string varchar2(32767);- +
+ +l_other ut_data_value_refcursor;- + 169 +
+ +l_self ut_data_value_refcursor := self;- +
+ +l_column_diffs ut_compound_data_helper.tt_column_diffs;- +
+ +- +
+ +l_other_cols ut_cursor_column_tab;- +
+ +l_self_cols ut_cursor_column_tab;- +
+ +- + 169 +
+ +l_act_missing_pk ut_varchar2_list := ut_varchar2_list();- + 169 +
+ +l_exp_missing_pk ut_varchar2_list := ut_varchar2_list();- +
+ +- + 169 +
+ +c_max_rows integer := ut_utils.gc_diff_max_rows;- +
+ +l_diff_id ut_utils.t_hash;- +
+ +l_diff_row_count integer;- +
+ +l_row_diffs ut_compound_data_helper.tt_row_diffs;- +
+ +l_message varchar2(32767);- +
+ +- +
+ +function get_col_diff_text(a_col ut_compound_data_helper.t_column_diffs) return varchar2 is- +
+ +begin- + 27 +
+ +return- + 1 +
+ +case a_col.diff_type- + 1 +
+ +when '-' then- +
+ +' Column <'||a_col.expected_name||'> [data-type: '||a_col.expected_type||'] is missing. Expected column position: '||a_col.expected_pos||'.'- + 1 +
+ +when '+' then- +
+ +' Column <'||a_col.actual_name||'> [position: '||a_col.actual_pos||', data-type: '||a_col.actual_type||'] is not expected in results.'- + 1 +
+ +when 't' then- +
+ +' Column <'||a_col.actual_name||'> data-type is invalid. Expected: '||a_col.expected_type||',' ||' actual: '||a_col.actual_type||'.'- + 1 +
+ +when 'p' then- +
+ +' Column <'||a_col.actual_name||'> is misplaced. Expected position: '||a_col.expected_pos||',' ||' actual position: '||a_col.actual_pos||'.'- +
+ +end;- +
+ +end;- +
+ +- +
+ +function remove_incomparable_cols(- +
+ +a_cursor_details ut_cursor_column_tab, a_column_diffs ut_compound_data_helper.tt_column_diffs- +
+ +) return ut_cursor_column_tab is- + 24 +
+ +l_missing_cols ut_varchar2_list := ut_varchar2_list();- +
+ +l_result ut_cursor_column_tab;- +
+ +begin- + 78 +
+ +for i in 1 .. a_column_diffs.count loop- + 54 +
+ +if a_column_diffs(i).diff_type in ('-','+') then- + 36 +
+ +l_missing_cols.extend;- + 36 +
+ +l_missing_cols(l_missing_cols.last) := coalesce(a_column_diffs(i).expected_name, a_column_diffs(i).actual_name);- +
+ +end if;- +
+ +end loop;- + 24 +
+ +select value(i) bulk collect into l_result- +
+ +from table(a_cursor_details) i- +
+ +where i.access_path not in (- +
+ +select c.column_value- +
+ +from table(l_missing_cols) c- +
+ +);- + 24 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_diff_message (a_row_diff ut_compound_data_helper.t_row_diffs, a_is_unordered boolean) return varchar2 is- +
+ +begin- + 224 +
+ +if a_is_unordered then- + 68 +
+ +if a_row_diff.pk_value is not null then- + 42 +
+ +return ' PK '||a_row_diff.pk_value||' - '||rpad(a_row_diff.diff_type,10)||a_row_diff.diffed_row;- +
+ +else- + 26 +
+ +return rpad(a_row_diff.diff_type,10)||a_row_diff.diffed_row;- +
+ +end if;- +
+ +else- + 156 +
+ +return ' Row No. '||a_row_diff.rn||' - '||rpad(a_row_diff.diff_type,10)||a_row_diff.diffed_row;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +begin- + 169 +
+ +if not a_other is of (ut_data_value_refcursor) then- +
+ +raise value_error;- +
+ +end if;- + 169 +
+ +l_other := treat(a_other as ut_data_value_refcursor);- + 169 +
+ +l_other.cursor_details.filter_columns(a_match_options);- + 169 +
+ +l_self.cursor_details.filter_columns(a_match_options);- +
+ +- + 169 +
+ +l_other_cols := l_other.cursor_details.cursor_columns_info;- + 169 +
+ +l_self_cols := l_self.cursor_details.cursor_columns_info;- +
+ +- + 169 +
+ +dbms_lob.createtemporary(l_result,true);- +
+ +--diff columns- + 169 +
+ +if not l_self.is_null and not l_other.is_null then- + 158 +
+ +l_column_diffs := ut_compound_data_helper.get_columns_diff(- +
+ +l_self.cursor_details.cursor_columns_info,- +
+ +l_other.cursor_details.cursor_columns_info,- +
+ +a_match_options.ordered_columns()- +
+ +);- +
+ +- + 158 +
+ +if l_column_diffs is not empty then- + 12 +
+ +ut_utils.append_to_clob(l_result,chr(10) || 'Columns:' || chr(10));- + 12 +
+ +l_other_cols := remove_incomparable_cols( l_other_cols, l_column_diffs );- + 12 +
+ +l_self_cols := remove_incomparable_cols( l_self_cols, l_column_diffs );- + 39 +
+ +for i in 1 .. l_column_diffs.count loop- + 27 +
+ +l_results.extend;- + 27 +
+ +l_results(l_results.last) := get_col_diff_text(l_column_diffs(i));- +
+ +end loop;- + 12 +
+ +ut_utils.append_to_clob(l_result, l_results);- +
+ +end if;- +
+ +end if;- +
+ +- +
+ +--check for missing pk- + 169 +
+ +if a_match_options.join_by.items.count > 0 then- + 39 +
+ +l_act_missing_pk := l_other.cursor_details.get_missing_join_by_columns( a_match_options.join_by.items );- + 39 +
+ +l_exp_missing_pk := l_self.cursor_details.get_missing_join_by_columns( a_match_options.join_by.items );- +
+ +end if;- +
+ +- +
+ +--diff rows and row elements if the pk is not missing- + 169 +
+ +if l_act_missing_pk.count + l_exp_missing_pk.count = 0 then- + 161 +
+ +l_diff_id := ut_utils.get_hash( l_self.data_id || l_other.data_id );- +
+ +- +
+ +-- First tell how many rows are different- + 161 +
+ +l_diff_row_count := ut_compound_data_helper.get_rows_diff_count;- + 161 +
+ +if l_diff_row_count > 0 then- + 55 +
+ +l_row_diffs := ut_compound_data_helper.get_rows_diff_by_sql(- +
+ +l_self_cols, l_other_cols, l_self.data_id, l_other.data_id,- +
+ +l_diff_id,- + 1 +
+ +case- + 1 +
+ +when- +
+ +l_self.cursor_details.is_anydata = 1 then ut_utils.add_prefix(a_match_options.join_by.items, l_self.cursor_details.get_root)- +
+ +else- +
+ +a_match_options.join_by.items- +
+ +end,- +
+ +a_match_options.unordered,a_match_options.ordered_columns(), self.extract_path- +
+ +);- + 55 +
+ +l_message := chr(10)- +
+ +||'Rows: [ ' || l_diff_row_count ||' differences'- + 1 +
+ +|| case when l_diff_row_count > c_max_rows and l_row_diffs.count > 0 then ', showing first '||c_max_rows end- + 1 +
+ +||' ]'||chr(10)|| case when l_row_diffs.count = 0 then ' All rows are different as the columns are not matching.' else null end;- + 55 +
+ +ut_utils.append_to_clob( l_result, l_message );- + 55 +
+ +l_results := ut_utils.t_clob_tab();- + 279 +
+ +for i in 1 .. l_row_diffs.count loop- + 224 +
+ +l_results.extend;- + 224 +
+ +l_results(l_results.last) := get_diff_message(l_row_diffs(i),a_match_options.unordered);- +
+ +end loop;- + 55 +
+ +ut_utils.append_to_clob(l_result,l_results);- + 106 +
+ +elsif l_column_diffs is not empty then- + 4 +
+ +l_message:= chr(10)||'Rows: [ all different ]'||chr(10)||' All rows are different as the columns position is not matching.';- + 4 +
+ +ut_utils.append_to_clob( l_result, l_message );- +
+ +end if;- +
+ +else- + 8 +
+ +ut_utils.append_to_clob(l_result,chr(10) || 'Unable to join sets:' || chr(10));- +
+ +- + 16 +
+ +for i in 1 .. l_exp_missing_pk.count loop- + 8 +
+ +ut_utils.append_to_clob(l_result, ' Join key '||l_exp_missing_pk(i)||' does not exists in expected'||chr(10));- +
+ +end loop;- +
+ +- + 16 +
+ +for i in 1 .. l_act_missing_pk.count loop- + 8 +
+ +ut_utils.append_to_clob(l_result, ' Join key '||l_act_missing_pk(i)||' does not exists in actual'||chr(10));- +
+ +end loop;- +
+ +- + 8 +
+ +if l_self.cursor_details.contains_collection() or l_other.cursor_details.contains_collection() then- + 1 +
+ +ut_utils.append_to_clob(l_result,' Please make sure that your join clause is not refferring to collection element'|| chr(10));- +
+ +end if;- +
+ +- +
+ +end if;- + 169 +
+ +if l_result != empty_clob() then- + 67 +
+ +l_result_string := chr(10) || 'Diff:' || ut_utils.to_string(l_result,null);- +
+ +end if;- + 169 +
+ +dbms_lob.freetemporary(l_result);- + 169 +
+ +return l_result_string;- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +begin- +
+ +return compare_implementation( a_other, null );- +
+ +end;- +
+ +- +
+ +member function compare_implementation(- +
+ +a_other ut_data_value,- +
+ +a_match_options ut_matcher_options,- +
+ +a_inclusion_compare boolean := false,- +
+ +a_is_negated boolean := false- +
+ +) return integer is- + 181 +
+ +l_result integer := 0;- + 181 +
+ +l_self ut_data_value_refcursor := self;- +
+ +l_other ut_data_value_refcursor;- +
+ +l_diff_cursor_text clob;- +
+ +- +
+ +function compare_data(- +
+ +a_self ut_data_value_refcursor,- +
+ +a_other ut_data_value_refcursor,- +
+ +a_diff_cursor_text clob- +
+ +) return integer is- +
+ +l_diff_id ut_utils.t_hash;- +
+ +l_result integer;- +
+ +--We will start with number od differences being displayed.- +
+ +l_cursor sys_refcursor;- +
+ +l_diff_tab ut_compound_data_helper.t_diff_tab;- + 173 +
+ +l_diif_rowcount integer :=0;- +
+ +begin- + 173 +
+ +l_diff_id := ut_utils.get_hash(a_self.data_id||a_other.data_id);- +
+ +- +
+ +begin- + 173 +
+ +l_cursor := ut_compound_data_helper.get_compare_cursor(a_diff_cursor_text,- +
+ +a_self.data_id, a_other.data_id);- +
+ +--fetch and save rows for display of diff- + 173 +
+ +fetch l_cursor bulk collect into l_diff_tab limit ut_utils.gc_diff_max_rows;- +
+ +exception when others then- +
+ +if l_cursor%isopen then- +
+ +close l_cursor;- +
+ +end if;- +
+ +raise;- +
+ +end;- +
+ +- + 173 +
+ +ut_compound_data_helper.insert_diffs_result( l_diff_tab, l_diff_id );- +
+ +--fetch rows for count only- + 233 +
+ +loop- + 233 +
+ +exit when l_diff_tab.count = 0;- + 60 +
+ +l_diif_rowcount := l_diif_rowcount + l_diff_tab.count;- + 60 +
+ +fetch l_cursor bulk collect into l_diff_tab limit ut_utils.gc_bc_fetch_limit;- +
+ +end loop;- +
+ +- + 173 +
+ +ut_compound_data_helper.set_rows_diff(l_diif_rowcount);- +
+ +- +
+ +--result is OK only if both are same- + 173 +
+ +if l_diif_rowcount = 0 and a_self.is_null = a_other.is_null then- + 113 +
+ +l_result := 0;- +
+ +else- + 60 +
+ +l_result := 1;- +
+ +end if;- + 173 +
+ +close l_cursor;- + 173 +
+ +return l_result;- +
+ +end;- +
+ +begin- + 181 +
+ +if not a_other is of (ut_data_value_refcursor) then- +
+ +raise value_error;- +
+ +end if;- +
+ +- + 181 +
+ +l_other := treat(a_other as ut_data_value_refcursor);- + 181 +
+ +l_other.cursor_details.filter_columns( a_match_options );- + 181 +
+ +l_self.cursor_details.filter_columns( a_match_options );- +
+ +- + 181 +
+ +if a_match_options.join_by.items.count > 0 then- + 42 +
+ +l_result :=- +
+ +l_self.cursor_details.get_missing_join_by_columns( a_match_options.join_by.items ).count- +
+ ++ l_other.cursor_details.get_missing_join_by_columns( a_match_options.join_by.items ).count;- +
+ +end if;- +
+ +- + 181 +
+ +if l_result = 0 then- + 173 +
+ +if not l_self.is_null() and not l_other.is_null() and not l_self.cursor_details.equals( l_other.cursor_details, a_match_options ) then- + 10 +
+ +l_result := 1;- +
+ +end if;- + 173 +
+ +l_diff_cursor_text := ut_compound_data_helper.gen_compare_sql(- +
+ +l_other,- +
+ +a_match_options.join_by.items,- +
+ +a_match_options.unordered(),- +
+ +a_inclusion_compare,- +
+ +a_is_negated- +
+ +);- + 173 +
+ +l_result := l_result + compare_data( l_self, l_other, l_diff_cursor_text );- +
+ +end if;- + 181 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function is_empty return boolean is- +
+ +begin- + 11 +
+ +return self.elements_count = 0;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_TIMESTAMP
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_timestamp as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_timestamp(self in out nocopy ut_data_value_timestamp, a_value timestamp_unconstrained) return self as result is- +
+ +begin- + 92 +
+ +self.data_value := a_value;- + 92 +
+ +self.self_type := $$plsql_unit;- + 92 +
+ +self.data_type := 'timestamp';- + 92 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 26 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 86 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_timestamp;- +
+ +begin- + 44 +
+ +if a_other is of (ut_data_value_timestamp) then- + 44 +
+ +l_other := treat(a_other as ut_data_value_timestamp);- + 44 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 39 +
+ +elsif self.data_value > l_other.data_value then- + 18 +
+ +l_result := 1;- + 21 +
+ +elsif self.data_value < l_other.data_value then- + 9 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 44 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_TIMESTAMP_LTZ
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_timestamp_ltz as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_timestamp_ltz(self in out nocopy ut_data_value_timestamp_ltz, a_value timestamp_ltz_unconstrained) return self as result is- +
+ +begin- + 92 +
+ +self.data_value := a_value;- + 92 +
+ +self.self_type := $$plsql_unit;- + 92 +
+ +self.data_type := 'timestamp with local time zone';- + 92 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 26 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 86 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_timestamp_ltz;- +
+ +begin- + 44 +
+ +if a_other is of (ut_data_value_timestamp_ltz) then- + 44 +
+ +l_other := treat(a_other as ut_data_value_timestamp_ltz);- + 44 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 39 +
+ +elsif self.data_value > l_other.data_value then- + 18 +
+ +l_result := 1;- + 21 +
+ +elsif self.data_value < l_other.data_value then- + 9 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 44 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_TIMESTAMP_TZ
93.75 % lines covered
16 relevant lines. 15 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_timestamp_tz as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_timestamp_tz(self in out nocopy ut_data_value_timestamp_tz, a_value timestamp_tz_unconstrained) return self as result is- +
+ +begin- + 88 +
+ +self.data_value := a_value;- + 88 +
+ +self.self_type := $$plsql_unit;- + 88 +
+ +self.data_type := 'timestamp with time zone';- + 88 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 26 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 86 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_timestamp_tz;- +
+ +begin- + 44 +
+ +if a_other is of (ut_data_value_timestamp_tz) then- + 44 +
+ +l_other := treat(a_other as ut_data_value_timestamp_tz);- + 44 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 39 +
+ +elsif self.data_value > l_other.data_value then- + 18 +
+ +l_result := 1;- + 21 +
+ +elsif self.data_value < l_other.data_value then- + 9 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 44 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_VARCHAR2
94.12 % lines covered
17 relevant lines. 16 lines covered and 1 lines missed+ +
- +
+ +type body ut_data_value_varchar2 as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_varchar2(self in out nocopy ut_data_value_varchar2, a_value varchar2) return self as result is- +
+ +begin- + 361 +
+ +self.data_value := a_value;- + 361 +
+ +self.self_type := $$plsql_unit;- + 361 +
+ +self.data_type := 'varchar2';- + 361 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 174 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 127 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_varchar2;- +
+ +begin- + 37 +
+ +if a_other is of (ut_data_value_varchar2) then- + 37 +
+ +l_other := treat(a_other as ut_data_value_varchar2);- + 37 +
+ +if self.data_value = l_other.data_value then- + 3 +
+ +l_result := 0;- + 34 +
+ +elsif self.data_value > l_other.data_value then- + 16 +
+ +l_result := 1;- + 18 +
+ +elsif self.data_value < l_other.data_value then- + 6 +
+ +l_result := -1;- +
+ +end if;- +
+ +else- +
+ +raise value_error;- +
+ +end if;- + 37 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function is_multi_line return boolean is- +
+ +begin- + 122 +
+ +return not self.is_null() and (length(self.data_value) > 100 or instr(self.data_value,chr(10)) > 0);- +
+ +end;- +
+ +- +
+end;+UT3.UT_DATA_VALUE_YMINTERVAL
100 % lines covered
15 relevant lines. 15 lines covered and 0 lines missed+ +
- +
+ +type body ut_data_value_yminterval as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_data_value_yminterval(self in out nocopy ut_data_value_yminterval, a_value yminterval_unconstrained) return self as result is- +
+ +begin- + 76 +
+ +self.data_value := a_value;- + 76 +
+ +self.self_type := $$plsql_unit;- + 76 +
+ +self.data_type := 'interval year to month';- + 76 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function is_null return boolean is- +
+ +begin- + 20 +
+ +return (self.data_value is null);- +
+ +end;- +
+ +- +
+ +overriding member function to_string return varchar2 is- +
+ +begin- + 72 +
+ +return ut_utils.to_string(self.data_value);- +
+ +end;- +
+ +- +
+ +overriding member function compare_implementation(a_other ut_data_value) return integer is- +
+ +l_result integer;- +
+ +l_other ut_data_value_yminterval;- +
+ +begin- + 40 +
+ +if a_other is of (ut_data_value_yminterval) then- + 40 +
+ +l_other := treat(a_other as ut_data_value_yminterval);- + 40 +
+ +if self.data_value = l_other.data_value then- + 5 +
+ +l_result := 0;- + 35 +
+ +elsif self.data_value > l_other.data_value then- + 16 +
+ +l_result := 1;- + 19 +
+ +elsif self.data_value < l_other.data_value then- + 7 +
+ +l_result := -1;- +
+ +end if;- +
+ +end if;- + 40 +
+ +return l_result;- +
+ +end;- +
+end;+UT3.UT_JSON_LEAF
100 % lines covered
12 relevant lines. 12 lines covered and 0 lines missed+ +
- +
+ +type body ut_json_leaf as- +
+ +- +
+ +member procedure init( self in out nocopy ut_json_leaf,- +
+ +a_element_name varchar2, a_element_value varchar2,a_parent_name varchar2,- +
+ +a_access_path varchar2, a_hierarchy_level integer, a_index_position integer, a_json_type in varchar2,- +
+ +a_parent_type varchar2, a_array_element integer:=0, a_parent_path varchar2) is- +
+ +begin- + 1654 +
+ +self.element_name := a_element_name;- + 1654 +
+ +self.element_value := a_element_value;- + 1654 +
+ +self.parent_name := a_parent_name;- + 1654 +
+ +self.hierarchy_level := a_hierarchy_level;- + 1654 +
+ +self.access_path := a_access_path;- + 1654 +
+ +self.index_position := a_index_position;- + 1654 +
+ +self.json_type := a_json_type;- + 1654 +
+ +self.is_array_element := a_array_element;- + 1654 +
+ +self.parent_type := a_parent_type;- + 1654 +
+ +self.parent_path := a_parent_path;- +
+ +end;- +
+ +- +
+ +constructor function ut_json_leaf( self in out nocopy ut_json_leaf,- +
+ +a_element_name varchar2, a_element_value varchar2,a_parent_name varchar2,- +
+ +a_access_path varchar2, a_hierarchy_level integer, a_index_position integer, a_json_type in varchar2,- +
+ +a_parent_type varchar2, a_array_element integer:=0, a_parent_path varchar2)- +
+ +return self as result is- +
+ +begin- + 1654 +
+ +init(a_element_name,a_element_value,a_parent_name, a_access_path, a_hierarchy_level, a_index_position,- +
+ +a_json_type,a_parent_type,a_array_element, a_parent_path);- + 1654 +
+ +return;- +
+ +end;- +
+ +- +
+end;+UT3.UT_JSON_TREE_DETAILS
93.94 % lines covered
66 relevant lines. 62 lines covered (including 6 lines partially covered ) and 4 lines missed+ +
- +
+ +type body ut_json_tree_details as- +
+ +- +
+ +member function get_json_type(a_json_piece json_element_t) return varchar2 is- +
+ +begin- + 1654 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_json_piece.is_object then 'object'- + 1 +
+ +when a_json_piece.is_array then 'array'- + 1 +
+ +when a_json_piece.is_string then 'string'- + 1 +
+ +when a_json_piece.is_number then 'number'- + 1 +
+ +when a_json_piece.is_boolean then 'boolean'- + 1 +
+ +when a_json_piece.is_true then 'true'- + 1 +
+ +when a_json_piece.is_false then 'false'- + 1 +
+ +when a_json_piece.is_null then 'null'- +
+ +when a_json_piece.is_date then 'date'- +
+ +when a_json_piece.is_timestamp then 'timestamp'- +
+ +when a_json_piece.is_scalar then 'scalar'- +
+ +else null- +
+ +end;- +
+ +end;- +
+ +- +
+ +member function get_json_value(a_json_piece json_element_t, a_key varchar2) return varchar2 is- +
+ +l_json_el json_element_t;- +
+ +l_val varchar2(4000);- +
+ +begin- + 1148 +
+ +l_json_el := treat(a_json_piece as json_object_t).get(a_key);- + 1148 +
+ +case- + 1855 +
+ +when l_json_el.is_string then l_val := ut_utils.to_string(l_json_el.to_string(),null);- + 700 +
+ +when l_json_el.is_number then l_val := ut_utils.to_string(l_json_el.to_number());- + 232 +
+ +when l_json_el.is_boolean then l_val := ut_utils.to_string(l_json_el.to_boolean());- +
+ +-- when l_json_el.is_true then l_val := ut_utils.to_string(l_json_el.to_boolean());- +
+ +-- when l_json_el.is_false then l_val := ut_utils.to_string(l_json_el.to_boolean());- + 1/2 + 132 +
+ +when l_json_el.is_date then l_val := ut_utils.to_string(l_json_el.to_date());- + 1/2 + 132 +
+ +when l_json_el.is_timestamp then l_val := ut_utils.to_string(l_json_el.to_date());- + 132 +
+ +else null;- +
+ +end case;- + 1148 +
+ +return l_val;- +
+ +end;- +
+ +- +
+ +member function get_json_value(a_json_piece json_element_t, a_key integer) return varchar2 is- +
+ +l_json_el json_element_t;- +
+ +l_val varchar2(4000);- +
+ +begin- + 506 +
+ +l_json_el := treat(a_json_piece as json_array_t).get(a_key);- + 506 +
+ +case- + 860 +
+ +when l_json_el.is_string then l_val := ut_utils.to_string(l_json_el.to_string(),null);- + 1/2 + 152 +
+ +when l_json_el.is_number then l_val := ut_utils.to_string(l_json_el.to_number());- + 1/2 + 152 +
+ +when l_json_el.is_boolean then l_val := ut_utils.to_string(l_json_el.to_boolean());- +
+ +-- when l_json_el.is_true then l_val := ut_utils.to_string(l_json_el.to_boolean());- +
+ +-- when l_json_el.is_false then l_val := ut_utils.to_string(l_json_el.to_boolean());- + 1/2 + 152 +
+ +when l_json_el.is_date then l_val := ut_utils.to_string(l_json_el.to_date());- + 1/2 + 152 +
+ +when l_json_el.is_timestamp then l_val := ut_utils.to_string(l_json_el.to_date());- + 152 +
+ +else null;- +
+ +end case;- + 506 +
+ +return l_val;- +
+ +end;- +
+ +- +
+ +member procedure add_json_leaf(- +
+ +self in out nocopy ut_json_tree_details,- +
+ +a_element_name varchar2,- +
+ +a_element_value varchar2,- +
+ +a_parent_name varchar2,- +
+ +a_access_path varchar2,- +
+ +a_hierarchy_level integer,- +
+ +a_index_position integer,- +
+ +a_json_type varchar2,- +
+ +a_parent_type varchar2,- +
+ +a_array_element integer := 0,- +
+ +a_parent_path varchar2- +
+ +) is- +
+ +begin- + 1654 +
+ +self.json_tree_info.extend;- + 1654 +
+ +self.json_tree_info(self.json_tree_info.last) :=- +
+ +ut_json_leaf(- +
+ +a_element_name, a_element_value, a_parent_name, a_access_path,- +
+ +a_hierarchy_level, a_index_position,a_json_type, a_parent_type,- +
+ +a_array_element, a_parent_path- +
+ +);- +
+ +end;- +
+ +- +
+ +member procedure traverse_object(- +
+ +self in out nocopy ut_json_tree_details,- +
+ +a_json_piece json_element_t,- +
+ +a_parent_name varchar2 := null,- +
+ +a_hierarchy_level integer := 1,- +
+ +a_access_path varchar2 := '$'- +
+ +) as- +
+ +l_keys json_key_list;- + 187 +
+ +l_object json_object_t := treat(a_json_piece as json_object_t);- +
+ +l_path varchar2(32767);- +
+ +l_type varchar2(50);- +
+ +l_name varchar2(4000);- +
+ +begin- + 187 +
+ +l_keys := coalesce(l_object.get_keys,json_key_list());- +
+ +- + 1335 +
+ +for i in 1 .. l_keys.count loop- + 1148 +
+ +l_type := get_json_type(l_object.get(l_keys(i)));- + 1148 +
+ +l_name := '"'||l_keys(i)||'"';- + 1148 +
+ +l_path := a_access_path||'.'||l_name;- +
+ +- + 1148 +
+ +add_json_leaf(- +
+ +l_name,- +
+ +get_json_value(l_object,l_keys(i)),- +
+ +a_parent_name,- +
+ +l_path,- +
+ +a_hierarchy_level,- +
+ +i,- +
+ +l_type,- +
+ +'object',- +
+ +0,- +
+ +a_access_path- +
+ +);- + 1148 +
+ +case l_type- + 1148 +
+ +when 'array' then- + 112 +
+ +traverse_array (- +
+ +treat (l_object.get (l_keys(i)) as json_array_t),- +
+ +l_name,- +
+ +a_hierarchy_level + 1,- +
+ +l_path- +
+ +);- + 1036 +
+ +when 'object' then- + 17 +
+ +traverse_object(- +
+ +treat (l_object.get (l_keys(i)) as json_object_t),- +
+ +l_name,- +
+ +a_hierarchy_level+1,- +
+ +l_path- +
+ +);- +
+ +else- + 1019 +
+ +null;- +
+ +end case;- +
+ +end loop;- +
+ +end traverse_object;- +
+ +- +
+ +member procedure traverse_array(- +
+ +self in out nocopy ut_json_tree_details,- +
+ +a_json_piece json_element_t,- +
+ +a_parent_name varchar2 := null,- +
+ +a_hierarchy_level integer := 1,- +
+ +a_access_path varchar2 := '$'- +
+ +) as- +
+ +l_array json_array_t;- +
+ +l_type varchar2(50);- +
+ +l_name varchar2(4000);- +
+ +l_path varchar2(32767);- +
+ +begin- + 125 +
+ +l_array := treat(a_json_piece as json_array_t);- +
+ +- + 631 +
+ +for i in 0 .. l_array.get_size - 1 loop- + 506 +
+ +l_type := get_json_type(l_array.get(i));- + 506 +
+ +l_name := case when l_type = 'object' then l_type else l_array.get(i).stringify end;- + 506 +
+ +l_path := a_access_path||'['||i||']';- +
+ +- + 506 +
+ +add_json_leaf(- +
+ +l_name,- +
+ +get_json_value(a_json_piece,i),- +
+ +a_parent_name,- +
+ +l_path,- +
+ +a_hierarchy_level,- +
+ +i,- +
+ +l_type,- +
+ +'array',- +
+ +1,- +
+ +l_path- +
+ +);- + 506 +
+ +case l_type- + 506 +
+ +when 'array' then- +
+ +traverse_array (- +
+ +treat (l_array.get (i) as json_array_t),- +
+ +l_name,- +
+ +a_hierarchy_level + 1,- +
+ +l_path- +
+ +);- + 506 +
+ +when 'object' then- + 152 +
+ +traverse_object(- +
+ +treat (l_array.get (i) as json_object_t),- +
+ +l_name,- +
+ +a_hierarchy_level + 1,- +
+ +l_path- +
+ +);- +
+ +else- + 354 +
+ +null;- +
+ +end case;- +
+ +end loop;- +
+ +end traverse_array;- +
+ +- +
+ +member procedure init(self in out nocopy ut_json_tree_details,a_json_doc in json_element_t, a_level_in integer := 0) is- +
+ +begin- + 31 +
+ +if a_json_doc.is_object then- + 18 +
+ +traverse_object(treat (a_json_doc as json_object_t));- + 13 +
+ +elsif a_json_doc.is_array then- + 13 +
+ +traverse_array(treat (a_json_doc as json_array_t));- +
+ +end if;- +
+ +end;- +
+ +- +
+ +constructor function ut_json_tree_details(- +
+ +self in out nocopy ut_json_tree_details, a_json_doc in json_element_t, a_level_in integer := 0- +
+ +) return self as result is- +
+ +begin- + 33 +
+ +self.json_tree_info := ut_json_leaf_tab();- + 33 +
+ +if a_json_doc is not null then- + 31 +
+ +init(a_json_doc,a_level_in);- +
+ +end if;- + 33 +
+ +return;- +
+ +end;- +
+ +- +
+end;+UT3.UT_KEY_ANYVALUES
42.11 % lines covered
19 relevant lines. 8 lines covered and 11 lines missed+ +
- +
+ +type body ut_key_anyvalues as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +constructor function ut_key_anyvalues(self in out nocopy ut_key_anyvalues) return self as result is- +
+ +begin- + 225 +
+ +self.self_type := $$plsql_unit;- + 225 +
+ +self.pairs := ut_key_anyval_pairs();- + 225 +
+ +return;- +
+ +end;- +
+ +member function put(a_item ut_key_anyval_pair) return ut_key_anyvalues is- + 225 +
+ +l_result ut_key_anyvalues := self;- +
+ +begin- + 225 +
+ +l_result.pairs.extend();- + 225 +
+ +l_result.pairs(l_result.pairs.last) := a_item;- + 225 +
+ +return l_result;- +
+ +end;- +
+ +member function put(a_key varchar2, a_value anydata) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_anydata(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value blob) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_blob(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value boolean) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_boolean(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value clob) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_clob(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value date) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_date(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value number) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_number(a_value)));- +
+ +end;- +
+ +member function put(a_key varchar2, a_value timestamp_unconstrained) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_timestamp(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value timestamp_ltz_unconstrained) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_timestamp_ltz(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value timestamp_tz_unconstrained) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_timestamp_tz(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value varchar2) return ut_key_anyvalues is- +
+ +begin- + 225 +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_varchar2(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value yminterval_unconstrained) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_yminterval(a_value)));- +
+ +end;- +
+ +- +
+ +member function put(a_key varchar2, a_value dsinterval_unconstrained) return ut_key_anyvalues is- +
+ +begin- +
+ +return put(ut_key_anyval_pair(a_key, ut_data_value_dsinterval(a_value)));- +
+ +end;- +
+end;+UT3.UT_BE_BETWEEN
100 % lines covered
28 relevant lines. 28 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_between is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_between, a_lower_bound ut_data_value, a_upper_bound ut_data_value) is- +
+ +begin- + 71 +
+ +self.self_type := $$plsql_unit;- + 71 +
+ +self.lower_bound := a_lower_bound;- + 71 +
+ +self.upper_bound := a_upper_bound;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound date, a_upper_bound date)- +
+ +return self as result is- +
+ +begin- + 8 +
+ +init(ut_data_value_date(a_lower_bound), ut_data_value_date(a_upper_bound));- + 8 +
+ +return;- +
+ +end;- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound number, a_upper_bound number)- +
+ +return self as result is- +
+ +begin- + 8 +
+ +init(ut_data_value_number(a_lower_bound), ut_data_value_number(a_upper_bound));- + 8 +
+ +return;- +
+ +end;- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound varchar2, a_upper_bound varchar2)- +
+ +return self as result is- +
+ +begin- + 9 +
+ +init(ut_data_value_varchar2(a_lower_bound), ut_data_value_varchar2(a_upper_bound));- + 9 +
+ +return;- +
+ +end;- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)- +
+ +return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_timestamp(a_lower_bound), ut_data_value_timestamp(a_upper_bound));- + 10 +
+ +return;- +
+ +end;- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)- +
+ +return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_timestamp_tz(a_lower_bound), ut_data_value_timestamp_tz(a_upper_bound));- + 10 +
+ +return;- +
+ +end;- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)- +
+ +return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_timestamp_ltz(a_lower_bound), ut_data_value_timestamp_ltz(a_upper_bound));- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained)- +
+ +return self as result is- +
+ +begin- + 8 +
+ +init(ut_data_value_yminterval(a_lower_bound), ut_data_value_yminterval(a_upper_bound));- + 8 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_between(self in out nocopy ut_be_between, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)- +
+ +return self as result is- +
+ +begin- + 8 +
+ +init(ut_data_value_dsinterval(a_lower_bound), ut_data_value_dsinterval(a_upper_bound));- + 8 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_between, a_actual ut_data_value) return boolean is- +
+ +l_lower_result boolean;- +
+ +l_upper_result boolean;- +
+ +l_result boolean;- +
+ +begin- + 71 +
+ +if self.lower_bound.data_type = a_actual.data_type then- + 70 +
+ +l_lower_result := a_actual >= self.lower_bound;- + 70 +
+ +l_upper_result := a_actual <= self.upper_bound;- + 70 +
+ +if l_lower_result is not null and l_upper_result is not null then- + 38 +
+ +l_result := l_lower_result and l_upper_result;- +
+ +end if;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 71 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 35 +
+ +return (self as ut_matcher).failure_message(a_actual)- +
+ +|| ': '|| self.lower_bound.to_string_report(true,false)- +
+ +|| ' and ' || self.upper_bound.to_string_report(a_with_object_info => false);- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 35 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual)- +
+ +|| ': '|| self.lower_bound.to_string_report(true,false)- +
+ +|| ' and ' || self.upper_bound.to_string_report(a_with_object_info => false);- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_EMPTY
100 % lines covered
6 relevant lines. 6 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_empty as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_empty) is- +
+ +begin- + 35 +
+ +self.self_type := $$plsql_unit;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_empty(self in out nocopy ut_be_empty) return self as result is- +
+ +begin- + 35 +
+ +init();- + 35 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_empty, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 35 +
+ +return a_actual.is_empty();- +
+ +exception- + 12 +
+ +when value_error then- + 6 +
+ +return (self as ut_matcher).run_matcher(a_actual);- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_FALSE
100 % lines covered
6 relevant lines. 6 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_false as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_be_false(self in out nocopy ut_be_false) return self as result is- +
+ +begin- + 8 +
+ +self.self_type := $$plsql_unit;- + 8 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_false, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 8 +
+ +if a_actual is of (ut_data_value_boolean) then- + 6 +
+ +l_result := not ut_utils.int_to_boolean(treat(a_actual as ut_data_value_boolean).data_value);- +
+ +else- + 2 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_GREATER_OR_EQUAL
100 % lines covered
22 relevant lines. 22 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_greater_or_equal AS- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_greater_or_equal, a_expected ut_data_value) is- +
+ +begin- + 29 +
+ +self.self_type := $$plsql_unit;- + 29 +
+ +self.expected := a_expected;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected date) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_date(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected NUMBER) return self as result is- +
+ +begin- + 5 +
+ +init(ut_data_value_number(a_expected));- + 5 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_tz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_tz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected timestamp_ltz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_ltz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected yminterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_yminterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_or_equal(self in out nocopy ut_be_greater_or_equal, a_expected dsinterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_dsinterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_greater_or_equal, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 29 +
+ +if self.expected.data_type = a_actual.data_type then- + 28 +
+ +l_result := a_actual >= self.expected;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 29 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 21 +
+ +return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 7 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_GREATER_THAN
100 % lines covered
22 relevant lines. 22 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_greater_than AS- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_greater_than, a_expected ut_data_value) is- +
+ +begin- + 30 +
+ +self.self_type := $$plsql_unit;- + 30 +
+ +self.expected := a_expected;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected date) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_date(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected NUMBER) return self as result is- +
+ +begin- + 6 +
+ +init(ut_data_value_number(a_expected));- + 6 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_tz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_tz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected timestamp_ltz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_ltz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected yminterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_yminterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_greater_than(self in out nocopy ut_be_greater_than, a_expected dsinterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_dsinterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_greater_than, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 30 +
+ +if self.expected.data_type = a_actual.data_type then- + 29 +
+ +l_result := a_actual > self.expected;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 30 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 22 +
+ +return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 7 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_LESS_OR_EQUAL
100 % lines covered
22 relevant lines. 22 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_less_or_equal AS- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_less_or_equal, a_expected ut_data_value) is- +
+ +begin- + 29 +
+ +self.self_type := $$plsql_unit;- + 29 +
+ +self.expected := a_expected;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected date) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_date(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected NUMBER) return self as result is- +
+ +begin- + 5 +
+ +init(ut_data_value_number(a_expected));- + 5 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_tz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_tz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected timestamp_ltz_unconstrained) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_ltz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected yminterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_yminterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_or_equal(self in out nocopy ut_be_less_or_equal, a_expected dsinterval_unconstrained) return self as RESULT IS- +
+ +begin- + 4 +
+ +init(ut_data_value_dsinterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_less_or_equal, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 29 +
+ +if self.expected.data_type = a_actual.data_type then- + 28 +
+ +l_result := a_actual <= self.expected;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 29 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 21 +
+ +return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 7 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_LESS_THAN
100 % lines covered
22 relevant lines. 22 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_less_than as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_be_less_than, a_expected ut_data_value) is- +
+ +begin- + 29 +
+ +self.self_type := $$plsql_unit;- + 29 +
+ +self.expected := a_expected;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected date) return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_date(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected number) return self as result is- +
+ +begin- + 5 +
+ +init(ut_data_value_number(a_expected));- + 5 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_unconstrained)- +
+ +return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_tz_unconstrained)- +
+ +return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_tz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected timestamp_ltz_unconstrained)- +
+ +return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_timestamp_ltz(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected yminterval_unconstrained)- +
+ +return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_yminterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_be_less_than(self in out nocopy ut_be_less_than, a_expected dsinterval_unconstrained)- +
+ +return self as result is- +
+ +begin- + 4 +
+ +init(ut_data_value_dsinterval(a_expected));- + 4 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_less_than, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 29 +
+ +if self.expected.data_type = a_actual.data_type then- + 28 +
+ +l_result := a_actual < self.expected;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 29 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 21 +
+ +return (self as ut_matcher).failure_message(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 7 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_LIKE
100 % lines covered
23 relevant lines. 23 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_like as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_be_like(self in out nocopy ut_be_like, a_mask in varchar2, a_escape_char in varchar2 := null) return self as result is- +
+ +begin- + 17 +
+ +self.self_type := $$plsql_unit;- + 17 +
+ +self.mask := a_mask;- + 17 +
+ +self.escape_char := a_escape_char;- + 17 +
+ +return;- +
+ +end ut_be_like;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_like, a_actual ut_data_value) return boolean is- +
+ +l_value clob;- +
+ +l_result boolean;- +
+ +begin- + 17 +
+ +if a_actual is of (ut_data_value_varchar2, ut_data_value_clob) then- +
+ +- + 16 +
+ +if a_actual is of (ut_data_value_varchar2) then- + 8 +
+ +l_value := treat(a_actual as ut_data_value_varchar2).data_value;- +
+ +else- + 8 +
+ +l_value := treat(a_actual as ut_data_value_clob).data_value;- +
+ +end if;- +
+ +- + 16 +
+ +if escape_char is not null then- + 8 +
+ +l_result := l_value like mask escape escape_char;- +
+ +else- + 8 +
+ +l_result := l_value like mask;- +
+ +end if;- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 17 +
+ +return l_result;- +
+ +end run_matcher;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 8 +
+ +l_result := (self as ut_matcher).failure_message(a_actual);- + 8 +
+ +if self.escape_char is not null then- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(true, false) || ', escape ''' || self.escape_char ||'''';- +
+ +else- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(false, false);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 8 +
+ +l_result := (self as ut_matcher).failure_message_when_negated(a_actual);- + 8 +
+ +if self.escape_char is not null then- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(true, false) || ', escape ''' || self.escape_char ||'''';- +
+ +else- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.mask).to_string_report(false, false);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_NOT_NULL
100 % lines covered
3 relevant lines. 3 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_not_null as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_be_not_null(self in out nocopy ut_be_not_null) return self as result is- +
+ +begin- + 30 +
+ +self.self_type := $$plsql_unit;- + 30 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_not_null, a_actual ut_data_value) return boolean is- +
+ +begin- + 30 +
+ +return not a_actual.is_null;- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_NULL
100 % lines covered
3 relevant lines. 3 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_null as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_be_null(self in out nocopy ut_be_null) return self as result is- +
+ +begin- + 72 +
+ +self.self_type := $$plsql_unit;- + 72 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_null, a_actual ut_data_value) return boolean is- +
+ +begin- + 72 +
+ +return a_actual.is_null;- +
+ +end;- +
+ +- +
+end;+UT3.UT_BE_TRUE
100 % lines covered
6 relevant lines. 6 lines covered and 0 lines missed+ +
- +
+ +type body ut_be_true as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_be_true(self in out nocopy ut_be_true) return self as result is- +
+ +begin- + 8 +
+ +self.self_type := $$plsql_unit;- + 8 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_be_true, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 8 +
+ +if a_actual is of (ut_data_value_boolean) then- + 6 +
+ +l_result := ut_utils.int_to_boolean( treat(a_actual as ut_data_value_boolean).data_value);- +
+ +else- + 2 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_COMPARISON_MATCHER
100 % lines covered
3 relevant lines. 3 lines covered and 0 lines missed+ +
- +
+ +type body ut_comparison_matcher as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +overriding member function error_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 512 +
+ +if ut_utils.int_to_boolean(self.is_errored) then- + 43 +
+ +l_result := 'Actual ('||a_actual.data_type||') cannot be compared to Expected ('||expected.data_type||') using matcher '''||self.name()||'''.';- +
+ +end if;- + 512 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_CONTAIN
87.5 % lines covered
16 relevant lines. 14 lines covered and 2 lines missed+ +
- +
+ +type body ut_contain as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_contain(self in out nocopy ut_contain, a_expected sys_refcursor) return self as result is- +
+ +begin- + 18 +
+ +self.init(ut_data_value_refcursor(a_expected), null, $$plsql_unit);- + 18 +
+ +self.options.unordered();- + 18 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_contain(self in out nocopy ut_contain, a_expected anydata) return self as result is- +
+ +begin- + 2 +
+ +self.init(ut_data_value_anydata(a_expected), null, $$plsql_unit);- + 2 +
+ +self.options.unordered();- + 2 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_contain, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 20 +
+ +if self.expected.data_type = a_actual.data_type then- + 20 +
+ +l_result :=- +
+ +( 0- +
+ += treat( self.expected as ut_data_value_refcursor )- +
+ +.compare_implementation( a_actual, self.options, true, self.is_negated() )- +
+ +);- +
+ +else- +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 20 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher_negated(self in out nocopy ut_contain, a_actual ut_data_value) return boolean is- +
+ +begin- + 5 +
+ +return run_matcher(a_actual);- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 15 +
+ +if self.expected.data_type = a_actual.data_type and self.expected.is_diffable then- + 15 +
+ +l_result :=- +
+ +'Actual: '||a_actual.get_object_info()||self.description()||': '||self.expected.get_object_info()- +
+ +|| treat(expected as ut_data_value_refcursor).diff( a_actual, self.options );- +
+ +else- +
+ +l_result := (self as ut_matcher).failure_message(a_actual) || ': '|| self.expected.to_string_report();- +
+ +end if;- + 15 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 5 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ':'|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_EQUAL
91.4 % lines covered
93 relevant lines. 85 lines covered and 8 lines missed+ +
- +
+ +type body ut_equal as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member procedure init(self in out nocopy ut_equal, a_expected ut_data_value, a_nulls_are_equal boolean, a_self_type varchar2 := null) is- +
+ +begin- + 395 +
+ +self.expected := a_expected;- + 395 +
+ +self.options := ut_matcher_options( a_nulls_are_equal );- + 395 +
+ +self.self_type := nvl( a_self_type, $$plsql_unit );- +
+ +end;- +
+ +- +
+ +member function equal_with_nulls(a_assert_result boolean, a_actual ut_data_value) return boolean is- +
+ +begin- + 511 +
+ +ut_utils.debug_log('ut_equal.equal_with_nulls :' || ut_utils.to_test_result(a_assert_result) || ':');- + 511 +
+ +return ( a_assert_result or ( self.expected.is_null() and a_actual.is_null() and options.nulls_are_equal ) );- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected anydata, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 60 +
+ +init(ut_data_value_anydata(a_expected), a_nulls_are_equal);- + 60 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected anydata, a_exclude varchar2, a_nulls_are_equal boolean := null) return self as result is- +
+ +l_deprecated integer;- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'equal( a_expected anydata, a_exclude varchar2 )',- +
+ +'equal( a_expected anydata ).exclude( a_exclude varchar2 )'- +
+ +);- + 1 +
+ +init(ut_data_value_anydata(a_expected), a_nulls_are_equal);- + 1 +
+ +self.options.exclude.add_items(a_exclude);- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected anydata, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'equal( a_expected anydata, a_exclude ut_varchar2_list )',- +
+ +'equal( a_expected anydata ).exclude( a_exclude ut_varchar2_list )'- +
+ +);- + 1 +
+ +init(ut_data_value_anydata(a_expected), a_nulls_are_equal);- + 1 +
+ +self.options.exclude.add_items(a_exclude);- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected blob, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_blob(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected boolean, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 13 +
+ +init(ut_data_value_boolean(a_expected), a_nulls_are_equal);- + 13 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected clob, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_clob(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected date, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_date(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected number, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 75 +
+ +init(ut_data_value_number(a_expected), a_nulls_are_equal);- + 75 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected sys_refcursor, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 108 +
+ +init(ut_data_value_refcursor(a_expected), a_nulls_are_equal);- + 106 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected sys_refcursor, a_exclude varchar2, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'equal( a_expected sys_refcursor, a_exclude varchar2 )',- +
+ +'equal( a_expected sys_refcursor ).exclude( a_exclude varchar2 )'- +
+ +);- + 1 +
+ +init(ut_data_value_refcursor(a_expected), a_nulls_are_equal);- + 1 +
+ +self.options.exclude.add_items(a_exclude);- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'equal( a_expected sys_refcursor, a_exclude ut_varchar2_list )',- +
+ +'equal( a_expected sys_refcursor ).exclude( a_exclude ut_varchar2_list )'- +
+ +);- + 1 +
+ +init(ut_data_value_refcursor(a_expected), a_nulls_are_equal);- + 1 +
+ +self.options.exclude.add_items(a_exclude);- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 12 +
+ +init(ut_data_value_timestamp(a_expected), a_nulls_are_equal);- + 12 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_timestamp_tz(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_timestamp_ltz(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected varchar2, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 25 +
+ +init(ut_data_value_varchar2(a_expected), a_nulls_are_equal);- + 25 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_yminterval(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_dsinterval(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +constructor function ut_equal(self in out nocopy ut_equal, a_expected json_element_t, a_nulls_are_equal boolean := null) return self as result is- +
+ +begin- + 10 +
+ +init(ut_data_value_json(a_expected), a_nulls_are_equal);- + 10 +
+ +return;- +
+ +end;- +
+ +- +
+ +member function include(a_items varchar2) return ut_equal is- +
+ +l_result ut_equal := self;- +
+ +begin- +
+ +l_result.options.include.add_items(a_items);- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function include(a_items ut_varchar2_list) return ut_equal is- + 22 +
+ +l_result ut_equal := self;- +
+ +begin- + 22 +
+ +l_result.options.include.add_items(a_items);- + 22 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function exclude(a_items varchar2) return ut_equal is- + 11 +
+ +l_result ut_equal := self;- +
+ +begin- + 11 +
+ +l_result.options.exclude.add_items(a_items);- + 11 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function exclude(a_items ut_varchar2_list) return ut_equal is- + 23 +
+ +l_result ut_equal := self;- +
+ +begin- + 23 +
+ +l_result.options.exclude.add_items(a_items);- + 23 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function unordered return ut_equal is- + 15 +
+ +l_result ut_equal := self;- +
+ +begin- + 15 +
+ +l_result.options.unordered();- + 15 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function join_by(a_columns varchar2) return ut_equal is- +
+ +l_result ut_equal := self;- +
+ +begin- +
+ +l_result.options.unordered();- +
+ +l_result.options.join_by.add_items(a_columns);- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function join_by(a_columns ut_varchar2_list) return ut_equal is- + 42 +
+ +l_result ut_equal := self;- +
+ +begin- + 42 +
+ +l_result.options.unordered();- + 42 +
+ +l_result.options.join_by.add_items(a_columns);- + 42 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function uc return ut_equal is- +
+ +begin- +
+ +return unordered_columns;- +
+ +end;- +
+ +- +
+ +member function unordered_columns return ut_equal is- + 10 +
+ +l_result ut_equal := self;- +
+ +begin- + 10 +
+ +l_result.options.unordered_columns();- + 10 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_equal, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 375 +
+ +if self.expected.data_type = a_actual.data_type then- + 336 +
+ +if self.expected is of (ut_data_value_anydata) then- + 55 +
+ +l_result := 0 = treat(self.expected as ut_data_value_anydata).compare_implementation( a_actual, options );- + 281 +
+ +elsif self.expected is of (ut_data_value_refcursor) then- + 106 +
+ +l_result := 0 = treat(self.expected as ut_data_value_refcursor).compare_implementation( a_actual, options );- +
+ +else- + 175 +
+ +l_result := equal_with_nulls((self.expected = a_actual), a_actual);- +
+ +end if;- + 336 +
+ +l_result := equal_with_nulls( l_result, a_actual );- +
+ +else- + 39 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 375 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 329 +
+ +if self.expected.data_type = a_actual.data_type and self.expected.is_diffable then- + 164 +
+ +l_result :=- +
+ +'Actual: '||a_actual.get_object_info()||self.description()||': '||self.expected.get_object_info()- + 1 +
+ +||case- + 1 +
+ +when self.expected is of (ut_data_value_refcursor) then- +
+ +treat(expected as ut_data_value_refcursor).diff( a_actual, options )- + 1 +
+ +when self.expected is of (ut_data_value_json) then- +
+ +treat(expected as ut_data_value_json).diff( a_actual, options )- +
+ +else- +
+ +expected.diff( a_actual, options )- +
+ +end;- +
+ +else- + 165 +
+ +l_result := (self as ut_matcher).failure_message(a_actual) || ': '|| self.expected.to_string_report();- +
+ +end if;- + 329 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 7 +
+ +return (self as ut_matcher).failure_message_when_negated(a_actual) || ': '|| expected.to_string_report();- +
+ +end;- +
+ +- +
+end;+UT3.UT_HAVE_COUNT
100 % lines covered
11 relevant lines. 11 lines covered and 0 lines missed+ +
- +
+ +type body ut_have_count as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_have_count(self in out nocopy ut_have_count, a_expected integer) return self as result is- +
+ +begin- + 25 +
+ +self.self_type := $$plsql_unit;- + 25 +
+ +self.expected := a_expected;- + 25 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_have_count, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 25 +
+ +if a_actual is of(ut_data_value_refcursor) and ( treat (a_actual as ut_data_value_refcursor).compound_type != 'object') then- + 14 +
+ +l_result := ( self.expected = treat(a_actual as ut_data_value_refcursor).elements_count );- + 11 +
+ +elsif a_actual is of(ut_data_value_json) then- + 5 +
+ +l_result := ( self.expected = treat(a_actual as ut_data_value_json).get_elements_count );- +
+ +else- + 6 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 25 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 12 +
+ +return 'Actual: (' || case when a_actual is of (ut_data_value_json) then- +
+ +treat(a_actual as ut_data_value_json).get_json_count_info() else a_actual.get_object_info() end||- +
+ +') was expected to have [ count = '||ut_utils.to_string(self.expected)||' ]';- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 7 +
+ +return 'Actual: ' || case when a_actual is of (ut_data_value_json) then- +
+ +treat(a_actual as ut_data_value_json).get_json_count_info() else a_actual.get_object_info() end||- +
+ +' was expected not to have [ count = '||ut_utils.to_string(self.expected)||' ]';- +
+ +end;- +
+ +- +
+end;+UT3.UT_MATCH
100 % lines covered
20 relevant lines. 20 lines covered and 0 lines missed+ +
- +
+ +type body ut_match as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_match(self in out nocopy ut_match, a_pattern in varchar2, a_modifiers in varchar2 default null) return self as result is- +
+ +begin- + 17 +
+ +self.self_type := $$plsql_unit;- + 17 +
+ +self.pattern := a_pattern;- + 17 +
+ +self.modifiers := a_modifiers;- + 17 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function run_matcher(self in out nocopy ut_match, a_actual ut_data_value) return boolean is- +
+ +l_result boolean;- +
+ +begin- + 17 +
+ +if a_actual is of (ut_data_value_varchar2) then- + 8 +
+ +l_result := regexp_like(treat(a_actual as ut_data_value_varchar2).data_value, pattern, modifiers);- + 9 +
+ +elsif a_actual is of (ut_data_value_clob) then- + 8 +
+ +l_result := regexp_like(treat(a_actual as ut_data_value_clob).data_value, pattern, modifiers);- +
+ +else- + 1 +
+ +l_result := (self as ut_matcher).run_matcher(a_actual);- +
+ +end if;- + 17 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 8 +
+ +l_result := (self as ut_matcher).failure_message(a_actual);- + 8 +
+ +if self.modifiers is not null then- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(true, false) || ', modifiers ''' || self.modifiers ||'''';- +
+ +else- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(false, false);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +overriding member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 8 +
+ +l_result := (self as ut_matcher).failure_message_when_negated(a_actual);- + 8 +
+ +if self.modifiers is not null then- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(true, false) || ', modifiers ''' || self.modifiers ||'''';- +
+ +else- + 4 +
+ +l_result := l_result || ': '|| ut_data_value_varchar2(self.pattern).to_string_report(false, false);- +
+ +end if;- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_MATCHER
100 % lines covered
17 relevant lines. 17 lines covered and 0 lines missed+ +
- +
+ +type body ut_matcher as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +member function run_matcher(self in out nocopy ut_matcher, a_actual ut_data_value) return boolean is- +
+ +begin- + 62 +
+ +ut_utils.debug_log('Failure - ut_matcher.run_matcher'||'(a_actual '||a_actual.data_type||')');- + 62 +
+ +self.is_errored := ut_utils.boolean_to_int(true);- +
+ +-- self.error_message := 'The matcher '''||name()||''' cannot be used';- +
+ +-- if self.expected is not null then- +
+ +-- self.error_message := self.error_message ||' for comparison of data type ('||self.expected.data_type||')';- +
+ +-- end if;- +
+ +-- self.error_message := self.error_message ||' with data type ('||a_actual.data_type||').';- + 62 +
+ +return null;- +
+ +end;- +
+ +- +
+ +member function run_matcher_negated(self in out nocopy ut_matcher, a_actual ut_data_value) return boolean is- +
+ +begin- + 169 +
+ +return not run_matcher(a_actual);- +
+ +end;- +
+ +- +
+ +member function name return varchar2 is- +
+ +begin- + 776 +
+ +return replace(ltrim(lower(self.self_type),'ut_'),'_',' ');- +
+ +end;- +
+ +- +
+ +member function description return varchar2 is- +
+ +begin- + 573 +
+ +return ' was expected to '||name();- +
+ +end;- +
+ +- +
+ +member function description_when_negated return varchar2 is- +
+ +begin- + 141 +
+ +return ' was expected not to '||name();- +
+ +end;- +
+ +- +
+ +member function error_message(a_actual ut_data_value) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 283 +
+ +if ut_utils.int_to_boolean(self.is_errored) then- + 19 +
+ +l_result := 'The matcher '''||name()||''' cannot be used with data type ('||a_actual.data_type||').';- +
+ +end if;- + 283 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function failure_message(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 394 +
+ +return 'Actual: ' || a_actual.to_string_report(true) || description();- +
+ +end;- +
+ +- +
+ +member function failure_message_when_negated(a_actual ut_data_value) return varchar2 is- +
+ +begin- + 141 +
+ +return 'Actual: ' || a_actual.to_string_report(true) || description_when_negated();- +
+ +end;- +
+ +- +
+ +member procedure negated is- +
+ +begin- + 6 +
+ +is_negated_flag := ut_utils.boolean_to_int(true);- +
+ +end;- +
+ +- +
+ +member function negated return ut_matcher is- + 6 +
+ +l_result ut_matcher := self;- +
+ +begin- + 6 +
+ +l_result.negated();- + 6 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function is_negated return boolean is- +
+ +begin- + 645 +
+ +return coalesce(ut_utils.int_to_boolean(is_negated_flag), false);- +
+ +end;- +
+ +- +
+end;+UT3.UT_MATCHER_OPTIONS
92.31 % lines covered
13 relevant lines. 12 lines covered and 1 lines missed+ +
- +
+ +type body ut_matcher_options as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_matcher_options(self in out nocopy ut_matcher_options, a_nulls_are_equal in boolean := null) return self as result is- +
+ +begin- + 395 +
+ +nulls_are_equal_flag := ut_utils.boolean_to_int( coalesce(a_nulls_are_equal, ut_expectation_processor.nulls_are_equal()) );- + 395 +
+ +is_unordered := ut_utils.boolean_to_int(false);- + 395 +
+ +columns_are_unordered_flag := ut_utils.boolean_to_int(false);- + 395 +
+ +include := ut_matcher_options_items();- + 395 +
+ +exclude := ut_matcher_options_items();- + 395 +
+ +join_by := ut_matcher_options_items();- + 395 +
+ +return;- +
+ +end;- +
+ +- +
+ +member procedure nulls_are_equal(self in out nocopy ut_matcher_options) is- +
+ +begin- +
+ +self.nulls_are_equal_flag := ut_utils.boolean_to_int(true);- +
+ +end;- +
+ +- +
+ +member function nulls_are_equal return boolean is- +
+ +begin- + 66 +
+ +return ut_utils.int_to_boolean(self.nulls_are_equal_flag);- +
+ +end;- +
+ +- +
+ +member procedure unordered_columns(self in out nocopy ut_matcher_options) is- +
+ +begin- + 10 +
+ +columns_are_unordered_flag := ut_utils.boolean_to_int(true);- +
+ +end;- +
+ +- +
+ +member function ordered_columns return boolean is- +
+ +begin- + 213 +
+ +return not ut_utils.int_to_boolean(columns_are_unordered_flag);- +
+ +end;- +
+ +- +
+ +member procedure unordered(self in out nocopy ut_matcher_options) is- +
+ +begin- + 77 +
+ +is_unordered := ut_utils.boolean_to_int(true);- +
+ +end;- +
+ +- +
+ +member function unordered return boolean is- +
+ +begin- + 452 +
+ +return ut_utils.int_to_boolean(is_unordered);- +
+ +end;- +
+end;+UT3.UT_MATCHER_OPTIONS_ITEMS
88.89 % lines covered
9 relevant lines. 8 lines covered and 1 lines missed+ +
- +
+ +type body ut_matcher_options_items is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_matcher_options_items(self in out nocopy ut_matcher_options_items) return self as result is- +
+ +begin- + 1185 +
+ +items := ut_varchar2_list();- + 1185 +
+ +return;- +
+ +end;- +
+ +- +
+ +member procedure add_items(self in out nocopy ut_matcher_options_items, a_items varchar2) is- +
+ +begin- + 136 +
+ +items :=- +
+ +items- +
+ +multiset union all- +
+ +ut_utils.filter_list(- +
+ +ut_utils.trim_list_elements(- +
+ +ut_utils.string_to_table( replace( a_items , '|', ',' ), ',' )- +
+ +)- +
+ +, '.+'- +
+ +);- +
+ +end;- +
+ +- +
+ +member procedure add_items(self in out nocopy ut_matcher_options_items, a_items ut_varchar2_list) is- +
+ +l_idx binary_integer;- +
+ +begin- + 89 +
+ +if a_items is not null then- + 89 +
+ +l_idx := a_items.first;- + 212 +
+ +while l_idx is not null loop- + 123 +
+ +add_items( a_items(l_idx) );- + 123 +
+ +l_idx := a_items.next(l_idx);- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +member function to_xpath return varchar2 is- +
+ +begin- +
+ +return ut_utils.to_xpath(items);- +
+ +end;- +
+ +- +
+end;+UT3.UT_EXPECTATION
98.62 % lines covered
145 relevant lines. 143 lines covered and 2 lines missed+ +
- +
+ +type body ut_expectation as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +member procedure to_(self in ut_expectation, a_matcher ut_matcher) is- +
+ +l_expectation_result boolean;- + 625 +
+ +l_matcher ut_matcher := a_matcher;- +
+ +l_message varchar2(32767);- +
+ +begin- + 625 +
+ +if a_matcher.is_negated() then- + 4 +
+ +self.not_to( a_matcher );- +
+ +else- + 621 +
+ +l_expectation_result := l_matcher.run_matcher( self.actual_data );- + 621 +
+ +l_expectation_result := coalesce(l_expectation_result,false);- + 621 +
+ +l_message := coalesce( l_matcher.error_message( self.actual_data ), l_matcher.failure_message( self.actual_data ) );- + 621 +
+ +ut_expectation_processor.add_expectation_result( ut_expectation_result( ut_utils.to_test_result( l_expectation_result ), self.description, l_message ) );- +
+ +end if;- +
+ +end;- +
+ +- +
+ +member procedure not_to(self in ut_expectation, a_matcher ut_matcher) is- +
+ +l_expectation_result boolean;- + 174 +
+ +l_matcher ut_matcher := a_matcher;- +
+ +l_message varchar2(32767);- +
+ +begin- + 174 +
+ +l_expectation_result := coalesce( l_matcher.run_matcher_negated( self.actual_data ), false );- +
+ +- + 174 +
+ +l_message := coalesce( l_matcher.error_message( self.actual_data ), l_matcher.failure_message_when_negated( self.actual_data ) );- + 174 +
+ +ut_expectation_processor.add_expectation_result( ut_expectation_result( ut_utils.to_test_result( l_expectation_result ), self.description, l_message ) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_null(self in ut_expectation) is- +
+ +begin- + 42 +
+ +self.to_( ut_be_null() );- +
+ +end;- +
+ +- +
+ +member procedure to_be_not_null(self in ut_expectation) is- +
+ +begin- + 29 +
+ +self.to_( ut_be_not_null() );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_null(self in ut_expectation) is- +
+ +begin- + 30 +
+ +self.not_to( ut_be_null() );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_not_null(self in ut_expectation) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_not_null() );- +
+ +end;- +
+ +- +
+ +member procedure to_be_true(self in ut_expectation) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_true() );- +
+ +end;- +
+ +- +
+ +member procedure to_be_false(self in ut_expectation) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_false() );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_true(self in ut_expectation) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_true() );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_false(self in ut_expectation) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_false() );- +
+ +end;- +
+ +- +
+ +member procedure to_be_empty(self in ut_expectation) is- +
+ +begin- + 14 +
+ +self.to_( ut_be_empty() );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_empty(self in ut_expectation) is- +
+ +begin- + 11 +
+ +self.not_to( ut_be_empty() );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null) is- +
+ +begin- + 32 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected anydata, a_exclude varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 4 +
+ +ut_expectation_processor.add_warning(- +
+ +ut_utils.build_depreciation_warning(- +
+ +'to_equal( a_expected anydata, a_exclude varchar2 )',- +
+ +'to_equal( a_expected anydata ).exclude( a_exclude varchar2 )'- +
+ +)- +
+ +);- + 4 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected anydata, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +ut_expectation_processor.add_warning(- +
+ +ut_utils.build_depreciation_warning(- +
+ +'to_equal( a_expected anydata, a_exclude ut_varchar2_list )',- +
+ +'to_equal( a_expected anydata ).exclude( a_exclude ut_varchar2_list )'- +
+ +)- +
+ +);- + 2 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null) is- +
+ +begin- + 11 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null) is- +
+ +begin- + 73 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected sys_refcursor, a_nulls_are_equal boolean := null) is- +
+ +begin- + 38 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 5 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'to_equal( a_expected sys_refcursor, a_exclude varchar2 )',- +
+ +'to_equal( a_expected sys_refcursor ).exclude( a_exclude varchar2 )'- +
+ +);- + 5 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- +
+ +begin- + 4 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'to_equal( a_expected sys_refcursor, a_exclude ut_varchar2_list )',- +
+ +'to_equal( a_expected sys_refcursor ).exclude( a_exclude ut_varchar2_list )'- +
+ +);- + 4 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 10 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 23 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_equal(self in ut_expectation, a_expected json_element_t, a_nulls_are_equal boolean := null) is- +
+ +begin- + 10 +
+ +self.to_( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null) is- +
+ +begin- + 3 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected anydata, a_exclude varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'not_to_equal( a_expected anydata, a_exclude varchar2 )',- +
+ +'not_to_equal( a_expected anydata ).exclude( a_exclude varchar2 )'- +
+ +);- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected anydata, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'not_to_equal( a_expected anydata, a_exclude ut_varchar2_list )',- +
+ +'not_to_equal( a_expected anydata ).exclude( a_exclude ut_varchar2_list )'- +
+ +);- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected clob, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected date, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected number, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'not_to_equal( a_expected sys_refcursor, a_exclude varchar2 )',- +
+ +'not_to_equal( a_expected sys_refcursor ).exclude( a_exclude varchar2 )'- +
+ +);- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected sys_refcursor, a_exclude ut_varchar2_list, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +ut_expectation_processor.add_depreciation_warning(- +
+ +'not_to_equal( a_expected sys_refcursor, a_exclude ut_varchar2_list )',- +
+ +'not_to_equal( a_expected sys_refcursor ).exclude( a_exclude ut_varchar2_list )'- +
+ +);- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal).exclude(a_exclude) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null) is- +
+ +begin- + 2 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null) is- +
+ +begin- + 1 +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_equal(self in ut_expectation, a_expected json_element_t, a_nulls_are_equal boolean := null) is- +
+ +begin- +
+ +self.not_to( ut_equal(a_expected, a_nulls_are_equal) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 := null) is- +
+ +begin- + 9 +
+ +self.to_( ut_be_like(a_mask, a_escape_char) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null) is- +
+ +begin- + 9 +
+ +self.to_( ut_match(a_pattern, a_modifiers) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_like(self in ut_expectation, a_mask in varchar2, a_escape_char in varchar2 := null) is- +
+ +begin- + 8 +
+ +self.not_to( ut_be_like(a_mask, a_escape_char) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_match(self in ut_expectation, a_pattern in varchar2, a_modifiers in varchar2 default null) is- +
+ +begin- + 8 +
+ +self.not_to( ut_match(a_pattern, a_modifiers) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound date, a_upper_bound date) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound number, a_upper_bound number) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained) is- +
+ +begin- + 5 +
+ +self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained) is- +
+ +begin- + 5 +
+ +self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained) is- +
+ +begin- + 5 +
+ +self.to_( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound varchar2, a_upper_bound varchar2) is- +
+ +begin- + 5 +
+ +self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_between(self in ut_expectation, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected date) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected number) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_or_equal(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected date) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected number) is- +
+ +begin- + 4 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_greater_than(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected date) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected number) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_or_equal(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected date) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected number) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_be_less_than(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 3 +
+ +self.to_( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound date, a_upper_bound date) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound number, a_upper_bound number) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained) is- +
+ +begin- + 5 +
+ +self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained) is- +
+ +begin- + 5 +
+ +self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained) is- +
+ +begin- + 5 +
+ +self.not_to( ut_be_between(a_lower_bound, a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound varchar2, a_upper_bound varchar2) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_between(self in ut_expectation, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained) is- +
+ +begin- + 4 +
+ +self.not_to( ut_be_between(a_lower_bound,a_upper_bound) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected date) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected number) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_or_equal(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected date) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected number) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_greater_than(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_greater_than (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected date) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected number) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_or_equal(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_or_equal (a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected date) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected dsinterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected number) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected timestamp_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected timestamp_ltz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected timestamp_tz_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_be_less_than(self in ut_expectation, a_expected yminterval_unconstrained) is- +
+ +begin- + 1 +
+ +self.not_to( ut_be_less_than (a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure to_contain(self in ut_expectation, a_expected sys_refcursor) is- +
+ +begin- + 5 +
+ +self.to_( ut_contain(a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_contain(self in ut_expectation, a_expected sys_refcursor) is- +
+ +begin- + 2 +
+ +self.not_to( ut_contain(a_expected).negated() );- +
+ +end;- +
+ +- +
+ +member procedure to_contain(self in ut_expectation, a_expected anydata) is- +
+ +begin- + 2 +
+ +self.to_( ut_contain(a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_contain(self in ut_expectation, a_expected anydata) is- +
+ +begin- +
+ +self.not_to( ut_contain(a_expected).negated() );- +
+ +end;- +
+ +- +
+end;+UT3.UT_EXPECTATION_COMPOUND
77.19 % lines covered
57 relevant lines. 44 lines covered and 13 lines missed+ +
- +
+ +type body ut_expectation_compound as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_expectation_compound(self in out nocopy ut_expectation_compound, a_actual_data ut_data_value, a_description varchar2) return self as result is- +
+ +begin- + 259 +
+ +self.actual_data := a_actual_data;- + 259 +
+ +self.description := a_description;- + 259 +
+ +return;- +
+ +end;- +
+ +- +
+ +member procedure to_have_count(self in ut_expectation_compound, a_expected integer) is- +
+ +begin- + 11 +
+ +self.to_( ut_have_count(a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_have_count(self in ut_expectation_compound, a_expected integer) is- +
+ +begin- + 7 +
+ +self.not_to( ut_have_count(a_expected) );- +
+ +end;- +
+ +- +
+ +- +
+ +member function to_equal(a_expected anydata, a_nulls_are_equal boolean := null) return ut_expectation_compound is- + 16 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 16 +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal);- + 16 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function not_to_equal(a_expected anydata, a_nulls_are_equal boolean := null) return ut_expectation_compound is- + 1 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 1 +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal).negated();- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function to_equal(a_expected sys_refcursor, a_nulls_are_equal boolean := null) return ut_expectation_compound is- + 57 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 57 +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal);- + 57 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function not_to_equal(a_expected sys_refcursor, a_nulls_are_equal boolean := null) return ut_expectation_compound is- +
+ +l_result ut_expectation_compound := self;- +
+ +begin- +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal).negated();- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function to_contain(a_expected sys_refcursor) return ut_expectation_compound is- + 8 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 8 +
+ +l_result.matcher := ut_contain(a_expected);- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function not_to_contain(a_expected sys_refcursor) return ut_expectation_compound is- + 3 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 3 +
+ +l_result.matcher := ut_contain(a_expected).negated();- + 3 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function to_contain(a_expected anydata) return ut_expectation_compound is- +
+ +l_result ut_expectation_compound := self;- +
+ +begin- +
+ +l_result.matcher := ut_contain(a_expected);- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function not_to_contain(a_expected anydata) return ut_expectation_compound is- +
+ +l_result ut_expectation_compound := self;- +
+ +begin- +
+ +l_result.matcher := ut_contain(a_expected).negated();- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function include(a_items varchar2) return ut_expectation_compound is- +
+ +begin- + 1 +
+ +return include( ut_varchar2_list( a_items ) );- +
+ +end;- +
+ +- +
+ +member function include(a_items ut_varchar2_list) return ut_expectation_compound is- + 6 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 6 +
+ +l_result.matcher := treat(l_result.matcher as ut_equal).include(a_items);- + 6 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure include(self in ut_expectation_compound, a_items varchar2) is- +
+ +begin- + 7 +
+ +include( ut_varchar2_list( a_items ) );- +
+ +end;- +
+ +- +
+ +member procedure include(self in ut_expectation_compound, a_items ut_varchar2_list) is- +
+ +begin- + 16 +
+ +self.to_( treat(matcher as ut_equal).include(a_items) );- +
+ +end;- +
+ +- +
+ +member function exclude(a_items varchar2) return ut_expectation_compound is- +
+ +begin- + 2 +
+ +return exclude( ut_varchar2_list( a_items ) );- +
+ +end;- +
+ +- +
+ +member function exclude(a_items ut_varchar2_list) return ut_expectation_compound is- + 8 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 8 +
+ +l_result.matcher := treat(l_result.matcher as ut_equal).exclude(a_items);- + 8 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure exclude(self in ut_expectation_compound, a_items varchar2) is- +
+ +begin- + 3 +
+ +exclude( ut_varchar2_list( a_items ) );- +
+ +end;- +
+ +- +
+ +member procedure exclude(self in ut_expectation_compound, a_items ut_varchar2_list) is- +
+ +begin- + 7 +
+ +self.to_( treat(matcher as ut_equal).exclude(a_items) );- +
+ +end;- +
+ +- +
+ +member function unordered return ut_expectation_compound is- + 1 +
+ +l_result ut_expectation_compound := self;- +
+ +begin- + 1 +
+ +l_result.matcher := treat(l_result.matcher as ut_equal).unordered();- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure unordered(self in ut_expectation_compound) is- +
+ +begin- + 14 +
+ +self.to_( treat(matcher as ut_equal).unordered() );- +
+ +end;- +
+ +- +
+ +member function join_by(a_columns varchar2) return ut_expectation_compound is- +
+ +begin- + 3 +
+ +return join_by( ut_varchar2_list( a_columns ) );- +
+ +end;- +
+ +- +
+ +member function join_by(a_columns ut_varchar2_list) return ut_expectation_compound is- +
+ +l_result ut_expectation_compound;- +
+ +begin- + 4 +
+ +l_result := self;- + 4 +
+ +l_result.matcher := treat(l_result.matcher as ut_equal).join_by(a_columns);- + 4 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure join_by(self in ut_expectation_compound, a_columns varchar2) is- +
+ +begin- + 31 +
+ +join_by( ut_varchar2_list( a_columns ) );- +
+ +end;- +
+ +- +
+ +member procedure join_by(self in ut_expectation_compound, a_columns ut_varchar2_list) is- +
+ +begin- + 38 +
+ +self.to_( treat(matcher as ut_equal).join_by(a_columns) );- +
+ +end;- +
+ +- +
+ +member function unordered_columns return ut_expectation_compound is- +
+ +l_result ut_expectation_compound;- +
+ +begin- +
+ +l_result := self;- +
+ +l_result.matcher := treat(l_result.matcher as ut_equal).unordered_columns;- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure unordered_columns(self in ut_expectation_compound) is- +
+ +begin- + 10 +
+ +self.to_( treat(matcher as ut_equal).unordered_columns );- +
+ +end;- +
+ +- +
+ +member function uc return ut_expectation_compound is- +
+ +begin- +
+ +return unordered_columns;- +
+ +end;- +
+ +- +
+ +member procedure uc(self in ut_expectation_compound) is- +
+ +begin- + 5 +
+ +unordered_columns;- +
+ +end;- +
+ +- +
+end;+UT3.UT_EXPECTATION_JSON
45.45 % lines covered
11 relevant lines. 5 lines covered and 6 lines missed+ +
- +
+ +type body ut_expectation_json as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_expectation_json(self in out nocopy ut_expectation_json, a_actual_data ut_data_value, a_description varchar2) return self as result is- +
+ +begin- + 23 +
+ +self.actual_data := a_actual_data;- + 23 +
+ +self.description := a_description;- + 23 +
+ +return;- +
+ +end;- +
+ +- +
+ +member function to_equal(a_expected json_element_t, a_nulls_are_equal boolean := null) return ut_expectation_json is- +
+ +l_result ut_expectation_json := self;- +
+ +begin- +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal);- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member function not_to_equal(a_expected json_element_t, a_nulls_are_equal boolean := null) return ut_expectation_json is- +
+ +l_result ut_expectation_json := self;- +
+ +begin- +
+ +l_result.matcher := ut_equal(a_expected, a_nulls_are_equal).negated();- +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +member procedure to_have_count(self in ut_expectation_json, a_expected integer) is- +
+ +begin- + 3 +
+ +self.to_( ut_have_count(a_expected) );- +
+ +end;- +
+ +- +
+ +member procedure not_to_have_count(self in ut_expectation_json, a_expected integer) is- +
+ +begin- + 2 +
+ +self.not_to( ut_have_count(a_expected) );- +
+ +end;- +
+ +- +
+end;+UT3.UT_ANSICONSOLE_HELPER
92.86 % lines covered
14 relevant lines. 13 lines covered and 1 lines missed+ +
- +
+ +package body ut_ansiconsole_helper as- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- + 1 +
+ +gc_red constant varchar2(7) := chr(27) || '[31m';- + 1 +
+ +gc_green constant varchar2(7) := chr(27) || '[32m';- + 1 +
+ +gc_yellow constant varchar2(7) := chr(27) || '[33m';- + 1 +
+ +gc_cyan constant varchar2(7) := chr(27) || '[36m';- + 1 +
+ +gc_reset constant varchar2(7) := chr(27) || '[0m';- + 1 +
+ +g_enabled boolean := false;- +
+ +- +
+ +procedure color_enabled(a_enabled boolean) is- +
+ +begin- + 116 +
+ +g_enabled := a_enabled;- +
+ +end;- +
+ +- +
+ +function add_color(a_text varchar2, a_color varchar2 := gc_reset) return varchar2 is- +
+ +begin- + 398 +
+ +if g_enabled and a_text is not null then- +
+ +return a_color||a_text||gc_reset;- +
+ +else- + 398 +
+ +return a_text;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +function red(a_text varchar2) return varchar2 is- +
+ +begin- + 207 +
+ +return add_color(a_text, gc_red);- +
+ +end;- +
+ +- +
+ +function green(a_text varchar2) return varchar2 is- +
+ +begin- + 180 +
+ +return add_color(a_text, gc_green);- +
+ +end;- +
+ +- +
+ +function yellow(a_text varchar2) return varchar2 is- +
+ +begin- + 1 +
+ +return add_color(a_text, gc_yellow);- +
+ +end;- +
+ +- +
+ +function cyan(a_text varchar2) return varchar2 is- +
+ +begin- + 10 +
+ +return add_color(a_text, gc_cyan);- +
+ +end;- +
+ +- +
+end;+UT3.UT_COVERAGE_COBERTURA_REPORTER
91.8 % lines covered
61 relevant lines. 56 lines covered and 5 lines missed+ +
- +
+ +type body ut_coverage_cobertura_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_coverage_cobertura_reporter(- +
+ +self in out nocopy ut_coverage_cobertura_reporter- +
+ +) return self as result is- +
+ +begin- + 2 +
+ +self.init($$plsql_unit);- + 2 +
+ +return;- +
+ +end;- +
+ +- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_coverage_cobertura_reporter, a_run in ut_run) as- +
+ +l_report_lines ut_varchar2_list;- + 2 +
+ +l_coverage_data ut_coverage.t_coverage;- +
+ +- +
+ +function get_lines_xml(a_unit_coverage ut_coverage.t_unit_coverage) return clob is- +
+ +l_file_part varchar2(32767);- +
+ +l_result clob;- +
+ +l_line_no binary_integer;- +
+ +l_pct integer;- +
+ +begin- + 2 +
+ +dbms_lob.createtemporary(l_result, true);- + 2 +
+ +l_line_no := a_unit_coverage.lines.first;- + 2 +
+ +if l_line_no is null then- + 16 +
+ +for i in 1 .. a_unit_coverage.total_lines loop- + 15 +
+ +ut_utils.append_to_clob(l_result, '<line number="'||i||'" hits="0" branch="false"/>'||chr(10));- +
+ +end loop;- +
+ +else- + 4 +
+ +while l_line_no is not null loop- + 3 +
+ +if a_unit_coverage.lines(l_line_no).executions = 0 then- + 1 +
+ +l_file_part := '<line number="'||l_line_no||'" hits="0" branch="false"/>'||chr(10);- +
+ +else- + 2 +
+ +l_file_part := '<line number="'||l_line_no||'" hits="'||a_unit_coverage.lines(l_line_no).executions||'"';- + 2 +
+ +if a_unit_coverage.lines(l_line_no).covered_blocks < a_unit_coverage.lines(l_line_no).no_blocks then- +
+ +l_file_part := l_file_part || ' branch="true"';- +
+ +l_pct := (a_unit_coverage.lines(l_line_no).covered_blocks/a_unit_coverage.lines(l_line_no).no_blocks)*100;- +
+ +l_file_part := l_file_part || ' condition-coverage="'||l_pct||'%';- +
+ +l_file_part := l_file_part || ' ('||a_unit_coverage.lines(l_line_no).covered_blocks||'/'||a_unit_coverage.lines(l_line_no).no_blocks||')"';- +
+ +else- + 2 +
+ +l_file_part := l_file_part || ' branch="false"';- +
+ +end if;- + 2 +
+ +l_file_part := l_file_part ||'/>'||chr(10);- +
+ +end if;- + 3 +
+ +ut_utils.append_to_clob(l_result, l_file_part);- + 3 +
+ +l_line_no := a_unit_coverage.lines.next(l_line_no);- +
+ +end loop;- +
+ +end if;- + 2 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_coverage_xml(- +
+ +a_coverage_data ut_coverage.t_coverage,- +
+ +a_run ut_run- +
+ +) return ut_varchar2_rows is- +
+ +l_file_part varchar2(32767);- + 2 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_unit ut_coverage.t_full_name;- +
+ +l_obj_name ut_coverage.t_object_name;- + 2 +
+ +c_coverage_def constant varchar2(200) := '<!DOCTYPE coverage SYSTEM "http://cobertura.sourceforge.net/xml/coverage-04.dtd">';- + 2 +
+ +c_file_footer constant varchar2(30) := '</file>';- + 2 +
+ +c_coverage_footer constant varchar2(30) := '</coverage>';- + 2 +
+ +c_sources_footer constant varchar2(30) := '</sources>';- + 2 +
+ +c_packages_footer constant varchar2(30) := '</packages>';- + 2 +
+ +c_package_footer constant varchar2(30) := '</package>';- + 2 +
+ +c_class_footer constant varchar2(30) := '</class>';- + 2 +
+ +c_lines_footer constant varchar2(30) := '</lines>';- + 2 +
+ +l_epoch varchar2(50) := (sysdate - to_date('01-01-1970 00:00:00', 'dd-mm-yyyy hh24:mi:ss')) * 24 * 60 * 60;- +
+ +begin- +
+ +- + 2 +
+ +ut_utils.append_to_list( l_result, ut_utils.get_xml_header(a_run.client_character_set) );- + 2 +
+ +ut_utils.append_to_list( l_result, c_coverage_def );- +
+ +- +
+ +--write header- + 2 +
+ +ut_utils.append_to_list(- +
+ +l_result,- +
+ +'<coverage line-rate="0" branch-rate="0.0" lines-covered="'- +
+ +||a_coverage_data.covered_lines||'" lines-valid="'- +
+ +||TO_CHAR(a_coverage_data.covered_lines + a_coverage_data.uncovered_lines)- +
+ +||'" branches-covered="0" branches-valid="0" complexity="0" version="1" timestamp="'||l_epoch||'">'- +
+ +);- +
+ +- +
+ +- +
+ +--Write sources- + 2 +
+ +l_unit := a_coverage_data.objects.first;- + 2 +
+ +ut_utils.append_to_list( l_result, '<sources>' );- +
+ +- + 4 +
+ +while l_unit is not null loop- + 3 +
+ +ut_utils.append_to_list(l_result, '<source>'||dbms_xmlgen.convert(l_unit)||'</source>');- + 2 +
+ +l_unit := a_coverage_data.objects.next(l_unit);- +
+ +end loop;- + 2 +
+ +ut_utils.append_to_list(l_result, c_sources_footer);- +
+ +- +
+ +--write packages- + 2 +
+ +l_unit := a_coverage_data.objects.first;- + 2 +
+ +ut_utils.append_to_list(l_result, '<packages>');- +
+ +- + 4 +
+ +while l_unit is not null loop- + 2 +
+ +l_obj_name := a_coverage_data.objects(l_unit).name;- + 2 +
+ +ut_utils.append_to_list(- +
+ +l_result,- +
+ +'<package name="'||dbms_xmlgen.convert(l_obj_name)||'" line-rate="0.0" branch-rate="0.0" complexity="0.0">'- +
+ +);- +
+ +- + 2 +
+ +ut_utils.append_to_list(- +
+ +l_result,- +
+ +'<class name="'||dbms_xmlgen.convert(l_obj_name)||'" filename="'- +
+ +||dbms_xmlgen.convert(l_unit)||'" line-rate="0.0" branch-rate="0.0" complexity="0.0">'- +
+ +);- +
+ +- + 2 +
+ +ut_utils.append_to_list(l_result, '<lines>');- +
+ +- + 2 +
+ +ut_utils.append_to_list( l_result, get_lines_xml(a_coverage_data.objects(l_unit)) );- +
+ +- + 2 +
+ +ut_utils.append_to_list(l_result, c_lines_footer);- + 2 +
+ +ut_utils.append_to_list(l_result, c_class_footer);- + 2 +
+ +ut_utils.append_to_list(l_result, c_package_footer);- +
+ +- + 2 +
+ +l_unit := a_coverage_data.objects.next(l_unit);- +
+ +end loop;- +
+ +- + 2 +
+ +ut_utils.append_to_list(l_result, c_packages_footer);- + 2 +
+ +ut_utils.append_to_list(l_result, c_coverage_footer);- + 2 +
+ +return l_result;- +
+ +end;- +
+ +begin- + 3 +
+ +ut_coverage.coverage_stop();- +
+ +- + 2 +
+ +l_coverage_data := ut_coverage.get_coverage_data(a_run.coverage_options);- +
+ +- + 2 +
+ +self.print_text_lines( get_coverage_xml( l_coverage_data, a_run ) );- +
+ +- + 2 +
+ +(self as ut_reporter_base).after_calling_run(a_run);- +
+ +end;- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'Generates a Cobertura coverage report providing information on code coverage with line numbers.' || chr(10) ||- +
+ +'Designed for Jenkins and TFS to report coverage. ' || chr(10) ||- +
+ +'Cobertura Document Type Definition can be found: http://cobertura.sourceforge.net/xml/coverage-04.dtd.'|| chr(10) ||- +
+ +'Sample file: https://github.com/leobalter/testing-examples/blob/master/solutions/3/report/cobertura-coverage.xml.';- +
+ +end;- +
+ +- +
+end;+UT3.UT_COVERAGE_HTML_REPORTER
88.89 % lines covered
9 relevant lines. 8 lines covered and 1 lines missed+ +
- +
+ +type body ut_coverage_html_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_coverage_html_reporter(- +
+ +self in out nocopy ut_coverage_html_reporter,- +
+ +a_project_name varchar2 := null,- +
+ +a_html_report_assets_path varchar2 := null- +
+ +) return self as result is- +
+ +begin- + 1 +
+ +self.init($$plsql_unit);- + 1 +
+ +self.project_name := a_project_name;- + 1 +
+ +assets_path := nvl(a_html_report_assets_path, ut_coverage_report_html_helper.get_default_html_assets_path());- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_coverage_html_reporter, a_run in ut_run) as- + 1 +
+ +l_coverage_data ut_coverage.t_coverage;- +
+ +begin- + 2 +
+ +ut_coverage.coverage_stop();- + 1 +
+ +l_coverage_data := ut_coverage.get_coverage_data(a_run.coverage_options);- +
+ +- + 1 +
+ +self.print_text_lines(- +
+ +ut_coverage_report_html_helper.get_index(- +
+ +a_coverage_data => l_coverage_data,- +
+ +a_assets_path => self.assets_path,- +
+ +a_project_name => self.project_name,- +
+ +a_charset => a_run.client_character_set- +
+ +)- +
+ +);- +
+ +end;- +
+ +- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'Generates a HTML coverage report with summary and line by line information on code coverage.' || chr(10) ||- +
+ +'Based on open-source simplecov-html coverage reporter for Ruby.' || chr(10) ||- +
+ +'Includes source code in the report.';- +
+ +end;- +
+ +- +
+end;+UT3.UT_COVERAGE_REPORT_HTML_HELPER
94.44 % lines covered
108 relevant lines. 102 lines covered and 6 lines missed+ +
- +
+ +package body ut_coverage_report_html_helper is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- + 1 +
+ +gc_green_coverage_pct constant integer := 90;- + 1 +
+ +gc_yellow_coverage_pct constant integer := 80;- +
+ +- + 1 +
+ +gc_green_css constant varchar2(10) := 'green';- + 1 +
+ +gc_yellow_css constant varchar2(10) := 'yellow';- + 1 +
+ +gc_red_css constant varchar2(10) := 'red';- +
+ +- + 1 +
+ +gc_missed constant varchar2(7) := 'missed';- + 1 +
+ +gc_skipped constant varchar2(7) := 'skipped';- + 1 +
+ +gc_disabled constant varchar2(7) := 'never';- + 1 +
+ +gc_covered constant varchar2(7) := 'covered';- + 1 +
+ +gc_partcovered constant varchar2(7) := 'partcov';- +
+ +- +
+ +function get_default_html_assets_path return varchar2 deterministic is- + 1 +
+ +c_assets_path constant varchar2(200) := 'https://utplsql.github.io/utPLSQL-coverage-html/assets/';- +
+ +begin- + 1 +
+ +return c_assets_path;- +
+ +end;- +
+ +- +
+ +function coverage_css_class(a_covered_pct number) return varchar2 is- +
+ +l_result varchar2(10);- +
+ +begin- + 5 +
+ +if a_covered_pct > gc_green_coverage_pct then- +
+ +l_result := gc_green_css;- + 5 +
+ +elsif a_covered_pct > gc_yellow_coverage_pct then- +
+ +l_result := gc_yellow_css;- +
+ +else- + 5 +
+ +l_result := gc_red_css;- +
+ +end if;- + 5 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function line_status(a_executions in ut_coverage.t_line_executions) return varchar2 is- +
+ +l_result varchar2(10);- +
+ +begin- + 16 +
+ +if a_executions.executions > 0 then- + 3 +
+ +if NVL(a_executions.partcove,0) = 0 then- + 2 +
+ +l_result := gc_covered;- +
+ +else- + 1 +
+ +l_result := gc_partcovered;- +
+ +end if;- + 13 +
+ +elsif a_executions.executions = 0 then- + 1 +
+ +l_result := gc_missed;- +
+ +else- + 12 +
+ +l_result := gc_disabled;- +
+ +end if;- + 16 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function executions_per_line(a_executions number, a_lines integer) return integer is- +
+ +begin- + 3 +
+ +return nvl(a_executions / nullif(a_lines, 0), 0);- +
+ +end;- +
+ +- +
+ +function line_hits_css_class(a_line_hist number) return varchar2 is- +
+ +l_result varchar2(10);- +
+ +begin- + 1 +
+ +if a_line_hist > 1 then- +
+ +l_result := gc_green_css;- + 1 +
+ +elsif a_line_hist = 1 then- + 1 +
+ +l_result := gc_yellow_css;- +
+ +else- +
+ +l_result := gc_red_css;- +
+ +end if;- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function coverage_pct(a_covered_lines integer, a_uncovered_lines integer) return number is- +
+ +begin- + 4 +
+ +return ROUND(nvl(a_covered_lines / nullif(a_covered_lines + a_uncovered_lines, 0), 0) * 100, 2);- +
+ +end;- +
+ +- +
+ +function object_id(a_object_full_name varchar2) return varchar2 is- +
+ +begin- + 3 +
+ +return rawtohex(utl_raw.cast_to_raw(dbms_obfuscation_toolkit.md5(input_string => a_object_full_name)));- +
+ +end;- +
+ +- +
+ +function link_to_source_file(a_object_full_name varchar2) return varchar2 is- +
+ +begin- + 1 +
+ +return '<a href="#' || object_id(a_object_full_name) || '" class="src_link" title="' || a_object_full_name || '">' || a_object_full_name || '</a>';- +
+ +end;- +
+ +- +
+ +- +
+ +- +
+ +- +
+ +function get_details_file_content(- +
+ +a_object_id varchar2,- +
+ +a_unit ut_object_name,- +
+ +a_unit_coverage ut_coverage.t_unit_coverage- +
+ +) return ut_varchar2_rows is- +
+ +- +
+ +function get_block_file_attributes(a_coverage_unit ut_coverage.t_unit_coverage) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 1 +
+ +if (a_coverage_unit.partcovered_lines is not null) AND (a_coverage_unit.partcovered_lines > 0) then- + 1 +
+ +l_result := ' (including <span class="yellow"><b>'|| a_coverage_unit.partcovered_lines ||'</b> lines partially covered</span> )';- +
+ +else- +
+ +l_result := null;- +
+ +end if;- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_common_file_attributes(a_coverage_unit ut_coverage.t_unit_coverage) return varchar2 is- +
+ +l_attributes varchar2(32767);- +
+ +begin- + 1 +
+ +l_attributes := '<div> <b>' ||(a_coverage_unit.covered_lines + a_coverage_unit.uncovered_lines)- +
+ +||'</b> relevant lines. ' || '<span class="green"><b>' || a_coverage_unit.covered_lines- +
+ +||'</b> lines covered</span>'- +
+ +|| get_block_file_attributes(a_coverage_unit)- +
+ +|| ' and <span class="red"><b>' || a_coverage_unit.uncovered_lines ||'</b> lines missed</span>';- + 1 +
+ +return l_attributes;- +
+ +end;- +
+ +- +
+ +function build_details_file_content(a_object_id varchar2, a_object_full_name varchar2, a_source_code ut_varchar2_list, a_coverage_unit ut_coverage.t_unit_coverage)- +
+ +return ut_varchar2_rows is- +
+ +l_file_part varchar2(32767);- + 1 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_coverage_pct number(5, 2);- +
+ +l_coverage_block_pct number(5, 2);- +
+ +l_hits varchar2(30);- +
+ +l_blocks varchar2(30);- +
+ +begin- +
+ +- + 1 +
+ +l_coverage_pct := coverage_pct(a_coverage_unit.covered_lines, a_coverage_unit.uncovered_lines);- +
+ +- + 1 +
+ +l_file_part := '<div class="source_table" id="' || a_object_id || '"><div class="header"> <h3>' ||- +
+ +dbms_xmlgen.convert(a_object_full_name) || '</h3><h4><span class="' || coverage_css_class(l_coverage_pct) || '">'- +
+ +|| l_coverage_pct || ' %</span> lines covered</h4>'- +
+ +||get_common_file_attributes(a_coverage_unit) ||'</div></div><pre><ol>';- + 1 +
+ +ut_utils.append_to_list(l_result, l_file_part);- +
+ +- + 17 +
+ +for line_no in 1 .. a_source_code.count loop- + 16 +
+ +if not a_coverage_unit.lines.exists(line_no) then- + 12 +
+ +l_file_part := '- +
+ +<li class="' || line_status(null) || '" data-hits="" data-linenumber="' || line_no || '">- +
+ +<code class="sql">' || (dbms_xmlgen.convert(a_source_code(line_no))) ||- +
+ +'</code></li>';- +
+ +else- + 4 +
+ +l_hits := to_char(a_coverage_unit.lines(line_no).executions);- + 4 +
+ +if nvl(a_coverage_unit.lines(line_no).covered_blocks,0) < nvl(a_coverage_unit.lines(line_no).no_blocks,0)- + 1 +
+ +and nvl(a_coverage_unit.lines(line_no).partcove,0) = 1 then- + 1 +
+ +l_blocks := to_char(a_coverage_unit.lines(line_no).covered_blocks) || chr(47)||- +
+ +to_char(a_coverage_unit.lines(line_no).no_blocks);- +
+ +else- + 3 +
+ +l_blocks := null;- +
+ +end if;- +
+ +- + 4 +
+ +l_file_part := '- +
+ +<li class="' || line_status(a_coverage_unit.lines(line_no)) || '" data-hits="' ||- +
+ +dbms_xmlgen.convert(l_hits)|| '"'||- + 1 +
+ +case- + 1 +
+ +when l_blocks is not null- +
+ +then ' data-blocks="'||dbms_xmlgen.convert(l_blocks)||'"'- +
+ +else- +
+ +null- +
+ +end- +
+ +||' data-linenumber="' || (line_no) || '">';- + 4 +
+ +if a_coverage_unit.lines(line_no).executions > 0 then- +
+ +- + 3 +
+ +l_file_part := l_file_part ||- + 1 +
+ +case when l_blocks is not null- +
+ +then '- +
+ +<span class="blocks">' ||dbms_xmlgen.convert(l_blocks) ||- +
+ +'</span>'- +
+ +else- +
+ +null- +
+ +end- +
+ +|| '- +
+ +<span class="hits">' || dbms_xmlgen.convert(l_hits) ||- +
+ +'</span>';- +
+ +end if;- + 4 +
+ +l_file_part := l_file_part || '- +
+ +<code class="sql">' || (dbms_xmlgen.convert(a_source_code(line_no))) ||- +
+ +'</code></li>';- +
+ +end if;- + 16 +
+ +ut_utils.append_to_list(l_result, l_file_part);- +
+ +end loop;- +
+ +- + 1 +
+ +l_file_part := '</ol></pre></div>';- + 1 +
+ +ut_utils.append_to_list(l_result, l_file_part);- + 1 +
+ +return l_result;- +
+ +end;- +
+ +begin- + 1 +
+ +return build_details_file_content(- +
+ +a_object_id,- +
+ +a_unit.identity,- +
+ +ut_coverage_helper.get_tmp_table_object_lines(a_unit.owner, a_unit.name),- +
+ +a_unit_coverage- +
+ +);- +
+ +end;- +
+ +- +
+ +function get_block_list_attributes(a_coverage_unit ut_coverage.t_coverage) return varchar2 is- +
+ +l_result varchar2(32767);- +
+ +begin- + 1 +
+ +if (a_coverage_unit.partcovered_lines is not null) AND (a_coverage_unit.partcovered_lines > 0) then- + 1 +
+ +l_result := ' (including <span class="yellow"><b>'|| a_coverage_unit.partcovered_lines ||'</b> lines partially covered</span> )';- +
+ +else- +
+ +l_result := null;- +
+ +end if;- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function file_list(a_title varchar2, a_coverage ut_coverage.t_coverage) return ut_varchar2_rows is- +
+ +l_file_part varchar2(32767);- + 1 +
+ +l_title varchar2(100) := 'All files';- +
+ +l_coverage_pct number(5, 2);- +
+ +l_coverage_block_pct number(5, 2);- +
+ +l_result ut_varchar2_rows;- + 1 +
+ +l_id varchar2(50) := object_id(a_title);- + 1 +
+ +l_unit_coverage ut_coverage.t_unit_coverage;- +
+ +l_unit ut_coverage.t_object_name;- +
+ +begin- + 1 +
+ +l_coverage_pct := coverage_pct(a_coverage.covered_lines, a_coverage.uncovered_lines);- +
+ +- + 1 +
+ +l_file_part := '<div class="file_list_container" id="' || l_id || '">' || '<h2><span class="group_name">' || l_title ||- +
+ +'</span>' || ' (<span class="covered_percent"><span class="' || coverage_css_class(l_coverage_pct) || '">' ||- +
+ +l_coverage_pct || '%</span></span>' || ' lines covered'||- +
+ +' at <span class="covered_strength">' ||- +
+ +'<span class="' ||line_hits_css_class(executions_per_line(a_coverage.executions- +
+ +,a_coverage.uncovered_lines + a_coverage.covered_lines)) || '">' ||- +
+ +executions_per_line(a_coverage.executions, a_coverage.uncovered_lines + a_coverage.covered_lines)- +
+ +|| '</span></span> hits/line)</h2>' || '<a id="a_' || l_id || '"></a>' || '<div><b>' ||- +
+ +a_coverage.objects.count || '</b> files in total. </div><div>' || '<b>' ||- +
+ +(a_coverage.uncovered_lines + a_coverage.covered_lines)- +
+ +|| '</b> relevant lines. ' || '<span class="green"><b>' || a_coverage.covered_lines ||- +
+ +'</b> lines covered</span>'|| get_block_list_attributes(a_coverage)- +
+ +||' and <span class="red"><b>' || a_coverage.uncovered_lines || '</b> lines missed.</span>'||- +
+ +'<table class="file_list"><thead>' || '<tr>' ||- +
+ +'<th>File</th><th>% covered</th><th>Lines</th><th>Relevant Lines</th><th>Lines covered</th><th>Lines missed</th><th>'- +
+ +||'Avg. Hits / Line </th>' ||- +
+ +'</tr></thead><tbody>';- + 1 +
+ +ut_utils.append_to_list( l_result, l_file_part );- + 1 +
+ +l_unit := a_coverage.objects.first;- + 2 +
+ +loop- + 2 +
+ +exit when l_unit is null;- + 1 +
+ +l_unit_coverage := a_coverage.objects(l_unit);- + 1 +
+ +l_coverage_pct := coverage_pct(l_unit_coverage.covered_lines, l_unit_coverage.uncovered_lines);- +
+ +- + 1 +
+ +l_file_part := chr(10) || '<tr>' || '<td class="strong">' || link_to_source_file(dbms_xmlgen.convert(l_unit)) ||- +
+ +'</td>' || '<td class="' || coverage_css_class(l_coverage_pct) || ' strong">' || l_coverage_pct ||- +
+ +' %</td>' || '<td>' || l_unit_coverage.total_lines || '</td>' || '<td>' ||- +
+ +(l_unit_coverage.covered_lines + l_unit_coverage.uncovered_lines) || '</td>' || '<td>' ||- +
+ +l_unit_coverage.covered_lines || '</td><td>' || l_unit_coverage.uncovered_lines || '</td>' ||- +
+ +'<td>' || to_char(executions_per_line(l_unit_coverage.executions- +
+ +,l_unit_coverage.uncovered_lines + l_unit_coverage.covered_lines))- +
+ +|| '</td></tr>';- + 1 +
+ +ut_utils.append_to_list( l_result, l_file_part );- + 1 +
+ +l_unit := a_coverage.objects.next(l_unit);- +
+ +end loop;- + 1 +
+ +l_file_part := '</tbody></table></div>';- + 1 +
+ +ut_utils.append_to_list( l_result, l_file_part );- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +/*- +
+ +* public definitions- +
+ +*/- +
+ +function get_index(- +
+ +a_coverage_data ut_coverage.t_coverage,- +
+ +a_assets_path varchar2,- +
+ +a_project_name varchar2 := null,- +
+ +a_command_line varchar2 := null,- +
+ +a_charset varchar2 := null- +
+ +) return ut_varchar2_rows is- +
+ +- +
+ +l_file_part varchar2(32767);- + 1 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_title varchar2(250);- +
+ +l_coverage_pct number(5, 2);- +
+ +l_time_str varchar2(50);- +
+ +l_using varchar2(1000);- +
+ +l_unit ut_coverage.t_full_name;- +
+ +l_charset varchar2(1000);- +
+ +begin- + 1 +
+ +l_charset := coalesce(upper(a_charset),'UTF-8');- + 1 +
+ +l_coverage_pct := coverage_pct(a_coverage_data.covered_lines, a_coverage_data.uncovered_lines);- +
+ +- + 1 +
+ +l_time_str := to_char(sysdate,'yyyy-mm-dd"T"hh24:mi:ss');- + 1 +
+ +l_using := case- + 1 +
+ +when a_command_line is not null then- +
+ +'<br/>using ' || dbms_xmlgen.convert(a_command_line)- +
+ +end;- + 1 +
+ +l_title := case- + 1 +
+ +when a_project_name is null then- +
+ +'Code coverage'- +
+ +else- +
+ +dbms_xmlgen.convert(a_project_name) || ' code coverage'- +
+ +end;- +
+ +--TODO - build main file containing total run data and per schema data- + 1 +
+ +l_file_part := '<!DOCTYPE html><html xmlns=''http://www.w3.org/1999/xhtml''><head>' || '<title>' || l_title ||- +
+ +'</title>' || '<meta http-equiv="content-type" content="text/html; charset='||l_charset||'" />' ||- +
+ +'<script src=''' || a_assets_path || 'application.js''></script>' ||- +
+ +'<link href=''' || a_assets_path ||- +
+ +'application.css'' media=''screen, print'' rel=''stylesheet'' type=''text/css''/>' ||- +
+ +'<link rel="shortcut icon" type="image/png" href="' || a_assets_path || 'favicon_' ||- +
+ +coverage_css_class(l_coverage_pct) || '.png" />' || '<link rel="icon" type="image/png" href="' ||- +
+ +a_assets_path || 'favicon_' || coverage_css_class(l_coverage_pct) || '.png" />' || '</head>' ||- +
+ +'<body><div id="loading"><img src="' || a_assets_path || 'loading.gif" alt="loading"/></div>' ||- +
+ +'<div id="wrapper" style="display:none;">' ||- +
+ +'<div class="timestamp">Generated <abbr class="timeago" title="' || l_time_str || '">' || l_time_str ||- +
+ +'</abbr></div>' || '<ul class="group_tabs"></ul>' || '<div id="content">';- + 1 +
+ +ut_utils.append_to_list(l_result, l_file_part);- +
+ +- + 1 +
+ +ut_utils.append_to_list(l_result, file_list('All files', a_coverage_data));- +
+ +- + 1 +
+ +l_file_part := chr(10) || '</div><div id="footer">' ||- +
+ +'Generated by <a href="http://github.com/utPLSQL/utPLSQL">utPLSQL ' || ut_utils.gc_version ||- +
+ +'</a><br/>' ||- +
+ +'Based on <a href="http://github.com/colszowka/simplecov-html">simplecov-html</a> v0.10.0 ' ||- +
+ +l_using || '' || '</div><div class="source_files">';- + 1 +
+ +ut_utils.append_to_list(l_result, l_file_part);- +
+ +- + 1 +
+ +l_unit := a_coverage_data.objects.first;- + 2 +
+ +loop- + 2 +
+ +exit when l_unit is null;- + 1 +
+ +ut_utils.append_to_list(- +
+ +l_result,- +
+ +get_details_file_content(- +
+ +object_id(l_unit),- +
+ +ut_object_name(a_coverage_data.objects(l_unit).owner,- +
+ +a_coverage_data.objects(l_unit).name),- +
+ +a_coverage_data.objects(l_unit)- +
+ +)- +
+ +);- + 1 +
+ +l_unit := a_coverage_data.objects.next(l_unit);- +
+ +end loop;- +
+ +- + 1 +
+ +l_file_part := '</div></div></div></body></html>';- +
+ +- + 1 +
+ +ut_utils.append_to_list(l_result, l_file_part);- + 1 +
+ +return l_result;- +
+ +end;- +
+ +- +
+end;+UT3.UT_COVERAGE_SONAR_REPORTER
97.14 % lines covered
35 relevant lines. 34 lines covered and 1 lines missed+ +
- +
+ +type body ut_coverage_sonar_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_coverage_sonar_reporter(- +
+ +self in out nocopy ut_coverage_sonar_reporter- +
+ +) return self as result is- +
+ +begin- + 5 +
+ +self.init($$plsql_unit);- + 5 +
+ +return;- +
+ +end;- +
+ +- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_coverage_sonar_reporter, a_run in ut_run) as- +
+ +- +
+ +function get_lines_xml(a_unit_coverage ut_coverage.t_unit_coverage) return ut_varchar2_rows is- +
+ +l_file_part varchar2(32767);- + 41 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_line_no binary_integer;- +
+ +begin- + 41 +
+ +l_line_no := a_unit_coverage.lines.first;- + 41 +
+ +if l_line_no is null then- + 12356 +
+ +for i in 1 .. a_unit_coverage.total_lines loop- + 12319 +
+ +ut_utils.append_to_list(l_result, '<lineToCover lineNumber="'||i||'" covered="false"/>');- +
+ +end loop;- +
+ +else- + 19 +
+ +while l_line_no is not null loop- + 15 +
+ +if a_unit_coverage.lines(l_line_no).executions = 0 then- + 4 +
+ +l_file_part := '<lineToCover lineNumber="'||l_line_no||'" covered="false"/>';- +
+ +else- + 11 +
+ +l_file_part := '<lineToCover lineNumber="'||l_line_no||'" covered="true"';- + 11 +
+ +if a_unit_coverage.lines(l_line_no).covered_blocks <= a_unit_coverage.lines(l_line_no).no_blocks then- + 6 +
+ +l_file_part := l_file_part || ' branchesToCover="'||a_unit_coverage.lines(l_line_no).no_blocks||'"';- + 6 +
+ +l_file_part := l_file_part || ' coveredBranches="'||a_unit_coverage.lines(l_line_no).covered_blocks||'"';- +
+ +end if;- + 11 +
+ +l_file_part := l_file_part ||'/>';- +
+ +end if;- + 15 +
+ +ut_utils.append_to_list(l_result, l_file_part);- + 15 +
+ +l_line_no := a_unit_coverage.lines.next(l_line_no);- +
+ +end loop;- +
+ +end if;- + 41 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_coverage_xml(- +
+ +a_coverage_data ut_coverage.t_coverage,- +
+ +a_run ut_run- +
+ +) return ut_varchar2_rows is- + 5 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_unit ut_coverage.t_full_name;- + 5 +
+ +c_coverage_header constant varchar2(30) := '<coverage version="1">';- + 5 +
+ +c_file_footer constant varchar2(30) := '</file>';- + 5 +
+ +c_coverage_footer constant varchar2(30) := '</coverage>';- +
+ +begin- +
+ +- + 5 +
+ +ut_utils.append_to_list(l_result, ut_utils.get_xml_header(a_run.client_character_set));- + 5 +
+ +ut_utils.append_to_list(l_result, c_coverage_header);- + 5 +
+ +l_unit := a_coverage_data.objects.first;- + 46 +
+ +while l_unit is not null loop- + 42 +
+ +ut_utils.append_to_list(l_result, '<file path="'||dbms_xmlgen.convert(l_unit)||'">');- +
+ +- + 41 +
+ +ut_utils.append_to_list(l_result,get_lines_xml(a_coverage_data.objects(l_unit)));- +
+ +- + 41 +
+ +ut_utils.append_to_list(l_result, c_file_footer);- +
+ +- + 41 +
+ +l_unit := a_coverage_data.objects.next(l_unit);- +
+ +end loop;- + 5 +
+ +ut_utils.append_to_list(l_result, c_coverage_footer);- + 5 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +begin- + 6 +
+ +ut_coverage.coverage_stop();- +
+ +- + 5 +
+ +self.print_text_lines(- +
+ +get_coverage_xml(- +
+ +ut_coverage.get_coverage_data(a_run.coverage_options),- +
+ +a_run- +
+ +)- +
+ +);- +
+ +end;- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'Generates a JSON coverage report providing information on code coverage with line numbers.' || chr(10) ||- +
+ +'Designed for [SonarQube](https://about.sonarqube.com/) to report coverage.' || chr(10) ||- +
+ +'JSON format returned conforms with the Sonar specification: https://docs.sonarqube.org/display/SONAR/Generic+Test+Data';- +
+ +end;- +
+ +- +
+end;+UT3.UT_COVERALLS_REPORTER
94.29 % lines covered
35 relevant lines. 33 lines covered and 2 lines missed+ +
- +
+ +type body ut_coveralls_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_coveralls_reporter(- +
+ +self in out nocopy ut_coveralls_reporter- +
+ +) return self as result is- +
+ +begin- + 2 +
+ +self.init($$plsql_unit);- + 2 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_coveralls_reporter, a_run in ut_run) as- +
+ +- +
+ +function get_lines_json(a_unit_coverage ut_coverage.t_unit_coverage) return ut_varchar2_rows is- +
+ +l_file_part varchar2(32767);- + 2 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_last_line_no binary_integer;- + 2 +
+ +c_coverage_header constant varchar2(30) := '"coverage": [';- + 2 +
+ +c_null constant varchar2(4) := 'null';- +
+ +begin- + 2 +
+ +ut_utils.append_to_list(l_result, c_coverage_header);- +
+ +- + 2 +
+ +l_last_line_no := a_unit_coverage.lines.last;- + 2 +
+ +if l_last_line_no is null then- + 1 +
+ +ut_utils.append_to_list(- +
+ +l_result- +
+ +, rpad( to_clob( '0' ), ( a_unit_coverage.total_lines * 3 ) - 2, ','||chr(10)||'0' )- +
+ +);- +
+ +else- + 8 +
+ +for line_no in 1 .. l_last_line_no loop- + 7 +
+ +if a_unit_coverage.lines.exists(line_no) then- + 3 +
+ +l_file_part := to_char(a_unit_coverage.lines(line_no).executions);- +
+ +else- + 4 +
+ +l_file_part := c_null;- +
+ +end if;- + 7 +
+ +if line_no < l_last_line_no then- + 6 +
+ +l_file_part := l_file_part ||',';- +
+ +end if;- + 7 +
+ +ut_utils.append_to_list(l_result, l_file_part);- +
+ +end loop;- +
+ +end if;- + 2 +
+ +ut_utils.append_to_list(l_result, ']');- + 2 +
+ +return l_result;- +
+ +end;- +
+ +- +
+ +function get_coverage_json(- +
+ +a_coverage_data ut_coverage.t_coverage- +
+ +) return ut_varchar2_rows is- + 2 +
+ +l_result ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_unit ut_coverage.t_full_name;- + 2 +
+ +c_coverage_header constant varchar2(30) := '{"source_files":[';- + 2 +
+ +c_coverage_footer constant varchar2(30) := ']}'||chr(10)||' ';- +
+ +begin- + 2 +
+ +ut_utils.append_to_list(l_result, c_coverage_header);- + 2 +
+ +l_unit := a_coverage_data.objects.first;- + 4 +
+ +while l_unit is not null loop- + 2 +
+ +ut_utils.append_to_list(l_result, '{ "name": "'||l_unit||'",');- +
+ +- + 2 +
+ +ut_utils.append_to_list(l_result,get_lines_json(a_coverage_data.objects(l_unit)));- +
+ +- + 2 +
+ +ut_utils.append_to_list(l_result, '}');- +
+ +- + 2 +
+ +l_unit := a_coverage_data.objects.next(l_unit);- + 2 +
+ +if l_unit is not null then- +
+ +ut_utils.append_to_list(l_result, ',');- +
+ +end if;- +
+ +end loop;- + 2 +
+ +ut_utils.append_to_list(l_result, c_coverage_footer);- + 2 +
+ +return l_result;- +
+ +end;- +
+ +begin- + 3 +
+ +ut_coverage.coverage_stop();- +
+ +- + 2 +
+ +self.print_text_lines(- +
+ +get_coverage_json(- +
+ +ut_coverage.get_coverage_data(a_run.coverage_options)- +
+ +)- +
+ +);- +
+ +end;- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'Generates a JSON coverage report providing information on code coverage with line numbers.' || chr(10) ||- +
+ +'Designed for [Coveralls](https://coveralls.io/).' || chr(10) ||- +
+ +'JSON format conforms with specification: https://docs.coveralls.io/api-introduction';- +
+ +end;- +
+ +- +
+end;+UT3.UT_DEBUG_REPORTER
100 % lines covered
25 relevant lines. 25 lines covered and 0 lines missed+ +
- +
+ +type body ut_debug_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_debug_reporter(self in out nocopy ut_debug_reporter) return self as result is- +
+ +begin- + 1 +
+ +self.init($$plsql_unit,ut_output_clob_table_buffer());- + 1 +
+ +self.start_time := current_timestamp();- + 1 +
+ +self.event_time := current_timestamp();- + 1 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member function get_supported_events return ut_varchar2_list is- +
+ +begin- + 1 +
+ +return ut_varchar2_list(ut_event_manager.gc_all);- +
+ +end;- +
+ +- +
+ +overriding member procedure on_event( self in out nocopy ut_debug_reporter, a_event_name varchar2, a_event_item ut_event_item) is- + 76 +
+ +c_time constant timestamp := current_timestamp();- + 76 +
+ +c_time_from_start constant interval day(0) to second(6) := (c_time - self.start_time);- + 76 +
+ +c_time_from_prev constant interval day(0) to second(6) := (c_time - self.event_time);- + 76 +
+ +l_stack varchar2(32767) := dbms_utility.format_call_stack();- +
+ +begin- + 76 +
+ +l_stack := regexp_replace(- +
+ +substr( l_stack, instr( l_stack, chr(10), 1, 6 ) +1 ),- +
+ +'[0-9abcdefx]+ +([0-9]+) +(package |type )?(body )?(.*)','at "\4", line \1');- +
+ +- + 76 +
+ +if a_event_name = ut_event_manager.gc_initialize then- + 1 +
+ +self.on_initialize(null);- + 1 +
+ +self.print_text('<DEBUG_LOG>', ut_event_manager.gc_debug);- +
+ +end if;- + 76 +
+ +self.print_text('<DEBUG>', ut_event_manager.gc_debug);- + 76 +
+ +self.print_text(- +
+ +' <TIMESTAMP>' || ut_utils.to_string(c_time) || '</TIMESTAMP>' || chr(10)- +
+ +|| ' <TIME_FROM_START>' || c_time_from_start || '</TIME_FROM_START>' || chr(10)- +
+ +|| ' <TIME_FROM_PREVIOUS>' || c_time_from_prev || '</TIME_FROM_PREVIOUS>' || chr(10)- +
+ +|| ' <EVENT_NAME>' || a_event_name || '</EVENT_NAME>',- +
+ +ut_event_manager.gc_debug- +
+ +);- + 76 +
+ +self.print_text( ' <CALL_STACK>' || l_stack || '</CALL_STACK>', ut_event_manager.gc_debug);- + 76 +
+ +if a_event_item is not null then- + 53 +
+ +self.print_text_lines(- +
+ +ut_utils.convert_collection(- +
+ +ut_utils.clob_to_table( event_item_to_clob(a_event_item), ut_utils.gc_max_storage_varchar2_len )- +
+ +),- +
+ +ut_event_manager.gc_debug- +
+ +);- +
+ +end if;- + 76 +
+ +self.print_text('</DEBUG>', ut_event_manager.gc_debug);- + 76 +
+ +if a_event_name = ut_event_manager.gc_finalize then- + 1 +
+ +self.print_text('</DEBUG_LOG>', ut_event_manager.gc_debug);- + 1 +
+ +self.on_finalize(null);- +
+ +end if;- + 76 +
+ +self.event_time := current_timestamp();- +
+ +end;- +
+ +- +
+ +member function event_item_to_clob(a_event_item ut_event_item) return clob is- +
+ +l_clob clob;- +
+ +begin- + 53 +
+ +select xmlserialize( content deletexml(xmltype(a_event_item),'/*/ITEMS|/*/ALL_EXPECTATIONS|/*/FAILED_EXPECTATIONS') as clob indent size = 2 ) into l_clob from dual;- + 53 +
+ +return l_clob;- +
+ +end;- +
+ +- +
+end;+UT3.UT_DOCUMENTATION_REPORTER
98.89 % lines covered
90 relevant lines. 89 lines covered and 1 lines missed+ +
- +
+ +type body ut_documentation_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_documentation_reporter(self in out nocopy ut_documentation_reporter) return self as result is- +
+ +begin- + 71 +
+ +self.init($$plsql_unit);- + 71 +
+ +self.lvl := 0;- + 71 +
+ +self.failed_test_running_count := 0;- + 71 +
+ +return;- +
+ +end;- +
+ +- +
+ +member function tab(self in ut_documentation_reporter) return varchar2 is- +
+ +begin- + 1635 +
+ +return rpad(' ', self.lvl * 2);- +
+ +end tab;- +
+ +- +
+ +overriding member procedure print_clob(self in out nocopy ut_documentation_reporter, a_clob clob, a_item_type varchar2 := null) is- +
+ +l_lines ut_varchar2_list;- + 224 +
+ +l_out_lines ut_varchar2_rows := ut_varchar2_rows();- +
+ +begin- + 224 +
+ +if a_clob is not null and dbms_lob.getlength(a_clob) > 0 then- + 158 +
+ +l_lines := ut_utils.clob_to_table(a_clob, ut_utils.gc_max_storage_varchar2_len - length(nvl(tab(),0)));- + 614 +
+ +for i in 1 .. l_lines.count loop- + 456 +
+ +if l_lines(i) is not null then- + 298 +
+ +ut_utils.append_to_list(l_out_lines, tab() || l_lines(i) );- +
+ +end if;- +
+ +end loop;- + 158 +
+ +(self as ut_output_reporter_base).print_text_lines(l_out_lines, a_item_type);- +
+ +end if;- +
+ +end;- +
+ +- +
+ +overriding member procedure print_text(self in out nocopy ut_documentation_reporter, a_text varchar2, a_item_type varchar2 := null) is- +
+ +l_lines ut_varchar2_list;- +
+ +begin- + 1035 +
+ +if a_text is not null then- + 1018 +
+ +l_lines := ut_utils.string_to_table(a_text);- + 2197 +
+ +for i in 1 .. l_lines.count loop- + 1179 +
+ +(self as ut_output_reporter_base).print_text(tab || l_lines(i), a_item_type);- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +overriding member procedure before_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_logical_suite) as- +
+ +begin- + 206 +
+ +self.print_text(coalesce(a_suite.description, a_suite.name));- + 206 +
+ +lvl := lvl + 1;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test) as- +
+ +l_message varchar2(4000);- +
+ +- +
+ +begin- + 216 +
+ +l_message := coalesce(a_test.description, a_test.name)||' ['||round(a_test.execution_time,3)||' sec]';- +
+ +--if test failed, then add it to the failures list, print failure with number- + 216 +
+ +if a_test.result = ut_utils.gc_disabled then- + 1 +
+ +self.print_yellow_text(l_message || ' (DISABLED)');- + 215 +
+ +elsif a_test.result = ut_utils.gc_success then- + 158 +
+ +self.print_green_text(l_message);- + 57 +
+ +elsif a_test.result > ut_utils.gc_success then- + 57 +
+ +failed_test_running_count := failed_test_running_count + 1;- + 57 +
+ +self.print_red_text(l_message || ' (FAILED - ' || failed_test_running_count || ')');- +
+ +end if;- +
+ +- +
+ +-- reproduce the output from before/after procedures and the test- + 216 +
+ +self.print_clob(a_test.get_serveroutputs);- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_before_all(self in out nocopy ut_documentation_reporter, a_executable in ut_executable) is- +
+ +begin- + 7 +
+ +if a_executable.serveroutput is not null and a_executable.serveroutput != empty_clob() then- + 4 +
+ +self.print_clob(a_executable.serveroutput);- +
+ +end if;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_after_all(self in out nocopy ut_documentation_reporter, a_executable in ut_executable) is- +
+ +begin- + 5 +
+ +if a_executable.serveroutput is not null and a_executable.serveroutput != empty_clob() then- + 4 +
+ +self.print_clob(a_executable.serveroutput);- +
+ +end if;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_logical_suite) as- +
+ +begin- + 206 +
+ +lvl := lvl - 1;- + 206 +
+ +if lvl = 0 then- + 93 +
+ +self.print_text(' ');- +
+ +end if;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_documentation_reporter, a_run in ut_run) as- +
+ +l_summary_text varchar2(4000);- + 70 +
+ +l_warning_index pls_integer := 0;- +
+ +-- make all warning indexes uniformly indented- + 70 +
+ +c_warnings_lpad constant integer := length(to_char(a_run.results_count.warnings_count));- +
+ +- +
+ +procedure print_failure_for_expectation(a_expectation ut_expectation_result) is- +
+ +l_lines ut_varchar2_list;- +
+ +begin- + 10 +
+ +l_lines := a_expectation.get_result_lines();- + 33 +
+ +for i in 1 .. l_lines.count loop- + 23 +
+ +self.print_red_text(l_lines(i));- +
+ +end loop;- + 10 +
+ +self.print_cyan_text(a_expectation.caller_info);- + 10 +
+ +self.print_text(' ');- +
+ +end;- +
+ +- +
+ +procedure print_failures_for_test(a_test ut_test, a_failure_no in out nocopy integer) is- +
+ +begin- + 181 +
+ +if a_test.result > ut_utils.gc_success then- + 57 +
+ +a_failure_no := a_failure_no + 1;- + 57 +
+ +self.print_text(lpad(a_failure_no, length(failed_test_running_count) + 2, ' ') || ') ' ||- +
+ +nvl(a_test.name, a_test.item.form_name));- + 57 +
+ +self.lvl := self.lvl + 3;- +
+ +- + 57 +
+ +self.print_red_text(ut_utils.table_to_clob(a_test.get_error_stack_traces()));- +
+ +- + 67 +
+ +for j in 1 .. a_test.failed_expectations.count loop- + 10 +
+ +print_failure_for_expectation(a_test.failed_expectations(j));- +
+ +end loop;- +
+ +- + 57 +
+ +self.lvl := self.lvl - 3;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure print_failures_from_suite(a_suite ut_logical_suite, a_failure_no in out nocopy integer) is- +
+ +begin- + 417 +
+ +for i in 1 .. a_suite.items.count loop- + 267 +
+ +if a_suite.items(i) is of(ut_logical_suite) then- + 86 +
+ +print_failures_from_suite(treat(a_suite.items(i) as ut_logical_suite), a_failure_no);- + 181 +
+ +elsif a_suite.items(i) is of(ut_test) then- + 181 +
+ +print_failures_for_test(treat(a_suite.items(i) as ut_test), a_failure_no);- +
+ +end if;- +
+ +end loop;- +
+ +end;- +
+ +- +
+ +procedure print_failures_details(a_run in ut_run) is- + 70 +
+ +l_failure_no integer := 0;- +
+ +begin- + 70 +
+ +if a_run.results_count.failure_count > 0 or a_run.results_count.errored_count > 0 then- +
+ +- + 46 +
+ +self.print_text('Failures:');- + 46 +
+ +self.print_text(' ');- + 110 +
+ +for i in 1 .. a_run.items.count loop- + 64 +
+ +print_failures_from_suite(treat(a_run.items(i) as ut_logical_suite), l_failure_no);- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure print_item_warnings(a_item in ut_suite_item) is- +
+ +l_items ut_suite_items;- +
+ +begin- + 29 +
+ +if a_item is of (ut_logical_suite) then- + 6 +
+ +l_items := treat(a_item as ut_logical_suite).items;- + 32 +
+ +for i in 1 .. l_items.count loop- + 26 +
+ +print_item_warnings(l_items(i));- +
+ +end loop;- +
+ +end if;- +
+ +- + 29 +
+ +if a_item.warnings is not null and a_item.warnings.count > 0 then- + 26 +
+ +for i in 1 .. a_item.warnings.count loop- + 22 +
+ +l_warning_index := l_warning_index + 1;- + 22 +
+ +self.print_text(' ' || lpad(l_warning_index, c_warnings_lpad) || ') ' || a_item.path);- + 22 +
+ +self.lvl := self.lvl + 3;- + 22 +
+ +self.print_red_text(a_item.warnings(i));- + 22 +
+ +self.lvl := self.lvl - 3;- +
+ +end loop;- + 4 +
+ +self.print_text(' ');- +
+ +end if;- +
+ +end;- +
+ +- +
+ +procedure print_warnings(a_run in ut_run) is- +
+ +begin- + 70 +
+ +if a_run.results_count.warnings_count > 0 then- + 3 +
+ +self.print_text(' ');- + 3 +
+ +self.print_text('Warnings:');- + 3 +
+ +self.print_text(' ');- + 6 +
+ +for i in 1 .. a_run.items.count loop- + 3 +
+ +print_item_warnings(treat(a_run.items(i) as ut_suite_item));- +
+ +end loop;- +
+ +end if;- +
+ +end;- +
+ +- +
+ +begin- + 70 +
+ +print_failures_details(a_run);- + 70 +
+ +print_warnings(a_run);- + 70 +
+ +self.print_text('Finished in ' || a_run.execution_time || ' seconds');- +
+ +- + 70 +
+ +l_summary_text :=- +
+ +a_run.results_count.total_count || ' tests, '- +
+ +|| a_run.results_count.failure_count || ' failed, ' || a_run.results_count.errored_count || ' errored, '- +
+ +|| a_run.results_count.disabled_count ||' disabled, ' || a_run.results_count.warnings_count || ' warning(s)';- + 70 +
+ +if a_run.results_count.failure_count + a_run.results_count.errored_count + a_run.results_count.warnings_count > 0 then- + 48 +
+ +self.print_red_text(l_summary_text);- +
+ +else- + 22 +
+ +self.print_green_text(l_summary_text);- +
+ +end if;- + 70 +
+ +if a_run.random_test_order_seed is not null then- + 4 +
+ +self.print_text('Tests were executed with random order seed '''||a_run.random_test_order_seed||'''.');- +
+ +end if;- + 70 +
+ +self.print_text(' ');- + 70 +
+ +(self as ut_reporter_base).after_calling_run(a_run);- +
+ +end;- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'A textual pretty-print of unit test results (usually use for console output)';- +
+ +end;- +
+ +- +
+end;+UT3.UT_JUNIT_REPORTER
93.85 % lines covered
65 relevant lines. 61 lines covered and 4 lines missed+ +
- +
+ +type body ut_junit_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_junit_reporter(self in out nocopy ut_junit_reporter) return self as result is- +
+ +begin- + 11 +
+ +self.init($$plsql_unit);- + 11 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_junit_reporter, a_run in ut_run) is- + 12 +
+ +l_suite_id integer := 0;- + 12 +
+ +l_tests_count integer := a_run.results_count.disabled_count + a_run.results_count.success_count +- +
+ +a_run.results_count.failure_count + a_run.results_count.errored_count;- +
+ +- +
+ +function get_path(a_path_with_name varchar2, a_name varchar2) return varchar2 is- +
+ +begin- + 19 +
+ +return regexp_substr(a_path_with_name, '(.*)\.' ||a_name||'$',subexpression=>1);- +
+ +end;- +
+ +- +
+ +procedure print_test_elements(a_test ut_test) is- + 19 +
+ +l_results ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_output clob;- +
+ +begin- + 19 +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +'<testcase classname="' || dbms_xmlgen.convert(get_path(a_test.path, a_test.name)) || '"' || ' assertions="'- +
+ +|| nvl(a_test.all_expectations.count,0) || self.get_common_item_attributes(a_test)- + 1 +
+ +|| case when a_test.result != ut_utils.gc_success then- +
+ +' status="' || ut_utils.test_result_to_char(a_test.result) || '"' end || '>'- +
+ +);- + 19 +
+ +if a_test.result = ut_utils.gc_disabled then- + 2 +
+ +ut_utils.append_to_list( l_results, '<skipped/>' );- +
+ +end if;- + 19 +
+ +if a_test.result = ut_utils.gc_error then- + 2 +
+ +ut_utils.append_to_list( l_results, '<error>');- + 2 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( ut_utils.convert_collection( a_test.get_error_stack_traces() ) ) );- + 2 +
+ +ut_utils.append_to_list( l_results, '</error>');- + 17 +
+ +elsif a_test.result > ut_utils.gc_success then- + 8 +
+ +ut_utils.append_to_list( l_results, '<failure>');- + 8 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( a_test.get_failed_expectation_lines() ) );- + 8 +
+ +ut_utils.append_to_list( l_results, '</failure>');- +
+ +end if;- +
+ +- + 19 +
+ +l_output := a_test.get_serveroutputs();- + 19 +
+ +if l_output is not null then- + 6 +
+ +ut_utils.append_to_list( l_results, '<system-out>');- + 6 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( a_test.get_serveroutputs() ) );- + 6 +
+ +ut_utils.append_to_list( l_results, '</system-out>' );- +
+ +else- + 13 +
+ +ut_utils.append_to_list( l_results, '<system-out/>');- +
+ +end if;- + 19 +
+ +ut_utils.append_to_list( l_results, '<system-err/>');- + 19 +
+ +ut_utils.append_to_list( l_results, '</testcase>');- +
+ +- + 19 +
+ +self.print_text_lines(l_results);- +
+ +end;- +
+ +- +
+ +procedure print_suite_elements(a_suite ut_logical_suite, a_suite_id in out nocopy integer) is- + 24 +
+ +l_count integer := a_suite.results_count.disabled_count + a_suite.results_count.success_count +- +
+ +a_suite.results_count.failure_count + a_suite.results_count.errored_count;- +
+ +l_suite ut_suite;- + 24 +
+ +l_tests ut_suite_items := ut_suite_items();- + 24 +
+ +l_results ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_data clob;- +
+ +l_errors ut_varchar2_list;- +
+ +begin- + 24 +
+ +a_suite_id := a_suite_id + 1;- + 24 +
+ +self.print_text('<testsuite tests="' || l_count || '"' || ' id="' || a_suite_id || '"' || ' package="' ||- +
+ +dbms_xmlgen.convert(a_suite.path) || '" ' || self.get_common_suite_attributes(a_suite) || '>');- +
+ +- +
+ +-- Becasue testsuites have to appear before test we capture test and leave it for later.- + 55 +
+ +for i in 1 .. a_suite.items.count loop- + 31 +
+ +if a_suite.items(i) is of(ut_test) then- + 19 +
+ +l_tests.extend;- + 19 +
+ +l_tests(l_tests.last) := treat(a_suite.items(i) as ut_test);- + 12 +
+ +elsif a_suite.items(i) is of(ut_logical_suite) then- + 12 +
+ +print_suite_elements(treat(a_suite.items(i) as ut_logical_suite), a_suite_id);- +
+ +end if;- +
+ +end loop;- +
+ +- +
+ +-- Now when all testsuite are printed do the testcases.- + 43 +
+ +for i in 1 .. l_tests.count loop- + 19 +
+ +print_test_elements(treat(l_tests(i) as ut_test));- +
+ +end loop;- +
+ +- + 24 +
+ +if a_suite is of(ut_suite) then- + 14 +
+ +l_suite := treat(a_suite as ut_suite);- +
+ +- + 14 +
+ +l_data := l_suite.get_serveroutputs();- + 14 +
+ +if l_data is not null then- + 2 +
+ +ut_utils.append_to_list( l_results, '<system-out>');- + 2 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( l_data ) );- + 2 +
+ +ut_utils.append_to_list( l_results, '</system-out>');- +
+ +else- + 12 +
+ +ut_utils.append_to_list( l_results, '<system-out/>');- +
+ +end if;- +
+ +- + 14 +
+ +l_errors := l_suite.get_error_stack_traces();- + 14 +
+ +if l_errors is not empty then- +
+ +ut_utils.append_to_list( l_results, '<system-err>');- +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( ut_utils.convert_collection( l_errors ) ) );- +
+ +ut_utils.append_to_list( l_results, '</system-err>');- +
+ +else- + 14 +
+ +ut_utils.append_to_list( l_results, '<system-err/>');- +
+ +end if;- +
+ +end if;- + 24 +
+ +ut_utils.append_to_list( l_results, '</testsuite>');- +
+ +- + 24 +
+ +self.print_text_lines(l_results);- +
+ +end;- +
+ +- +
+ +begin- + 12 +
+ +l_suite_id := 0;- + 12 +
+ +self.print_text(ut_utils.get_xml_header(a_run.client_character_set));- + 12 +
+ +self.print_text('<testsuites tests="' || l_tests_count || '"' || self.get_common_suite_attributes(a_run) || '>');- + 24 +
+ +for i in 1 .. a_run.items.count loop- + 12 +
+ +print_suite_elements(treat(a_run.items(i) as ut_logical_suite), l_suite_id);- +
+ +end loop;- + 12 +
+ +self.print_text('</testsuites>');- +
+ +end;- +
+ +- +
+ +member function get_common_item_attributes(a_item ut_suite_item) return varchar2 is- +
+ +begin- + 55 +
+ +return '" name="' || dbms_xmlgen.convert(nvl(a_item.description, a_item.name))- +
+ +|| '" time="' || ut_utils.to_xml_number_format(a_item.execution_time()) || '" ';- +
+ +end;- +
+ +- +
+ +member function get_common_suite_attributes(a_item ut_suite_item) return varchar2 is- +
+ +begin- + 36 +
+ +return ' disabled="' || a_item.results_count.disabled_count- +
+ +|| '" errors="' || a_item.results_count.errored_count- +
+ +|| '" failures="' || a_item.results_count.failure_count- +
+ +|| get_common_item_attributes(a_item);- +
+ +end;- +
+ +- +
+ +overriding member function get_description return varchar2 as- +
+ +begin- +
+ +return 'Provides outcomes in a format conforming with JUnit 4 and above as defined in: https://gist.github.com/kuzuha/232902acab1344d6b578';- +
+ +end;- +
+ +- +
+end;UT3.UT_REALTIME_REPORTER
100 % lines covered
138 relevant lines. 138 lines covered and 0 lines missed+ +
- +
+ +type body ut_realtime_reporter is- +
+ +/*- +
+ +utPLSQL - Version 3- +
+ +Copyright 2016 - 2019 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.- +
+ +*/- +
+ +- +
+ +constructor function ut_realtime_reporter(- +
+ +self in out nocopy ut_realtime_reporter- +
+ +) return self as result is- +
+ +begin- + 2 +
+ +self.init($$plsql_unit,ut_output_clob_table_buffer());- + 2 +
+ +total_number_of_tests := 0;- + 2 +
+ +current_test_number := 0;- + 2 +
+ +current_indent := 0;- + 2 +
+ +print_buffer := ut_varchar2_rows();- + 2 +
+ +return;- +
+ +end;- +
+ +- +
+ +overriding member procedure before_calling_run(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_run in ut_run- +
+ +) is- +
+ +procedure print_test_elements(- +
+ +a_test in ut_test- +
+ +) is- +
+ +begin- + 8 +
+ +total_number_of_tests := total_number_of_tests + 1;- + 8 +
+ +self.print_start_node('test', 'id', a_test.path);- + 8 +
+ +self.print_node('executableType', a_test.item.executable_type);- + 8 +
+ +self.print_node('ownerName', a_test.item.owner_name);- + 8 +
+ +self.print_node('objectName', a_test.item.object_name);- + 8 +
+ +self.print_node('procedureName', a_test.item.procedure_name);- + 8 +
+ +self.print_node('disabled', case when a_test.get_disabled_flag() then 'true' else 'false' end);- + 8 +
+ +self.print_node('name', a_test.name);- + 8 +
+ +self.print_node('description', a_test.description);- + 8 +
+ +self.print_node('testNumber', to_char(total_number_of_tests));- + 8 +
+ +self.print_end_node('test');- +
+ +end print_test_elements;- +
+ +- +
+ +procedure print_suite_elements(- +
+ +a_suite in ut_logical_suite- +
+ +) is- +
+ +begin- + 6 +
+ +self.print_start_node('suite', 'id', a_suite.path);- + 6 +
+ +self.print_node('name', a_suite.name);- + 6 +
+ +self.print_node('description', a_suite.description);- +
+ +<<suite_elements>>- + 6 +
+ +self.print_start_node('items');- + 19 +
+ +for i in 1 .. a_suite.items.count loop- + 13 +
+ +if a_suite.items(i) is of(ut_test) then- + 8 +
+ +print_test_elements(treat(a_suite.items(i) as ut_test));- + 5 +
+ +elsif a_suite.items(i) is of(ut_logical_suite) then- + 5 +
+ +print_suite_elements(treat(a_suite.items(i) as ut_logical_suite));- +
+ +end if;- +
+ +end loop suite_elements;- + 6 +
+ +self.print_end_node('items');- + 6 +
+ +self.print_end_node('suite');- +
+ +end print_suite_elements;- +
+ +begin- + 1 +
+ +xml_header := ut_utils.get_xml_header(a_run.client_character_set);- + 1 +
+ +self.print_xml_fragment(xml_header);- + 1 +
+ +self.print_start_node('event', 'type', 'pre-run');- + 1 +
+ +self.print_start_node('items');- +
+ +<<items>>- + 2 +
+ +for i in 1 .. a_run.items.count loop- + 1 +
+ +print_suite_elements(treat(a_run.items(i) as ut_logical_suite));- +
+ +end loop items;- + 1 +
+ +self.print_end_node('items');- + 1 +
+ +self.print_node('totalNumberOfTests', to_char(total_number_of_tests));- + 1 +
+ +self.print_end_node('event');- + 1 +
+ +self.flush_print_buffer('pre-run');- +
+ +end before_calling_run;- +
+ +- +
+ +overriding member procedure after_calling_run(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_run in ut_run- +
+ +) is- +
+ +begin- + 1 +
+ +self.print_xml_fragment(xml_header);- + 1 +
+ +self.print_start_node('event', 'type', 'post-run');- + 1 +
+ +self.print_start_node('run');- + 1 +
+ +self.print_node('startTime', to_char(a_run.start_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 1 +
+ +self.print_node('endTime', to_char(a_run.end_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 1 +
+ +self.print_node('executionTime', ut_utils.to_xml_number_format(a_run.execution_time()));- + 1 +
+ +self.print_start_node('counter');- + 1 +
+ +self.print_node('disabled', to_char(a_run.results_count.disabled_count));- + 1 +
+ +self.print_node('success', to_char(a_run.results_count.success_count));- + 1 +
+ +self.print_node('failure', to_char(a_run.results_count.failure_count));- + 1 +
+ +self.print_node('error', to_char(a_run.results_count.errored_count));- + 1 +
+ +self.print_node('warning', to_char(a_run.results_count.warnings_count));- + 1 +
+ +self.print_end_node('counter');- + 1 +
+ +self.print_cdata_node('errorStack', ut_utils.table_to_clob(a_run.get_error_stack_traces(), chr(10)||chr(10)));- + 1 +
+ +self.print_cdata_node('serverOutput', a_run.get_serveroutputs());- + 1 +
+ +self.print_end_node('run');- + 1 +
+ +self.print_end_node('event');- + 1 +
+ +self.flush_print_buffer('post-run');- +
+ +end after_calling_run;- +
+ +- +
+ +overriding member procedure before_calling_suite(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_suite in ut_logical_suite- +
+ +) is- +
+ +begin- + 6 +
+ +self.print_xml_fragment(xml_header);- + 6 +
+ +self.print_start_node('event', 'type', 'pre-suite');- + 6 +
+ +self.print_start_node('suite', 'id', a_suite.path);- + 6 +
+ +self.print_end_node('suite');- + 6 +
+ +self.print_end_node('event');- + 6 +
+ +self.flush_print_buffer('pre-suite');- +
+ +end before_calling_suite;- +
+ +- +
+ +overriding member procedure after_calling_suite(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_suite in ut_logical_suite- +
+ +) is- +
+ +begin- + 6 +
+ +self.print_xml_fragment(xml_header);- + 6 +
+ +self.print_start_node('event', 'type', 'post-suite');- + 6 +
+ +self.print_start_node('suite', 'id', a_suite.path);- + 6 +
+ +self.print_node('startTime', to_char(a_suite.start_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 6 +
+ +self.print_node('endTime', to_char(a_suite.end_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 6 +
+ +self.print_node('executionTime', ut_utils.to_xml_number_format(a_suite.execution_time()));- + 6 +
+ +self.print_start_node('counter');- + 6 +
+ +self.print_node('disabled', to_char(a_suite.results_count.disabled_count));- + 6 +
+ +self.print_node('success', to_char(a_suite.results_count.success_count));- + 6 +
+ +self.print_node('failure', to_char(a_suite.results_count.failure_count));- + 6 +
+ +self.print_node('error', to_char(a_suite.results_count.errored_count));- + 6 +
+ +self.print_node('warning', to_char(a_suite.results_count.warnings_count));- + 6 +
+ +self.print_end_node('counter');- + 6 +
+ +self.print_cdata_node('errorStack', ut_utils.table_to_clob(a_suite.get_error_stack_traces(), chr(10)||chr(10)));- + 6 +
+ +self.print_cdata_node('serverOutput', a_suite.get_serveroutputs());- + 6 +
+ +self.print_cdata_node('warnings', ut_utils.table_to_clob(a_suite.warnings, chr(10)||chr(10)));- + 6 +
+ +self.print_end_node('suite');- + 6 +
+ +self.print_end_node('event');- + 6 +
+ +self.flush_print_buffer('post-suite');- +
+ +end after_calling_suite;- +
+ +- +
+ +overriding member procedure before_calling_test(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_test in ut_test- +
+ +) is- +
+ +begin- + 8 +
+ +current_test_number := current_test_number + 1;- + 8 +
+ +self.print_xml_fragment(xml_header);- + 8 +
+ +self.print_start_node('event', 'type', 'pre-test');- + 8 +
+ +self.print_start_node('test', 'id', a_test.path);- + 8 +
+ +self.print_node('testNumber', to_char(current_test_number));- + 8 +
+ +self.print_node('totalNumberOfTests', to_char(total_number_of_tests));- + 8 +
+ +self.print_end_node('test');- + 8 +
+ +self.print_end_node('event');- + 8 +
+ +self.flush_print_buffer('pre-test');- +
+ +end before_calling_test;- +
+ +- +
+ +overriding member procedure after_calling_test(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_test in ut_test- +
+ +) is- +
+ +begin- + 8 +
+ +self.print_xml_fragment(xml_header);- + 8 +
+ +self.print_start_node('event', 'type', 'post-test');- + 8 +
+ +self.print_start_node('test', 'id', a_test.path);- + 8 +
+ +self.print_node('testNumber', to_char(current_test_number));- + 8 +
+ +self.print_node('totalNumberOfTests', to_char(total_number_of_tests));- + 8 +
+ +self.print_node('startTime', to_char(a_test.start_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 8 +
+ +self.print_node('endTime', to_char(a_test.end_time, 'YYYY-MM-DD"T"HH24:MI:SS.FF6'));- + 8 +
+ +self.print_node('executionTime', ut_utils.to_xml_number_format(a_test.execution_time()));- + 8 +
+ +self.print_start_node('counter');- + 8 +
+ +self.print_node('disabled', to_char(a_test.results_count.disabled_count));- + 8 +
+ +self.print_node('success', to_char(a_test.results_count.success_count));- + 8 +
+ +self.print_node('failure', to_char(a_test.results_count.failure_count));- + 8 +
+ +self.print_node('error', to_char(a_test.results_count.errored_count));- + 8 +
+ +self.print_node('warning', to_char(a_test.results_count.warnings_count));- + 8 +
+ +self.print_end_node('counter');- + 8 +
+ +self.print_cdata_node('errorStack', ut_utils.table_to_clob(a_test.get_error_stack_traces(), chr(10)||chr(10)));- + 8 +
+ +self.print_cdata_node('serverOutput', a_test.get_serveroutputs());- + 8 +
+ +if a_test.failed_expectations.count > 0 then- + 2 +
+ +self.print_start_node('failedExpectations');- +
+ +<<expectations>>- + 5 +
+ +for i in 1 .. a_test.failed_expectations.count loop- + 3 +
+ +self.print_start_node('expectation');- + 3 +
+ +self.print_node('description', a_test.failed_expectations(i).description);- + 3 +
+ +self.print_cdata_node('message', a_test.failed_expectations(i).message);- + 3 +
+ +self.print_cdata_node('caller', a_test.failed_expectations(i).caller_info);- + 3 +
+ +self.print_end_node('expectation');- +
+ +end loop expectations;- + 2 +
+ +self.print_end_node('failedExpectations');- +
+ +end if;- + 8 +
+ +self.print_cdata_node('warnings', ut_utils.table_to_clob(a_test.warnings, chr(10)||chr(10)));- + 8 +
+ +self.print_end_node('test');- + 8 +
+ +self.print_end_node('event');- + 8 +
+ +self.flush_print_buffer('post-test');- +
+ +end after_calling_test;- -
- -
-function get_coverage_json(- -
-a_coverage_data ut_coverage.t_coverage- -
-) return clob is- -
-l_file_part varchar2(32767);- -
-l_result clob;- -
-l_unit ut_coverage.t_full_name;- - 1 -
-c_coverage_header constant varchar2(30) := '{"source_files":['||chr(10);- - 1 -
-c_coverage_footer constant varchar2(30) := ']}'||chr(10)||chr(10)||chr(10)||chr(10)||' ';- -
-begin- + +
- +
+ +overriding member function get_description return varchar2 is- +
+ +begin- 1 -
-dbms_lob.createtemporary(l_result,true);- +
+ +return 'Provides test results in a XML format, for clients such as SQL Developer interested in showing progressing details.';- +
+ +end get_description;- -
- + +
- +
+ +member procedure print_start_node(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_node_name in varchar2,- +
+ +a_attr_name in varchar2 default null,- +
+ +a_attr_value in varchar2 default null- +
+ +) is- +
+ +begin- + 100 +
+ +self.print_xml_fragment(- +
+ +'<' || a_node_name- 1 -
-ut_utils.append_to_clob(l_result, c_coverage_header);- +
+ +|| case- 1 -
-l_unit := a_coverage_data.objects.first;- - 78 -
-while l_unit is not null loop- - 78 -
-l_file_part := '{ "name": "'||l_unit||'",'||chr(10);- - 78 -
-ut_utils.append_to_clob(l_result, l_file_part);- -
-- - 78 -
-dbms_lob.append(l_result,get_lines_json(a_coverage_data.objects(l_unit)));- +
+ +when a_attr_name is not null and a_attr_value is not null then- +
+ +' ' || a_attr_name || '="' || dbms_xmlgen.convert(a_attr_value) || '"'- +
+ +end- +
+ +|| '>',- +
+ +0, 1- +
+ +);- +
+ +end print_start_node;- -
- - 78 -
-ut_utils.append_to_clob(l_result, '}');- + +
- +
+ +member procedure print_end_node(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_name in varchar2- +
+ +) is- +
+ +begin- + 100 +
+ +self.print_xml_fragment('</' || a_name || '>', -1);- +
+ +end print_end_node;- -
- - 78 -
-l_unit := a_coverage_data.objects.next(l_unit);- - 78 -
-if l_unit is not null then- - 77 -
-ut_utils.append_to_clob(l_result, ','||chr(10));- -
-end if;- -
-end loop;- - 1 -
-ut_utils.append_to_clob(l_result, c_coverage_footer);- - 1 -
-return l_result;- -
-end;- + +
- +
+ +member procedure print_node(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_name in varchar2,- +
+ +a_content in clob- +
+ +) is- -
begin- - 2 -
-ut_coverage.coverage_stop();- + +
- + 232 +
+ +if a_content is not null then- + 219 +
+ +self.print_xml_fragment('<' || a_name || '>' || dbms_xmlgen.convert(a_content) || '</' || a_name || '>');- +
+ +end if;- +
+ +end print_node;- -
- - 1 -
-l_coverage_data := ut_coverage.get_coverage_data(a_run.coverage_options);- + +
- +
+ +member procedure print_cdata_node(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_name in varchar2,- +
+ +a_content in clob- +
+ +) is- +
+ +begin- + 50 +
+ +if a_content is not null then- + 13 +
+ +self.print_xml_fragment('<' || a_name || '><![CDATA[' || a_content || ']]></' || a_name || '>');- +
+ +end if;- +
+ +end print_cdata_node;- -
- - 1 -
-self.print_clob( get_coverage_json( l_coverage_data ) );- + +
- +
+ +member procedure print_xml_fragment(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_fragment in clob,- +
+ +a_indent_summand_before in integer default 0,- +
+ +a_indent_summand_after in integer default 0- +
+ +) is- +
+ +begin- + 462 +
+ +current_indent := current_indent + a_indent_summand_before;- + 462 +
+ +ut_utils.append_to_list(print_buffer, lpad(' ', 2 * current_indent) || a_fragment);- + 462 +
+ +current_indent := current_indent + a_indent_summand_after;- +
+ +end print_xml_fragment;- -
- - 1 -
-(self as ut_reporter_base).after_calling_run(a_run);- -
-end;- + +
- +
+ +member procedure flush_print_buffer(- +
+ +self in out nocopy ut_realtime_reporter,- +
+ +a_item_type in varchar2- +
+ +) is- +
+ +l_doc clob;- + 30 +
+ +l_rows integer := print_buffer.count;- +
+ +begin- + 513 +
+ +for i in 1 .. l_rows loop- + 483 +
+ +ut_utils.append_to_clob(l_doc, print_buffer(i));- + 483 +
+ +ut_utils.append_to_clob(l_doc, chr(10));- +
+ +end loop;- + 30 +
+ +self.print_clob(l_doc, a_item_type);- + 30 +
+ +print_buffer.delete;- +
+ +end flush_print_buffer;- -
- -
end;+UT3.UT_DOCUMENTATION_REPORTER
100 % covered
80 relevant lines. 80 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_SONAR_TEST_REPORTER
97.73 % lines covered
44 relevant lines. 43 lines covered and 1 lines missed+
- -
+type body ut_documentation_reporter istype body ut_sonar_test_reporter is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_documentation_reporter(self in out nocopy ut_documentation_reporter) return self as result isconstructor function ut_sonar_test_reporter(+- +
+ +self in out nocopy ut_sonar_test_reporter- +
+ +) return self as result is- -
begin- - 31 + +
- + 10
-self.init($$plsql_unit);- - 31 -
-self.lvl := 0;- - 31 -
-self.failed_test_running_count := 0;- - 31 + +
- + 10
+return;- +
end;- +
- -
+member function tab(self in ut_documentation_reporter) return varchar2 isoverriding member procedure after_calling_run(self in out nocopy ut_sonar_test_reporter, a_run in ut_run) is+- -
-begin- - 543 -
+return rpad(' ', self.lvl * 2);+ +- +
+function map_package_to_file(a_suite ut_suite, a_file_mappings ut_file_mappings) return varchar2 is- -
+end tab;l_file_name varchar2(4000);+- -
-- -
-overriding member procedure print_text(self in out nocopy ut_documentation_reporter, a_text varchar2) is- -
-l_lines ut_varchar2_list;- -
-begin- - 534 -
-if a_text is not null then- - 494 -
-l_lines := ut_utils.string_to_table(a_text);- - 1037 -
-for i in 1 .. l_lines.count loop- - 543 -
-(self as ut_reporter_base).print_text(tab || l_lines(i));- -
-end loop;- -
-end if;- -
-end;- -
-- -
-overriding member procedure before_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_logical_suite) as- -
-begin- - 63 -
-self.print_text(coalesce(a_suite.description, a_suite.name));- - 63 -
-lvl := lvl + 1;- -
-end;- -
-- -
-overriding member procedure after_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test) as- -
-l_message varchar2(4000);- -
-- -
-begin- - 95 -
-l_message := coalesce(a_test.description, a_test.name)||' ['||round(a_test.execution_time,3)||' sec]';- -
---if test failed, then add it to the failures list, print failure with number- - 95 -
-if a_test.result = ut_utils.tr_disabled then- - 13 -
-self.print_yellow_text(l_message || ' (IGNORED)');- - 82 -
-elsif a_test.result = ut_utils.tr_success then- - 55 -
-self.print_green_text(l_message);- - 27 -
-elsif a_test.result > ut_utils.tr_success then- - 27 -
-failed_test_running_count := failed_test_running_count + 1;- - 27 -
-self.print_red_text(l_message || ' (FAILED - ' || failed_test_running_count || ')');- -
-end if;- -
-- -
--- reproduce the output from before/after procedures and the test- - 95 -
-self.print_clob(a_test.get_serveroutputs);- -
-end;- -
-- -
-overriding member procedure after_calling_before_all(self in out nocopy ut_documentation_reporter, a_suite in ut_logical_suite) is- -
-begin- - 11 -
-self.print_clob(treat(a_suite as ut_suite).before_all.serveroutput);- -
-end;- -
-- -
-overriding member procedure after_calling_after_all(self in out nocopy ut_documentation_reporter, a_suite in ut_logical_suite) is- -
-begin- - 9 -
-self.print_clob(treat(a_suite as ut_suite).after_all.serveroutput);- -
-end;- -
-- -
-overriding member procedure after_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_logical_suite) as- -
-begin- - 63 -
-lvl := lvl - 1;- - 63 -
-if lvl = 0 then- - 39 -
-self.print_text(' ');- -
-end if;- -
-end;- -
-- -
-overriding member procedure after_calling_run(self in out nocopy ut_documentation_reporter, a_run in ut_run) as- -
-l_summary_text varchar2(4000);- - 27 -
-l_warning_index pls_integer := 0;- -
--- make all warning indexes uniformly indented- - 27 -
-c_warnings_lpad constant integer := length(to_char(a_run.results_count.warnings_count));- -
-- -
-procedure print_failure_for_expectation(a_expectation ut_expectation_result) is- -
-l_lines ut_varchar2_list;- -
begin- - 13 -
-l_lines := a_expectation.get_result_lines();- - 31 -
-for i in 1 .. l_lines.count loop- + +
- + 20 +
+ +if a_file_mappings is not null then- + 34 +
+ +for i in 1 .. a_file_mappings.count loop- + 32 +
+ +if upper(a_file_mappings(i).object_name) = upper(a_suite.object_name)- + 1 +
+ +and upper(a_file_mappings(i).object_owner) = upper(a_suite.object_owner)- + 1 +
+ +and a_file_mappings(i).object_type = 'PACKAGE BODY' then- 18 -
-self.print_red_text(l_lines(i));- -
-end loop;- - 13 -
-self.print_cyan_text(a_expectation.caller_info);- - 13 -
-self.print_text(' ');- -
-end;- -
-- -
-procedure print_failures_for_test(a_test ut_test, a_failure_no in out nocopy integer) is- -
-begin- - 72 -
-if a_test.result > ut_utils.tr_success then- - 27 -
-a_failure_no := a_failure_no + 1;- - 27 -
-self.print_text(lpad(a_failure_no, length(failed_test_running_count) + 2, ' ') || ') ' ||- -
-nvl(a_test.name, a_test.item.form_name));- - 27 -
-self.lvl := self.lvl + 3;- -
-- - 27 -
-self.print_red_text(ut_utils.table_to_clob(a_test.get_error_stack_traces()));- -
-- - 40 -
-for j in 1 .. a_test.results.count loop- - 13 -
-if a_test.results(j).status > ut_utils.tr_success then- - 13 -
-print_failure_for_expectation(a_test.results(j));- +
+ +l_file_name := a_file_mappings(i).file_name;- + 18 +
+ +exit;- -
end if;- + +
- -
end loop;- + +
- +
+ +end if;- + 20 +
+ +return coalesce(l_file_name, a_suite.path);- +
+ +end;- -
- - 27 -
-self.lvl := self.lvl - 3;- + +
- +
+ +procedure print_test_results(a_test ut_test) is- + 43 +
+ +l_results ut_varchar2_rows := ut_varchar2_rows();- +
+ +begin- + 43 +
+ +ut_utils.append_to_list( l_results, '<testCase name="'||dbms_xmlgen.convert(a_test.name)||'" duration="'||round(a_test.execution_time()*1000,0)||'" >');- + 43 +
+ +if a_test.result = ut_utils.gc_disabled then- + 2 +
+ +ut_utils.append_to_list( l_results, '<skipped message="skipped"/>');- + 41 +
+ +elsif a_test.result = ut_utils.gc_error then- + 9 +
+ +ut_utils.append_to_list( l_results, '<error message="encountered errors">');- + 9 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( ut_utils.convert_collection( a_test.get_error_stack_traces() ) ) );- + 9 +
+ +ut_utils.append_to_list( l_results, '</error>');- + 32 +
+ +elsif a_test.result > ut_utils.gc_success then- + 3 +
+ +ut_utils.append_to_list( l_results, '<failure message="some expectations have failed">');- + 3 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( a_test.get_failed_expectation_lines() ) );- + 3 +
+ +ut_utils.append_to_list( l_results, '</failure>');- -
end if;- + +
- + 43 +
+ +ut_utils.append_to_list( l_results, '</testCase>');- +
+ +- + 43 +
+ +self.print_text_lines(l_results);- -
end;- + +
- -
- -
-procedure print_failures_from_suite(a_suite ut_logical_suite, a_failure_no in out nocopy integer) is- + +
- +
+ +procedure print_suite_results(a_suite ut_logical_suite, a_file_mappings ut_file_mappings) is- -
begin- - 124 + +
- +
+ +- + 113
-for i in 1 .. a_suite.items.count loop- - 84 -
-if a_suite.items(i) is of(ut_logical_suite) then- - 12 -
-print_failures_from_suite(treat(a_suite.items(i) as ut_logical_suite), a_failure_no);- - 72 -
-elsif a_suite.items(i) is of(ut_test) then- - 72 -
-print_failures_for_test(treat(a_suite.items(i) as ut_test), a_failure_no);- + +
- + 71 +
+ +if a_suite.items(i) is of(ut_logical_suite) and a_suite.items(i) is not of(ut_suite_context) then- + 26 +
+ +print_suite_results(treat(a_suite.items(i) as ut_logical_suite), a_file_mappings);- -
end if;- + +
- -
end loop;- -
-end;- -
-- -
-procedure print_failures_details(a_run in ut_run) is- - 27 -
-l_failure_no integer := 0;- -
-begin- - 27 -
-if a_run.results_count.failure_count > 0 or a_run.results_count.errored_count > 0 then- + +
- -
- - 16 -
-self.print_text('Failures:');- - 16 -
-self.print_text(' ');- - 44 -
-for i in 1 .. a_run.items.count loop- - 28 -
-print_failures_from_suite(treat(a_run.items(i) as ut_logical_suite), l_failure_no);- -
-end loop;- + +
- + 42 +
+ +if a_suite is of(ut_suite) and a_suite is not of(ut_suite_context) then- + 20 +
+ +self.print_text('<file path="'||dbms_xmlgen.convert(map_package_to_file(treat(a_suite as ut_suite), a_file_mappings))||'">');- -
end if;- -
-end;- + +
- -
- -
-procedure print_item_warnings(a_item in ut_suite_item) is- -
-l_items ut_suite_items;- -
-begin- - 8 -
-if a_item is of (ut_logical_suite) then- - 3 -
-l_items := treat(a_item as ut_logical_suite).items;- - 8 -
-for i in 1 .. l_items.count loop- - 5 -
-if l_items(i) is of(ut_suite_item) then- - 5 -
-print_item_warnings(l_items(i));- + +
- + 113 +
+ +for i in 1 .. a_suite.items.count loop- + 71 +
+ +if a_suite.items(i) is of(ut_suite_context) then- + 2 +
+ +print_suite_results(treat(a_suite.items(i) as ut_suite_context), a_file_mappings);- +
+ +end if;- +
+ +end loop;- +
+ +- + 42 +
+ +if a_suite is of(ut_suite) then- + 73 +
+ +for i in 1 .. a_suite.items.count loop- + 51 +
+ +if a_suite.items(i) is of(ut_test) then- + 43 +
+ +print_test_results(treat(a_suite.items(i) as ut_test));- -
end if;- + +
- -
end loop;- + +
- -
end if;- + +
- -
- - 8 -
-if a_item.warnings is not null and a_item.warnings.count > 0 then- - 10 -
-for i in 1 .. a_item.warnings.count loop- - 5 -
-l_warning_index := l_warning_index + 1;- - 5 -
-self.print_text(' ' || lpad(l_warning_index, c_warnings_lpad) || ') ' || a_item.path);- - 5 -
-self.lvl := self.lvl + 3;- - 5 -
-self.print_red_text(a_item.warnings(i));- - 5 -
-self.lvl := self.lvl - 3;- -
-end loop;- - 5 -
-self.print_text(' ');- + +
- + 42 +
+ +if a_suite is of(ut_suite) and a_suite is not of(ut_suite_context) then- + 20 +
+ +self.print_text('</file>');- -
end if;- + +
- -
end;- + +
- -
- -
-procedure print_warnings(a_run in ut_run) is- -
-begin- - 27 -
-if a_run.results_count.warnings_count > 0 then- - 3 -
-self.print_text(' ');- - 3 -
-self.print_text('Warnings:');- - 3 -
-self.print_text(' ');- - 6 -
-for i in 1 .. a_run.items.count loop- - 3 -
-print_item_warnings(treat(a_run.items(i) as ut_suite_item));- -
-end loop;- -
-end if;- -
-end;- + +
- +
+ +begin- + 10 +
+ +self.print_text(ut_utils.get_xml_header(a_run.client_character_set));- + 10 +
+ +self.print_text('<testExecutions version="1">');- + 24 +
+ +for i in 1 .. a_run.items.count loop- + 14 +
+ +print_suite_results(treat(a_run.items(i) as ut_logical_suite), a_run.test_file_mappings);- +
+ +end loop;- +
+ +- + 10 +
+ +self.print_text('</testExecutions>');- +
+ +end;- -
- + +
- +
+ +overriding member function get_description return varchar2 as- -
begin- - 27 -
-print_failures_details(a_run);- - 27 -
-print_warnings(a_run);- - 27 -
-self.print_text('Finished in ' || a_run.execution_time || ' seconds');- -
-- - 27 -
-l_summary_text :=- -
-a_run.results_count.total_count || ' tests, '- -
-|| a_run.results_count.failure_count || ' failed, ' || a_run.results_count.errored_count || ' errored, '- -
-|| a_run.results_count.disabled_count ||' disabled, ' || a_run.results_count.warnings_count || ' warning(s)';- - 27 -
-if a_run.results_count.failure_count + a_run.results_count.errored_count + a_run.results_count.warnings_count > 0 then- - 18 -
-self.print_red_text(l_summary_text);- -
-else- - 9 -
-self.print_green_text(l_summary_text);- -
-end if;- - 27 -
-self.print_text(' ');- - 27 -
-(self as ut_reporter_base).after_calling_run(a_run);- + +
- +
+ +return 'Generates a JSON report providing detailed information on test execution.' || chr(10) ||- +
+ +'Designed for [SonarQube](https://about.sonarqube.com/) to report test execution.' || chr(10) ||- +
+ +'JSON format returned conforms with the Sonar specification: https://docs.sonarqube.org/display/SONAR/Generic+Test+Data';- -
end;- + +
- -
- -
end;+UT3.UT_SONAR_TEST_REPORTER
100 % covered
31 relevant lines. 31 lines covered and 0 lines missed+ +
- +
+end;UT3.UT_TEAMCITY_REPORTER
94.44 % lines covered
36 relevant lines. 34 lines covered (including 1 lines partially covered ) and 2 lines missed+
- -
+type body ut_sonar_test_reporter istype body ut_teamcity_reporter is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_sonar_test_reporter(constructor function ut_teamcity_reporter(self in out nocopy ut_teamcity_reporter) return self as result is+- -
-self in out nocopy ut_sonar_test_reporter- -
-) return self as result is- -
begin- - 6 + +
- + 3
-self.init($$plsql_unit);- - 6 + +
- + 3
-return;- + +
- -
end;- + +
- -
- -
-overriding member procedure before_calling_run(self in out nocopy ut_sonar_test_reporter, a_run in ut_run) is- + +
- +
+ +overriding member procedure before_calling_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_logical_suite) is- -
begin- - 6 -
-self.file_mappings := coalesce(a_run.test_file_mappings,ut_file_mappings());- - 6 -
+ +self.print_text('<testExecutions version="1">');- + 8 +
+ +self.print_text(- +
+ +ut_teamcity_reporter_helper.test_suite_started(- +
+ +a_suite_name => nvl(replace(trim(a_suite.description),'.'),a_suite.path)- +
+)- -
+end;);+- -
+end;+- -
+overriding member procedure before_calling_suite(self in out nocopy ut_sonar_test_reporter, a_suite ut_logical_suite) is+- -
+l_file_name varchar2(4000);overriding member procedure after_calling_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_logical_suite) is+- -
begin- - 74 -
-for i in 1 .. self.file_mappings.count loop- - 62 -
+ +if upper(self.file_mappings(i).object_name) = upper(a_suite.object_name)- + 8 +
+ +self.print_text(- +
+ut_teamcity_reporter_helper.test_suite_finished(- -
-and upper(self.file_mappings(i).object_owner) = upper(a_suite.object_owner) then- - 14 -
-l_file_name := self.file_mappings(i).file_name;- - 14 -
+exit;a_suite_name => nvl(replace(trim(a_suite.description),'.'),a_suite.path)+ +- +
+ +)- +
+);- -
+end if;end;+- -
-end loop;- - 14 -
-l_file_name := coalesce(l_file_name, a_suite.path);- - 26 -
+self.print_text('<file path="'||l_file_name||'">');+ +- +
+ +overriding member procedure before_calling_test(self in out nocopy ut_teamcity_reporter, a_test in ut_test) is- +
+l_test_full_name varchar2(4000);- -
+end;begin+- -
- -
+ +overriding member procedure after_calling_test(self in out nocopy ut_sonar_test_reporter, a_test ut_test) is- + 6 +
+l_test_full_name := lower(a_test.item.owner_name) || '.' || lower(a_test.item.object_name) || '.' ||- -
+l_message varchar2(32757);lower(a_test.item.procedure_name);+- -
-l_lines ut_varchar2_list;- -
-begin- - 46 -
-self.print_text('<testCase name="'||a_test.name||'" duration="'||round(a_test.execution_time()*1000,0)||'" >');- - 46 -
-if a_test.result = ut_utils.tr_disabled then- - 8 -
-self.print_text('<skipped message="skipped"/>');- - 38 -
-elsif a_test.result = ut_utils.tr_error then- - 4 -
-self.print_text('<error message="encountered errors">');- - 4 -
-self.print_text('<![CDATA[');- - 4 -
-self.print_clob(ut_utils.table_to_clob(a_test.get_error_stack_traces()));- - 4 -
-self.print_text(']]>');- - 4 -
-self.print_text('</error>');- - 34 -
-elsif a_test.result > ut_utils.tr_success then- - 4 -
-self.print_text('<failure message="some expectations have failed">');- - 4 -
-self.print_text('<![CDATA[');- - 8 -
-for i in 1 .. a_test.results.count loop- +
+ +- + 6 +
+ +self.print_text(- +
+ +ut_teamcity_reporter_helper.test_started(- +
+ +a_test_name => l_test_full_name,- +
+ +a_capture_standard_output => true- +
+ +)- +
+ +);- +
+ +- +
+ +end;- +
+ +- +
+ +overriding member procedure after_calling_test(self in out nocopy ut_teamcity_reporter, a_test in ut_test) is- + 6 +
+ +l_results ut_varchar2_rows := ut_varchar2_rows();- +
+ +l_test_full_name varchar2(4000);- +
+ +l_std_err_msg varchar2(32767);- +
+ +function add_error_message( a_message varchar2, a_message_name varchar2) return varchar2 is- +
+ +begin- + 3 +
+ +return- + 1 +
+ +case- + 1 +
+ +when a_message is not null- +
+ +then a_message_name || chr(10) || a_message || chr(10)- +
+ +end;- +
+ +end;- +
+ +function add_error_messages(a_executables ut_executables, a_message_name varchar2) return varchar2 is- +
+ +l_message varchar2(32767);- +
+ +l_idx binary_integer;- +
+ +begin- 4 -
-l_lines := a_test.results(i).get_result_lines();- - 12 -
-for i in 1 .. l_lines.count loop- - 8 -
-self.print_text(l_lines(i));- -
-end loop;- +
+ +l_idx := a_executables.first;- + 6 +
+ +while l_idx is not null loop- + 2 +
+ +l_message := l_message || add_error_message(a_executables(l_idx).error_backtrace, a_message_name);- + 2 +
+ +l_idx := a_executables.next(l_idx);- -
end loop;- + +
- 4 -
-self.print_text(']]>');- +
+ +return l_message;- +
+ +end;- +
+ +begin- + 6 +
+ +l_test_full_name := lower(a_test.item.owner_name) || '.' || lower(a_test.item.object_name) || '.' ||- +
+ +lower(a_test.item.procedure_name);- +
+ +- + 7 +
+ +if a_test.result = ut_utils.gc_disabled then- + 1 +
+ +ut_utils.append_to_list( l_results, ut_teamcity_reporter_helper.test_disabled(l_test_full_name));- +
+ +else- +
+ +- + 5 +
+ +ut_utils.append_to_list( l_results, a_test.get_serveroutputs());- +
+ +- + 5 +
+ +if a_test.result = ut_utils.gc_error then- + 1 +
+ +l_std_err_msg := l_std_err_msg || add_error_messages(a_test.before_each_list, 'Before each exception:');- + 1 +
+ +l_std_err_msg := l_std_err_msg || add_error_messages(a_test.before_test_list, 'Before test exception:');- + 1 +
+ +l_std_err_msg := l_std_err_msg || add_error_message(a_test.item.error_backtrace, 'Test exception:');- + 1 +
+ +l_std_err_msg := l_std_err_msg || add_error_messages(a_test.after_test_list, 'After test exception:');- + 1 +
+ +l_std_err_msg := l_std_err_msg || add_error_messages(a_test.after_each_list, 'After each exception:');- +
+ +- + 1 +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +ut_teamcity_reporter_helper.test_std_err(- +
+ +a_test_name => l_test_full_name,- +
+ +a_out => trim(l_std_err_msg)- +
+ +)- +
+ +);- + 1 +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +ut_teamcity_reporter_helper.test_failed(- +
+ +a_test_name => l_test_full_name,- +
+ +a_msg => 'Error occured',- +
+ +a_details =>- +
+ +trim(l_std_err_msg)- + 2/3 + 1 +
+ +|| case when a_test.failed_expectations is not null- + 1 +
+ +and a_test.failed_expectations.count>0- +
+ +then a_test.failed_expectations(1).message end- +
+ +)- +
+ +);- 4 -
-self.print_text('</failure>');- -
-end if;- - 46 -
-self.print_text('</testCase>');- -
-end;- +
+ +elsif a_test.failed_expectations is not null and a_test.failed_expectations.count > 0 then- +
+ +-- Teamcity supports only a single failure message- -
- -
-overriding member procedure after_calling_suite(self in out nocopy ut_sonar_test_reporter, a_suite ut_logical_suite) is- -
-begin- - 26 -
-self.print_text('</file>');- + +
- + 3 +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +ut_teamcity_reporter_helper.test_failed(- +
+ +a_test_name => l_test_full_name,- +
+ +a_msg => a_test.failed_expectations(a_test.failed_expectations.first).description,- +
+ +a_details => a_test.failed_expectations(a_test.failed_expectations.first).message )- +
+ +);- + 1 +
+ +elsif a_test.result = ut_utils.gc_failure then- +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +ut_teamcity_reporter_helper.test_failed(- +
+ +a_test_name => l_test_full_name,- +
+ +a_msg => 'Test failed'- +
+ +)- +
+ +);- +
+ +end if;- +
+ +- + 5 +
+ +ut_utils.append_to_list(- +
+ +l_results,- +
+ +ut_teamcity_reporter_helper.test_finished(l_test_full_name, trunc(a_test.execution_time * 1e3))- +
+ +);- +
+ +- +
+ +end if;- + 6 +
+ +self.print_text_lines(l_results);- -
end;- + +
- -
- -
-overriding member procedure after_calling_run(self in out nocopy ut_sonar_test_reporter, a_run in ut_run) is- + +
- +
+ +overriding member function get_description return varchar2 as- -
begin- - 6 -
-self.print_text('</testExecutions>');- + +
- +
+ +return 'Provides the TeamCity (a CI server by jetbrains) reporting-format that allows tracking of progress of a CI step/task as it executes.' || chr(10) ||- +
+ +'https://confluence.jetbrains.com/display/TCD9/Build+Script+Interaction+with+TeamCity';- -
end;- + +
- -
- -
end;+UT3.UT_TEAMCITY_REPORTER
81.82 % covered
33 relevant lines. 27 lines covered and 6 lines missed+ +
- +
+end;UT3.UT_TEAMCITY_REPORTER_HELPER
93.18 % lines covered
44 relevant lines. 41 lines covered and 3 lines missed+
- -
+type body ut_teamcity_reporter ispackage body ut_teamcity_reporter_helper is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+constructor function ut_teamcity_reporter(self in out nocopy ut_teamcity_reporter) return self as result issubtype t_prop_index is varchar2(2000 char);+- -
-begin- - 5 -
-self.init($$plsql_unit);- - 5 -
-return;- -
-end;- +
+ +type t_props is table of varchar2(32767) index by t_prop_index;- + +
- +
+ +function escape_value(a_value in varchar2) return varchar2 is- +
+ +begin- + 52 +
+return translate(regexp_replace(a_value, q'/(\'|\||\[|\]|/' || chr(13) || '|' || chr(10) || ')', '|\1'),chr(13)||chr(10),'rn');- -
+overriding member procedure before_calling_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_logical_suite) isend;+- -
-begin- - 25 -
+self.print_text(ut_teamcity_reporter_helper.test_suite_started(a_suite_name => nvl(replace(trim(a_suite.description)+ +- +
+function message(a_command in varchar2, a_props t_props default cast(null as t_props)) return varchar2 is- -
+,'.')l_message varchar2(32767);+- -
+,a_suite.name)));l_index t_prop_index;+- -
-end;- -
+l_value varchar2(32767);+ +- + 33 +
+l_max_len binary_integer := 2000;- -
-overriding member procedure after_calling_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_logical_suite) is- -
begin- - 25 -
+ +self.print_text(ut_teamcity_reporter_helper.test_suite_finished(a_suite_name => nvl(replace(trim(a_suite.description)- + 33 +
+ +l_message := '##teamcity[' || a_command || ' timestamp=''' ||- +
+regexp_replace(to_char(systimestamp, 'YYYY-MM-DD"T"HH24:MI:ss.FF3TZHTZM'), '(\.\d{3})\d+(\+)', '\1\2') || '''';- -
-,'.')- -
-,a_suite.name)));- -
-end;- -
- -
-overriding member procedure before_calling_test(self in out nocopy ut_teamcity_reporter, a_test in ut_test) is- -
-l_test_full_name varchar2(4000);- -
+ +begin- + 33 +
+ +l_index := a_props.first;- + 119 +
+ +while l_index is not null loop- + 86 +
+ +if a_props(l_index) is not null then- + 51 +
+ +l_value := escape_value(a_props(l_index));- + 51 +
+ +if length(l_value) > l_max_len then- + 1 +
+l_value := substr(l_value,1,l_max_len-7)||escape_value('[...]');- -
-- - 42 -
+l_test_full_name := lower(a_test.item.owner_name) || '.' || lower(a_test.item.object_name) || '.' ||end if;+ +- + 51 +
+l_message := l_message || ' ' || l_index || '=''' || l_value || '''';- -
-lower(a_test.item.procedure_name);- -
-- - 42 -
-self.print_text(ut_teamcity_reporter_helper.test_started(a_test_name => l_test_full_name- -
-,a_capture_standard_output => true));- -
+end if;+ +- + 86 +
+ +l_index := a_props.next(l_index);- +
+ +end loop;- + 33 +
+ +l_message := l_message || ']';- + 33 +
+return l_message;- -
-end;- + +
- +
+end message;- -
+overriding member procedure after_calling_test(self in out nocopy ut_teamcity_reporter, a_test in ut_test) is+- -
+l_expectation ut_expectation_result;function test_suite_started(a_suite_name varchar2, a_flow_id varchar2 default null) return varchar2 is+- -
+l_test_full_name varchar2(4000);l_props t_props;+- -
-l_std_err_msg varchar2(32767);- -
begin- -
--- l_test_full_name := self.suite_names_stack(self.suite_names_stack.last) || ':' ||- -
--- nvl(replace(a_test.description, '.'), a_test.name);- - 42 -
+ +l_test_full_name := lower(a_test.item.owner_name) || '.' || lower(a_test.item.object_name) || '.' ||- + 8 +
+ +l_props('name') := a_suite_name;- + 8 +
+ +l_props('flowId') := a_flow_id;- + 8 +
+ +return message('testSuiteStarted', l_props);- +
+end;- -
+lower(a_test.item.procedure_name);function test_suite_finished(a_suite_name varchar2, a_flow_id varchar2 default null) return varchar2 is+- -
-- - 42 -
-if a_test.result = ut_utils.tr_disabled then- - 7 -
-self.print_text(ut_teamcity_reporter_helper.test_disabled(l_test_full_name));- -
-else- -
-- - 35 -
+self.print_clob(a_test.get_serveroutputs());l_props t_props;+ +- +
+ +begin- + 8 +
+ +l_props('name') := a_suite_name;- + 8 +
+ +l_props('flowId') := a_flow_id;- + 8 +
+ +return message('testSuiteFinished', l_props);- +
+end;- -
- - 35 -
-if a_test.result = ut_utils.tr_error then- - 3 -
-if a_test.before_each.error_backtrace is not null then- -
-l_std_err_msg := l_std_err_msg || 'Before each exception:' || chr(10) || a_test.before_each.error_backtrace || chr(10);- -
-end if;- -
-- - 3 -
-if a_test.before_test.error_backtrace is not null then- -
-l_std_err_msg := l_std_err_msg || 'Before test exception:' || chr(10) || a_test.before_test.error_backtrace || chr(10);- -
+ +end if;- +
+ +function test_started(a_test_name varchar2, a_capture_standard_output boolean default null, a_flow_id varchar2 default null) return varchar2 is- +
+ +l_props t_props;- +
+ +begin- + 6 +
+ +l_props('name') := a_test_name;- + 6 +
+ +l_props('captureStandardOutput') := case a_capture_standard_output- + 1 +
+ +when true then- +
+ +'true'- +
+when false then- -
-- - 3 -
-if a_test.item.error_backtrace is not null then- - 3 -
+l_std_err_msg := l_std_err_msg || 'Test exception:' || chr(10) || a_test.item.error_backtrace || chr(10);'false'+ +- +
+ +else- +
+null- -
-end if;- -
-- - 3 -
-if a_test.after_test.error_backtrace is not null then- -
+l_std_err_msg := l_std_err_msg || 'After test exception:' || chr(10) || a_test.after_test.error_backtrace || chr(10);end;+ +- + 6 +
+ +l_props('flowId') := a_flow_id;- + 6 +
+ +return message('testStarted', l_props);- +
+end;- -
-end if;- -
-- - 3 -
-if a_test.after_each.error_backtrace is not null then- -
-l_std_err_msg := l_std_err_msg || 'After each exception:' || chr(10) || a_test.after_each.error_backtrace || chr(10);- -
-end if;- -
- - 3 -
-self.print_text(ut_teamcity_reporter_helper.test_std_err(a_test_name => l_test_full_name- -
-,a_out => trim(l_std_err_msg)));- - 3 -
+ +self.print_text(ut_teamcity_reporter_helper.test_failed(a_test_name => l_test_full_name- +
+ +function test_finished(a_test_name varchar2, a_test_duration_milisec number default null, a_flow_id varchar2 default null) return varchar2 is- +
+ +l_props t_props;- +
+ +begin- + 5 +
+ +l_props('name') := a_test_name;- + 5 +
+ +l_props('duration') := a_test_duration_milisec;- + 5 +
+ +l_props('flowId') := a_flow_id;- + 5 +
+ +return message('testFinished', l_props);- +
+end;- -
-,a_msg => 'Error occured'- - 1 -
-,a_details => trim(l_std_err_msg) || case when a_test.results is not null and a_test.results.count>0 then a_test.results(1)- -
-.message end));- - 32 -
-elsif a_test.results is not null and a_test.results.count > 0 then- - 61 -
-for i in 1 .. a_test.results.count loop- -
- - 32 -
+ +l_expectation := a_test.results(i);- +
+ +function test_disabled(a_test_name varchar2, a_flow_id varchar2 default null) return varchar2 is- +
+ +l_props t_props;- +
+ +begin- + 1 +
+ +l_props('name') := a_test_name;- + 1 +
+ +l_props('flowId') := a_flow_id;- + 1 +
+return message('testIgnored', l_props);- -
-- - 32 -
-if l_expectation.status > ut_utils.tr_success then- - 3 -
+self.print_text(ut_teamcity_reporter_helper.test_failed(a_test_name => l_test_full_nameend;+ +- +
+ +function test_failed(a_test_name varchar2, a_msg in varchar2 default null, a_details varchar2 default null, a_flow_id varchar2 default null, a_actual varchar2 default null, a_expected varchar2 default null) return varchar2 is- +
+l_props t_props;- -
-,a_msg => l_expectation.description- -
-,a_details => l_expectation.message ));- -
--- Teamcity supports only a single failure message- - 3 -
-exit;- -
+end if;begin+ +- + 4 +
+ +l_props('name') := a_test_name;- + 4 +
+ +l_props('message') := a_msg;- + 4 +
+ +l_props('details') := a_details;- + 4 +
+l_props('flowId') := a_flow_id;- -
- -
+ +end loop;- + 4 +
+if a_actual is not null and a_expected is not null then- -
+elsif a_test.result = ut_utils.tr_failure thenl_props('actual') := a_actual;+- -
+self.print_text(ut_teamcity_reporter_helper.test_failed(a_test_name => l_test_full_namel_props('expected') := a_expected;+- -
+,a_msg => 'Test failed'));end if;+- -
-end if;- -
- - 35 -
+ +self.print_text(ut_teamcity_reporter_helper.test_finished(l_test_full_name, trunc(a_test.execution_time * 1e3)));- + 4 +
+ +return message('testFailed', l_props);- +
+end;- +
- -
+end if;function test_std_err(a_test_name varchar2, a_out in varchar2, a_flow_id in varchar2 default null) return varchar2 is+- -
+l_props t_props;+- +
+ +begin- + 1 +
+ +l_props('name') := a_test_name;- + 1 +
+ +l_props('out') := a_out;- + 1 +
+ +l_props('flowId') := a_flow_id;- + 1 +
+ +return message('testStdErr', l_props);- -
end;- + +
- -
- -
end;+UT3.UT_TEAMCITY_REPORTER_HELPER
92.68 % covered
41 relevant lines. 38 lines covered and 3 lines missed+ +
- +
+end ut_teamcity_reporter_helper;UT3.UT_TFS_JUNIT_REPORTER
92.45 % lines covered
53 relevant lines. 49 lines covered and 4 lines missed+
- -
+package body ut_teamcity_reporter_helper istype body ut_tfs_junit_reporter is+- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- -
+subtype t_prop_index is varchar2(2000 char);constructor function ut_tfs_junit_reporter(self in out nocopy ut_tfs_junit_reporter) return self as result is+- -
-type t_props is table of varchar2(32767) index by t_prop_index;- -
-- -
-function escape_value(a_value in varchar2) return varchar2 is- -
begin- - 235 -
-return translate(regexp_replace(a_value, '(''|"|[|]|' || chr(13) || '|' || chr(10) || ')', '|\1'),chr(13)||chr(10),'nr');- + +
- + 8 +
+ +self.init($$plsql_unit);- + 8 +
+ +return;- -
end;- + +
- -
- -
+ +function message(a_command in varchar2, a_props t_props default cast(null as t_props)) return varchar2 is- +
+ +overriding member procedure after_calling_run(self in out nocopy ut_tfs_junit_reporter, a_run in ut_run) is- +
+ +begin- + 8 +
+junit_version_one(a_run);- -
+l_message varchar2(32767);end;+- -
+l_index t_prop_index;+- -
-l_value varchar2(32767);- -
-begin- - 143 -
+l_message := '##teamcity[' || a_command || ' timestamp=''' ||member procedure junit_version_one(self in out nocopy ut_tfs_junit_reporter,a_run in ut_run) is+ +- + 8 +
+ +l_suite_id integer := 0;- +
+- -
+regexp_replace(to_char(systimestamp, 'YYYY-MM-DD"T"HH24:MI:ss.FF3TZHTZM'), '(\.\d{3})\d+(\+)', '\1\2') || '''';function get_common_suite_attributes(a_item ut_suite_item) return varchar2 is+- -
-- - 143 -
-l_index := a_props.first;- - 521 -
-while l_index is not null loop- - 378 -
-if a_props(l_index) is not null then- - 235 -
-l_value := escape_value(a_props(l_index));- - 235 -
+l_message := l_message || ' ' || l_index || '=''' || l_value || '''';begin+ +- + 10 +
+ +return ' errors="' ||a_item.results_count.errored_count || '"' ||- +
+ +' failures="' || a_item.results_count.failure_count ||- +
+ +'" name="' || dbms_xmlgen.convert(nvl(a_item.description, a_item.name)) || '"' ||- +
+ +' time="' || ut_utils.to_xml_number_format(a_item.execution_time()) || '" '||- +
+' timestamp="' || to_char(sysdate,'RRRR-MM-DD"T"HH24:MI:SS') || '" '||- -
-end if;- - 378 -
+l_index := a_props.next(l_index);' hostname="' || sys_context('USERENV','HOST') || '" ';+ +- +
+end;- -
-end loop;- - 143 -
-l_message := l_message || ']';- - 143 -
-return l_message;- + +
- +
+ +function get_common_testcase_attributes(a_item ut_suite_item) return varchar2 is- +
+ +begin- + 10 +
+return ' name="' || dbms_xmlgen.convert(nvl(a_item.description, a_item.name)) || '"' ||- -
+end message;' time="' || ut_utils.to_xml_number_format(a_item.execution_time()) || '"';+- -
+end;+- -
+-- function block_opened(a_name varchar2, a_flow_id varchar2 default null) return varchar2 is+- -
+-- l_props t_props;function get_path(a_path_with_name varchar2, a_name varchar2) return varchar2 is+- -
--- begin- -
+-- l_props('name') := a_name;begin+ +- + 10 +
+return regexp_substr(a_path_with_name, '(.*)\.' ||a_name||'$',subexpression=>1);- -
+-- l_props('flowId') := a_flow_id;end;+- -
+-- return message('blockOpened', l_props);+- -
--- end;- -
+--procedure print_test_results(a_test ut_test) is+ +- + 10 +
+l_results ut_varchar2_rows := ut_varchar2_rows();- -
--- function block_closed(a_name varchar2, a_flow_id varchar2 default null) return varchar2 is- -
+-- l_props t_props;begin+ +- + 10 +
+self.print_text('<testcase classname="' || dbms_xmlgen.convert(get_path(a_test.path, a_test.name)) || '" ' ||- -
+-- beginget_common_testcase_attributes(a_test) || '>');+- -
+-- l_props('name') := a_name;/*+- -
+-- l_props('flowId') := a_flow_id;According to specs :+- -
+-- return message('blockClosed', l_props);- A failure is a test which the code has explicitly failed by using the mechanisms for that purpose.+- -
+-- end;e.g., via an assertEquals+- -
+--- An errored test is one that had an unanticipated problem.+- -
+function test_suite_started(a_suite_name varchar2, a_flow_id varchar2 default null) return varchar2 ise.g., an unchecked throwable; or a problem with the implementation of the test.+- -
+l_props t_props;*/+- -
-begin- - 25 -
-l_props('name') := a_suite_name;- - 25 -
-l_props('flowId') := a_flow_id;- - 25 -
-return message('testSuiteStarted', l_props);- -
+end;+ +- + 10 +
+ +if a_test.result = ut_utils.gc_error then- + 1 +
+ +ut_utils.append_to_list( l_results, '<error type="error" message="Error while executing '||a_test.name||'">');- + 1 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( ut_utils.convert_collection( a_test.get_error_stack_traces() ) ) );- + 1 +
+ut_utils.append_to_list( l_results, '</error>');- -
-function test_suite_finished(a_suite_name varchar2, a_flow_id varchar2 default null) return varchar2 is- -
-l_props t_props;- -
-begin- - 25 -
-l_props('name') := a_suite_name;- - 25 -
-l_props('flowId') := a_flow_id;- - 25 -
+return message('testSuiteFinished', l_props);-- Do not count error as failure+ +- + 9 +
+ +elsif a_test.result = ut_utils.gc_failure then- + 6 +
+ +ut_utils.append_to_list( l_results, '<failure type="failure" message="Test '||a_test.name||' failed">');- + 6 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( a_test.get_failed_expectation_lines() ) );- + 6 +
+ +ut_utils.append_to_list( l_results, '</failure>');- +
+end if;- -
-end;- + +
- + 10 +
+ut_utils.append_to_list( l_results, '</testcase>');- -
-function test_started(a_test_name varchar2, a_capture_standard_output boolean default null, a_flow_id varchar2 default null) return varchar2 is- -
+l_props t_props;+ +- + 10 +
+self.print_text_lines(l_results);- -
-begin- - 42 -
-l_props('name') := a_test_name;- - 42 -
-l_props('captureStandardOutput') := case a_capture_standard_output- - 1 -
+when true thenend;+ +- +
+ +- +
+ +procedure print_suite_results(a_suite ut_logical_suite, a_suite_id in out nocopy integer) is- + 17 +
+l_tests_count integer := a_suite.results_count.disabled_count + a_suite.results_count.success_count +- -
-'true'- -
+when false thena_suite.results_count.failure_count + a_suite.results_count.errored_count;+ +- + 17 +
+l_results ut_varchar2_rows := ut_varchar2_rows();- -
+'false'l_suite ut_suite;+- -
+elsel_outputs clob;+- -
+nulll_errors ut_varchar2_list;+- -
-end;- - 42 -
-l_props('flowId') := a_flow_id;- - 42 -
-return message('testStarted', l_props);- -
-end;- +
+ +begin- + +
- + 36 +
+ +for i in 1 .. a_suite.items.count loop- + 19 +
+ +if a_suite.items(i) is of(ut_logical_suite) then- + 9 +
+print_suite_results(treat(a_suite.items(i) as ut_logical_suite), a_suite_id);- -
+function test_finished(a_test_name varchar2, a_test_duration_milisec number default null, a_flow_id varchar2 default null) return varchar2 isend if;+- -
+l_props t_props;end loop;+- -
-begin- - 35 -
-l_props('name') := a_test_name;- - 35 -
-l_props('duration') := a_test_duration_milisec;- - 35 -
-l_props('flowId') := a_flow_id;- - 35 -
-return message('testFinished', l_props);- -
-end;- -
- -
-function test_disabled(a_test_name varchar2, a_flow_id varchar2 default null) return varchar2 is- -
+ +l_props t_props;- + 17 +
+ +if a_suite is of(ut_suite) then- + 10 +
+ +a_suite_id := a_suite_id + 1;- + 11 +
+ +self.print_text('<testsuite tests="' || l_tests_count || '"' || ' id="' || a_suite_id || '"' || ' package="' ||- +
+ +dbms_xmlgen.convert(a_suite.path) || '" ' || get_common_suite_attributes(a_suite) || '>');- + 10 +
+ +self.print_text('<properties/>');- + 22 +
+ +for i in 1 .. a_suite.items.count loop- + 12 +
+ +if a_suite.items(i) is of(ut_test) then- + 10 +
+print_test_results(treat(a_suite.items(i) as ut_test));- -
-begin- - 7 -
-l_props('name') := a_test_name;- - 7 -
-l_props('flowId') := a_flow_id;- - 7 -
-return message('testIgnored', l_props);- -
-end;- -
-function test_failed(a_test_name varchar2, a_msg in varchar2 default null, a_details varchar2 default null, a_flow_id varchar2 default null, a_actual varchar2 default null, a_expected varchar2 default null) return varchar2 is- -
-l_props t_props;- -
-begin- - 6 -
-l_props('name') := a_test_name;- - 6 -
-l_props('message') := a_msg;- - 6 -
-l_props('details') := a_details;- - 6 -
-l_props('flowId') := a_flow_id;- +
+ +end if;- +
+ +end loop;- + 10 +
+ +l_suite := treat(a_suite as ut_suite);- + 10 +
+ +l_outputs := l_suite.get_serveroutputs();- + 10 +
+ +if l_outputs is not null and l_outputs != empty_clob() then- + 1 +
+ +ut_utils.append_to_list( l_results, '<system-out>');- + 1 +
+ +ut_utils.append_to_list( l_results, ut_utils.to_cdata( l_suite.get_serveroutputs() ) );- + 1 +
+ +ut_utils.append_to_list( l_results, '</system-out>');- +
+ +else- + 9 +
+ +ut_utils.append_to_list( l_results, '<system-out/>');- +
+ +end if;- -
- - 6 -
+ +if a_actual is not null and a_expected is not null then- + 10 +
+ +l_errors := l_suite.get_error_stack_traces();- + 10 +
+if l_errors is not empty then- -
+l_props('actual') := a_actual;ut_utils.append_to_list( l_results, '<system-err>');+- -
-l_props('expected') := a_expected;- -
+end if;ut_utils.append_to_list( l_results, ut_utils.to_cdata( ut_utils.convert_collection( l_errors ) ) );+ +- +
+ut_utils.append_to_list( l_results, '</system-err>');- -
-- - 6 -
+return message('testFailed', l_props);else+ +- + 10 +
+ut_utils.append_to_list( l_results, '<system-err/>');- -
-end;- -
+-- function test_std_out(a_test_name varchar2, a_out in varchar2, a_flow_id in varchar2 default null) return varchar2 isend if;+ +- + 10 +
+ut_utils.append_to_list( l_results, '</testsuite>');- -
--- l_props t_props;- -
+-- begin+ +- + 10 +
+self.print_text_lines(l_results);- -
+-- l_props('name') := a_test_name;end if;+- -
+-- l_props('out') := a_out;end;+- -
+-- l_props('flowId') := a_flow_id;+- -
--- return message('testStdOut', l_props);- -
--- end;- -
-function test_std_err(a_test_name varchar2, a_out in varchar2, a_flow_id in varchar2 default null) return varchar2 is- -
-l_props t_props;- -
begin- - 3 -
-l_props('name') := a_test_name;- - 3 -
-l_props('out') := a_out;- - 3 -
-l_props('flowId') := a_flow_id;- - 3 -
-return message('testStdErr', l_props);- + +
- + 8 +
+ +l_suite_id := 0;- + 8 +
+ +self.print_text(ut_utils.get_xml_header(a_run.client_character_set));- + 8 +
+ +self.print_text('<testsuites>');- + 16 +
+ +for i in 1 .. a_run.items.count loop- + 8 +
+ +print_suite_results(treat(a_run.items(i) as ut_logical_suite), l_suite_id);- +
+ +end loop;- + 8 +
+ +self.print_text('</testsuites>');- -
end;- + +
- + +
- +
+overriding member function get_description return varchar2 as- -
--- function custom_message(a_text in varchar2, a_status in varchar2, a_error_deatils in varchar2 default null, a_flow_id in varchar2 default null) return varchar2 is- -
+-- l_props t_props;begin+ +- +
+return 'Provides outcomes in a format conforming with JUnit version for TFS / VSTS.- -
+-- beginAs defined by specs :https://docs.microsoft.com/en-us/vsts/build-release/tasks/test/publish-test-results?view=vsts+- -
+-- l_props('text') := a_text;Version is based on windy road junit https://github.com/windyroad/JUnit-Schema/blob/master/JUnit.xsd.';+- -
+-- l_props('status') := a_status;end;+- -
--- l_props('errorDetails') := a_error_deatils;- -
--- l_props('flowId') := a_flow_id;- -
--- return message('message', l_props);- -
--- end;- -
- -
end ut_teamcity_reporter_helper;+UT3.UT_XUNIT_REPORTER
88.71 % covered
62 relevant lines. 55 lines covered and 7 lines missed+ +
- +
+end;UT3.UT_XUNIT_REPORTER
66.67 % lines covered
3 relevant lines. 2 lines covered and 1 lines missed+
- +
type body ut_xunit_reporter is- +
/*- -
+utPLSQL - Version X.X.X.XutPLSQL - Version 3+- -
+Copyright 2016 - 2017 utPLSQL ProjectCopyright 2016 - 2019 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.- +
*/- +
- +
constructor function ut_xunit_reporter(self in out nocopy ut_xunit_reporter) return self as result is- -
begin- - 3 + +
- + 1
-self.init($$plsql_unit);- - 3 + +
- + 1
+return;- +
end;- +
- -
-overriding member procedure after_calling_run(self in out nocopy ut_xunit_reporter, a_run in ut_run) is- - 3 -
-l_suite_id integer := 0;- - 3 -
+l_tests_count integer := a_run.results_count.disabled_count + a_run.results_count.success_count +overriding member function get_description return varchar2 as+ +- +
+ +begin- +
+return 'Depracated reporter. Please use Junit.- -
+a_run.results_count.failure_count + a_run.results_count.errored_count;Provides outcomes in a format conforming with JUnit 4 and above as defined in: https://gist.github.com/kuzuha/232902acab1344d6b578';+- -
-- -
-function get_path(a_path_with_name varchar2, a_name varchar2) return varchar2 is- -
-begin- - 7 -
-return substr(a_path_with_name, 1, instr(a_path_with_name, '.' || a_name) - 1);- -
-end;- -
-- -
-procedure print_test_elements(a_test ut_test) is- -
-l_lines ut_varchar2_list;- -
-l_output clob;- -
-begin- - 7 -
-self.print_text('<testcase classname="' || get_path(a_test.path, a_test.name) || '" ' || ' assertions="' ||- - 1 -
-coalesce(cardinality(a_test.results), 0) || '"' || self.get_common_item_attributes(a_test) || case when- -
-a_test.result != ut_utils.tr_success then- -
-' status="' || ut_utils.test_result_to_char(a_test.result) || '"' end || '>');- - 7 -
-if a_test.result = ut_utils.tr_disabled then- - 1 -
-self.print_text('<skipped/>');- -
-end if;- - 1 -
-if a_test.result = ut_utils.tr_error then- - 1 -
-self.print_text('<error>');- - 1 -
-self.print_text('<![CDATA[');- - 1 -
-self.print_clob(ut_utils.table_to_clob(a_test.get_error_stack_traces()));- - 1 -
-self.print_text(']]>');- - 1 -
-self.print_text('</error>');- - 6 -
-elsif a_test.result > ut_utils.tr_success then- - 1 -
-self.print_text('<failure>');- - 1 -
-self.print_text('<![CDATA[');- - 2 -
-for i in 1 .. a_test.results.count loop- - 1 -
-l_lines := a_test.results(i).get_result_lines();- - 3 -
-for i in 1 .. l_lines.count loop- - 2 -
-self.print_text(l_lines(i));- -
-end loop;- -
-end loop;- - 1 -
-self.print_text(']]>');- - 1 -
-self.print_text('</failure>');- -
-end if;- -
--- TODO - decide if we need/want to use the <system-err/> tag too- - 7 -
-l_output := a_test.get_serveroutputs();- - 7 -
-if l_output is not null then- - 3 -
-self.print_text('<system-out>');- - 3 -
-self.print_text('<![CDATA[');- - 3 -
-self.print_clob(l_output);- - 3 -
-self.print_text(']]>');- - 3 -
-self.print_text('</system-out>');- -
-end if;- - 7 -
-self.print_text('</testcase>');- -
-end;- -
-- -
-procedure print_suite_elements(a_suite ut_logical_suite, a_suite_id in out nocopy integer) is- - 3 -
-l_tests_count integer := a_suite.results_count.disabled_count + a_suite.results_count.success_count +- -
-a_suite.results_count.failure_count + a_suite.results_count.errored_count;- -
-l_suite ut_suite;- -
-begin- - 3 -
-a_suite_id := a_suite_id + 1;- - 3 -
-self.print_text('<testsuite tests="' || l_tests_count || '"' || ' id="' || a_suite_id || '"' || ' package="' ||- -
-a_suite.path || '" ' || self.get_common_item_attributes(a_suite) || '>');- - 3 -
-if a_suite is of(ut_suite) then- - 3 -
-l_suite := treat(a_suite as ut_suite);- -
-- - 3 -
-if l_suite.before_all.serveroutput is not null or l_suite.after_all.serveroutput is not null then- - 1 -
-self.print_text('<system-out>');- - 1 -
-self.print_text('<![CDATA[');- - 1 -
-self.print_clob(l_suite.get_serveroutputs());- - 1 -
-self.print_text(']]>');- - 1 -
-self.print_text('</system-out>');- -
-end if;- -
-- - 3 -
-if l_suite.before_all.error_stack is not null or l_suite.after_all.error_stack is not null then- -
-self.print_text('<system-err>');- -
-self.print_text('<![CDATA[');- -
-self.print_text(trim(l_suite.before_all.error_stack) || trim(chr(10) || chr(10) || l_suite.after_all.error_stack));- -
-self.print_text(']]>');- -
-self.print_text('</system-err>');- -
-end if;- -
-end if;- -
-- - 10 -
-for i in 1 .. a_suite.items.count loop- - 7 -
-if a_suite.items(i) is of(ut_test) then- - 7 -
-print_test_elements(treat(a_suite.items(i) as ut_test));- -
-elsif a_suite.items(i) is of(ut_logical_suite) then- -
-print_suite_elements(treat(a_suite.items(i) as ut_logical_suite), a_suite_id);- -
-end if;- -
-end loop;- - 3 -
-self.print_text('</testsuite>');- -
-end;- -
-begin- - 3 -
-l_suite_id := 0;- - 3 -
-self.print_text('<testsuites tests="' || l_tests_count || '"' || self.get_common_item_attributes(a_run) || '>');- - 6 -
-for i in 1 .. a_run.items.count loop- - 3 -
-print_suite_elements(treat(a_run.items(i) as ut_logical_suite), l_suite_id);- -
-end loop;- - 3 -
-self.print_text('</testsuites>');- - 3 -
-(self as ut_reporter_base).after_calling_run(a_run);- -
-end;- -
-- -
-member function get_common_item_attributes(a_item ut_suite_item) return varchar2 is- -
-begin- - 13 -
-return ' skipped="' || a_item.results_count.disabled_count || '" error="' || a_item.results_count.errored_count || '"' || ' failure="' || a_item.results_count.failure_count || '" name="' || nvl(a_item.description, a_item.name) || '"' || ' time="' || a_item.execution_time() || '" ';- -
end;- + +
- -
- -
end;- +
+end;