diff --git a/source/ut_suite_manager.pkb b/source/ut_suite_manager.pkb index b3c325763..0b6a89e49 100644 --- a/source/ut_suite_manager.pkb +++ b/source/ut_suite_manager.pkb @@ -257,11 +257,12 @@ create or replace package body ut_suite_manager is end config_schema; - procedure run_schema_suites(a_owner_name varchar2, a_reporter in out nocopy ut_reporter) is + procedure run_schema_suites(a_owner_name varchar2, a_reporter in out nocopy ut_reporter, a_force_parse_again boolean default false) is l_ind varchar2(4000 char); l_suite ut_test_suite; begin - if not g_schema_suites.exists(a_owner_name) or g_schema_suites(a_owner_name).count = 0 then + if not g_schema_suites.exists(a_owner_name) or g_schema_suites(a_owner_name).count = 0 or + nvl(a_force_parse_again, false) then config_schema(a_owner_name); end if; @@ -280,19 +281,19 @@ create or replace package body ut_suite_manager is end run_schema_suites; - procedure run_schema_suites_static(a_owner_name varchar2, a_reporter in ut_reporter) is + procedure run_schema_suites_static(a_owner_name varchar2, a_reporter in ut_reporter, a_force_parse_again boolean default false) is l_temp_reported ut_reporter; begin l_temp_reported := a_reporter; run_schema_suites(a_owner_name, l_temp_reported); end run_schema_suites_static; - procedure run_cur_schema_suites(a_reporter in out nocopy ut_reporter) is + procedure run_cur_schema_suites(a_reporter in out nocopy ut_reporter, a_force_parse_again boolean default false) is begin run_schema_suites(sys_context('userenv', 'current_schema'), a_reporter); end run_cur_schema_suites; - procedure run_cur_schema_suites_static(a_reporter in ut_reporter) is + procedure run_cur_schema_suites_static(a_reporter in ut_reporter, a_force_parse_again boolean default false) is l_temp_reported ut_reporter; begin l_temp_reported := a_reporter; diff --git a/source/ut_suite_manager.pks b/source/ut_suite_manager.pks index f51869026..1e61af56d 100644 --- a/source/ut_suite_manager.pks +++ b/source/ut_suite_manager.pks @@ -4,13 +4,13 @@ create or replace package ut_suite_manager is procedure config_schema(a_owner_name varchar2); - procedure run_schema_suites(a_owner_name varchar2, a_reporter in out nocopy ut_reporter); + procedure run_schema_suites(a_owner_name varchar2, a_reporter in out nocopy ut_reporter, a_force_parse_again boolean default false); - procedure run_schema_suites_static(a_owner_name varchar2, a_reporter in ut_reporter); + procedure run_schema_suites_static(a_owner_name varchar2, a_reporter in ut_reporter, a_force_parse_again boolean default false); - procedure run_cur_schema_suites(a_reporter in out nocopy ut_reporter); + procedure run_cur_schema_suites(a_reporter in out nocopy ut_reporter, a_force_parse_again boolean default false); - procedure run_cur_schema_suites_static(a_reporter in ut_reporter); + procedure run_cur_schema_suites_static(a_reporter in ut_reporter, a_force_parse_again boolean default false); end ut_suite_manager; /