Redefined event listeners mechanism.

utPLSQL · jgebal · Apr 25, 2018 · Mar 4, 2018 · Mar 14, 2018 · Mar 15, 2018
commit a05475a63011557a2fdb770d2c18708d5a1201b8
diff --git a/old_tests/RunAll.sql b/old_tests/RunAll.sql
@@ -445,32 +445,32 @@ begin
   --run for the first time to gather coverage and timings on reporters too
   l_reporter := ut_coverage_html_reporter(a_project_name => 'utPLSQL v3');
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
 
   l_reporter := ut_coverage_sonar_reporter();
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
 
   l_reporter := ut_coveralls_reporter();
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
 
   ut_coverage.coverage_stop_develop();
 
   --run for the second time to get the coverage report
   l_reporter := ut_coverage_html_reporter(a_project_name => 'utPLSQL v3');
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
   :html_reporter_id := l_reporter.get_reporter_id;
 
   l_reporter := ut_coverage_sonar_reporter();
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
   :sonar_reporter_id := l_reporter.get_reporter_id;
 
   l_reporter := ut_coveralls_reporter();
   l_reporter.after_calling_run(l_test_run);
-  l_reporter.finalize();
+  l_reporter.on_finalize(l_test_run);
   :coveralls_reporter_id := l_reporter.get_reporter_id;
 end;
 /

diff --git a/...ager.configure_execution_by_path.PrepareRunnerForTheTop2PackageProcedureByPathCurUser.sql b/...ager.configure_execution_by_path.PrepareRunnerForTheTop2PackageProcedureByPathCurUser.sql
@@ -30,8 +30,8 @@ begin
 
   l_test_proc := treat(l_test2_suite.items(1) as ut_test);
   ut.expect(l_test_proc.name).to_equal('test2');
-  ut.expect(l_test_proc.before_test is not null).to_be_true;
-  ut.expect(l_test_proc.after_test is not null).to_be_true;
+  ut.expect(l_test_proc.before_test_list.count).to_equal(1);
+  ut.expect(l_test_proc.after_test.count).to_equal(1);
 
   if ut_expectation_processor.get_status = ut_utils.tr_success then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.AfterEachExecuted.sql b/old_tests/ut_test/ut_test.AfterEachExecuted.sql
@@ -5,12 +5,11 @@ declare
   simple_test ut_test := ut_test(
     a_object_name         => 'ut_example_tests'
     ,a_name     => 'ut_passing_test'
-    ,a_after_each_proc_name => 'aftereach'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_each_list := ut_executables(ut_executable(simple_test, 'aftereach', ut_utils.gc_after_each));
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_success and ut_example_tests.g_char2 = 'F' then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.AfterEachProcedureNameInvalid.sql b/old_tests/ut_test/ut_test.AfterEachProcedureNameInvalid.sql
@@ -3,16 +3,15 @@ PROMPT Does not execute test and reports error when test aftereach procedure nam
 --Arrange
 declare
   simple_test ut_test := ut_test(
-    a_after_each_proc_name => 'invalid setup name'
-    ,a_object_name => 'ut_example_tests'
+    a_object_name => 'ut_example_tests'
     ,a_name => 'ut_exampletest'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_each_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_after_each));
   ut_example_tests.g_char := 'x';
   ut_example_tests.g_char2 := 'x';
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_char2 = 'x' and simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.AfterEachProcedureNameNull.sql b/old_tests/ut_test/ut_test.AfterEachProcedureNameNull.sql
@@ -3,14 +3,13 @@ PROMPT Does not invoke aftereach procedure when aftereach procedure name for a t
 --Arrange
 declare
   simple_test ut_test := ut_test(
-    a_after_each_proc_name => null
-    ,a_object_name => 'ut_example_tests'
+    a_object_name => 'ut_example_tests'
     ,a_name => 'ut_passing_test'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_each_list := ut_executables(ut_executable(simple_test, '', ut_utils.gc_after_each));
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_char2 = 'a' then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.BeforeEachExecuted.sql b/old_tests/ut_test/ut_test.BeforeEachExecuted.sql
@@ -3,15 +3,14 @@ PROMPT Invoke beforeeach procedure
 --Arrange
 declare
   simple_test ut_test := ut_test(
-    a_object_name            => 'ut_example_tests'
+    a_object_name  => 'ut_example_tests'
     ,a_name        => 'ut_passing_test'
-    ,a_before_each_proc_name => 'beforeeach'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_each_list := ut_executables(ut_executable(simple_test, 'beforeeach', ut_utils.gc_before_each));
   ut_example_tests.g_number2 := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_number2 = 1 then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.BeforeEachProcedureNameInvalid.sql b/old_tests/ut_test/ut_test.BeforeEachProcedureNameInvalid.sql
@@ -3,15 +3,14 @@ PROMPT Does not execute test and reports error when test beforeeach procedure na
 --Arrange
 declare
   simple_test ut_test := ut_test(
-     a_before_each_proc_name => 'invalid setup name'
-    ,a_object_name => 'ut_example_tests'
+     a_object_name => 'ut_example_tests'
     ,a_name => 'ut_exampletest'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_each_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_before_each));
   ut_example_tests.g_char2 := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_error and ut_example_tests.g_char2 is null then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.BeforeEachProcedureNameNull.sql b/old_tests/ut_test/ut_test.BeforeEachProcedureNameNull.sql
@@ -3,15 +3,14 @@ PROMPT Does not invoke setup procedure when beforeeach procedure name for a test
 --Arrange
 declare
   simple_test ut_test := ut_test(
-     a_before_each_proc_name => null
-    ,a_object_name => 'ut_example_tests'
+    a_object_name => 'ut_example_tests'
     ,a_name => 'ut_passing_test'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_each_list := ut_executables(ut_executable(simple_test, '', ut_utils.gc_before_each));
   ut_example_tests.g_number2 := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_number2 is null then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.IgnoreTollbackToSavepointException.sql b/old_tests/ut_test/ut_test.IgnoreTollbackToSavepointException.sql
@@ -2,11 +2,11 @@ PROMPT Checks that rollback exception does not make run to fail
 
 --Arrange
 declare
-	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);
-	listener ut_event_listener := ut_event_listener(ut_reporters());
+	simple_test ut_test := ut_test(a_object_name => 'ut_example_tests', a_name => 'ut_commit_test');
 begin
+  simple_test.rollback_type := ut_utils.gc_rollback_auto;
 --Act
-	simple_test.do_execute(listener);
+	simple_test.do_execute();
 --Assert
 	if simple_test.result = ut_utils.tr_success then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.OwnerNameInvalid.sql b/old_tests/ut_test/ut_test.OwnerNameInvalid.sql
@@ -3,10 +3,9 @@ PROMPT Reports error when test owner name for a test is invalid
 --Arrange
 declare
   simple_test ut_test := ut_test( a_object_owner => 'invalid owner name', a_object_name => 'ut_example_tests', a_name => 'ut_passing_test');
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 
 --Assert
   if simple_test.result = ut_utils.tr_error then

diff --git a/old_tests/ut_test/ut_test.OwnerNameNull.sql b/old_tests/ut_test/ut_test.OwnerNameNull.sql
@@ -3,10 +3,9 @@ PROMPT Executes test in current schema when test owner name for a test is null
 --Arrange
 declare
   simple_test ut_test:= ut_test(a_object_owner => null, a_object_name => 'ut_example_tests', a_name => 'ut_passing_test');
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_char = 'a' then
     :test_result := simple_test.result;

diff --git a/old_tests/ut_test/ut_test.PackageInInvalidState.sql b/old_tests/ut_test/ut_test.PackageInInvalidState.sql
@@ -9,10 +9,9 @@ set termout on
 
 declare
 	simple_test ut_test := ut_test(a_object_name => 'invalid_package', a_name => 'ut_exampletest');
-	listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-	simple_test.do_execute(listener);
+	simple_test.do_execute();
 --Assert
 	if simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.PackageNameInvalid.sql b/old_tests/ut_test/ut_test.PackageNameInvalid.sql
@@ -3,10 +3,9 @@ PROMPT Reports error when unit test package name for a test is invalid
 --Arrange
 declare
 	simple_test ut_test := ut_test(a_object_name => 'invalid test package name', a_name => 'ut_passing_test');
-	listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-	simple_test.do_execute(listener);
+	simple_test.do_execute();
 --Assert
 	if simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.PackageNameNull.sql b/old_tests/ut_test/ut_test.PackageNameNull.sql
@@ -3,10 +3,9 @@ PROMPT Reports error when unit test package name for a test is null
 --Arrange
 declare
 	simple_test ut_test := ut_test(a_object_name => null, a_name => 'ut_passing_test');
-	listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-	simple_test.do_execute(listener);
+	simple_test.do_execute();
 --Assert
 	if simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.ProcedureNameInvalid.sql b/old_tests/ut_test/ut_test.ProcedureNameInvalid.sql
@@ -3,10 +3,9 @@ PROMPT Reports error when test procedure name for a test is invalid
 --Arrange
 declare
   simple_test ut_test := ut_test(a_object_name => 'ut_example_tests' ,a_name => 'invalid procedure name');
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.ProcedureNameNull.sql b/old_tests/ut_test/ut_test.ProcedureNameNull.sql
@@ -3,10 +3,9 @@ PROMPT Reports error when test procedure name for a test is null
 --Arrange
 declare
   simple_test ut_test := ut_test(a_object_name => 'ut_example_tests', a_name => null);
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.SetupExecutedBeforeTest.sql b/old_tests/ut_test/ut_test.SetupExecutedBeforeTest.sql
@@ -5,13 +5,12 @@ declare
   simple_test ut_test := ut_test(
     a_object_name            => 'ut_example_tests'
     ,a_name        => 'ut_passing_test'
-    ,a_before_test_proc_name => 'setup'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_test_list := ut_executables(ut_executable(simple_test, 'setup', ut_utils.gc_before_test));
   ut_example_tests.g_number := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_number = 1 then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.SetupProcedureNameInvalid.sql b/old_tests/ut_test/ut_test.SetupProcedureNameInvalid.sql
@@ -3,15 +3,14 @@ PROMPT Does not execute test and reports error when test setup procedure name fo
 --Arrange
 declare
   simple_test ut_test := ut_test(
-     a_before_test_proc_name => 'invalid setup name'
-    ,a_object_name => 'ut_example_tests'
+     a_object_name => 'ut_example_tests'
     ,a_name => 'ut_exampletest'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_test_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_before_test));
   ut_example_tests.g_char := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_error and ut_example_tests.g_char is null then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.SetupProcedureNameNull.sql b/old_tests/ut_test/ut_test.SetupProcedureNameNull.sql
@@ -3,15 +3,14 @@ PROMPT Does not invoke setup procedure when setup procedure name for a test is n
 --Arrange
 declare
   simple_test ut_test := ut_test(
-     a_before_test_proc_name => null
-    ,a_object_name => 'ut_example_tests'
+     a_object_name => 'ut_example_tests'
     ,a_name => 'ut_passing_test'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.before_test_list := ut_executables(ut_executable(simple_test, null, ut_utils.gc_before_test));
   ut_example_tests.g_number := null;
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_number is null then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.TeardownExecutedAfterTest.sql b/old_tests/ut_test/ut_test.TeardownExecutedAfterTest.sql
@@ -5,12 +5,11 @@ declare
   simple_test ut_test := ut_test(
     a_object_name         => 'ut_example_tests'
     ,a_name     => 'ut_passing_test'
-    ,a_after_test_proc_name => 'teardown'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_test_list := ut_executables(ut_executable(simple_test, 'teardown', ut_utils.gc_after_test));
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if simple_test.result = ut_utils.tr_success and ut_example_tests.g_char is null then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.TeardownProcedureNameInvalid.sql b/old_tests/ut_test/ut_test.TeardownProcedureNameInvalid.sql
@@ -3,15 +3,14 @@ PROMPT Does not execute test and reports error when test teardown procedure name
 --Arrange
 declare
   simple_test ut_test := ut_test(
-    a_after_test_proc_name => 'invalid setup name'
-    ,a_object_name => 'ut_example_tests'
+    a_object_name => 'ut_example_tests'
     ,a_name => 'ut_exampletest'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_test_list := ut_executables(ut_executable(simple_test, 'invalid setup name', ut_utils.gc_after_test));
   ut_example_tests.g_char := 'x';
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_char = 'x' and simple_test.result = ut_utils.tr_error then
     :test_result := ut_utils.tr_success;

diff --git a/old_tests/ut_test/ut_test.TeardownProcedureNameNull.sql b/old_tests/ut_test/ut_test.TeardownProcedureNameNull.sql
@@ -3,14 +3,13 @@ PROMPT Does not invoke teardown procedure when teardown procedure name for a tes
 --Arrange
 declare
   simple_test ut_test := ut_test(
-    a_after_test_proc_name => null
-    ,a_object_name => 'ut_example_tests'
+    a_object_name => 'ut_example_tests'
     ,a_name => 'ut_passing_test'
   );
-  listener ut_event_listener := ut_event_listener(ut_reporters());
 begin
+  simple_test.after_test_list := ut_executables(ut_executable(simple_test, null, ut_utils.gc_after_test));
 --Act
-  simple_test.do_execute(listener);
+  simple_test.do_execute();
 --Assert
   if ut_example_tests.g_char = 'a' then
     :test_result := ut_utils.tr_success;