diff options
| author | Fredrik Gustafsson <[email protected]> | 2013-03-28 14:49:51 +0100 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2013-03-28 14:49:51 +0100 |
| commit | 9754ff636fac43cc550c443e18f90afacf21344e (patch) | |
| tree | 2c51b446ab0160d8b66cf56c83d3a43351379258 /lib/odbc/test/oracle.erl | |
| parent | dbf9869acd684928e5f93ccf94ab5e972c22a732 (diff) | |
| parent | a8ca64098870e420f9f28f1d70433f45dc4ba3f9 (diff) | |
| download | otp-9754ff636fac43cc550c443e18f90afacf21344e.tar.gz otp-9754ff636fac43cc550c443e18f90afacf21344e.tar.bz2 otp-9754ff636fac43cc550c443e18f90afacf21344e.zip | |
Merge branch 'sk/odbc64/OTP-10993' into maint
* sk/odbc64/OTP-10993:
explain postgres pecularity for param query out parameters
postgresql test case for 64bit bug for param_query
rollback disabling scrollable_cursors for oracle
drop procedure after testing
set scrollable_cursors to off for oracle driver
drop procedure after testing
test case for stored procedure with (32bit) integer out params on 64bit platform
odbcserver 64bit bug for SQL_C_SLONG type
Diffstat (limited to 'lib/odbc/test/oracle.erl')
| -rw-r--r-- | lib/odbc/test/oracle.erl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/odbc/test/oracle.erl b/lib/odbc/test/oracle.erl index d74863d8c1..95cf7155dc 100644 --- a/lib/odbc/test/oracle.erl +++ b/lib/odbc/test/oracle.erl @@ -240,3 +240,30 @@ describe_floating() -> {ok,[{"F",sql_double},{"R",sql_double},{"D",sql_double}]}. describe_dec_num() -> {ok,[{"MYDEC",{sql_decimal,9,3}},{"MYNUM",{sql_decimal,9,2}}]}. + +%------------------------------------------------------------------------- +drop_proc() -> + "drop procedure test_proc1;". + +stored_proc_integer_out() -> + "create or replace PROCEDURE test_proc1(" ++ + "int_a OUT NUMBER, " ++ + "int_b OUT NUMBER) " ++ + "is " ++ + "begin " ++ + " int_a := 123; " ++ + " int_b := 456; " ++ + "exception " ++ + "WHEN NO_DATA_FOUND THEN " ++ + " int_a := 0; " ++ + " int_b := 0; " ++ + "end;". + +param_query(Ref) -> + odbc:param_query(Ref, "call test_proc1(?,?)", + [{sql_integer, out, [0]}, + {sql_integer, out, [0]}]). + + +query_result() -> + {executed, 2, [{123, 456}]}. |