Merge pull request #552 from AlexisGaldamez/new_anydata_test

jgebal · web-flow · commit 40bd3521715b · 2018-01-11T08:08:40.000Z
new tests for anydata added
diff --git a/test/core/expectations/test_expect_not_to_be_null.pkb b/test/core/expectations/test_expect_not_to_be_null.pkb
@@ -1,11 +1,45 @@
 create or replace package body test_expect_not_to_be_null
 is
+    gc_object_name constant varchar2(30) := 't_not_to_be_null_test';
+    gc_nested_table_name constant varchar2(30) := 'tt_not_to_be_null_test';
+    gc_varray_name constant varchar2(30) := 'tv_not_to_be_null_test';
+
     procedure cleanup_expectations
     is
     begin
         ut3.ut_expectation_processor.clear_expectations();
     end;
 
+    procedure create_types
+    is
+        pragma autonomous_transaction;
+    begin
+        execute immediate 'create type '||gc_object_name||' is object (dummy number)';
+        execute immediate 'create type '||gc_nested_table_name||' is table of number';
+        execute immediate 'create type '||gc_varray_name||' is varray(1) of number';
+    end;
+
+    procedure drop_types
+    is
+        pragma autonomous_transaction;
+    begin
+        execute immediate 'drop type '||gc_object_name;
+        execute immediate 'drop type '||gc_nested_table_name;
+        execute immediate 'drop type '||gc_varray_name;
+    end;
+
+    function anydata_expectation_block(a_object_name in varchar2, a_object_value in varchar2,
+                                        a_object_type in varchar2)
+            return varchar2
+    is
+    begin
+        return 'DECLARE
+                    l_object '||a_object_name||' := '||a_object_value||';
+                BEGIN
+                    ut3.ut.expect(anydata.convert'||a_object_type||'(l_object)).not_to_be_null();
+                END;';
+    end;
+
     procedure blob_not_null
     is
     begin
@@ -115,6 +149,32 @@ is
         ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
     end;
 
+    procedure initialized_object
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_object_name, gc_object_name||'(1)', 'object');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).to_be_empty();
+    end;
+
+    procedure initialized_nested_table
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_nested_table_name, gc_nested_table_name||'()', 'collection');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).to_be_empty();
+    end;
+
+    procedure initialized_varray
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_varray_name, gc_varray_name||'()', 'collection');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).to_be_empty();
+    end;
 
     procedure null_boolean
     is
@@ -195,5 +255,40 @@ is
         ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
     end;
 
+    procedure null_anydata
+    is
+    begin
+        --Act
+        execute immediate expectations_helpers.unary_expectation_block('not_to_be_null', 'anydata', 'null');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
+    end;
+
+    procedure uninit_object_in_anydata
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_object_name, 'null', 'object');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
+    end;
+
+    procedure uninit_nested_table_in_anydata
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_nested_table_name, 'null', 'collection');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
+    end;
+
+    procedure uninit_varray_in_anydata
+    is
+    begin
+        --Act
+        execute immediate anydata_expectation_block(gc_varray_name, 'null', 'collection');
+        --Assert
+        ut.expect(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).not_to_be_empty();
+    end;
 end test_expect_not_to_be_null;
 /
diff --git a/test/core/expectations/test_expect_not_to_be_null.pks b/test/core/expectations/test_expect_not_to_be_null.pks
@@ -6,6 +6,12 @@ is
     --%aftereach
     procedure cleanup_expectations;
 
+    --%beforeall
+    procedure create_types;
+
+    --%afterall
+    procedure drop_types;
+
     --%test(Gives success for not null blob)
     procedure blob_not_null;
 
@@ -39,6 +45,15 @@ is
     --%test(Gives success for not null varchar2)
     procedure varchar2_not_null;
 
+    --%test(Gives success for initialized object within anydata)
+    procedure initialized_object;
+
+    --%test(Gives success for initialized nested table within anydata)
+    procedure initialized_nested_table;
+
+    --%test(Gives success for initialized varray within anydata)
+    procedure initialized_varray;
+
     --%test(Gives failure with null blob)
     procedure null_blob;
 
@@ -65,5 +80,18 @@ is
 
     --%test(Gives failure with null varchar2)
     procedure null_varchar2;
+
+    --%test(Gives failure with null anydata)
+    procedure null_anydata;
+
+    --%test(Gives failure with uninitialized object within anydata)
+    procedure uninit_object_in_anydata;
+
+    --%test(Gives failure with uninitialized nested table within anydata)
+    procedure uninit_nested_table_in_anydata;
+
+    --%test(Gives failure with uninitialized varray within anydata)
+    procedure uninit_varray_in_anydata;
+
 end test_expect_not_to_be_null;
 /
