Reworked and added more tests for a_object_name parameter.

jgebal · jgebal · commit d0d019ce47b6 · 2016-07-24T22:07:49.000+01:00
Added tests for a_test_procedure parameter.
diff --git a/examples/RunAllExamples.sql b/examples/RunAllExamples.sql
@@ -6,3 +6,5 @@ set feedback off
 @@RunExampleTestSuiteWithCustomDBMSOutputReporter.sql
 @@RunExampleTestSuiteWithDBMSOutputReporter.sql
 @@RunExampleTestThroughBaseClass.sql
+@@TestPackageName.sql
+@@TestProcedureName.sql
diff --git a/examples/TestNoPackageName.sql b/examples/TestNoPackageName.sql
diff --git a/examples/TestPackageName.sql b/examples/TestPackageName.sql
@@ -0,0 +1,81 @@
+--Clear Screen
+Set Serveroutput On Size Unlimited format truncated
+set echo off
+
+--Arrange
+PROMPT Reports error when unit test package name for a test is null
+  declare
+    simple_test ut_test;
+  begin
+
+  --Act
+    simple_test := ut_test(a_object_name => null, a_test_procedure => 'ut_exampletest');
+
+    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;
+  /
+
+--Arrange
+PROMPT Reports error when unit test package name for a test is invalid
+  declare
+    simple_test ut_test;
+  begin
+
+  --Act
+    simple_test := ut_test(a_object_name => 'invalid test package name', a_test_procedure => 'ut_exampletest');
+
+    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;
+  /
+
+--Arrange
+PROMPT Reports error when unit test package for a test is in invalid state
+  begin
+    execute immediate
+    'create or replace package invalid_package is
+       v_variable non_existing_type;
+       procedure ut_exampletest;
+     end;';
+  exception when others then
+    if sqlcode = - 24344 then
+      dbms_output.put_line('  Invalid package created');
+    else
+      raise;
+    end if;
+  end;
+  /
+
+  declare
+    simple_test ut_test;
+  begin
+
+  --Act
+    simple_test := ut_test(a_object_name => 'invalid_package', a_test_procedure => 'ut_exampletest');
+
+    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 invalid_package;
diff --git a/examples/TestProcedureName.sql b/examples/TestProcedureName.sql
@@ -0,0 +1,52 @@
+--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 Reports error when test 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     => 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 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     => 'invalid procedure 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;
