Merge pull request #1238 from utPLSQL/bugfix/long_type_name_support

jgebal · web-flow · commit e71571a599c3 · 2022-10-17T23:45:29.000+03:00
Added support for long type names in tests.
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,32 @@ 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 q'[create or replace type
+      very_long_type_name_valid_for_oracle_12_so_utPLSQL_should_allow_it_definitely_well_still_not_reached_128_but_wait_we_did_it
+      is object (
+        code number(18)
+      )]';
+    execute immediate q'[
+      begin
+        ut3_develop.ut.expect(anydata.convertObject(
+          very_long_type_name_valid_for_oracle_12_so_utPLSQL_should_allow_it_definitely_well_still_not_reached_128_but_wait_we_did_it(1)
+        )).to_equal(anydata.convertObject(
+          very_long_type_name_valid_for_oracle_12_so_utPLSQL_should_allow_it_definitely_well_still_not_reached_128_but_wait_we_did_it(1)
+        ));
+      end;]';
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+    execute immediate 'drop type very_long_type_name_valid_for_oracle_12_so_utPLSQL_should_allow_it_definitely_well_still_not_reached_128_but_wait_we_did_it';
+  exception
+    when others then
+    execute immediate 'drop type very_long_type_name_valid_for_oracle_12_so_utPLSQL_should_allow_it_definitely_well_still_not_reached_128_but_wait_we_did_it';
+    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;
 /
