gc_blob blob := to_blob('123');

gc_clob clob := to_clob('abc');

gc_date date := sysdate;

gc_ds_int interval day(9) to second(9) := numtodsinterval(1.12345678912, 'day');

gc_num number := 123456789.1234567890123456789;

gc_ts timestamp(9) := to_timestamp_tz('2017-03-30 00:21:12.123456789 cet','yyyy-mm-dd hh24:mi:ss.ff9 tzr');

gc_ts_tz timestamp(9) with time zone := to_timestamp_tz('2017-03-30 00:21:12.123456789 cet','yyyy-mm-dd hh24:mi:ss.ff9 tzr');

gc_ts_ltz timestamp(9) with local time zone := to_timestamp_tz('2017-03-30 00:21:12.123456789 cet','yyyy-mm-dd hh24:mi:ss.ff9 tzr');

gc_varchar varchar2(4000) := 'a varchar2';

gc_ym_int interval year(9) to month := numtoyminterval(1.1, 'year');

l_error_code integer := -31011; --xpath_error

ut.fail('Expected '||l_error_code||' but nothing was raised');

when others then

ut.expect(sqlcode).to_equal(l_error_code);

procedure data_diff_on_failure

as

l_actual sys_refcursor;

l_expected sys_refcursor;

l_actual_message varchar2(32767);

l_expected_message varchar2(32767);

begin

--Arrange

open l_actual for select rownum rn from dual connect by level <=2;

open l_expected for select rownum rn from dual connect by level <=3;

--Act

ut3.ut.expect(l_actual).to_equal(l_expected);

l_expected_message := q'[Actual:%

(rows: 2, mismatched: 1)

(refcursor)%

was expected to equal:%

(rows: 3, mismatched: 1)

row_no: 3 <ROW><RN>3</RN></ROW>

(refcursor)%]';

l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;

--Assert

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

end;

procedure prepare_table

as

pragma autonomous_transaction;

begin

execute immediate

'create table test_table_for_cursors (

some_blob blob,

some_clob clob,

some_date date,

some_ds_interval interval day(9) to second(9),

some_nummber number,

some_timestamp timestamp(9),

some_timestamp_tz timestamp(9) with time zone,

some_timestamp_ltz timestamp(9) with local time zone,

some_varchar2 varchar2(4000),

some_ym_interval interval year(9) to month

)';

execute immediate q'[

insert into test_table_for_cursors

values( :gc_blob, :gc_clob, :gc_date, :gc_ds_int, :gc_num, :gc_ts, :gc_ts_tz, :gc_ts_ltz, :gc_varchar, :gc_ym_int

)

]' using gc_blob, gc_clob, gc_date, gc_ds_int, gc_num, gc_ts, gc_ts_tz, gc_ts_ltz, gc_varchar, gc_ym_int;

commit;

end;

procedure cleanup_table

as

pragma autonomous_transaction;

begin

execute immediate 'drop table test_table_for_cursors';

end;

procedure compares_sql_and_plsql_types is

l_expected sys_refcursor;

l_actual sys_refcursor;

begin

--Arrange

open l_expected for

select gc_blob some_blob,

gc_clob some_clob,

gc_date some_date,

gc_ds_int some_ds_interval,

gc_num some_nummber,

gc_ts some_timestamp,

gc_ts_tz some_timestamp_tz,

gc_ts_ltz some_timestamp_ltz ,

gc_varchar some_varchar2,

gc_ym_int some_ym_interval

from dual;

open l_actual for q'[select * from test_table_for_cursors]';

--Act

ut3.ut.expect(l_expected).to_equal(l_actual);

--Assert

ut.expect(ut3.ut_expectation_processor.get_status()).to_equal(ut3.ut_utils.tr_success);

end;

procedure closes_cursor_after_use

as

l_actual sys_refcursor;

begin

--Arrange

open l_actual for select 1 as value from dual;

--Act

ut3.ut.expect(l_actual).to_be_empty();

--Assert

ut.expect(l_actual%isopen).to_be_false();

end;

procedure closes_cursor_after_use_on_err

as

l_actual sys_refcursor;

begin

--Arrange

open l_actual for select 1/0 as value from dual;

--Act

begin

ut3.ut.expect(l_actual).to_be_empty();

exception

when others then

null;

end;

--Assert

ut.expect(l_actual%isopen).to_be_false();

end;

procedure reports_on_exception_in_cursor

as

l_actual sys_refcursor;

l_error_code integer := -19202; --Error occurred in XML processing

begin

--Act

open l_actual for select 1/0 as error_column from dual connect by level < 10;

begin

ut3.ut.expect(l_actual).to_be_empty();

--Assert

ut.fail('Expected '||l_error_code||' but nothing was raised');

exception

when others then

ut.expect(sqlcode).to_equal(l_error_code);

end;

end;

procedure reports_on_closed_cursor

as

l_actual sys_refcursor;

l_error_code integer := -19202; --Error occurred in XML processing

begin

--Act

open l_actual for select 1 as value from dual connect by level < 10;

close l_actual;

begin

ut3.ut.expect(l_actual).to_be_empty();

--Assert

ut.fail('Expected '||l_error_code||' but nothing was raised');

exception

when others then

ut.expect(sqlcode).to_equal(l_error_code);

end;

end;

--%test(Reports data-diff on expectation failure)

procedure data_diff_on_failure;

procedure prepare_table;

procedure cleanup_table;

--%test(Compares cursor on table to cursor on plsql data)

--%beforetest(prepare_table)

--%aftertest(cleanup_table)

procedure compares_sql_and_plsql_types;

--%test(Closes the cursor after use)

procedure closes_cursor_after_use;

--%test(Closes the cursor after use when exception was raised)

procedure closes_cursor_after_use_on_err;

--%test(Reports exception when cursor raises exception)

procedure reports_on_exception_in_cursor;

--%test(Reports exception when cursor is closed)

--%disabled

procedure reports_on_closed_cursor;