Adding support for long type names in tests.

jgebal · jgebal · commit 48505fbe0536 · 2022-10-17T18:28:38.000+03:00
Resolves: #1235
diff --git a/source/expectations/data_values/ut_cursor_details.tpb b/source/expectations/data_values/ut_cursor_details.tpb
@@ -91,7 +91,11 @@ create or replace type body ut_cursor_details as
     a_cursor_number in number
   ) return self as result is
     l_columns_count    pls_integer;
+    $if dbms_db_version.version = 12 and dbms_db_version.release = 1 or dbms_db_version.version < 12 $then
     l_columns_desc     dbms_sql.desc_tab3;
+    $else
+    l_columns_desc     dbms_sql.desc_tab4;
+    $end
     l_is_collection    boolean;
     l_hierarchy_level  integer := 1;
   begin
diff --git a/test/ut3_user/expectations/test_expectation_anydata.pkb b/test/ut3_user/expectations/test_expectation_anydata.pkb
@@ -1211,5 +1211,20 @@ Rows: [ 60 differences, showing first 20 ]
 	ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
 
   end;  
+
+  $if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then
+  procedure long_names_object_types is
+    pragma autonomous_transaction;
+  begin
+    execute immediate 'create or replace type tp_r_ug_sportsman_invitation_result is object ( code number(18) )';
+    execute immediate 'begin ut.expect(anydata.convertObject(tp_r_ug_sportsman_invitation_result(1))).to_equal(anydata.convertObject(tp_r_ug_sportsman_invitation_result(1))); end;';
+    execute immediate 'drop type tp_r_ug_sportsman_invitation_result';
+  exception
+    when others then
+    execute immediate 'drop type tp_r_ug_sportsman_invitation_result';
+    raise;
+  end;
+  $end
+
 end;
 /
diff --git a/test/ut3_user/expectations/test_expectation_anydata.pks b/test/ut3_user/expectations/test_expectation_anydata.pks
@@ -233,5 +233,11 @@ create or replace package test_expectation_anydata is
   
   --%test ( Reports success when comparing complex nested objects )
   procedure complex_nested_object_success;      
+
+  $if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then
+  --%test ( Compares object types with long names - Issue #1235 )
+  procedure long_names_object_types;
+  $end
+
 end;
 /
