Included print of serverout as comment

utPLSQL · jgebal · Mar 19, 2026 · Jul 10, 2025 · Jul 10, 2025 · Jul 11, 2025
commit e451e4b7bfc856daae7e17657ffc1cc483ee62b2
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -8,6 +8,11 @@ create or replace type body ut_tap_reporter is
     return;
   end ut_tap_reporter;
 
+  member procedure print_comment(self in out nocopy ut_tap_reporter, a_comment clob) as
+  begin
+    self.print_clob(regexp_replace(a_comment, '^', '# ', 1, 0, 'm'));
+  end print_comment;
+
   overriding member procedure before_calling_suite(self in out nocopy ut_tap_reporter, a_suite ut_logical_suite) as
   begin
     self.print_text('# Subtest: ' || coalesce(a_suite.description, a_suite.name));
@@ -16,14 +21,6 @@ create or replace type body ut_tap_reporter is
   end before_calling_suite;
 
 
-  overriding member procedure after_calling_before_test (self in out nocopy ut_tap_reporter, a_executable in ut_executable) as
-  begin
-    if a_executable.serveroutput is not null and a_executable.serveroutput != empty_clob() then
-      self.print_clob('# ' || a_executable.serveroutput);
-    end if;
-  end after_calling_before_test;
-
-
   overriding member procedure after_calling_test(self in out nocopy ut_tap_reporter, a_test ut_test) as
     l_message varchar2(4000);
     l_test_name varchar2(4000) := coalesce(a_test.description, a_test.name);
@@ -72,6 +69,8 @@ create or replace type body ut_tap_reporter is
       self.print_text('...');
       self.lvl := self.lvl - 1;
     end if;
+
+    self.print_comment(a_test.get_serveroutputs);
 
   end after_calling_test;
 

diff --git a/source/reporters/ut_tap_reporter.tps b/source/reporters/ut_tap_reporter.tps
@@ -1,11 +1,11 @@
 create or replace type ut_tap_reporter under ut_documentation_reporter(
 
   constructor function ut_tap_reporter(self in out nocopy ut_tap_reporter) return self as result,
+  member procedure print_comment(self in out nocopy ut_tap_reporter, a_comment clob),
   overriding member procedure before_calling_suite(self in out nocopy ut_tap_reporter, a_suite ut_logical_suite),
 
-  overriding member procedure after_calling_before_test (self in out nocopy ut_tap_reporter, a_executable in ut_executable),
-
   overriding member procedure after_calling_test(self in out nocopy ut_tap_reporter, a_test ut_test),
+
   overriding member procedure after_calling_before_all (self in out nocopy ut_tap_reporter, a_executable in ut_executable),
   overriding member procedure after_calling_after_all (self in out nocopy ut_tap_reporter, a_executable in ut_executable),
   overriding member procedure before_calling_run(self in out nocopy ut_tap_reporter, a_run in ut_run),

diff --git a/test/ut3_user/reporters/test_tap_reporter.pkb b/test/ut3_user/reporters/test_tap_reporter.pkb
@@ -6,7 +6,7 @@ create or replace package body test_tap_reporter as
     l_output_data       ut3_develop.ut_varchar2_list;
     l_expected          varchar2(32767);
   begin
-    l_expected := gc_boilerplate_suitepath_expression || '\s{21}1..1\s{21}# <!beforeall!>\s{21}# Subtest: A description of some context\s{25}1..1\s{25}# <!beforetest!>\s{25}ok - passing_test\s{21}# <!afterall!>\sok - org\s*';
+    l_expected := gc_boilerplate_suitepath_expression || '\s{21}1..1\s{21}# <!beforeall!>\s{21}# Subtest: A description of some context\s{25}1..1\s{25}ok - passing_test\s{25}# <!beforeeach!>\s{25}# <!beforetest!>\s{25}# <!passing test!>\s{25}# <!aftertest!>\s{25}# <!aftereach!>\s{21}# <!afterall!>\sok - org\s*';
 
     select *
         bulk collect into l_output_data
@@ -19,7 +19,7 @@ create or replace package body test_tap_reporter as
     l_output_data       ut3_develop.ut_varchar2_list;
     l_expected          varchar2(32767);
   begin
-    l_expected := gc_boilerplate_suitepath_expression || q'[\s{21}1..1\s{21}# <!beforeall!>\s{21}not ok - a test with failing assertion\s{23}---\s{23}message: '"Fails as values are different"'\s{23}severity: fail\s{23}...\s{21}# <!afterall!>\snot ok - org\s*]';
+    l_expected := gc_boilerplate_suitepath_expression || q'[\s{21}1..1\s{21}# <!beforeall!>\s{21}not ok - a test with failing assertion\s{23}---\s{23}message: '"Fails as values are different"'\s{23}severity: fail\s{23}...\s{21}# <!beforeeach!>\s{21}# <!failing test!>\s{21}# <!aftereach!>\s{21}# <!afterall!>\snot ok - org\s*]';
 
     select *
         bulk collect into l_output_data
@@ -33,7 +33,7 @@ create or replace package body test_tap_reporter as
     l_output_data       ut3_develop.ut_varchar2_list;
     l_expected          varchar2(32767);
   begin
-    l_expected := gc_boilerplate_suitepath_expression || q'[\s{21}1..1\s{21}# <!beforeall!>\s{21}not ok - a test raising unhandled exception\s{23}---\s{23}message: |\s{25ORA-06502: .*\s{25}ORA-06512: .*\s{25}ORA-06512: .*\s{25}ORA-06512: at line [[:digit:]]+\s{23}severity: error\s{23}...\s{21}# <!afterall!>\snot ok - org\s*]';
+    l_expected := gc_boilerplate_suitepath_expression || q'[\s{21}1..1\s{21}# <!beforeall!>\s{21}not ok - a test raising unhandled exception\s{23}---\s{23}message: |\s{25ORA-06502: .*\s{25}ORA-06512: at line [[:digit:]]+\s{23}severity: error\s{23}...\s{21}# <!beforeeach!>\s{21}# <!erroring test!>\s{21}# <!aftereach!>\s{21}# <!afterall!>\snot ok - org\s*]';
 
     select *
         bulk collect into l_output_data
@@ -75,7 +75,7 @@ create or replace package body test_tap_reporter as
     l_output_data       ut3_develop.ut_varchar2_list;
     l_expected          varchar2(32767);
   begin
-    l_expected := q'[TAP version 14\s*1..1\s*# Subtest: org.*# Subtest: A suite for testing different outcomes from reporters\s{21}1..5\s{21}# <!beforeall!>\s{21}# Subtest: A description of some context\s{25}1..1\s{25}# <!beforetest!>\s{25}ok - passing_test\s{21}not ok - a test with failing assertion\s{23}---\s{23}message:.*not ok - a test raising unhandled exception\s{23}---\s{23}message: |.*ok - a disabled test # SKIP: Disabled for testing purpose.*ok - a disabled test with no reason # SKIP\s{21}# <!afterall!>\snot ok - org\s*]';
+    l_expected := q'[TAP version 14\s*1..1\s*# Subtest: org.*# Subtest: A suite.*\s{21}1..5\s{21}# <!beforeall!>\s{21}# Subtest: A desc.*\s{25}1..1\s{25}ok - passing_test\s{25}# <!beforeeach!>\s{25}# <!beforet.*\s{25}# <!aftereach!>\s{21}not ok - a test w.*\s{23}---\s{23}message:.*\s{21}# <!beforeeach!>.*\s{21}# <!aftereach!>not ok - a test rai.*\s{23}---\s{23}message: |.*ok - a disabled test # SKIP: Disabled for testing purpose.*ok - a dis.* # SKIP\s{21}# <!afterall!>\snot ok - org\s*]';
 
     select *
         bulk collect into l_output_data