|
Line 0
Link Here
|
|
|
1 |
/******************************************************************************* |
| 2 |
* Copyright (c) 2011 Oracle. All rights reserved. |
| 3 |
* This program and the accompanying materials are made available under the |
| 4 |
* terms of the Eclipse Public License v1.0 and Eclipse Distribution License v. 1.0 |
| 5 |
* which accompanies this distribution. |
| 6 |
* The Eclipse Public License is available at http://www.eclipse.org/legal/epl-v10.html |
| 7 |
* and the Eclipse Distribution License is available at |
| 8 |
* http://www.eclipse.org/org/documents/edl-v10.php. |
| 9 |
* |
| 10 |
* Contributors: |
| 11 |
* James Sutherland (Oracle) - initial impl |
| 12 |
******************************************************************************/ |
| 13 |
package org.eclipse.persistence.testing.tests.jpa.plsql; |
| 14 |
|
| 15 |
import javax.persistence.EntityManager; |
| 16 |
import javax.persistence.Query; |
| 17 |
|
| 18 |
import junit.framework.*; |
| 19 |
|
| 20 |
import org.eclipse.persistence.sessions.DatabaseSession; |
| 21 |
import org.eclipse.persistence.testing.framework.junit.JUnitTestCase; |
| 22 |
|
| 23 |
public class PLSQLTestSuite extends JUnitTestCase { |
| 24 |
public static boolean validDatabase = true; |
| 25 |
|
| 26 |
public static Test suite() { |
| 27 |
TestSuite suite = new TestSuite("PLSQLTests"); |
| 28 |
suite.addTest(new PLSQLTestSuite("testSetup")); |
| 29 |
suite.addTest(new PLSQLTestSuite("testSimpleProcedure")); |
| 30 |
suite.addTest(new PLSQLTestSuite("testSimpleFunction")); |
| 31 |
suite.addTest(new PLSQLTestSuite("testRecordOut")); |
| 32 |
return suite; |
| 33 |
} |
| 34 |
|
| 35 |
public PLSQLTestSuite(String name) { |
| 36 |
super(name); |
| 37 |
} |
| 38 |
|
| 39 |
/** |
| 40 |
* Return the name of the persistence context this test uses. |
| 41 |
* This allow a subclass test to set this only in one place. |
| 42 |
*/ |
| 43 |
@Override |
| 44 |
public String getPersistenceUnitName() { |
| 45 |
return "plsql"; |
| 46 |
} |
| 47 |
|
| 48 |
/** |
| 49 |
* The setup is done as a test, both to record its failure, and to allow execution in the server. |
| 50 |
*/ |
| 51 |
public void testSetup() { |
| 52 |
if (!getServerSession().getPlatform().isOracle()) { |
| 53 |
warning("This test can only be run on Oracle."); |
| 54 |
return; |
| 55 |
} |
| 56 |
createTables(getDatabaseSession()); |
| 57 |
} |
| 58 |
|
| 59 |
public void createTables(DatabaseSession session) { |
| 60 |
// Tables |
| 61 |
try { |
| 62 |
session.executeNonSelectingSQL("DROP TABLE PLSQL_ADDRESS"); |
| 63 |
} catch (Exception ignore) {} |
| 64 |
session.executeNonSelectingSQL("CREATE TABLE PLSQL_ADDRESS (" |
| 65 |
+ "ADDRESS_ID NUMBER(10) NOT NULL, STREET_NUM NUMBER(10), STREET VARCHAR2(30), CITY VARCHAR2(30), STATE VARCHAR2(30), PRIMARY KEY (ADDRESS_ID))"); |
| 66 |
session.executeNonSelectingSQL("INSERT INTO PLSQL_ADDRESS (" |
| 67 |
+ "ADDRESS_ID, CITY) values (1234, 'Ottawa')"); |
| 68 |
|
| 69 |
// Procedures |
| 70 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_SIMPLE_IN(P_VARCHAR IN VARCHAR2 DEFAULT '', P_BOOLEAN IN BOOLEAN, P_BINARY_INTEGER IN BINARY_INTEGER, " |
| 71 |
+ "P_DEC IN DEC, P_INT IN INT, P_NATURAL IN NATURAL, P_NATURALN IN NATURALN, " |
| 72 |
+ "P_PLS_INTEGER IN PLS_INTEGER, P_POSITIVE IN POSITIVE, P_POSITIVEN IN POSITIVEN, P_SIGNTYPE IN SIGNTYPE, P_NUMBER IN NUMBER) AS " |
| 73 |
+ "BEGIN NULL; END;"); |
| 74 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_SIMPLE_IN_DEFAULTS(P_VARCHAR IN VARCHAR2 DEFAULT '', P_BOOLEAN IN BOOLEAN DEFAULT TRUE, P_BINARY_INTEGER IN BINARY_INTEGER DEFAULT 0, " |
| 75 |
+ "P_DEC IN DEC DEFAULT 0, P_INT IN INT DEFAULT 0, P_NATURAL IN NATURAL DEFAULT 1, P_NATURALN IN NATURALN DEFAULT 1, " |
| 76 |
+ "P_PLS_INTEGER IN PLS_INTEGER DEFAULT 0, P_POSITIVE IN POSITIVE DEFAULT 1, P_POSITIVEN IN POSITIVEN DEFAULT 1, P_SIGNTYPE IN SIGNTYPE DEFAULT 1, P_NUMBER IN NUMBER DEFAULT 0) AS " |
| 77 |
+ "BEGIN NULL; END;"); |
| 78 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_SIMPLE_OUT(P_VARCHAR OUT VARCHAR2, P_BOOLEAN OUT BOOLEAN, P_BINARY_INTEGER OUT BINARY_INTEGER, " |
| 79 |
+ "P_DEC OUT DEC, P_INT OUT INT, P_NATURAL OUT NATURAL, " //P_NATURALN OUT NATURALN, " |
| 80 |
+ "P_PLS_INTEGER OUT PLS_INTEGER, P_POSITIVE OUT POSITIVE, " //P_POSITIVEN OUT POSITIVEN, " |
| 81 |
+ "P_SIGNTYPE OUT SIGNTYPE, P_NUMBER OUT NUMBER) AS " |
| 82 |
+ "BEGIN P_VARCHAR := 'varchar'; P_BOOLEAN := true; P_BINARY_INTEGER := 123; " |
| 83 |
+ "P_DEC := 1; P_INT := 1; P_NATURAL := 1; " //P_NATURALN := 1; " |
| 84 |
+ "P_PLS_INTEGER := 1; P_POSITIVE := 1; " //P_POSITIVEN := 1; " |
| 85 |
+ "P_SIGNTYPE := 1; P_NUMBER := 123; \n" |
| 86 |
+ "END;"); |
| 87 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_SIMPLE_INOUT(P_VARCHAR IN OUT VARCHAR2, P_BOOLEAN IN OUT BOOLEAN, P_BINARY_INTEGER IN OUT BINARY_INTEGER, " |
| 88 |
+ "P_DEC IN OUT DEC, P_INT IN OUT INT, P_NATURAL IN OUT NATURAL, P_NATURALN IN OUT NATURALN, " |
| 89 |
+ "P_PLS_INTEGER IN OUT PLS_INTEGER, P_POSITIVE IN OUT POSITIVE, P_POSITIVEN IN OUT POSITIVEN, P_SIGNTYPE IN OUT SIGNTYPE, P_NUMBER IN OUT NUMBER) AS " |
| 90 |
+ "BEGIN NULL; END;"); |
| 91 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_IN(P_ADDRESS IN PLSQL_ADDRESS%ROWTYPE) AS " |
| 92 |
+ "BEGIN NULL; END;"); |
| 93 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_IN_DATA(P_ADDRESS IN PLSQL_ADDRESS%ROWTYPE, P_LOCAL IN VARCHAR2) AS " |
| 94 |
+ "BEGIN NULL; END;"); |
| 95 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_OUT(P_ADDRESS OUT PLSQL_ADDRESS%ROWTYPE) AS " |
| 96 |
+ "BEGIN P_ADDRESS.ADDRESS_ID := 1234; P_ADDRESS.STREET_NUM := 17; P_ADDRESS.STREET := 'Bank'; P_ADDRESS.CITY := 'Ottawa'; P_ADDRESS.STATE := 'ON'; END;"); |
| 97 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_OUT_DATA(P_ADDRESS OUT PLSQL_ADDRESS%ROWTYPE, P_LOCAL OUT VARCHAR2) AS " |
| 98 |
+ "BEGIN P_ADDRESS.ADDRESS_ID := 1234; P_ADDRESS.STREET_NUM := 17; P_ADDRESS.STREET := 'Bank'; P_ADDRESS.CITY := 'Ottawa'; P_ADDRESS.STATE := 'ON'; P_LOCAL := 'Local'; END;"); |
| 99 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_INOUT(P_ADDRESS IN OUT PLSQL_ADDRESS%ROWTYPE) AS " |
| 100 |
+ "BEGIN P_ADDRESS.ADDRESS_ID := 1234; P_ADDRESS.STREET_NUM := 17; P_ADDRESS.STREET := 'Bank'; P_ADDRESS.CITY := 'Ottawa'; P_ADDRESS.STATE := 'ON'; END;"); |
| 101 |
session.executeNonSelectingSQL("CREATE OR REPLACE PROCEDURE PLSQL_ADDRESS_INOUT_DATA(P_ADDRESS IN OUT PLSQL_ADDRESS%ROWTYPE, P_LOCAL IN OUT VARCHAR2) AS " |
| 102 |
+ "BEGIN P_ADDRESS.ADDRESS_ID := 1234; P_ADDRESS.STREET_NUM := 17; P_ADDRESS.STREET := 'Bank'; P_ADDRESS.CITY := 'Ottawa'; P_ADDRESS.STATE := 'ON'; P_LOCAL := 'Local'; END;"); |
| 103 |
|
| 104 |
// Functions |
| 105 |
session.executeNonSelectingSQL("CREATE OR REPLACE FUNCTION PLSQL_SIMPLE_IN_FUNC(P_VARCHAR IN VARCHAR2, P_BOOLEAN IN BOOLEAN, P_BINARY_INTEGER IN BINARY_INTEGER, " |
| 106 |
+ "P_DEC IN DEC, P_INT IN INT, P_NATURAL IN NATURAL, P_NATURALN IN NATURALN, " |
| 107 |
+ "P_PLS_INTEGER IN PLS_INTEGER, P_POSITIVE IN POSITIVE, P_POSITIVEN IN POSITIVEN, P_SIGNTYPE IN SIGNTYPE, P_NUMBER IN NUMBER) RETURN BOOLEAN AS " |
| 108 |
+ "BEGIN RETURN TRUE; END;"); |
| 109 |
session.executeNonSelectingSQL("CREATE OR REPLACE FUNCTION PLSQL_ADDRESS_OUT_FUNC RETURN PLSQL_ADDRESS%ROWTYPE AS " |
| 110 |
+ " P_ADDRESS PLSQL_ADDRESS%ROWTYPE; " |
| 111 |
+ "BEGIN P_ADDRESS.ADDRESS_ID := 1234; P_ADDRESS.STREET_NUM := 17; P_ADDRESS.STREET := 'Bank'; P_ADDRESS.CITY := 'Ottawa'; P_ADDRESS.STATE := 'ON'; RETURN P_ADDRESS; END;"); |
| 112 |
|
| 113 |
// Types |
| 114 |
try { |
| 115 |
session.executeNonSelectingSQL("DROP TYPE PLSQL_P_PLSQL_EMP_REC FORCE"); |
| 116 |
} catch (Exception ignore) {} |
| 117 |
try { |
| 118 |
session.executeNonSelectingSQL("DROP TYPE PLSQL_P_PLSQL_ADDRESS_REC FORCE"); |
| 119 |
} catch (Exception ignore) {} |
| 120 |
try { |
| 121 |
session.executeNonSelectingSQL("DROP TYPE PLSQL_P_PLSQL_PHONE_REC FORCE"); |
| 122 |
} catch (Exception ignore) {} |
| 123 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_ADDRESS_REC AS OBJECT (" |
| 124 |
+ "ADDRESS_ID NUMBER(10), STREET_NUM NUMBER(10), STREET VARCHAR2(30), CITY VARCHAR2(30), STATE VARCHAR2(2))"); |
| 125 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_PHONE_REC AS OBJECT (" |
| 126 |
+ "AREA_CODE VARCHAR2(3), P_NUM VARCHAR2(7))"); |
| 127 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_PHONE_LIST AS VARRAY(30) OF PLSQL_P_PLSQL_PHONE_REC"); |
| 128 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_EMP_REC AS OBJECT (" |
| 129 |
+ "EMP_ID NUMBER(10), NAME VARCHAR2(30), ACTIVE NUMBER(1), ADDRESS PLSQL_P_PLSQL_ADDRESS_REC, PHONES PLSQL_P_PLSQL_PHONE_LIST)"); |
| 130 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_CITY_LIST AS VARRAY(255) OF VARCHAR2(100)"); |
| 131 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_ADDRESS_LIST AS VARRAY(255) OF PLSQL_P_PLSQL_ADDRESS_REC"); |
| 132 |
session.executeNonSelectingSQL("CREATE OR REPLACE TYPE PLSQL_P_PLSQL_EMP_LIST AS VARRAY(255) OF PLSQL_P_PLSQL_EMP_REC"); |
| 133 |
session.executeNonSelectingSQL("CREATE OR REPLACE PACKAGE PLSQL_P AS \n" |
| 134 |
+ "TYPE PLSQL_ADDRESS_REC IS RECORD (ADDRESS_ID NUMBER(10), STREET_NUM NUMBER(10), STREET VARCHAR2(30), CITY VARCHAR2(30), STATE VARCHAR2(2)); \n" |
| 135 |
+ "TYPE PLSQL_ADDRESS_CUR IS REF CURSOR RETURN PLSQL_ADDRESS%ROWTYPE; \n" |
| 136 |
+ "TYPE PLSQL_ADDRESS_REC_CUR IS REF CURSOR RETURN PLSQL_ADDRESS_REC; \n" |
| 137 |
+ "TYPE PLSQL_PHONE_REC IS RECORD (AREA_CODE VARCHAR2(3), P_NUM VARCHAR2(7)); \n" |
| 138 |
+ "TYPE PLSQL_PHONE_LIST IS TABLE OF PLSQL_PHONE_REC INDEX BY BINARY_INTEGER; \n" |
| 139 |
+ "TYPE PLSQL_EMP_REC IS RECORD (EMP_ID NUMBER(10), NAME VARCHAR2(30), ACTIVE BOOLEAN, ADDRESS PLSQL_ADDRESS_REC, PHONES PLSQL_PHONE_LIST); \n" |
| 140 |
+ "TYPE PLSQL_CITY_LIST IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER; \n" |
| 141 |
+ "TYPE PLSQL_ADDRESS_LIST IS TABLE OF PLSQL_ADDRESS_REC INDEX BY BINARY_INTEGER; \n" |
| 142 |
+ "TYPE PLSQL_EMP_LIST IS TABLE OF PLSQL_EMP_REC INDEX BY BINARY_INTEGER; \n" |
| 143 |
+ "PROCEDURE PLSQL_CITY_LIST_IN(P_CITY_LIST IN PLSQL_CITY_LIST, P_CITY IN VARCHAR2); \n" |
| 144 |
+ "PROCEDURE PLSQL_CITY_LIST_OUT(P_CITY_LIST OUT PLSQL_CITY_LIST, P_CITY OUT VARCHAR2); \n" |
| 145 |
+ "PROCEDURE PLSQL_CITY_LIST_INOUT(P_CITY_LIST IN OUT PLSQL_CITY_LIST, P_CITY IN OUT VARCHAR2); \n" |
| 146 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_IN(P_ADDRESS_LIST IN PLSQL_ADDRESS_LIST, P_CITY IN VARCHAR2); \n" |
| 147 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_OUT(P_ADDRESS_LIST OUT PLSQL_ADDRESS_LIST, P_CITY OUT VARCHAR2); \n" |
| 148 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_INOUT(P_ADDRESS_LIST IN OUT PLSQL_ADDRESS_LIST, P_CITY IN OUT VARCHAR2); \n" |
| 149 |
+ "PROCEDURE PLSQL_EMP_LIST_IN(P_EMP_LIST IN PLSQL_EMP_LIST, P_CITY IN VARCHAR2); \n" |
| 150 |
+ "PROCEDURE PLSQL_EMP_LIST_OUT(P_EMP_LIST OUT PLSQL_EMP_LIST, P_CITY OUT VARCHAR2); \n" |
| 151 |
+ "PROCEDURE PLSQL_EMP_LIST_INOUT(P_EMP_LIST IN OUT PLSQL_EMP_LIST, P_CITY IN OUT VARCHAR2); \n" |
| 152 |
+ "PROCEDURE PLSQL_EMP_IN(P_EMP IN PLSQL_EMP_REC, P_CITY IN VARCHAR2); \n" |
| 153 |
+ "PROCEDURE PLSQL_EMP_OUT(P_EMP OUT PLSQL_EMP_REC, P_CITY OUT VARCHAR2); \n" |
| 154 |
+ "PROCEDURE PLSQL_EMP_INOUT(P_EMP IN OUT PLSQL_EMP_REC, P_CITY IN OUT VARCHAR2); \n" |
| 155 |
+ "PROCEDURE PLSQL_ADDRESS_CUR_OUT(P_ADDRESS OUT PLSQL_ADDRESS_CUR); \n" |
| 156 |
+ "PROCEDURE PLSQL_ADDRESS_REC_CUR_OUT(P_ADDRESS OUT PLSQL_ADDRESS_REC_CUR); \n" |
| 157 |
+ "END PLSQL_P; \n"); |
| 158 |
session.executeNonSelectingSQL("CREATE OR REPLACE PACKAGE BODY PLSQL_P AS \n" |
| 159 |
+ "PROCEDURE PLSQL_CITY_LIST_IN(P_CITY_LIST IN PLSQL_CITY_LIST, P_CITY IN VARCHAR2) AS \n" |
| 160 |
+ "BEGIN \n" |
| 161 |
+ "NULL; \n" |
| 162 |
+ "END PLSQL_CITY_LIST_IN; \n" |
| 163 |
+ "PROCEDURE PLSQL_CITY_LIST_OUT(P_CITY_LIST OUT PLSQL_CITY_LIST, P_CITY OUT VARCHAR2) AS \n" |
| 164 |
+ "BEGIN \n" |
| 165 |
+ "P_CITY := 'Nepean'; \n" |
| 166 |
+ "P_CITY_LIST(1) := 'Ottawa'; \n" |
| 167 |
+ "END PLSQL_CITY_LIST_OUT; \n" |
| 168 |
+ "PROCEDURE PLSQL_CITY_LIST_INOUT(P_CITY_LIST IN OUT PLSQL_CITY_LIST, P_CITY IN OUT VARCHAR2) AS \n" |
| 169 |
+ "BEGIN \n" |
| 170 |
+ "P_CITY := 'Nepean'; \n" |
| 171 |
+ "P_CITY_LIST(1) := 'Ottawa'; \n" |
| 172 |
+ "END PLSQL_CITY_LIST_INOUT; \n" |
| 173 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_IN(P_ADDRESS_LIST IN PLSQL_ADDRESS_LIST, P_CITY IN VARCHAR2) AS \n" |
| 174 |
+ "BEGIN \n" |
| 175 |
+ "NULL; \n" |
| 176 |
+ "END PLSQL_ADDRESS_LIST_IN; \n" |
| 177 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_OUT(P_ADDRESS_LIST OUT PLSQL_ADDRESS_LIST, P_CITY OUT VARCHAR2) AS \n" |
| 178 |
+ "BEGIN \n" |
| 179 |
+ "P_CITY := 'Nepean'; " |
| 180 |
+ "END PLSQL_ADDRESS_LIST_OUT; \n" |
| 181 |
+ "PROCEDURE PLSQL_ADDRESS_LIST_INOUT(P_ADDRESS_LIST IN OUT PLSQL_ADDRESS_LIST, P_CITY IN OUT VARCHAR2) AS \n" |
| 182 |
+ "BEGIN \n" |
| 183 |
+ "P_CITY := 'Nepean'; \n" |
| 184 |
+ "END PLSQL_ADDRESS_LIST_INOUT; \n" |
| 185 |
+ "PROCEDURE PLSQL_EMP_LIST_IN(P_EMP_LIST IN PLSQL_EMP_LIST, P_CITY IN VARCHAR2) AS \n" |
| 186 |
+ "BEGIN \n" |
| 187 |
+ "NULL; \n" |
| 188 |
+ "END PLSQL_EMP_LIST_IN; \n" |
| 189 |
+ "PROCEDURE PLSQL_EMP_LIST_OUT(P_EMP_LIST OUT PLSQL_EMP_LIST, P_CITY OUT VARCHAR2) AS \n" |
| 190 |
+ "BEGIN \n" |
| 191 |
+ "P_CITY := 'Nepean'; " |
| 192 |
+ "END PLSQL_EMP_LIST_OUT; \n" |
| 193 |
+ "PROCEDURE PLSQL_EMP_LIST_INOUT(P_EMP_LIST IN OUT PLSQL_EMP_LIST, P_CITY IN OUT VARCHAR2) AS \n" |
| 194 |
+ "BEGIN \n" |
| 195 |
+ "P_CITY := 'Nepean'; " |
| 196 |
+ "END PLSQL_EMP_LIST_INOUT; \n" |
| 197 |
+ "PROCEDURE PLSQL_EMP_IN(P_EMP IN PLSQL_EMP_REC, P_CITY IN VARCHAR2) AS \n" |
| 198 |
+ "BEGIN \n" |
| 199 |
+ "NULL; \n" |
| 200 |
+ "END PLSQL_EMP_IN; \n" |
| 201 |
+ "PROCEDURE PLSQL_EMP_OUT(P_EMP OUT PLSQL_EMP_REC, P_CITY OUT VARCHAR2) AS \n" |
| 202 |
+ "BEGIN \n" |
| 203 |
+ "P_CITY := 'Nepean'; " |
| 204 |
+ "END PLSQL_EMP_OUT; \n" |
| 205 |
+ "PROCEDURE PLSQL_EMP_INOUT(P_EMP IN OUT PLSQL_EMP_REC, P_CITY IN OUT VARCHAR2) AS \n" |
| 206 |
+ "BEGIN \n" |
| 207 |
+ "P_CITY := 'Nepean'; \n" |
| 208 |
+ "END PLSQL_EMP_INOUT; \n" |
| 209 |
+ "PROCEDURE PLSQL_ADDRESS_CUR_OUT(P_ADDRESS OUT PLSQL_ADDRESS_CUR) AS \n" |
| 210 |
+ "BEGIN \n" |
| 211 |
+ "OPEN P_ADDRESS FOR SELECT * FROM PLSQL_ADDRESS; \n" |
| 212 |
+ "END PLSQL_ADDRESS_CUR_OUT; \n" |
| 213 |
+ "PROCEDURE PLSQL_ADDRESS_REC_CUR_OUT(P_ADDRESS OUT PLSQL_ADDRESS_REC_CUR) AS \n" |
| 214 |
+ "BEGIN \n" |
| 215 |
+ "OPEN P_ADDRESS FOR SELECT * FROM PLSQL_ADDRESS; \n" |
| 216 |
+ "END PLSQL_ADDRESS_REC_CUR_OUT; \n" |
| 217 |
+ "END PLSQL_P; \n"); |
| 218 |
} |
| 219 |
|
| 220 |
/** |
| 221 |
* Test a simple procedure. |
| 222 |
*/ |
| 223 |
public void testSimpleProcedure() { |
| 224 |
if (!getServerSession().getPlatform().isOracle()) { |
| 225 |
return; |
| 226 |
} |
| 227 |
EntityManager em = createEntityManager(); |
| 228 |
beginTransaction(em); |
| 229 |
try { |
| 230 |
Query query = em.createNamedQuery("PLSQL_SIMPLE_IN_DEFAULTS"); |
| 231 |
query.setParameter("P_VARCHAR", "test"); |
| 232 |
query.executeUpdate(); |
| 233 |
query = em.createNamedQuery("PLSQL_SIMPLE_IN_DEFAULTS"); |
| 234 |
query.setParameter("P_BOOLEAN", true); |
| 235 |
query.executeUpdate(); |
| 236 |
query = em.createNamedQuery("PLSQL_SIMPLE_IN_DEFAULTS"); |
| 237 |
query.setParameter("P_VARCHAR", "test"); |
| 238 |
query.setParameter("P_BOOLEAN", true); |
| 239 |
query.setParameter("P_BINARY_INTEGER", 1); |
| 240 |
query.setParameter("P_DEC", 1); |
| 241 |
query.setParameter("P_INT", 1); |
| 242 |
query.setParameter("P_NATURAL", 1); |
| 243 |
query.setParameter("P_NATURALN", 1); |
| 244 |
query.setParameter("P_PLS_INTEGER", 1); |
| 245 |
query.setParameter("P_POSITIVE", 1); |
| 246 |
query.setParameter("P_POSITIVEN", 1); |
| 247 |
query.setParameter("P_SIGNTYPE", 1); |
| 248 |
query.setParameter("P_NUMBER", 1); |
| 249 |
query.executeUpdate(); |
| 250 |
query.executeUpdate(); |
| 251 |
query = em.createNamedQuery("PLSQL_SIMPLE_IN_DEFAULTS"); |
| 252 |
query.setParameter("P_BOOLEAN", true); |
| 253 |
query.executeUpdate(); |
| 254 |
} finally { |
| 255 |
closeEntityManagerAndTransaction(em); |
| 256 |
} |
| 257 |
} |
| 258 |
|
| 259 |
/** |
| 260 |
* Test a simple function. |
| 261 |
*/ |
| 262 |
public void testSimpleFunction() { |
| 263 |
if (!getServerSession().getPlatform().isOracle()) { |
| 264 |
return; |
| 265 |
} |
| 266 |
EntityManager em = createEntityManager(); |
| 267 |
beginTransaction(em); |
| 268 |
try { |
| 269 |
Query query = em.createNamedQuery("PLSQL_SIMPLE_IN_FUNC"); |
| 270 |
query.setParameter("P_VARCHAR", "test"); |
| 271 |
query.setParameter("P_BOOLEAN", true); |
| 272 |
query.setParameter("P_BINARY_INTEGER", 1); |
| 273 |
query.setParameter("P_DEC", 1); |
| 274 |
query.setParameter("P_INT", 1); |
| 275 |
query.setParameter("P_NATURAL", 1); |
| 276 |
query.setParameter("P_NATURALN", 1); |
| 277 |
query.setParameter("P_PLS_INTEGER", 1); |
| 278 |
query.setParameter("P_POSITIVE", 1); |
| 279 |
query.setParameter("P_POSITIVEN", 1); |
| 280 |
query.setParameter("P_SIGNTYPE", 1); |
| 281 |
query.setParameter("P_NUMBER", 1); |
| 282 |
int result = (Integer)query.getSingleResult(); |
| 283 |
if (result != 1) { |
| 284 |
fail("Incorrect result."); |
| 285 |
} |
| 286 |
} finally { |
| 287 |
closeEntityManagerAndTransaction(em); |
| 288 |
} |
| 289 |
} |
| 290 |
|
| 291 |
/** |
| 292 |
* Test a record out procedure. |
| 293 |
*/ |
| 294 |
public void testRecordOut() { |
| 295 |
if (!getServerSession().getPlatform().isOracle()) { |
| 296 |
return; |
| 297 |
} |
| 298 |
EntityManager em = createEntityManager(); |
| 299 |
beginTransaction(em); |
| 300 |
try { |
| 301 |
Query query = em.createNamedQuery("PLSQL_ADDRESS_OUT"); |
| 302 |
Object result = query.getSingleResult(); |
| 303 |
if (result == null) { |
| 304 |
fail("Incorrect result."); |
| 305 |
} |
| 306 |
} finally { |
| 307 |
closeEntityManagerAndTransaction(em); |
| 308 |
} |
| 309 |
} |
| 310 |
} |