added fixed tests for beforeeach/aftereach

Pazus · Pazus · commit d7d7e6144104 · 2017-02-26T14:16:49.000+03:00
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -145,6 +145,12 @@ create table ut$test_table (val varchar2(1));
 @@lib/RunTest.sql ut_test/ut_test.TeardownProcedureNameInvalid.sql
 @@lib/RunTest.sql ut_test/ut_test.TeardownProcedureNameNull.sql
 @@lib/RunTest.sql ut_test/ut_test.IgnoreTollbackToSavepointException.sql
+@@lib/RunTest.sql ut_test/ut_test.AfterEachExecuted.sql
+@@lib/RunTest.sql ut_test/ut_test.AfterEachProcedureNameInvalid.sql
+@@lib/RunTest.sql ut_test/ut_test.AfterEachProcedureNameNull.sql
+@@lib/RunTest.sql ut_test/ut_test.BeforeEachExecuted.sql
+@@lib/RunTest.sql ut_test/ut_test.BeforeEachProcedureNameInvalid.sql
+@@lib/RunTest.sql ut_test/ut_test.BeforeEachProcedureNameNull.sql
 
 @@lib/RunTest.sql ut_test_suite/ut_test_suite.ErrorsATestWhenAfterTestFails.sql
 @@lib/RunTest.sql ut_test_suite/ut_test_suite.ErrorsATestWhenBeforeTestFails.sql
diff --git a/tests/helpers/ut_example_tests.pkb b/tests/helpers/ut_example_tests.pkb
@@ -11,12 +11,25 @@ as
  begin
     g_char := null;
  end;
+ 
+ procedure beforeeach as
+ begin
+   g_number2 := 0;
+ end;
+
+ procedure aftereach
+ as
+ begin
+    g_char2 := 'F';
+ end;
 
  procedure ut_passing_test
  as
  begin
     g_number := g_number + 1;
+    g_number2 := g_number2 + 1;
     g_char := 'a';
+    g_char2 := 'a';
     ut.expect(1,'Test 1 Should Pass').to_equal(1);
  end;
  
diff --git a/tests/helpers/ut_example_tests.pks b/tests/helpers/ut_example_tests.pks
@@ -1,9 +1,13 @@
 create or replace package ut_example_tests
 as
  g_number  number;
+ g_number2  number;
  g_char    varchar2(1);
+ g_char2    varchar2(1);
  procedure setup;
  procedure teardown;
+ procedure beforeeach;
+ procedure aftereach;
  procedure ut_passing_test;
  procedure ut_commit_test;
 end;
diff --git a/tests/ut_test/ut_test.AfterEachExecuted.sql b/tests/ut_test/ut_test.AfterEachExecuted.sql
@@ -0,0 +1,20 @@
+PROMPT Invoke aftereach procedure
+
+--Arrange
+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
+--Act
+  simple_test.do_execute(listener);
+--Assert
+  if simple_test.result = ut_utils.tr_success and ut_example_tests.g_char2 = 'F' then
+    :test_result := ut_utils.tr_success;
+  end if;
+end;
+/
+
diff --git a/tests/ut_test/ut_test.AfterEachProcedureNameInvalid.sql b/tests/ut_test/ut_test.AfterEachProcedureNameInvalid.sql
@@ -0,0 +1,21 @@
+PROMPT Does not execute test and reports error when test aftereach procedure name for a test is invalid
+
+--Arrange
+declare
+  simple_test ut_test := ut_test(
+    a_after_each_proc_name => 'invalid setup name'
+    ,a_object_name => 'ut_example_tests'
+    ,a_name => 'ut_exampletest'
+  );
+  listener ut_event_listener := ut_event_listener(ut_reporters());
+begin
+  ut_example_tests.g_char := 'x';
+  ut_example_tests.g_char2 := 'x';
+--Act
+  simple_test.do_execute(listener);
+--Assert
+  if ut_example_tests.g_char2 = 'x' and simple_test.result = ut_utils.tr_error then
+    :test_result := ut_utils.tr_success;
+  end if;
+end;
+/
diff --git a/tests/ut_test/ut_test.AfterEachProcedureNameNull.sql b/tests/ut_test/ut_test.AfterEachProcedureNameNull.sql
@@ -0,0 +1,21 @@
+PROMPT Does not invoke aftereach procedure when aftereach procedure name for a test is null
+
+--Arrange
+declare
+  simple_test ut_test := ut_test(
+    a_after_each_proc_name => 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);
+--Assert
+  if ut_example_tests.g_char2 = 'a' then
+    :test_result := ut_utils.tr_success;
+  else
+    dbms_output.put_line('expected: ut_example_tests.g_char = ''a'', got: '||ut_example_tests.g_char2 );
+  end if;
+end;
+/
diff --git a/tests/ut_test/ut_test.BeforeEachExecuted.sql b/tests/ut_test/ut_test.BeforeEachExecuted.sql
@@ -0,0 +1,21 @@
+PROMPT Invoke beforeeach procedure
+
+--Arrange
+declare
+  simple_test ut_test := ut_test(
+    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
+  ut_example_tests.g_number2 := null;
+--Act
+  simple_test.do_execute(listener);
+--Assert
+  if ut_example_tests.g_number2 = 1 then
+    :test_result := ut_utils.tr_success;
+  end if;
+end;
+/
+
diff --git a/tests/ut_test/ut_test.BeforeEachProcedureNameInvalid.sql b/tests/ut_test/ut_test.BeforeEachProcedureNameInvalid.sql
@@ -0,0 +1,20 @@
+PROMPT Does not execute test and reports error when test beforeeach procedure name for a test is invalid
+
+--Arrange
+declare
+  simple_test ut_test := ut_test(
+     a_before_each_proc_name => 'invalid setup name'
+    ,a_object_name => 'ut_example_tests'
+    ,a_name => 'ut_exampletest'
+  );
+  listener ut_event_listener := ut_event_listener(ut_reporters());
+begin
+  ut_example_tests.g_char2 := null;
+--Act
+  simple_test.do_execute(listener);
+--Assert
+  if simple_test.result = ut_utils.tr_error and ut_example_tests.g_char2 is null then
+    :test_result := ut_utils.tr_success;
+  end if;
+end;
+/
diff --git a/tests/ut_test/ut_test.BeforeEachProcedureNameNull.sql b/tests/ut_test/ut_test.BeforeEachProcedureNameNull.sql
@@ -0,0 +1,22 @@
+PROMPT Does not invoke setup procedure when beforeeach procedure name for a test is null
+
+--Arrange
+declare
+  simple_test ut_test := ut_test(
+     a_before_each_proc_name => null
+    ,a_object_name => 'ut_example_tests'
+    ,a_name => 'ut_passing_test'
+  );
+  listener ut_event_listener := ut_event_listener(ut_reporters());
+begin
+  ut_example_tests.g_number2 := null;
+--Act
+  simple_test.do_execute(listener);
+--Assert
+  if ut_example_tests.g_number2 is null then
+    :test_result := ut_utils.tr_success;
+  else
+    dbms_output.put_line('expected: ut_example_tests.g_number is null, got: '||ut_example_tests.g_number2 );
+  end if;
+end;
+/
