PAL.C.T MINI SHELL
--TEST--
Bug #42496 (LOB fetch leaks cursors, eventually failing with ORA-1000 maximum open cursors reached)
--SKIPIF--
<?php
$target_dbs = array('oracledb' => true, 'timesten' => false); // test runs on these DBs
require(dirname(__FILE__).'/skipif.inc');
if (getenv('SKIP_SLOW_TESTS')) die('skip slow tests excluded by request');
?>
--FILE--
<?php
require dirname(__FILE__).'/connect.inc';
// Initialization
$stmtarray = array(
"DROP table bug42496_1_tab",
"CREATE table bug42496_1_tab(c1 CLOB, c2 CLOB)",
"INSERT INTO bug42496_1_tab VALUES('test1', 'test1')",
"INSERT INTO bug42496_1_tab VALUES('test2', 'test2')",
"INSERT INTO bug42496_1_tab VALUES('test3', 'test3')"
);
oci8_test_sql_execute($c, $stmtarray);
// Run Test
echo "Test 1\n";
for ($i = 0; $i < 15000; $i++) {
$s = oci_parse($c, "SELECT * from bug42496_1_tab");
oci_define_by_name($s, "C1", $col1);
oci_define_by_name($s, "C2", $col2);
if (oci_execute($s)) {
$arr = array();
while ($arr = oci_fetch_assoc($s)) {
$arr['C1']->free();
$arr['C2']->free();
}
}
oci_free_statement($s);
}
echo "Done\n";
// Cleanup
$stmtarray = array(
"DROP table bug42496_1_tab"
);
oci8_test_sql_execute($c, $stmtarray);
?>
--EXPECTF--
Test 1
Done
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`