Added more tests.

jgebal · jgebal · commit 0ea3a21f0429 · 2016-07-25T00:18:23.000+01:00
diff --git a/examples/RunAllExamples.sql b/examples/RunAllExamples.sql
@@ -8,3 +8,6 @@ set feedback off
 @@RunExampleTestThroughBaseClass.sql
 @@TestPackageName.sql
 @@TestProcedureName.sql
+@@TestOwnerName.sql
+@@TestSetupProcedureName.sql
+@@TestTeardownProcedureName.sql
diff --git a/examples/TestOwnerName.sql b/examples/TestOwnerName.sql
@@ -0,0 +1,54 @@
+--This shows how the interna test engine works to test a single package.
+--No tables are used for this and exceptions are handled better.
+--Clear Screen
+Set Serveroutput On Size Unlimited format truncated
+set echo off
+
+--Arrange
+@@ut_exampletest.pks
+@@ut_exampletest.pkb
+
+PROMPT Does not report error when test owner name for a test is null
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_owner_name         => null);
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result != ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+PROMPT Reports error when test owner name for a test is invalid
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_owner_name         => 'invalid owner name');
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result = ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+--Cleanup
+drop package ut_exampletest;
diff --git a/examples/TestSetupProcedureName.sql b/examples/TestSetupProcedureName.sql
@@ -0,0 +1,54 @@
+--This shows how the interna test engine works to test a single package.
+--No tables are used for this and exceptions are handled better.
+--Clear Screen
+Set Serveroutput On Size Unlimited format truncated
+set echo off
+
+--Arrange
+@@ut_exampletest.pks
+@@ut_exampletest.pkb
+
+PROMPT Does not report error when test setup procedure name for a test is null
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_setup_procedure    => null);
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result != ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+PROMPT Reports error when test setup procedure name for a test is invalid
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_setup_procedure    => 'invalid setup name');
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result = ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+--Cleanup
+drop package ut_exampletest;
diff --git a/examples/TestTeardownProcedureName.sql b/examples/TestTeardownProcedureName.sql
@@ -0,0 +1,54 @@
+--This shows how the interna test engine works to test a single package.
+--No tables are used for this and exceptions are handled better.
+--Clear Screen
+Set Serveroutput On Size Unlimited format truncated
+set echo off
+
+--Arrange
+@@ut_exampletest.pks
+@@ut_exampletest.pkb
+
+PROMPT Does not report error when test teardown procedure name for a test is null
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_teardown_procedure => null);
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result != ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+PROMPT Reports error when test teardown procedure name for a test is invalid
+declare
+  simple_test ut_test;
+begin
+
+--Act
+  simple_test := ut_test(a_object_name        => 'ut_exampletest'
+                        ,a_test_procedure     => 'ut_exampletest'
+                        ,a_teardown_procedure => 'invalid teardown name');
+
+  simple_test.execute();
+
+--Assert
+  if simple_test.execution_result.result = ut_utils.tr_error then
+    dbms_output.put_line('  Success');
+  else
+    dbms_output.put_line('  Failure');
+  end if;
+end;
+/
+
+--Cleanup
+drop package ut_exampletest;
