Merge pull request #52 from Pazus/feature/force_refresh_schema_suites_cache

rlove · web-flow · commit c51f87e3df07 · 2016-09-08T09:31:31.000-06:00
Added the flag to flash cache of the parsed schema objects before run
diff --git 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
@@ -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;
 /
