Implemented reporting to dbms_application_info

Pazus · Pazus · commit b02f99734ac8 · 2017-07-28T07:38:47.000+03:00
diff --git a/source/core/types/ut_test.tpb b/source/core/types/ut_test.tpb
@@ -54,6 +54,9 @@ create or replace type body ut_test as
 
     a_listener.fire_before_event(ut_utils.gc_test,self);
     self.start_time := current_timestamp;
+    
+    -- report to application_info
+    ut_utils.set_action(self.object_owner||'.'||self.object_name||'.'||self.name);
 
     if self.get_disabled_flag() then
       self.result := ut_utils.tr_disabled;
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -340,6 +340,11 @@ create or replace package body ut_utils is
     end if;
     return l_result;
   end;
+  
+  procedure set_action(a_test_name in varchar2) is
+  begin
+    dbms_application_info.set_module('utPLSQL', a_test_name);
+  end;
 
   function to_xpath(a_list varchar2, a_ancestors varchar2 := '/*/') return varchar2 is
     l_xpath varchar2(32767) := a_list;
diff --git a/source/core/ut_utils.pks b/source/core/ut_utils.pks
@@ -218,6 +218,11 @@ create or replace package ut_utils authid definer is
   procedure append_to_clob(a_src_clob in out nocopy clob, a_new_data varchar2);
 
   function convert_collection(a_collection ut_varchar2_list) return ut_varchar2_rows;
+  
+  /**
+  * Set session's action and module using dbms_application_info
+  */
+  procedure set_action(a_test_name in varchar2);
 
   function to_xpath(a_list varchar2, a_ancestors varchar2 := '/*/') return varchar2;
 
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -233,6 +233,7 @@ exec ut_coverage.coverage_start_develop();
 @@lib/RunTest.sql ut_test/ut_test.TestOutputGathering.sql
 @@lib/RunTest.sql ut_test/ut_test.TestOutputGatheringWhenEmpty.sql
 @@lib/RunTest.sql ut_test/ut_test.ReportWarningOnRollbackFailed.sql
+@@lib/RunTest.sql ut_test/ut_test.ApplicationInfoOnExecution.sql
 
 @@lib/RunTest.sql ut_test_suite/ut_test_suite.ErrorsATestWhenAfterTestFails.sql
 @@lib/RunTest.sql ut_test_suite/ut_test_suite.ErrorsATestWhenBeforeTestFails.sql
diff --git a/tests/ut_test/ut_test.ApplicationInfoOnExecution.sql b/tests/ut_test/ut_test.ApplicationInfoOnExecution.sql
@@ -0,0 +1,60 @@
+create or replace package ut_output_tests
+as
+ --%suite
+  
+ --%test
+ procedure ut_passing_test;
+ 
+end;
+/
+
+create or replace package body ut_output_tests
+as
+
+ procedure ut_passing_test
+ as
+   l_module_name varchar2(4000);
+   l_action_name varchar2(4000);
+ begin
+   --Generate empty output
+   dbms_output.put_line('');
+   ut.expect(1,'Test 1 Should Pass').to_equal(1);
+   dbms_application_info.read_module(module_name => l_module_name, action_name => l_action_name);
+   ut.expect(l_module_name).to_equal('utPLSQL');
+   ut.expect(l_action_name).to_be_like('%.ut_output_tests.ut_passing_test');
+ end;
+ 
+end;
+/
+
+declare
+  l_output_data       dbms_output.chararr;
+  l_num_lines         integer := 100000;
+  l_output            clob;
+begin
+  --act
+  ut.run('ut_output_tests');
+
+  --assert
+  dbms_output.get_lines( l_output_data, l_num_lines);
+  dbms_lob.createtemporary(l_output,true);
+  for i in 1 .. l_num_lines loop
+    dbms_lob.append(l_output,l_output_data(i));
+  end loop;
+  
+  if l_output like '%0 failed, 0 errored, 0 disabled, 0 warning(s)%' then
+    :test_result := ut_utils.tr_success;
+  end if;
+
+  if :test_result != ut_utils.tr_success or :test_result is null then
+    for i in 1 .. l_num_lines loop
+      dbms_output.put_line(l_output_data(i));
+    end loop;
+    dbms_output.put_line('Failed: Wrong output');
+  end if;
+end;
+/
+
+drop package ut_output_tests
+/
+
