Refactor Coverage:

Split block and profiler Added conditional blocks for version less than 12.2 Split html reporter
utPLSQL · lwasylow · Apr 16, 2018 · Mar 11, 2018 · Mar 13, 2018 · Mar 13, 2018
commit 82358489d65055758229e31feecff9fc78cc69ad
diff --git a/source/core/coverage/ut_block_helper.pkb b/source/core/coverage/ut_block_helper.pkb
@@ -0,0 +1,89 @@
+create or replace package body ut_block_helper is
+  /*
+  utPLSQL - Version 3
+  Copyright 2016 - 2017 utPLSQL Project
+
+  Licensed under the Apache License, Version 2.0 (the "License"):
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+  */
+
+  type t_proftab_row is record (
+      line  binary_integer,
+      calls number(38,0)
+    );
+
+  type t_proftab_rows is table of t_proftab_row;
+
+  type t_block_row is record(
+       line           binary_integer
+      ,blocks         binary_integer
+      ,covered_blocks binary_integer);
+
+  type t_block_rows is table of t_block_row;
+
+  procedure coverage_start(a_run_comment varchar2,a_coverage_id out integer)  is
+  begin
+   a_coverage_id := dbms_plsql_code_coverage.start_coverage(run_comment => a_run_comment);
+  end;
+
+  procedure coverage_stop is
+  begin
+   dbms_plsql_code_coverage.stop_coverage();
+  end;
+
+ function block_results(a_object_owner varchar2, a_object_name varchar2) return t_block_rows is
+   c_raw_coverage sys_refcursor;
+   l_coverage_rows t_block_rows;
+   l_coverage_id integer := ut_coverage_helper.get_coverage_id;
+  begin
+     open c_raw_coverage for q'[select ccb.line
+          ,count(ccb.block) totalblocks
+          ,sum(ccb.covered) 
+      from dbmspcc_units ccu
+      left outer join dbmspcc_blocks ccb
+        on ccu.run_id = ccb.run_id
+       and ccu.object_id = ccb.object_id
+     where ccu.run_id = :a_coverage_id
+       and ccu.owner = :a_object_owner
+       and ccu.name = :a_object_name
+     group by ccb.line
+     order by 1]' using l_coverage_id,a_object_owner,a_object_name;
+
+     fetch c_raw_coverage bulk collect into l_coverage_rows;
+     close c_raw_coverage;
+
+     return l_coverage_rows; 
+  end;
+
+  function get_raw_coverage_data_block(a_object_owner varchar2, a_object_name varchar2) return ut_coverage_helper.t_unit_line_calls is
+    l_tmp_data t_block_rows;
+    l_results  ut_coverage_helper.t_unit_line_calls;
+
+  begin
+    l_tmp_data := block_results(a_object_owner => a_object_owner, a_object_name => a_object_name);
+    for i in 1 .. l_tmp_data.count loop
+      l_results(l_tmp_data(i).line).blocks := l_tmp_data(i).blocks;
+      l_results(l_tmp_data(i).line).covered_blocks := l_tmp_data(i).covered_blocks;
+      l_results(l_tmp_data(i).line).partcovered := case
+                                                     when (l_tmp_data(i).covered_blocks > 0) and
+                                                          (l_tmp_data(i).blocks > l_tmp_data(i).covered_blocks) then
+                                                      1
+                                                     else
+                                                      0
+                                                   end;
+    end loop;
+    return l_results;
+  end;
+
+
+end;
+/
diff --git a/source/core/coverage/ut_block_helper.pks b/source/core/coverage/ut_block_helper.pks
@@ -0,0 +1,26 @@
+create or replace package ut_block_helper authid definer is
+  /*
+  utPLSQL - Version 3
+  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.
+  */
+
+  procedure coverage_start(a_run_comment in varchar2,a_coverage_id out integer);
+
+  procedure coverage_stop;
+
+  function get_raw_coverage_data_block(a_object_owner varchar2, a_object_name varchar2) return ut_coverage_helper.t_unit_line_calls;
+
+end;
+/