File: bug44206.phpt

package info (click to toggle)
php5 5.6.7%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 150,376 kB
  • sloc: ansic: 727,510; php: 21,966; sh: 12,356; cpp: 8,763; xml: 6,105; yacc: 1,551; exp: 1,514; makefile: 1,461; pascal: 1,048; awk: 538; perl: 315; sql: 22
file content (46 lines) | stat: -rw-r--r-- 991 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
--TEST--
Bug #44206 (Test if selecting ref cursors leads to 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');
?> 
--FILE--
<?php

require dirname(__FILE__).'/connect.inc';

// Run Test

for ($x = 0; $x < 400; $x++)
{
	$stmt = "select cursor (select $x from dual) a,
		 cursor (select $x from dual) b 
		 from dual";
	$s = oci_parse($c, $stmt);
	$r = oci_execute($s);
        if (!$r) {
                echo "Exiting $x\n";
                exit;
        }
	$mode = OCI_ASSOC | OCI_RETURN_NULLS;
	$result = oci_fetch_array($s, $mode);
	oci_execute($result['A']);
	oci_execute($result['B']);
	oci_fetch_array($result['A'], $mode);
	oci_fetch_array($result['B'], $mode);
	oci_free_statement($result['A']);
	oci_free_statement($result['B']);
	oci_free_statement($s);
}

echo "Completed $x\n";

oci_close($c);

echo "Done\n";

?>
--EXPECT--
Completed 400
Done