Added escaped comment test

WayneNani · WayneNani · commit 33865dd88a80 · 2025-07-27T13:47:27.000+02:00
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -10,7 +10,7 @@ create or replace type body ut_tap_reporter is
 
   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'));
+    self.print_clob(regexp_replace(self.escape_special_chars(a_comment), '^', '# ', 1, 0, 'm'));
   end print_comment;
 
   member function escape_special_chars(self in out nocopy ut_tap_reporter, a_string_to_escape clob) return clob as
diff --git a/test/ut3_user/reporters/test_tap_reporter.pkb b/test/ut3_user/reporters/test_tap_reporter.pkb
@@ -17,6 +17,9 @@ create or replace package body test_tap_reporter as
         --%test(Disabled test)
         --%disabled(With \ and # in skip reason)
         procedure not_skipping_escapes;
+
+        --%test(Escaped Comments)
+        procedure escaped_comments;
       end test_tap_escaping;
     ]';
 
@@ -34,6 +37,11 @@ create or replace package body test_tap_reporter as
           ut.expect(10).to_equal(1);
         end not_skipping_escapes;
 
+        procedure escaped_comments as
+        begin
+          dbms_output.put_line('This \ and # should be escaped, but this not!!!');
+          ut.expect(1).to_equal(1);
+        end escaped_comments;
       end test_tap_escaping;
     ]';
 
@@ -165,6 +173,20 @@ create or replace package body test_tap_reporter as
   end special_characters_in_deisabled_reason;
 
 
+  procedure special_characters_in_comment as
+    l_output_data       ut3_develop.ut_varchar2_list;
+    l_expected          varchar2(32767);
+  begin
+    l_expected := q'[%ok - Escaped Comments%# This \\ and \# should be escaped, but this not!!!%]';
+
+    select *
+      bulk collect into l_output_data
+    from table(ut3_develop.ut.run('test_tap_escaping.escaped_comments',ut3_develop.ut_tap_reporter()));
+
+    ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_be_like(l_expected);
+  end special_characters_in_comment;
+
+
   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
@@ -33,6 +33,9 @@ create or replace package test_tap_reporter as
   --%test(Disabled Test with special characters in disable reason)
   procedure special_characters_in_deisabled_reason;
 
+  --%test(Escape special characters in comment)
+  procedure special_characters_in_comment;
+
 
   --%afterall
   procedure drop_help_tests;
