procedure compare_number_pckg_type

as

l_expected sys_refcursor;

l_actual sys_refcursor;

l_expected_data t_num_tab;

l_actual_message varchar2(32767);

l_expected_message varchar2(32767);

begin

l_expected_data(1).col1 := 2135;

l_expected_data(1).col4 := 2016;

l_expected_data(1).col5 := -1;

--Select on package level nested table types supported only since Oracle 12

$if dbms_db_version.version >= 12 $then

open l_expected for

select *

from table (l_expected_data);

open l_actual for

select

1 as col1

,2 as col2

,3 as col3

,2016 as col4

,-1 as col5

from dual;

ut3.ut.expect(l_actual).to_equal(a_expected => l_expected);

l_expected_message := q'[%Actual: refcursor [ count = 1 ] was expected to equal: refcursor [ count = 1 ]

%Diff:

%Rows: [ 1 differences ]

%Row No. 1 - Actual: <COL1>1</COL1><COL2>2</COL2><COL3>3</COL3>

%Row No. 1 - Expected: <COL1>2135</COL1><COL2/><COL3/>%]';

l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);

ut.expect(l_actual_message).to_be_like(l_expected_message);

$end

end;

--%test( Comparing number types with different precisions works with package-type nested tables )

procedure compare_number_pckg_type;

type t_num_rec is record (

col1 number(15,0),

col2 number(1,0),

col3 number(4,0),

col4 number(4,0),

col5 number(38,0));

type t_num_tab is table of t_num_rec index by binary_integer;