Removed autonomous_transaction from cursor init

pesse · Samuel Nitsche · commit 6639c6afc823 · 2017-08-22T12:04:10.000+02:00
Fixes #462 Added additional test for cursor comparison on temporary tables
diff --git a/source/expectations/data_values/ut_data_value_refcursor.tpb b/source/expectations/data_values/ut_data_value_refcursor.tpb
@@ -41,7 +41,6 @@ create or replace type body ut_data_value_refcursor as
     l_xml                 xmltype;
     c_bulk_rows  constant integer := 1000;
     l_current_date_format varchar2(4000);
-    pragma autonomous_transaction;
   begin
     self.is_cursor_null := ut_utils.boolean_to_int(a_value is null);
     self.self_type  := $$plsql_unit;
diff --git a/test/install_tests.sql b/test/install_tests.sql
@@ -8,6 +8,8 @@
 @@ut_reporters/test_coverage.pks
 @@ut_reporters/test_coverage_sonar_reporter.pks
 @@ut_reporters/test_coveralls_reporter.pks
+@@ut_runner/test_ut_runner.pks
+@ut_expectations/test_expectations_cursor.pks
 
 @core.pkb
 @ut_utils/test_ut_utils.pkb
@@ -18,6 +20,8 @@
 @@ut_reporters/test_coverage.pkb
 @@ut_reporters/test_coverage_sonar_reporter.pkb
 @@ut_reporters/test_coveralls_reporter.pkb
+@@ut_runner/test_ut_runner.pkb
+@ut_expectations/test_expectations_cursor.pkb
 
 show errors
 
diff --git a/test/ut_expectations/test_expectations_cursor.pkb b/test/ut_expectations/test_expectations_cursor.pkb
@@ -0,0 +1,42 @@
+create or replace package body test_expectations_cursor is
+
+  procedure setup_temp_table_test
+  as
+    pragma autonomous_transaction;
+  begin
+    execute immediate 'create global temporary table gtt_test_table (
+        value varchar2(250)
+      ) on commit delete rows';
+
+  end;
+
+  procedure cleanup_temp_table_test
+  as
+    pragma autonomous_transaction;
+  begin
+    execute immediate 'drop table gtt_test_table';
+  end;
+
+  procedure test_cursor_w_temp_table
+  as
+    pragma autonomous_transaction;
+    v_expected t_gtt_data_t;
+
+    c_expected sys_refcursor;
+    c_actual sys_refcursor;
+  begin
+      
+    v_expected(1).value := 'Test-entry';
+
+    -- insert test-data into temporary table
+    execute immediate 'insert into gtt_test_table ( value ) values ( ''Test-entry'' )';
+
+    -- test 
+    open c_expected for select * from table(v_expected);
+    open c_actual for 'select * from gtt_test_table';
+
+    ut.expect( c_actual ).to_equal( a_expected => c_expected );
+
+  end;
+end;
+/
diff --git a/test/ut_expectations/test_expectations_cursor.pks b/test/ut_expectations/test_expectations_cursor.pks
@@ -0,0 +1,20 @@
+create or replace package test_expectations_cursor is
+
+  --%suite(expectations - cursor)
+  --%suitepath(utplsql.core.expectations.cursor)
+
+  
+  procedure setup_temp_table_test;
+  procedure cleanup_temp_table_test;
+  
+  --%test(Test cursor on temporary table)
+  --%beforetest(setup_temp_table_test)
+  --%aftertest(cleanup_temp_table_test)
+  procedure test_cursor_w_temp_table;
+
+   type t_gtt_data_r is record (
+      value varchar2(250)
+      );
+   type t_gtt_data_t is table of t_gtt_data_r index by binary_integer;
+end;
+/
