Added support for collections

Pablo Roldán Ruíz · Pablo Roldán Ruíz · commit 4963ebd4f27f · 2017-02-09T12:48:41.000+01:00
diff --git a/source/expectations/data_values/ut_data_value_refcursor.tpb b/source/expectations/data_values/ut_data_value_refcursor.tpb
@@ -61,7 +61,7 @@ create or replace type body ut_data_value_refcursor as
     if self.data_value is not null then
       ut_assert_processor.set_xml_nls_params();
       dbms_xmlgen.restartQuery(self.data_value);
-      dbms_xmlgen.setMaxRows(self.data_value, 100);
+      dbms_xmlgen.setMaxRows(self.data_value, 1);
       l_result := dbms_xmlgen.getxml(self.data_value);
       
       if l_result is null then  
diff --git a/source/expectations/matchers/ut_be_empty.tpb b/source/expectations/matchers/ut_be_empty.tpb
@@ -40,6 +40,25 @@ create or replace type body ut_be_empty as
           l_result := false;
         end if;
       end;
+    elsif a_actual is of (ut_data_value_anydata) then
+      declare
+        l_actual   ut_data_value_anydata := treat(a_actual as ut_data_value_anydata);
+        l_type_name VARCHAR2(61);
+        l_type anytype;
+      begin        
+        if a_actual.is_null() then
+          l_result := false;
+        elsif l_actual.data_value.gettype(l_type) in (dbms_types.typecode_varray,dbms_types.typecode_table,dbms_types.typecode_namedcollection) THEN
+          ut_assert_processor.set_xml_nls_params();
+          l_type_name := l_actual.data_value.gettypename();
+          l_Type_name := substr(l_type_name,instr(l_type_name,'.')+1);
+          l_result := xmltype(l_actual.data_value).getclobval() = '</'||l_type_name||'>';
+          ut_assert_processor.reset_nls_params();
+        ELSE
+          ut_utils.debug_log('Failure - ut_be_empty.run_matcher can only be used with collections and cursors');
+          self.error_message := 'The matcher can only be used with collections and cursors';
+        end if;        
+      end;
     else
       l_result := (self as ut_matcher).run_matcher(a_actual);
     end if;
diff --git a/source/expectations/ut_expectation_anydata.tpb b/source/expectations/ut_expectation_anydata.tpb
@@ -20,6 +20,12 @@ create or replace type body ut_expectation_anydata as
     ut_utils.debug_log('ut_expectation_anydata.to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null)');
     self.to_( ut_equal(a_expected, a_nulls_are_equal) );
   end;
+  
+  member procedure to_be_empty(self in ut_expectation_anydata) is
+  begin
+    ut_utils.debug_log('ut_expectation_anydata.to_be_empty(self in ut_expectation_anydata)');
+    self.to_( ut_be_empty() );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_anydata.tps b/source/expectations/ut_expectation_anydata.tps
@@ -15,6 +15,7 @@ create or replace type ut_expectation_anydata under ut_expectation(
   See the License for the specific language governing permissions and
   limitations under the License.
   */
-  overriding member procedure to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null)
+  overriding member procedure to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null),
+  member procedure to_be_empty(self in ut_expectation_anydata)
 )
 /

Original file line number	Diff line number	Diff line change
`@@ -15,6 +15,7 @@ create or replace type ut_expectation_anydata under ut_expectation(`
`15`	`15`	`See the License for the specific language governing permissions and`
`16`	`16`	`limitations under the License.`
`17`	`17`	`*/`
`18`		`- overriding member procedure to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null)`
	`18`	`+ overriding member procedure to_equal(self in ut_expectation_anydata, a_expected anydata, a_nulls_are_equal boolean := null),`
	`19`	`+ member procedure to_be_empty(self in ut_expectation_anydata)`
`19`	`20`	`)`
`20`	`21`	`/`