Included escaped test name

WayneNani · WayneNani · commit f18981d278e9 · 2025-07-26T21:28:49.000+02:00
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -28,7 +28,7 @@ create or replace type body ut_tap_reporter is
 
   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);
+    l_test_name varchar2(4000) := self.escape_special_chars(coalesce(a_test.description, a_test.name));
 
     procedure print_failed_expectation(a_test ut_test) is
       l_lines  ut_varchar2_list;
diff --git a/test/ut3_user/reporters/test_tap_reporter.pkb b/test/ut3_user/reporters/test_tap_reporter.pkb
@@ -137,6 +137,20 @@ create or replace package body test_tap_reporter as
   end escape_suite_name;
 
 
+  procedure escape_multiple_characters_test_name as
+    l_output_data       ut3_develop.ut_varchar2_list;
+    l_expected          varchar2(32767);
+  begin
+    l_expected := q'[%ok - Even more \\\\ and multiple \#\#\#%]';
+
+    select *
+      bulk collect into l_output_data
+    from table(ut3_develop.ut.run('test_tap_escaping.more_escaping',ut3_develop.ut_tap_reporter()));
+
+    ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_be_like(l_expected);
+  end escape_multiple_characters_test_name;
+
+
   procedure drop_help_tests as
     pragma autonomous_transaction;
   begin
diff --git a/test/ut3_user/reporters/test_tap_reporter.pks b/test/ut3_user/reporters/test_tap_reporter.pks
@@ -27,6 +27,9 @@ create or replace package test_tap_reporter as
   --%test(Escape special characters in suite name)
   procedure escape_suite_name;
 
+  --%test(Escape multiple special characters in test name)
+  procedure escape_multiple_characters_test_name;
+
 
   --%afterall
   procedure drop_help_tests;
