11set termout off
2- create or replace package tst_documrep_mult_warn as
2+ create or replace package ut_output_test_rollback as
33 -- %suite
44
5+ -- %beforeall
6+ procedure ba;
7+ -- %beforeeach
8+ procedure be;
59 -- %test
6- procedure test1;
7- end;
8- /
9-
10- create or replace package body tst_documrep_mult_warn as
11- procedure test1 is begin commit ; end;
12- end;
13- /
14- create or replace package tst_documrep_mult_warn2 as
15- -- %suite
16-
10+ procedure test;
1711 -- %test
18- procedure test1;
12+ -- %rollback(manual)
13+ procedure t_manual;
14+ -- %afterall
15+ procedure aa;
16+ -- %aftereach
17+ procedure ae;
1918end;
2019/
2120
22- create or replace package body tst_documrep_mult_warn2 as
23- procedure test1 is begin commit ; end;
21+ create or replace package body ut_output_test_rollback as
22+ procedure ba is begin commit ; end;
23+ procedure be is begin commit ; end;
24+ procedure test is begin null ; end;
25+ procedure t_manual is begin commit ; end;
26+ procedure aa is begin commit ; end;
27+ procedure ae is begin commit ; end;
2428end;
2529/
2630
@@ -32,14 +36,31 @@ declare
3236 l_output varchar2 (32767 );
3337 l_expected varchar2 (32767 );
3438begin
35- l_expected := q' [%Warnings:
36- %1)%tst_documrep_mult_warn%
37- %2)%tst_documrep_mult_warn%]' ;
39+ l_expected := q' [%
40+ 1) ut_output_test_rollback.test
41+ Unable to perform automatic rollback after test. An implicit or explicit commit/rollback occurred in procedures:
42+ ut3.ut_output_test_rollback.be
43+ ut3.ut_output_test_rollback.ae
44+ Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.
45+ %
46+ 2) ut_output_test_rollback
47+ Unable to perform automatic rollback after test suite. An implicit or explicit commit/rollback occurred in procedures:
48+ ut3.ut_output_test_rollback.ba
49+ ut3.ut_output_test_rollback.aa
50+ ut3.ut_output_test_rollback.be
51+ ut3.ut_output_test_rollback.ae
52+ ut3.ut_output_test_rollback.be
53+ ut3.ut_output_test_rollback.t_manual
54+ ut3.ut_output_test_rollback.ae
55+ Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.
56+ %
57+ Finished in % seconds
58+ 2 tests, 0 failed, 0 errored, 0 disabled, 2 warning(s)%]' ;
3859
3960 -- act
4061 select *
4162 bulk collect into l_output_data
42- from table(ut .run (ut_varchar2_list(' tst_documrep_mult_warn ' , ' tst_documrep_mult_warn2 ' ),ut_documentation_reporter()));
63+ from table(ut .run (ut_varchar2_list(' ut_output_test_rollback ' ),ut_documentation_reporter()));
4364
4465 l_output := ut_utils .table_to_clob (l_output_data);
4566
4869 :test_result := ut_utils .tr_success ;
4970 else
5071 dbms_output .put_line (' Actual:"' || l_output|| ' "' );
72+ dbms_output .put_line (' Expected:"' || l_expected|| ' "' );
5173 end if;
5274end;
5375/
5476
55- drop package tst_documrep_mult_warn;
56- drop package tst_documrep_mult_warn2;
77+ drop package ut_output_test_rollback;
0 commit comments