Adding ROWID to list of types that do not provide a length.

utPLSQL · lwasylow · Apr 12, 2019 · Mar 14, 2019 · Mar 16, 2019 · Mar 16, 2019
commit 80a46d0a903b453c64afae73f51de7ecc26f3a3e
diff --git a/source/expectations/data_values/ut_compound_data_helper.pkb b/source/expectations/data_values/ut_compound_data_helper.pkb
@@ -231,8 +231,7 @@ create or replace package body ut_compound_data_helper is
     elsif  a_data_info.is_sql_diffable = 1  and a_data_info.column_type in ('DATE','TIMESTAMP','TIMESTAMP WITH TIME ZONE',
       'TIMESTAMP WITH LOCAL TIME ZONE') then
       l_col_type := 'VARCHAR2(50)';
-    elsif  a_data_info.is_sql_diffable = 1  and a_data_info.column_type in ('INTERVAL DAY TO SECOND',
-      'INTERVAL YEAR TO MONTH', 'BINARY_FLOAT', 'BINARY_DOUBLE') then
+    elsif  a_data_info.is_sql_diffable = 1  and type_no_length(a_data_info.column_type) then
       l_col_type := a_data_info.column_type;
     else 
       l_col_type := a_data_info.column_type
@@ -570,6 +569,8 @@ create or replace package body ut_compound_data_helper is
     --clob/blob/xmltype/object/nestedcursor/nestedtable
     if a_type_name IN (g_type_name_map(dbms_sql.blob_type),
                        g_type_name_map(dbms_sql.clob_type),
+                       g_type_name_map(dbms_sql.long_type),
+                       g_type_name_map(dbms_sql.long_raw_type),
                        g_type_name_map(dbms_sql.bfile_type),
                        g_anytype_name_map(dbms_types.typecode_namedcollection))
     then    
@@ -605,6 +606,16 @@ create or replace package body ut_compound_data_helper is
       'Check the query and data for errors.';   
   end; 
 
+  function type_no_length ( a_type_name varchar2) return boolean is
+  begin
+    return case 
+      when a_type_name in ('INTERVAL DAY TO SECOND','INTERVAL YEAR TO MONTH', 'BINARY_FLOAT', 'BINARY_DOUBLE','ROWID') then
+        true
+      else
+        false
+      end;
+  end;
+
 begin
   g_anytype_name_map(dbms_types.typecode_date)             := 'DATE';
   g_anytype_name_map(dbms_types.typecode_number)           := 'NUMBER';

diff --git a/source/expectations/data_values/ut_compound_data_helper.pks b/source/expectations/data_values/ut_compound_data_helper.pks
@@ -94,5 +94,10 @@ create or replace package ut_compound_data_helper authid definer is
 
   function create_err_cursor_msg(a_error_stack varchar2) return varchar2;
 
+  /*
+  * Function to return true or false if the type dont have an length
+  */
+  function type_no_length ( a_type_name varchar2) return boolean;
+
 end;
 /
diff --git a/test/ut3_user/expectations/test_expectations_cursor.pkb b/test/ut3_user/expectations/test_expectations_cursor.pkb
@@ -2594,5 +2594,17 @@ Check the query and data for errors.';
       ut.expect(sqlerrm).to_be_like(l_exp_message); 
   end;
 
+  procedure rowid_refcursor is
+    l_actual  sys_refcursor;
+    l_expected sys_refcursor;
+  begin
+    open l_expected for
+      select rowid as test from dual;
+    open l_actual for
+      select rowid as test from dual;
+
+    ut3.ut.expect(l_actual).to_equal(l_expected);  
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
 end;
 /
diff --git a/test/ut3_user/expectations/test_expectations_cursor.pks b/test/ut3_user/expectations/test_expectations_cursor.pks
@@ -405,6 +405,9 @@ create or replace package test_expectations_cursor is
 
   --%test(Fail to process a cursor for expected)
   procedure xml_error_expected;
+
+  --%test(Check that cursor correctly handles ROWID dataype)
+  procedure rowid_refcursor;
 
 end;
 /