Added simple test for TAP reporter

WayneNani · WayneNani · commit 6f47bb9999e3 · 2025-07-14T21:06:20.000+02:00
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -69,10 +69,17 @@ create or replace type body ut_tap_reporter is
   overriding member procedure after_calling_before_all(self in out nocopy ut_tap_reporter, a_executable in ut_executable) is
   begin
     if a_executable.serveroutput is not null and a_executable.serveroutput != empty_clob() then
-      self.print_clob(a_executable.serveroutput);
+      self.print_clob('# ' || a_executable.serveroutput);
     end if;
   end after_calling_before_all;
 
+  overriding member procedure after_calling_after_all(self in out nocopy ut_tap_reporter, a_executable in ut_executable) is
+  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_after_all;
+
   overriding member procedure after_calling_suite(self in out nocopy ut_tap_reporter, a_suite ut_logical_suite) as
     l_suite_name varchar2(4000) := coalesce(a_suite.description, a_suite.name);
   begin
diff --git a/source/reporters/ut_tap_reporter.tps b/source/reporters/ut_tap_reporter.tps
@@ -4,6 +4,7 @@ create or replace type ut_tap_reporter under ut_documentation_reporter(
   overriding member procedure before_calling_suite(self in out nocopy ut_tap_reporter, a_suite ut_logical_suite),
   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),
   overriding member procedure after_calling_suite(self in out nocopy ut_tap_reporter, a_suite ut_logical_suite),
   overriding member procedure after_calling_run(self in out nocopy ut_tap_reporter, a_run in ut_run)
diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
@@ -43,6 +43,7 @@ set define off
 @@ut3_user/reporters/test_documentation_reporter.pks
 @@ut3_user/reporters/test_debug_reporter.pks
 @@ut3_user/reporters/test_realtime_reporter.pks
+@@ut3_user/reporters/test_tap_reporter.pks
 @@ut3_user/reporters/test_coverage.pks
 @@ut3_user/reporters/test_coverage/test_coverage_standalone.pks
 set define on
@@ -86,6 +87,7 @@ set define off
 @@ut3_user/reporters/test_documentation_reporter.pkb
 @@ut3_user/reporters/test_debug_reporter.pkb
 @@ut3_user/reporters/test_realtime_reporter.pkb
+@@ut3_user/reporters/test_tap_reporter.pkb
 @@ut3_user/reporters/test_coverage/test_coverage_standalone.pkb
 set define on
 @@ut3_user/reporters/test_coverage/test_extended_coverage.pkb
diff --git a/test/ut3_user/reporters/test_tap_reporter.pkb b/test/ut3_user/reporters/test_tap_reporter.pkb
@@ -0,0 +1,17 @@
+create or replace package body test_tap_reporter as
+
+  procedure simple_succeeding_test as
+    l_output_data       ut3_develop.ut_varchar2_list;
+    l_expected          varchar2(32767);
+  begin
+    l_expected := 'TAP version 14\s*1..1\s*# Subtest: org\s{5}1..1\s{5}# Subtest: utplsql\s{9}1..1\s{9}# Subtest: tests\s{13}1..1\s{13}# Subtest: helpers\s{17}1..1\s{17}# Subtest: A suite for testing different outcomes from reporters\s*1..1\s*# <!beforeall!>\s*# Subtest: A description of some context\s*1..1\s*ok - passing_test\s*# <!afterall!>\s*ok - org\s*';
+
+    select *
+        bulk collect into l_output_data
+    from table(ut3_develop.ut.run('test_reporters.passing_test',ut3_develop.ut_tap_reporter()));
+
+    ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_match(l_expected);
+  end simple_succeeding_test;
+
+end test_tap_reporter;
+/
diff --git a/test/ut3_user/reporters/test_tap_reporter.pks b/test/ut3_user/reporters/test_tap_reporter.pks
@@ -0,0 +1,10 @@
+create or replace package test_tap_reporter as
+
+  --%suite(ut_tap_reporter)
+  --%suitepath(utplsql.test_user.reporters)
+
+  --%test(Simple succeeding test)
+  procedure simple_succeeding_test;
+
+end test_tap_reporter;
+/
