Skip to content
Merged
Show file tree
Hide file tree
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Next Next commit
Adding support for long type names in tests.
Resolves: #1235
  • Loading branch information
jgebal committed Oct 17, 2022
commit 48505fbe05364660b65fca7e6934a652e4b74a03
4 changes: 4 additions & 0 deletions source/expectations/data_values/ut_cursor_details.tpb
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
15 changes: 15 additions & 0 deletions test/ut3_user/expectations/test_expectation_anydata.pkb
Original file line number Diff line number Diff line change
Expand Up @@ -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;
/
6 changes: 6 additions & 0 deletions test/ut3_user/expectations/test_expectation_anydata.pks
Original file line number Diff line number Diff line change
Expand Up @@ -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;
/