Return to bug37581.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / oci8 / tests

Annotation of embedaddon/php/ext/oci8/tests/bug37581.phpt, revision 1.1.1.1

1.1       misho       1: --TEST--
                      2: Bug #37581 (oci_bind_array_by_name clobbers input array when using SQLT_AFC, AVC)
                      3: --SKIPIF--
                      4: <?php
                      5: $target_dbs = array('oracledb' => true, 'timesten' => false);  // test runs on these DBs
                      6: require(dirname(__FILE__).'/skipif.inc');
                      7: ?> 
                      8: --FILE--
                      9: <?php
                     10: 
                     11: require dirname(__FILE__)."/connect.inc";
                     12: 
                     13: $p1 = "create or replace package ARRAYBINDPKG1 as
                     14: type str_array is table of char(2) index by binary_integer;
                     15: procedure array_bind(in_str in str_array, out_str out string);
                     16: end ARRAYBINDPKG1;";
                     17: 
                     18: $p2 = "create or replace package body ARRAYBINDPKG1 as
                     19:   procedure array_bind(in_str in str_array, out_str out string) is
                     20:   begin
                     21:     for i in 1 .. in_str.count loop
                     22:       out_str := in_str(i);
                     23:     end loop;
                     24:   end array_bind;
                     25: end ARRAYBINDPKG1;";
                     26: 
                     27: $s1 = oci_parse($c, $p1);
                     28: $s2 = oci_parse($c, $p2);
                     29: oci_execute($s1);
                     30: oci_execute($s2);
                     31: 
                     32: 
                     33: $stmt           = oci_parse($c,'begin ARRAYBINDPKG1.array_bind(:in_arr, :out_str); end;');
                     34: $strings        = array('A','B','C','D','E');
                     35: 
                     36: oci_bind_array_by_name($stmt,':in_arr',$strings,5,1,SQLT_AFC);
                     37: oci_bind_by_name($stmt,':out_str',$result,10);
                     38: 
                     39: oci_execute($stmt);
                     40: var_dump($strings);
                     41: 
                     42: oci_execute($stmt);
                     43: var_dump($strings);
                     44: 
                     45: echo "Done\n";
                     46: ?>
                     47: --EXPECTF--    
                     48: array(5) {
                     49:   [0]=>
                     50:   string(1) "A"
                     51:   [1]=>
                     52:   string(1) "B"
                     53:   [2]=>
                     54:   string(1) "C"
                     55:   [3]=>
                     56:   string(1) "D"
                     57:   [4]=>
                     58:   string(1) "E"
                     59: }
                     60: array(5) {
                     61:   [0]=>
                     62:   string(1) "A"
                     63:   [1]=>
                     64:   string(1) "B"
                     65:   [2]=>
                     66:   string(1) "C"
                     67:   [3]=>
                     68:   string(1) "D"
                     69:   [4]=>
                     70:   string(1) "E"
                     71: }
                     72: Done