@@ -343,9 +343,100 @@ create or replace package body run_helper is
343343 end;
344344 end test_package_3;
345345 ]';
346+
347+ execute immediate q'[create or replace package test_tag_pkg_1 is
348+ --%suite
349+ --%tags(suite1,release_3_1_13,development,complex,end_to_end)
350+ --%suitepath(suite1)
351+ --%rollback(manual)
352+
353+ --%test(Test1 from test_tag_pkg_1)
354+ --%tags(test1,development,fast)
355+ procedure test1;
356+
357+ --%test(Test2 from test_tag_pkg_1)
358+ --%tags(test2,production,slow,patch_3_1_13)
359+ procedure test2;
360+
361+ end test_tag_pkg_1;
362+ ]';
363+
364+ execute immediate q'[create or replace package body test_tag_pkg_1 is
365+ procedure test1 is
366+ begin
367+ dbms_output.put_line('test_tag_pkg_1.test1 executed');
368+ end;
369+ procedure test2 is
370+ begin
371+ dbms_output.put_line('test_tag_pkg_1.test2 executed');
372+ end;
373+ end test_tag_pkg_1;
374+ ]';
375+
376+ execute immediate q'[create or replace package test_tag_pkg_2 is
377+ --%suite
378+ --%tags(suite2,release_3_1_12,development,simple)
379+ --%suitepath(suite1.suite2)
380+ --%rollback(manual)
381+
382+ --%test(Test3 from test_tag_pkg_2)
383+ --%tags(test3,development,fast)
384+ procedure test3;
385+
386+ --%test(Test4 from test_tag_pkg_1)
387+ --%tags(test4,production,slow)
388+ procedure test4;
389+
390+ end test_tag_pkg_2;
391+ ]';
392+
393+ execute immediate q'[create or replace package body test_tag_pkg_2 is
394+ procedure test3 is
395+ begin
396+ dbms_output.put_line('test_tag_pkg_2.test3 executed');
397+ end;
398+ procedure test4 is
399+ begin
400+ dbms_output.put_line('test_tag_pkg_2.test4 executed');
401+ end;
402+ end test_tag_pkg_2;
403+ ]';
404+
405+ execute immediate q'[create or replace package test_tag_pkg_3 is
406+ --%suite
407+ --%tags(suite3,release_3_1_13,production,simple,end_to_end)
408+ --%suitepath(suite3)
409+ --%rollback(manual)
410+
411+ --%test(Test5 from test_tag_pkg_3)
412+ --%tags(test5,release_3_1_13,production,patch_3_1_13)
413+ procedure test5;
414+
415+ --%test(Test6 from test_tag_pkg_3)
416+ --%tags(test6,development,patch_3_1_14)
417+ procedure test6;
418+
419+ end test_tag_pkg_3;
420+ ]';
421+
422+ execute immediate q'[create or replace package body test_tag_pkg_3 is
423+ procedure test5 is
424+ begin
425+ dbms_output.put_line('test_tag_pkg_3.test5 executed');
426+ end;
427+ procedure test6 is
428+ begin
429+ dbms_output.put_line('test_tag_pkg_3.test6 executed');
430+ end;
431+ end test_tag_pkg_3;
432+ ]';
433+
346434 execute immediate q'[grant execute on test_package_1 to public]';
347435 execute immediate q'[grant execute on test_package_2 to public]';
348436 execute immediate q'[grant execute on test_package_3 to public]';
437+ execute immediate q'[grant execute on test_tag_pkg_1 to public]';
438+ execute immediate q'[grant execute on test_tag_pkg_2 to public]';
439+ execute immediate q'[grant execute on test_tag_pkg_3 to public]';
349440 end;
350441
351442 procedure drop_ut3_user_tests is
@@ -354,6 +445,9 @@ create or replace package body run_helper is
354445 execute immediate q'[drop package test_package_1]';
355446 execute immediate q'[drop package test_package_2]';
356447 execute immediate q'[drop package test_package_3]';
448+ execute immediate q'[drop package test_tag_pkg_1]';
449+ execute immediate q'[drop package test_tag_pkg_2]';
450+ execute immediate q'[drop package test_tag_pkg_3]';
357451 end;
358452
359453 procedure create_test_suite is
0 commit comments