Add function to check whether a given name is a valid output reporter

pesse · pesse · commit bfde0572966f · 2018-02-28T10:40:16.000+01:00
diff --git a/source/api/ut_runner.pkb b/source/api/ut_runner.pkb
@@ -141,5 +141,22 @@ create or replace package body ut_runner is
     return;
   end;
 
+  function is_output_reporter( a_reporter_name varchar2 ) return varchar is
+    l_result varchar2(1);
+    l_reporter_name varchar2(32) := regexp_replace(a_reporter_name, '[^a-zA-Z0-9_]', '');
+    l_owner  varchar2(128) := ut_utils.ut_owner();
+  begin
+    execute immediate '
+    select
+      case
+        when '||l_reporter_name||'() is of ('||l_owner||'.ut_output_reporter_base) then ''Y''
+        when '||l_reporter_name||'() is of ('||l_owner||'.ut_reporter_base) then ''N''
+      end
+    from dual' into l_result;
+    return l_result;
+  exception when others then
+    return null;
+  end;
+
 end ut_runner;
 /
diff --git a/source/api/ut_runner.pks b/source/api/ut_runner.pks
@@ -99,6 +99,16 @@ create or replace package ut_runner authid current_user is
   */
   function get_unit_test_info(a_owner varchar2, a_package_name varchar2 := null) return tt_annotations pipelined;
 
+  /** Checks whether a reporter is an output reporter or not
+  * If reporter is of ut_output_reporter_base, returns 'Y'
+  * If reporter is of ut_reporter_base, returns 'N'
+  * Otherwise returns NULL
+  *
+  * @param a_reporter_name Name of the reporter to check
+  * @return Y, N or NULL
+   */
+  function is_output_reporter( a_reporter_name varchar2 ) return varchar;
+
 
 end ut_runner;
 /
