Replace is_output_reporter by get_reporters_list

The list should return all known Reporters and information about whether the reporter is an output reporter or not
utPLSQL · pesse · Mar 8, 2018 · Jul 14, 2017 · Feb 12, 2018 · Feb 12, 2018
commit 92f7b4c63d520834d48b0af06c67b3afed9df989
diff --git a/source/api/ut_runner.pkb b/source/api/ut_runner.pkb
@@ -141,22 +141,38 @@ 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_]', '');
+  function get_reporters_list return tt_reporters_info pipelined
+  AS
+    l_cursor      sys_refcursor;
     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;
+    l_results     tt_reporters_info;
+    c_bulk_limit  constant integer := 10;
+    begin
+      open l_cursor for 'SELECT
+          owner || ''.'' || type_name,
+          CASE
+                  WHEN sys_connect_by_path(owner
+                  || ''.''
+                  || type_name,'','') LIKE ''%' || l_owner || '''
+                  || ''.UT_OUTPUT_REPORTER_BASE%'' THEN ''Y''
+                  ELSE ''N''
+              END
+          is_output_reporter
+      FROM dba_types t
+      WHERE instantiable = ''YES''
+      CONNECT BY supertype_name = PRIOR type_name AND supertype_owner = PRIOR owner
+        START WITH type_name = ''UT_REPORTER_BASE'' AND owner = '''|| l_owner || '''';
+      loop
+        fetch l_cursor bulk collect into l_results limit c_bulk_limit;
+        for i in 1 .. l_results.count loop
+          pipe row (l_results(i));
+        end loop;
+        exit when l_cursor%notfound;
+      end loop;
+      close l_cursor;
+    end;
+
+
 
 end ut_runner;
 /
diff --git a/source/api/ut_runner.pks b/source/api/ut_runner.pks
@@ -99,16 +99,17 @@ 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
+  type t_reporter_rec is record (
+    reporter_object_name  varchar2(250),
+    is_output_reporter        varchar2(1) --Y/N flag
+  );
+  type tt_reporters_info is table of t_reporter_rec ;
+
+  /** Returns a list of available reporters. Gives information about whether a reporter is an output reporter or not
   *
-  * @param a_reporter_name Name of the reporter to check
-  * @return Y, N or NULL
+  * @return tt_reporters_info
    */
-  function is_output_reporter( a_reporter_name varchar2 ) return varchar;
-
+  function get_reporters_list return tt_reporters_info pipelined;
 
 end ut_runner;
 /