Added serverout for beforetest procedures

WayneNani · WayneNani · commit 55d5b612d77f · 2025-07-18T22:23:35.000+02:00
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -15,6 +15,15 @@ create or replace type body ut_tap_reporter is
     self.print_text('1..' || a_suite.items.count);
   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);
diff --git a/source/reporters/ut_tap_reporter.tps b/source/reporters/ut_tap_reporter.tps
@@ -2,6 +2,9 @@ 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,
   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),
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}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}# <!beforetest!>\s{25}ok - passing_test\s{21}# <!afterall!>\sok - 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}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 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*]';
 
     select *
         bulk collect into l_output_data
