|
1 | 1 | create or replace package body test_coverage is |
2 | 2 |
|
3 | | - g_run_id integer; |
4 | | - |
5 | 3 | function get_mock_run_id return integer is |
6 | 4 | v_result integer; |
7 | 5 | begin |
@@ -100,22 +98,32 @@ create or replace package body test_coverage is |
100 | 98 | select a_run_id, c_unit_id, 7, 1, 1 from dual; |
101 | 99 | end; |
102 | 100 |
|
103 | | - procedure setup_dummy_coverage is |
| 101 | + procedure create_dummy_coverage_pkg is |
104 | 102 | pragma autonomous_transaction; |
105 | 103 | begin |
106 | 104 | create_dummy_coverage_package(); |
107 | 105 | create_dummy_coverage_test(); |
| 106 | + end; |
| 107 | + |
| 108 | + procedure setup_dummy_coverage is |
| 109 | + pragma autonomous_transaction; |
| 110 | + begin |
108 | 111 | g_run_id := get_mock_run_id(); |
109 | 112 | ut3.ut_coverage.mock_coverage_id(g_run_id, ut3.ut_coverage.gc_proftab_coverage); |
110 | 113 | mock_coverage_data(g_run_id); |
111 | 114 | commit; |
112 | 115 | end; |
113 | 116 |
|
114 | | - procedure cleanup_dummy_coverage is |
| 117 | + procedure drop_dummy_coverage_pkg is |
115 | 118 | pragma autonomous_transaction; |
116 | 119 | begin |
117 | 120 | begin execute immediate q'[drop package ut3.test_dummy_coverage]'; exception when others then null; end; |
118 | 121 | begin execute immediate q'[drop package ut3.dummy_coverage]'; exception when others then null; end; |
| 122 | + end; |
| 123 | + |
| 124 | + procedure cleanup_dummy_coverage is |
| 125 | + pragma autonomous_transaction; |
| 126 | + begin |
119 | 127 | delete from ut3.plsql_profiler_data where runid = g_run_id; |
120 | 128 | delete from ut3.plsql_profiler_units where runid = g_run_id; |
121 | 129 | delete from ut3.plsql_profiler_runs where runid = g_run_id; |
@@ -229,6 +237,7 @@ create or replace package body test_coverage is |
229 | 237 | ) |
230 | 238 | ); |
231 | 239 | cleanup_dummy_coverage(); |
| 240 | + drop_dummy_coverage_pkg(); |
232 | 241 | create_dummy_coverage_test_1; |
233 | 242 |
|
234 | 243 | --Act |
|
0 commit comments