implemented timing reporting for documentation reporter

Pazus · Pazus · commit ea719b2e8fdb · 2017-06-27T22:18:17.000+03:00
diff --git a/source/reporters/ut_documentation_reporter.tpb b/source/reporters/ut_documentation_reporter.tpb
@@ -50,7 +50,7 @@ create or replace type body ut_documentation_reporter is
     l_message varchar2(4000);
 
   begin
-    l_message := coalesce(a_test.description, a_test.name);
+    l_message := coalesce(a_test.description, a_test.name)||' ('||round(a_test.execution_time,3)||' sec)';
     --if test failed, then add it to the failures list, print failure with number
     if a_test.result = ut_utils.tr_disabled then
       self.print_yellow_text(l_message || ' (IGNORED)');
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -134,6 +134,7 @@ exec ut_coverage.coverage_start_develop();
 @@lib/RunTest.sql ut_reporters/ut_xunit_reporter.ProducesExpectedOutputs.sql
 @@lib/RunTest.sql ut_reporters/ut_html_reporter.UserOverrideSchemaCoverage.sql
 @@lib/RunTest.sql ut_reporters/ut_html_reporter.DefaultSchemaCoverage.sql
+@@lib/RunTest.sql ut_reporters/ut_documentation_reporter.reportTestTiming.sql
 
 @@lib/RunTest.sql ut/ut.run.AcceptsCoverageFileList.sql
 @@lib/RunTest.sql ut/ut.run.AcceptsCoverageFileListWithSutePaths.sql
diff --git a/tests/ut_reporters/ut_documentation_reporter.reportTestTiming.sql b/tests/ut_reporters/ut_documentation_reporter.reportTestTiming.sql
@@ -0,0 +1,50 @@
+set termout off
+create or replace package tst_doc_reporter_timing as
+  --%suite
+
+  --%test
+  procedure test1;
+  
+  --%test
+  procedure test2;
+end;
+/
+
+create or replace package body tst_doc_reporter_timing as
+  procedure test1 is begin ut.expect(1).to_equal(1); end;
+  procedure test2 is begin ut.expect(1).to_equal(2); end;
+end;
+/
+
+set termout on
+
+declare
+  l_test_report ut_varchar2_list;
+  l_output_data       ut_varchar2_list;
+  l_output            varchar2(32767);
+  l_expected          varchar2(32767);
+begin
+  l_expected := q'[tst_doc_reporter_timing
+%test1 (%sec)
+%test2 (%sec) (FAILED - 1)
+%Failures:%
+Finished in % seconds
+2 tests, 1 failed, 0 errored, 0 disabled, 0 warning(s)]';
+
+  --act
+  select *
+  bulk collect into l_output_data
+  from table(ut.run('tst_doc_reporter_timing',ut_xunit_reporter()));
+
+  l_output := ut_utils.table_to_clob(l_output_data);
+
+  --assert
+  if l_output like l_expected then
+    :test_result := ut_utils.tr_success;
+  else
+    dbms_output.put_line('Actual:"'||l_output||'"');
+  end if;
+end;
+/
+
+drop package tst_doc_reporter_timing;
