Added test for disabled TAP test

WayneNani · WayneNani · commit 9d765a42fa32 · 2025-07-16T21:32:33.000+02:00
diff --git a/source/reporters/ut_tap_reporter.tpb b/source/reporters/ut_tap_reporter.tpb
@@ -85,7 +85,7 @@ create or replace type body ut_tap_reporter is
   begin
     lvl := lvl - 2;
     if lvl = 0 then
-      if a_suite.result = ut_utils.gc_success then
+      if a_suite.result = ut_utils.gc_success or a_suite.result = ut_utils.gc_disabled then
         self.print_text('ok - ' || l_suite_name);
       elsif a_suite.result > ut_utils.gc_success then
         self.print_text(ut_ansiconsole_helper.red('not ok') || ' - ' || l_suite_name);
diff --git a/test/ut3_user/reporters/test_tap_reporter.pkb b/test/ut3_user/reporters/test_tap_reporter.pkb
@@ -40,5 +40,19 @@ create or replace package body test_tap_reporter as
     ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_match(l_expected);
   end simple_erroring_test;
 
+
+  procedure disabled_test 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\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*ok - a disabled test # SKIP: Disabled for testing purpose\s*# <!afterall!>\s*ok - org\s*]';
+
+    select *
+        bulk collect into l_output_data
+    from table(ut3_develop.ut.run('test_reporters.disabled_test',ut3_develop.ut_tap_reporter()));
+
+    ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_match(l_expected);
+  end disabled_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
@@ -12,5 +12,8 @@ create or replace package test_tap_reporter as
   --%test(Simple erroring test)
   procedure simple_erroring_test;
 
+  --%test(Skipped test)
+  procedure disabled_test;
+
 end test_tap_reporter;
 /

Original file line number	Diff line number	Diff line change
`@@ -12,5 +12,8 @@ create or replace package test_tap_reporter as`
`12`	`12`	`--%test(Simple erroring test)`
`13`	`13`	`procedure simple_erroring_test;`
`14`	`14`
	`15`	`+ --%test(Skipped test)`
	`16`	`+ procedure disabled_test;`
	`17`	`+`
`15`	`18`	`end test_tap_reporter;`
`16`	`19`	`/`