Skip to content

Commit a05475a

Browse files
jgebaljgebal
committed
Redefined event listeners mechanism.
1 parent 2631355 commit a05475a

56 files changed

Lines changed: 520 additions & 433 deletions

File tree

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎old_tests/RunAll.sql‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -445,32 +445,32 @@ begin
445445
--run for the first time to gather coverage and timings on reporters too
446446
l_reporter := ut_coverage_html_reporter(a_project_name => 'utPLSQL v3');
447447
l_reporter.after_calling_run(l_test_run);
448-
l_reporter.finalize();
448+
l_reporter.on_finalize(l_test_run);
449449

450450
l_reporter := ut_coverage_sonar_reporter();
451451
l_reporter.after_calling_run(l_test_run);
452-
l_reporter.finalize();
452+
l_reporter.on_finalize(l_test_run);
453453

454454
l_reporter := ut_coveralls_reporter();
455455
l_reporter.after_calling_run(l_test_run);
456-
l_reporter.finalize();
456+
l_reporter.on_finalize(l_test_run);
457457

458458
ut_coverage.coverage_stop_develop();
459459

460460
--run for the second time to get the coverage report
461461
l_reporter := ut_coverage_html_reporter(a_project_name => 'utPLSQL v3');
462462
l_reporter.after_calling_run(l_test_run);
463-
l_reporter.finalize();
463+
l_reporter.on_finalize(l_test_run);
464464
:html_reporter_id := l_reporter.get_reporter_id;
465465

466466
l_reporter := ut_coverage_sonar_reporter();
467467
l_reporter.after_calling_run(l_test_run);
468-
l_reporter.finalize();
468+
l_reporter.on_finalize(l_test_run);
469469
:sonar_reporter_id := l_reporter.get_reporter_id;
470470

471471
l_reporter := ut_coveralls_reporter();
472472
l_reporter.after_calling_run(l_test_run);
473-
l_reporter.finalize();
473+
l_reporter.on_finalize(l_test_run);
474474
:coveralls_reporter_id := l_reporter.get_reporter_id;
475475
end;
476476
/

‎old_tests/ut_suite_manager/ut_suite_manager.configure_execution_by_path.PrepareRunnerForTheTop2PackageProcedureByPathCurUser.sql‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -30,8 +30,8 @@ begin
3030

3131
l_test_proc := treat(l_test2_suite.items(1) as ut_test);
3232
ut.expect(l_test_proc.name).to_equal('test2');
33-
ut.expect(l_test_proc.before_test is not null).to_be_true;
34-
ut.expect(l_test_proc.after_test is not null).to_be_true;
33+
ut.expect(l_test_proc.before_test_list.count).to_equal(1);
34+
ut.expect(l_test_proc.after_test.count).to_equal(1);
3535

3636
if ut_expectation_processor.get_status = ut_utils.tr_success then
3737
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.AfterEachExecuted.sql‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5,12 +5,11 @@ declare
55
simple_test ut_test := ut_test(
66
a_object_name => 'ut_example_tests'
77
,a_name => 'ut_passing_test'
8-
,a_after_each_proc_name => 'aftereach'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.after_each_list := ut_executables(ut_executable(simple_test, 'aftereach', ut_utils.gc_after_each));
1211
--Act
13-
simple_test.do_execute(listener);
12+
simple_test.do_execute();
1413
--Assert
1514
if simple_test.result = ut_utils.tr_success and ut_example_tests.g_char2 = 'F' then
1615
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.AfterEachProcedureNameInvalid.sql‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,16 +3,15 @@ PROMPT Does not execute test and reports error when test aftereach procedure nam
33
--Arrange
44
declare
55
simple_test ut_test := ut_test(
6-
a_after_each_proc_name => 'invalid setup name'
7-
,a_object_name => 'ut_example_tests'
6+
a_object_name => 'ut_example_tests'
87
,a_name => 'ut_exampletest'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.after_each_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_after_each));
1211
ut_example_tests.g_char := 'x';
1312
ut_example_tests.g_char2 := 'x';
1413
--Act
15-
simple_test.do_execute(listener);
14+
simple_test.do_execute();
1615
--Assert
1716
if ut_example_tests.g_char2 = 'x' and simple_test.result = ut_utils.tr_error then
1817
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.AfterEachProcedureNameNull.sql‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,14 +3,13 @@ PROMPT Does not invoke aftereach procedure when aftereach procedure name for a t
33
--Arrange
44
declare
55
simple_test ut_test := ut_test(
6-
a_after_each_proc_name => null
7-
,a_object_name => 'ut_example_tests'
6+
a_object_name => 'ut_example_tests'
87
,a_name => 'ut_passing_test'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.after_each_list := ut_executables(ut_executable(simple_test, '', ut_utils.gc_after_each));
1211
--Act
13-
simple_test.do_execute(listener);
12+
simple_test.do_execute();
1413
--Assert
1514
if ut_example_tests.g_char2 = 'a' then
1615
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.BeforeEachExecuted.sql‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,15 +3,14 @@ PROMPT Invoke beforeeach procedure
33
--Arrange
44
declare
55
simple_test ut_test := ut_test(
6-
a_object_name => 'ut_example_tests'
6+
a_object_name => 'ut_example_tests'
77
,a_name => 'ut_passing_test'
8-
,a_before_each_proc_name => 'beforeeach'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.before_each_list := ut_executables(ut_executable(simple_test, 'beforeeach', ut_utils.gc_before_each));
1211
ut_example_tests.g_number2 := null;
1312
--Act
14-
simple_test.do_execute(listener);
13+
simple_test.do_execute();
1514
--Assert
1615
if ut_example_tests.g_number2 = 1 then
1716
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.BeforeEachProcedureNameInvalid.sql‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,15 +3,14 @@ PROMPT Does not execute test and reports error when test beforeeach procedure na
33
--Arrange
44
declare
55
simple_test ut_test := ut_test(
6-
a_before_each_proc_name => 'invalid setup name'
7-
,a_object_name => 'ut_example_tests'
6+
a_object_name => 'ut_example_tests'
87
,a_name => 'ut_exampletest'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.before_each_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_before_each));
1211
ut_example_tests.g_char2 := null;
1312
--Act
14-
simple_test.do_execute(listener);
13+
simple_test.do_execute();
1514
--Assert
1615
if simple_test.result = ut_utils.tr_error and ut_example_tests.g_char2 is null then
1716
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.BeforeEachProcedureNameNull.sql‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,15 +3,14 @@ PROMPT Does not invoke setup procedure when beforeeach procedure name for a test
33
--Arrange
44
declare
55
simple_test ut_test := ut_test(
6-
a_before_each_proc_name => null
7-
,a_object_name => 'ut_example_tests'
6+
a_object_name => 'ut_example_tests'
87
,a_name => 'ut_passing_test'
98
);
10-
listener ut_event_listener := ut_event_listener(ut_reporters());
119
begin
10+
simple_test.before_each_list := ut_executables(ut_executable(simple_test, '', ut_utils.gc_before_each));
1211
ut_example_tests.g_number2 := null;
1312
--Act
14-
simple_test.do_execute(listener);
13+
simple_test.do_execute();
1514
--Assert
1615
if ut_example_tests.g_number2 is null then
1716
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.IgnoreTollbackToSavepointException.sql‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@ PROMPT Checks that rollback exception does not make run to fail
22

33
--Arrange
44
declare
5-
simple_test ut_test := ut_test(a_object_name => 'ut_example_tests', a_name => 'ut_commit_test',a_rollback_type => ut_utils.gc_rollback_auto);
6-
listener ut_event_listener := ut_event_listener(ut_reporters());
5+
simple_test ut_test := ut_test(a_object_name => 'ut_example_tests', a_name => 'ut_commit_test');
76
begin
7+
simple_test.rollback_type := ut_utils.gc_rollback_auto;
88
--Act
9-
simple_test.do_execute(listener);
9+
simple_test.do_execute();
1010
--Assert
1111
if simple_test.result = ut_utils.tr_success then
1212
:test_result := ut_utils.tr_success;

‎old_tests/ut_test/ut_test.OwnerNameInvalid.sql‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,10 +3,9 @@ PROMPT Reports error when test owner name for a test is invalid
33
--Arrange
44
declare
55
simple_test ut_test := ut_test( a_object_owner => 'invalid owner name', a_object_name => 'ut_example_tests', a_name => 'ut_passing_test');
6-
listener ut_event_listener := ut_event_listener(ut_reporters());
76
begin
87
--Act
9-
simple_test.do_execute(listener);
8+
simple_test.do_execute();
109

1110
--Assert
1211
if simple_test.result = ut_utils.tr_error then

0 commit comments

Comments
 (0)