Adding tests:

reporters/test_coverage reporters/test_coverage/test_html_proftab_reporter reporters/test_proftab_coverage
utPLSQL · jgebal · Apr 3, 2019 · Mar 22, 2019 · Mar 23, 2019 · Mar 24, 2019
commit c508e7937d8c56c25ed3723d29b78fc3bfdf61d0
diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
@@ -36,13 +36,12 @@ set define off
 @@ut3_user/reporters/test_coverage/test_coveralls_reporter.pks
 @@ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pks
 @@ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pks
+set define on
+@@install_below_12_2.sql 'ut3_user/reporters/test_proftab_coverage.pks'
+@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks'
+set define off


--set define on
--@@install_below_12_2.sql 'ut3_user/reporters/test_proftag_coverage.pks'
--@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks'
--set define off
-
 @@ut3_user/expectations/unary/test_expect_not_to_be_null.pkb
 @@ut3_user/expectations/unary/test_expect_to_be_null.pkb
 @@ut3_user/expectations/unary/test_expect_to_be_empty.pkb
@@ -74,11 +73,10 @@ set define off
 @@ut3_user/reporters/test_coverage/test_coveralls_reporter.pkb
 @@ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pkb
 @@ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pkb
-
--set define on
--@@install_below_12_2.sql 'ut3_user/reporters/test_coverage.pkb'
--@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb'
--set define off
+set define on
+@@install_below_12_2.sql 'ut3_user/reporters/test_proftab_coverage.pkb'
+@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb'
+set define off


 set linesize 200

diff --git a/test/ut3_tester/core.pkb b/test/ut3_tester/core.pkb
@@ -5,6 +5,7 @@ create or replace package body core is
    ut3.ut_coverage.set_develop_mode(true);
    --improve performance of test execution by disabling all compiler optimizations
    ut3_tester_helper.main_helper.execute_autonomous('ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL=0');
+    dbms_output.enable(null);
  end;

 end;

diff --git a/test/ut3_tester_helper/coverage_helper.pkb b/test/ut3_tester_helper/coverage_helper.pkb
@@ -106,6 +106,66 @@ create or replace package body coverage_helper is
    begin execute immediate q'[drop package ut3.dummy_coverage]'; exception when others then null; end;
  end;

+
+  procedure create_dummy_coverage_test_1 is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[create or replace package UT3.DUMMY_COVERAGE_1 is
+      procedure do_stuff;
+      procedure grant_myself;
+    end;]';
+    execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE_1 is
+      procedure do_stuff is
+      begin
+        if 1 = 2 then
+          dbms_output.put_line('should not get here');
+        else
+          dbms_output.put_line('should get here');
+        end if;
+      end;
+
+      procedure grant_myself is
+      begin
+        execute immediate 'grant debug,execute on UT3.DUMMY_COVERAGE_1 to ut3$user#';
+      end;
+
+    end;]';
+    execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE_1 is
+      --%suite(dummy coverage test 1)
+      --%suitepath(coverage_testing)
+
+      --%test
+      procedure test_do_stuff;
+
+      procedure grant_myself;
+    end;]';
+    execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE_1 is
+      procedure test_do_stuff is
+      begin
+        dummy_coverage_1.do_stuff;
+      end;
+
+      procedure grant_myself is
+      begin
+        execute immediate 'grant debug,execute on UT3.TEST_DUMMY_COVERAGE_1 to ut3$user#';
+      end;
+
+    end;]';
+  end;
+
+  procedure drop_dummy_coverage_test_1 is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[drop package UT3.DUMMY_COVERAGE_1]';
+    execute immediate q'[drop package UT3.TEST_DUMMY_COVERAGE_1]';
+  end;
+
+  procedure grant_exec_on_cov_1 is
+      pragma autonomous_transaction;
+  begin
+    execute immediate 'begin UT3.DUMMY_COVERAGE_1.grant_myself(); end;';
+    execute immediate 'begin UT3.TEST_DUMMY_COVERAGE_1.grant_myself(); end;'; 
+  end;

  --12.2 Setup
  procedure create_dummy_12_2_cov_pck is

diff --git a/test/ut3_tester_helper/coverage_helper.pks b/test/ut3_tester_helper/coverage_helper.pks
@@ -15,7 +15,10 @@ create or replace package coverage_helper is
  procedure grant_exec_on_cov;
  procedure mock_profiler_coverage_data(a_run_id integer,a_user in varchar2);
  procedure drop_dummy_coverage_pkg;  
-
+  procedure create_dummy_coverage_test_1;
+  procedure drop_dummy_coverage_test_1; 
+  procedure grant_exec_on_cov_1;
+
  --Block coverage
  procedure create_dummy_12_2_cov_pck;
  procedure create_dummy_12_2_cov_test;

diff --git a/test/ut3_user/reporters/test_coverage.pkb b/test/ut3_user/reporters/test_coverage.pkb
@@ -6,25 +6,10 @@ create or replace package body test_coverage is
    return ut3_tester_helper.coverage_helper.get_mock_run_id();
  end;

-  procedure create_dummy_coverage_package is
+  procedure create_dummy_coverage_pkg is
  begin
    ut3_tester_helper.coverage_helper.create_dummy_coverage_package();
-  end;
-
-  procedure create_dummy_coverage_test is
-  begin
    ut3_tester_helper.coverage_helper.create_dummy_coverage_test();
-  end;
-
-  procedure mock_coverage_data(a_run_id integer) is
-  begin
-    ut3_tester_helper.coverage_helper.mock_coverage_data(a_run_id,user);
-  end;
-
-  procedure create_dummy_coverage_pkg is
-  begin
-    create_dummy_coverage_package();
-    create_dummy_coverage_test();
    ut3_tester_helper.coverage_helper.grant_exec_on_cov();
  end;

@@ -33,7 +18,7 @@ create or replace package body test_coverage is
  begin
    g_run_id := get_mock_run_id();
    ut3.ut_coverage.mock_coverage_id(g_run_id, ut3.ut_coverage.gc_proftab_coverage);
-    mock_coverage_data(g_run_id);
+    ut3_tester_helper.coverage_helper.mock_coverage_data(g_run_id,user);
    commit;
  end;


diff --git a/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb
@@ -0,0 +1,29 @@
+create or replace package body test_html_proftab_reporter is
+
+  procedure report_on_file is
+    l_results   ut3.ut_varchar2_list;
+    l_expected  varchar2(32767);
+    l_actual    clob;
+    l_charset   varchar2(100) := 'ISO-8859-1';
+  begin
+    --Arrange
+    l_expected := '%<meta %charset='||l_charset||'" />%<h3>UT3.DUMMY_COVERAGE</h3>%<b>3</b> relevant lines. <span class="green"><b>2</b> lines covered</span> and <span class="red"><b>1</b> lines missed%';
+    --Act
+    select *
+      bulk collect into l_results
+      from table(
+        ut3.ut.run(
+          a_path => 'ut3.test_dummy_coverage',
+          a_reporter=> ut3.ut_coverage_html_reporter(),
+          a_source_files => ut3.ut_varchar2_list( 'test/ut3.dummy_coverage.pkb' ),
+          a_test_files => ut3.ut_varchar2_list( ),
+          a_client_character_set => l_charset
+        )
+      );
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    --Assert
+    ut.expect(l_actual).to_be_like(l_expected);
+  end;
+
+end test_html_proftab_reporter;
+/
diff --git a/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks
@@ -0,0 +1,10 @@
+create or replace package test_html_proftab_reporter is
+
+  --%suite(ut_html_proftab_reporter)
+  --%suitepath(utplsql.test_user.reporters.test_coverage.test_proftab_coverage)
+
+  --%test(reports on a project file mapped to database object in profiler coverage)
+  procedure report_on_file;
+
+end test_html_proftab_reporter;
+/
diff --git a/test/ut3_user/reporters/test_proftab_coverage.pkb b/test/ut3_user/reporters/test_proftab_coverage.pkb
@@ -0,0 +1,143 @@
+create or replace package body test_proftab_coverage is
+
+  procedure create_dummy_coverage_test_1 is
+  begin
+    ut3_tester_helper.coverage_helper.create_dummy_coverage_test_1();
+    ut3_tester_helper.coverage_helper.grant_exec_on_cov_1();
+  end;
+
+  procedure drop_dummy_coverage_test_1 is
+  begin
+    ut3_tester_helper.coverage_helper.drop_dummy_coverage_test_1();
+  end;
+
+  procedure coverage_for_object is
+    l_expected  clob;
+    l_actual    clob;
+    l_results   ut3.ut_varchar2_list;
+  begin
+    --Arrange
+    l_expected := '%<file path="ut3.dummy_coverage">%';
+    --Act
+    select *
+      bulk collect into l_results
+      from table(
+        ut3.ut.run(
+          a_path => 'ut3.test_dummy_coverage',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+        )
+      );
+    --Assert
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like(l_expected);
+  end;
+
+  procedure coverage_for_object_no_owner is
+    l_expected  clob;
+    l_actual    clob;
+    l_results   ut3.ut_varchar2_list;
+  begin
+    --Arrange
+    l_expected := '%<file path="ut3.dummy_coverage">%';
+    --Act
+    select *
+      bulk collect into l_results
+      from table(
+        ut3.ut.run(
+          a_path => 'ut3.test_dummy_coverage',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_include_objects => ut3.ut_varchar2_list( 'dummy_coverage' )
+        )
+      );
+    --Assert
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like(l_expected);
+  end;
+
+  procedure coverage_for_schema is
+    l_expected  clob;
+    l_actual    clob;
+    l_results   ut3.ut_varchar2_list;
+  begin
+    --Arrange
+    l_expected := '<file path="ut3.%">';
+    l_expected := '%'||l_expected||'%'||l_expected||'%';
+    --Act
+    select *
+      bulk collect into l_results
+      from table(
+        ut3.ut.run(
+          a_path => 'ut3.test_dummy_coverage',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_coverage_schemes => ut3.ut_varchar2_list( 'ut3' )
+        )
+      );
+    --Assert
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like(l_expected);
+  end;
+
+  procedure coverage_for_file is
+    l_expected  clob;
+    l_actual    clob;
+    l_results   ut3.ut_varchar2_list;
+    l_file_path varchar2(100);
+  begin
+    --Arrange
+    l_file_path := lower('test/ut3.dummy_coverage.pkb');
+    l_expected := '%<file path="'||l_file_path||'">%';
+    --Act
+    select *
+      bulk collect into l_results
+      from table(
+        ut3.ut.run(
+          a_path => 'ut3.test_dummy_coverage',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_source_files => ut3.ut_varchar2_list( l_file_path ),
+          a_test_files => ut3.ut_varchar2_list( )
+        )
+      );
+    --Assert
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like(l_expected);
+  end;
+
+  procedure coverage_tmp_data_refresh is
+    l_actual    clob;
+    l_results   ut3.ut_varchar2_list;
+  begin
+    --Arrange
+    select *
+    bulk collect into l_results
+    from table(
+      ut3.ut.run(
+          a_path => 'ut3:coverage_testing',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+      )
+    );
+    ut3_tester_helper.coverage_helper.cleanup_dummy_coverage(test_coverage.g_run_id);
+    ut3_tester_helper.coverage_helper.drop_dummy_coverage_pkg();
+    create_dummy_coverage_test_1;
+
+    --Act
+    select *
+    bulk collect into l_results
+    from table(
+      ut3.ut.run(
+          a_path => 'ut3:coverage_testing',
+          a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+          a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+      )
+    );
+
+    --Assert
+    l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+    ut.expect(l_actual).to_equal(to_clob('<?xml version="1.0"?>
+<coverage version="1">
+</coverage>'));
+  end;
+
+end;
+/
diff --git a/test/ut3_user/reporters/test_proftab_coverage.pks b/test/ut3_user/reporters/test_proftab_coverage.pks
@@ -0,0 +1,27 @@
+create or replace package test_proftab_coverage is
+
+  --%suite
+  --%suitepath(utplsql.test_user.reporters.test_coverage)
+
+  --%test(Coverage is gathered for specified object - default coverage type)
+  procedure coverage_for_object;
+
+  --%test(Coverage is gathered for specified schema - default coverage type)
+  procedure coverage_for_object_no_owner;
+
+  --%test(Coverage is gathered for specified schema)
+  procedure coverage_for_schema;
+
+  --%test(Coverage is gathered for specified file - default coverage type)
+  procedure coverage_for_file;
+
+  --%test(Coverage data is not cached between runs - issue #562 )
+  --%aftertest(ut3$user#.test_coverage.create_dummy_coverage_pkg)
+  --%aftertest(ut3$user#.test_coverage.setup_dummy_coverage)
+  --%aftertest(drop_dummy_coverage_test_1)
+  procedure coverage_tmp_data_refresh;
+
+  procedure drop_dummy_coverage_test_1;
+
+end;
+/