@@ -120,7 +120,8 @@ create or replace package body ut is
120120 a_exclude_objects ut_varchar2_list,
121121 a_client_character_set varchar2,
122122 a_random_test_order integer,
123- a_random_test_order_seed positive
123+ a_random_test_order_seed positive,
124+ a_tags ut_varchar2_rows := null
124125 ) is
125126 pragma autonomous_transaction;
126127 begin
@@ -138,7 +139,8 @@ create or replace package body ut is
138139 a_client_character_set,
139140 false,
140141 ut_utils.int_to_boolean(a_random_test_order),
141- a_random_test_order_seed
142+ a_random_test_order_seed,
143+ a_tags
142144 );
143145 rollback;
144146 end;
@@ -154,7 +156,8 @@ create or replace package body ut is
154156 a_exclude_objects ut_varchar2_list,
155157 a_client_character_set varchar2,
156158 a_random_test_order integer,
157- a_random_test_order_seed positive
159+ a_random_test_order_seed positive,
160+ a_tags ut_varchar2_rows := null
158161 ) is
159162 pragma autonomous_transaction;
160163 begin
@@ -172,7 +175,8 @@ create or replace package body ut is
172175 a_client_character_set,
173176 false,
174177 ut_utils.int_to_boolean(a_random_test_order),
175- a_random_test_order_seed
178+ a_random_test_order_seed,
179+ a_tags
176180 );
177181 rollback;
178182 end;
@@ -212,7 +216,8 @@ create or replace package body ut is
212216 a_exclude_objects ut_varchar2_list := null,
213217 a_client_character_set varchar2 := null,
214218 a_random_test_order integer := 0,
215- a_random_test_order_seed positive := null
219+ a_random_test_order_seed positive := null,
220+ a_tags varchar2 := null
216221 ) return ut_varchar2_rows pipelined is
217222 l_reporter ut_reporter_base := a_reporter;
218223 l_results sys_refcursor;
@@ -228,7 +233,8 @@ create or replace package body ut is
228233 a_exclude_objects,
229234 a_client_character_set,
230235 a_random_test_order,
231- a_random_test_order_seed
236+ a_random_test_order_seed,
237+ ut_varchar2_rows(a_tags)
232238 );
233239 if l_reporter is of (ut_output_reporter_base) then
234240 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -249,7 +255,8 @@ create or replace package body ut is
249255 a_exclude_objects ut_varchar2_list := null,
250256 a_client_character_set varchar2 := null,
251257 a_random_test_order integer := 0,
252- a_random_test_order_seed positive := null
258+ a_random_test_order_seed positive := null,
259+ a_tags varchar2 := null
253260 ) return ut_varchar2_rows pipelined is
254261 l_reporter ut_reporter_base := a_reporter;
255262 l_results sys_refcursor;
@@ -265,7 +272,8 @@ create or replace package body ut is
265272 a_exclude_objects,
266273 a_client_character_set,
267274 a_random_test_order,
268- a_random_test_order_seed
275+ a_random_test_order_seed,
276+ ut_varchar2_rows(a_tags)
269277 );
270278 if l_reporter is of (ut_output_reporter_base) then
271279 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -287,7 +295,8 @@ create or replace package body ut is
287295 a_exclude_objects ut_varchar2_list := null,
288296 a_client_character_set varchar2 := null,
289297 a_random_test_order integer := 0,
290- a_random_test_order_seed positive := null
298+ a_random_test_order_seed positive := null,
299+ a_tags varchar2 := null
291300 ) return ut_varchar2_rows pipelined is
292301 l_reporter ut_reporter_base := a_reporter;
293302 l_results sys_refcursor;
@@ -303,7 +312,8 @@ create or replace package body ut is
303312 a_exclude_objects,
304313 a_client_character_set,
305314 a_random_test_order,
306- a_random_test_order_seed
315+ a_random_test_order_seed,
316+ ut_varchar2_rows(a_tags)
307317 );
308318 if l_reporter is of (ut_output_reporter_base) then
309319 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -325,7 +335,8 @@ create or replace package body ut is
325335 a_exclude_objects ut_varchar2_list := null,
326336 a_client_character_set varchar2 := null,
327337 a_random_test_order integer := 0,
328- a_random_test_order_seed positive := null
338+ a_random_test_order_seed positive := null,
339+ a_tags varchar2 := null
329340 ) return ut_varchar2_rows pipelined is
330341 l_reporter ut_reporter_base := a_reporter;
331342 l_results sys_refcursor;
@@ -341,7 +352,8 @@ create or replace package body ut is
341352 a_exclude_objects,
342353 a_client_character_set,
343354 a_random_test_order,
344- a_random_test_order_seed
355+ a_random_test_order_seed,
356+ ut_varchar2_rows(a_tags)
345357 );
346358 if l_reporter is of (ut_output_reporter_base) then
347359 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -363,7 +375,8 @@ create or replace package body ut is
363375 a_exclude_objects ut_varchar2_list := null,
364376 a_client_character_set varchar2 := null,
365377 a_random_test_order integer := 0,
366- a_random_test_order_seed positive := null
378+ a_random_test_order_seed positive := null,
379+ a_tags varchar2 := null
367380 ) return ut_varchar2_rows pipelined is
368381 l_reporter ut_reporter_base := a_reporter;
369382 l_results sys_refcursor;
@@ -379,7 +392,8 @@ create or replace package body ut is
379392 a_exclude_objects,
380393 a_client_character_set,
381394 a_random_test_order,
382- a_random_test_order_seed
395+ a_random_test_order_seed,
396+ ut_varchar2_rows(a_tags)
383397 );
384398 if l_reporter is of (ut_output_reporter_base) then
385399 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -401,7 +415,8 @@ create or replace package body ut is
401415 a_exclude_objects ut_varchar2_list := null,
402416 a_client_character_set varchar2 := null,
403417 a_random_test_order integer := 0,
404- a_random_test_order_seed positive := null
418+ a_random_test_order_seed positive := null,
419+ a_tags varchar2 := null
405420 ) return ut_varchar2_rows pipelined is
406421 l_reporter ut_reporter_base := a_reporter;
407422 l_results sys_refcursor;
@@ -417,7 +432,8 @@ create or replace package body ut is
417432 a_exclude_objects,
418433 a_client_character_set,
419434 a_random_test_order,
420- a_random_test_order_seed
435+ a_random_test_order_seed,
436+ ut_varchar2_rows(a_tags)
421437 );
422438 if l_reporter is of (ut_output_reporter_base) then
423439 l_results := treat(l_reporter as ut_output_reporter_base).get_lines_cursor();
@@ -440,7 +456,8 @@ create or replace package body ut is
440456 a_client_character_set varchar2 := null,
441457 a_force_manual_rollback boolean := false,
442458 a_random_test_order boolean := false,
443- a_random_test_order_seed positive := null
459+ a_random_test_order_seed positive := null,
460+ a_tags ut_varchar2_rows := null
444461 ) is
445462 l_reporter ut_reporter_base := a_reporter;
446463 begin
@@ -459,7 +476,8 @@ create or replace package body ut is
459476 a_client_character_set,
460477 a_force_manual_rollback,
461478 a_random_test_order,
462- a_random_test_order_seed
479+ a_random_test_order_seed,
480+ a_tags
463481 );
464482 else
465483 run_autonomous(
@@ -473,7 +491,8 @@ create or replace package body ut is
473491 a_exclude_objects,
474492 a_client_character_set,
475493 ut_utils.boolean_to_int(a_random_test_order),
476- a_random_test_order_seed
494+ a_random_test_order_seed,
495+ a_tags
477496 );
478497 end if;
479498 if l_reporter is of (ut_output_reporter_base) then
@@ -494,7 +513,8 @@ create or replace package body ut is
494513 a_client_character_set varchar2 := null,
495514 a_force_manual_rollback boolean := false,
496515 a_random_test_order boolean := false,
497- a_random_test_order_seed positive := null
516+ a_random_test_order_seed positive := null,
517+ a_tags ut_varchar2_rows := null
498518 ) is
499519 l_reporter ut_reporter_base := a_reporter;
500520 begin
@@ -510,7 +530,8 @@ create or replace package body ut is
510530 a_client_character_set,
511531 a_force_manual_rollback,
512532 a_random_test_order,
513- a_random_test_order_seed
533+ a_random_test_order_seed,
534+ a_tags
514535 );
515536 end;
516537
@@ -525,7 +546,8 @@ create or replace package body ut is
525546 a_client_character_set varchar2 := null,
526547 a_force_manual_rollback boolean := false,
527548 a_random_test_order boolean := false,
528- a_random_test_order_seed positive := null
549+ a_random_test_order_seed positive := null,
550+ a_tags varchar2 := null
529551 ) is
530552 begin
531553 ut.run(
@@ -540,7 +562,8 @@ create or replace package body ut is
540562 a_client_character_set,
541563 a_force_manual_rollback,
542564 a_random_test_order,
543- a_random_test_order_seed
565+ a_random_test_order_seed,
566+ ut_varchar2_rows(a_tags)
544567 );
545568 end;
546569
@@ -555,7 +578,8 @@ create or replace package body ut is
555578 a_client_character_set varchar2 := null,
556579 a_force_manual_rollback boolean := false,
557580 a_random_test_order boolean := false,
558- a_random_test_order_seed positive := null
581+ a_random_test_order_seed positive := null,
582+ a_tags varchar2 := null
559583 ) is
560584 begin
561585 ut.run(
@@ -570,7 +594,8 @@ create or replace package body ut is
570594 a_client_character_set,
571595 a_force_manual_rollback,
572596 a_random_test_order,
573- a_random_test_order_seed
597+ a_random_test_order_seed,
598+ ut_varchar2_rows(a_tags)
574599 );
575600 end;
576601
@@ -586,7 +611,8 @@ create or replace package body ut is
586611 a_client_character_set varchar2 := null,
587612 a_force_manual_rollback boolean := false,
588613 a_random_test_order boolean := false,
589- a_random_test_order_seed positive := null
614+ a_random_test_order_seed positive := null,
615+ a_tags varchar2 := null
590616 ) is
591617 begin
592618 ut.run(
@@ -601,7 +627,8 @@ create or replace package body ut is
601627 a_client_character_set,
602628 a_force_manual_rollback,
603629 a_random_test_order,
604- a_random_test_order_seed
630+ a_random_test_order_seed,
631+ ut_varchar2_rows(a_tags)
605632 );
606633 end;
607634
@@ -617,7 +644,8 @@ create or replace package body ut is
617644 a_client_character_set varchar2 := null,
618645 a_force_manual_rollback boolean := false,
619646 a_random_test_order boolean := false,
620- a_random_test_order_seed positive := null
647+ a_random_test_order_seed positive := null,
648+ a_tags varchar2 := null
621649 ) is
622650 begin
623651 ut.run(
@@ -632,10 +660,12 @@ create or replace package body ut is
632660 a_client_character_set,
633661 a_force_manual_rollback,
634662 a_random_test_order,
635- a_random_test_order_seed
663+ a_random_test_order_seed,
664+ ut_varchar2_rows(a_tags)
636665 );
637666 end;
638667
668+
639669 procedure set_nls is
640670 begin
641671 if g_nls_date_format is null then
0 commit comments