Trying to resolve travis frozen tests issues.

jgebal · jgebal · commit 60fbb9581350 · 2019-03-14T22:42:53.000Z
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -52,7 +52,7 @@ create or replace package body ut_utils is
 
   function gen_savepoint_name return varchar2 is
   begin
-    return 's'||to_char(current_timestamp,'yyyymmddhh24missff6');
+    return '"'||'s'||to_char(current_timestamp,'yyyymmddhh24missff6')||'"';
   end;
 
   procedure debug_log(a_message varchar2) is
diff --git a/test/core/min_grant_user/test_min_grant_user.pkb b/test/core/min_grant_user/test_min_grant_user.pkb
@@ -1,52 +1,5 @@
 create or replace package body test_min_grant_user is
 
-  procedure create_ut3$user#_tests is
-    pragma autonomous_transaction;
-  begin
-    execute immediate q'[
-      create or replace package ut3$user#.test_cursor_grants is
-        --%suite()
-
-        procedure run;
-
-        --%test(execute join by test)
-        procedure test_join_by_cursor;
-      end;
-      ]';
-    execute immediate q'[
-      create or replace package body ut3$user#.test_cursor_grants is
-        procedure run is
-        begin
-          ut3.ut.run('test_cursor_grants');
-        end;
-        procedure test_join_by_cursor is
-          l_actual   SYS_REFCURSOR;
-          l_expected SYS_REFCURSOR;
-        begin
-          --Arrange
-          open l_actual for select owner, object_name,object_type from all_objects where owner = user
-          order by 1,2,3 asc;
-          open l_expected for select owner, object_name,object_type from all_objects where owner = user
-          order by 1,2,3 desc;
-
-          --Act
-          ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OWNER');
-
-        end;
-
-
-      end;
-      ]';
-  end;
-
-  procedure drop_ut3$user#_tests is
-    pragma autonomous_transaction;
-  begin
-    execute immediate q'[drop package ut3$user#.test_cursor_grants]';
-  end;
-
-
-
   procedure test_join_by_cursor is
     l_results clob;
   begin
diff --git a/test/core/min_grant_user/test_min_grant_user.pks b/test/core/min_grant_user/test_min_grant_user.pks
@@ -3,12 +3,6 @@ create or replace package test_min_grant_user is
   --%suite(minimum grant user tests)
   --%suitepath(utplsql.core)
 
-  --%beforeall
-  procedure create_ut3$user#_tests;
-
-  --%afterall
-  procedure drop_ut3$user#_tests;
-  
   --%test(execute join by test)
   procedure test_join_by_cursor;  
  
diff --git a/test/helpers/ut3user#.test_cursor_grants.pkb b/test/helpers/ut3user#.test_cursor_grants.pkb
@@ -0,0 +1,23 @@
+create or replace package body ut3$user#.test_cursor_grants is
+
+  procedure run is
+  begin
+    ut3.ut.run('test_cursor_grants');
+  end;
+
+  procedure test_join_by_cursor is
+    l_actual   SYS_REFCURSOR;
+    l_expected SYS_REFCURSOR;
+  begin
+    --Arrange
+    open l_actual for select owner, object_name,object_type from all_objects where owner = user
+                       order by 1,2,3 asc;
+    open l_expected for select owner, object_name,object_type from all_objects where owner = user
+                         order by 1,2,3 desc;
+
+    --Act
+    ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OWNER');
+
+  end;
+end;
+/
diff --git a/test/helpers/ut3user#.test_cursor_grants.pks b/test/helpers/ut3user#.test_cursor_grants.pks
@@ -0,0 +1,9 @@
+create or replace package ut3$user#.test_cursor_grants is
+  --%suite()
+
+  procedure run;
+
+  --%test(execute join by test)
+  procedure test_join_by_cursor;
+end;
+/
diff --git a/test/install_tests.sql b/test/install_tests.sql
@@ -15,6 +15,8 @@ alter session set plsql_optimize_level=0;
 @@helpers/test_dummy_object_list.tps
 @@helpers/test_event_object.tps
 @@helpers/test_event_list.tps
+@@helpers/ut3user#.test_cursor_grants.pks
+@@helpers/ut3user#.test_cursor_grants.pkb
 
 --Install tests
 @@core.pks
