xref: /PHP-5.5/ext/oci8/tests/bug43497_92.phpt (revision 19c0803b) 
1--TEST--
2Bug #43497 (OCI8 XML/getClobVal aka temporary LOBs leak UGA memory)
3--SKIPIF--
4<?php
5$target_dbs = array('oracledb' => true, 'timesten' => false);  // test runs on these DBs
6require(dirname(__FILE__).'/skipif.inc');
7if (getenv('SKIP_SLOW_TESTS')) die('skip slow tests excluded by request');
8ob_start();
9phpinfo(INFO_MODULES);
10$phpinfo = ob_get_clean();
11$iv = preg_match('/Oracle .*Version => (9\.2)/', $phpinfo);
12if ($iv != 1) {
13    die ("skip tests a feature that works only with Oracle 9iR2 client");
14}
15?>
16--FILE--
17<?php
18
19require dirname(__FILE__).'/connect.inc';
20
21function sessionid($c)  // determines and returns current session ID
22{
23    $query = "select sid from v\$session where audsid = userenv('sessionid')";
24
25    $stmt = oci_parse($c, $query);
26
27    if (oci_execute($stmt, OCI_DEFAULT)) {
28		$row = oci_fetch($stmt);
29		return oci_result($stmt, 1);
30    }
31
32    return null;
33}
34
35
36function templobs($c, $sid)  // returns number of temporary LOBs
37{
38    $query = "select abstract_lobs from v\$temporary_lobs where sid = " . $sid;
39
40    $stmt = oci_parse($c, $query);
41
42    if (oci_execute($stmt, OCI_DEFAULT)) {
43		$row = oci_fetch($stmt);
44		$val = oci_result($stmt, 1);
45		oci_free_statement($stmt);
46		return $val;
47    }
48    return null;
49}
50
51
52// Read all XML data using explicit LOB locator
53function readxmltab_ex($c)
54{
55    $stmt = oci_parse($c, "select extract(xml, '/').getclobval() from bug43497_tab");
56
57	$cntchk = 0;
58	if (oci_execute($stmt)) {
59		while ($result = oci_fetch_array($stmt, OCI_NUM)) {
60			$result[0]->free();   // cleanup properly
61			++$cntchk;
62		}
63	}
64	echo "Loop count check = $cntchk\n";
65}
66
67// Read all XML data using explicit LOB locator but without freeing the temp lobs
68function readxmltab_ex_nofree($c)
69{
70    $stmt = oci_parse($c, "select extract(xml, '/').getclobval() from bug43497_tab");
71
72	$cntchk = 0;
73	if (oci_execute($stmt)) {
74		while ($result = oci_fetch_array($stmt, OCI_NUM)) {
75			++$cntchk;
76		}
77	}
78	echo "Loop count check = $cntchk\n";
79}
80
81// Read all XML data using implicit LOB locator
82function readxmltab_im($c)
83{
84    $stmt = oci_parse($c, "select extract(xml, '/').getclobval() from bug43497_tab");
85
86	$cntchk = 0;
87	if (oci_execute($stmt)) {
88		while ($result = oci_fetch_array($stmt, OCI_NUM+OCI_RETURN_LOBS)) {
89			++$cntchk;
90		}
91	}
92	echo "Loop count check = $cntchk\n";
93}
94
95function createxmltab($c)  // create table w/ field of XML type
96{
97	@dropxmltab($c);
98    $stmt = oci_parse($c, "create table bug43497_tab (id number primary key, xml xmltype)");
99    oci_execute($stmt);
100}
101
102function dropxmltab($c)  // delete table
103{
104    $stmt = oci_parse($c, "drop table bug43497_tab");
105    oci_execute($stmt);
106}
107
108
109function fillxmltab($c)
110{
111	for ($id = 1; $id <= 100; $id++) {
112
113		// create an XML element string with random data
114		$s = "<data>";
115		for ($j = 0; $j < 128; $j++) {
116			$s .= rand();
117		}
118		$s .= "</data>\n";
119		for ($j = 0; $j < 4; $j++) {
120			$s .= $s;
121		}
122		$data = "<?xml version=\"1.0\"?><records>" . $s . "</records>";
123
124		// insert XML data into database
125
126		$stmt = oci_parse($c, "insert into bug43497_tab(id, xml) values (:id, sys.xmltype.createxml(:xml))");
127		oci_bind_by_name($stmt, ":id", $id);
128		$clob = oci_new_descriptor($c, OCI_D_LOB);
129		oci_bind_by_name($stmt, ":xml", $clob, -1, OCI_B_CLOB);
130		$clob->writetemporary($data);
131		oci_execute($stmt);
132
133		$clob->close();
134		$clob->free();
135	}
136}
137
138
139// Initialize
140
141createxmltab($c);
142fillxmltab($c);
143
144// Run Test
145
146$sid = sessionid($c);
147
148echo "Explicit LOB use\n";
149for ($i = 1; $i <= 10; $i++) {
150    echo "\nRun              = " . $i . "\n";
151    echo "Temporary LOBs   = " . templobs($c, $sid) . "\n";
152    readxmltab_ex($c);
153}
154
155echo "\nImplicit LOB use\n";
156for ($i = 1; $i <= 10; $i++) {
157    echo "\nRun              = " . $i . "\n";
158    echo "Temporary LOBs   = " . templobs($c, $sid) . "\n";
159    readxmltab_im($c);
160}
161
162echo "\nExplicit LOB with no free (i.e. a temp lob leak)\n";
163for ($i = 1; $i <= 10; $i++) {
164    echo "\nRun              = " . $i . "\n";
165    echo "Temporary LOBs   = " . templobs($c, $sid) . "\n";
166    readxmltab_ex_nofree($c);
167}
168
169
170
171// Cleanup
172
173dropxmltab($c);
174
175oci_close($c);
176
177echo "Done\n";
178?>
179--EXPECT--
180Explicit LOB use
181
182Run              = 1
183Temporary LOBs   = 0
184Loop count check = 100
185
186Run              = 2
187Temporary LOBs   = 100
188Loop count check = 100
189
190Run              = 3
191Temporary LOBs   = 200
192Loop count check = 100
193
194Run              = 4
195Temporary LOBs   = 300
196Loop count check = 100
197
198Run              = 5
199Temporary LOBs   = 400
200Loop count check = 100
201
202Run              = 6
203Temporary LOBs   = 500
204Loop count check = 100
205
206Run              = 7
207Temporary LOBs   = 600
208Loop count check = 100
209
210Run              = 8
211Temporary LOBs   = 700
212Loop count check = 100
213
214Run              = 9
215Temporary LOBs   = 800
216Loop count check = 100
217
218Run              = 10
219Temporary LOBs   = 900
220Loop count check = 100
221
222Implicit LOB use
223
224Run              = 1
225Temporary LOBs   = 1000
226Loop count check = 100
227
228Run              = 2
229Temporary LOBs   = 1100
230Loop count check = 100
231
232Run              = 3
233Temporary LOBs   = 1200
234Loop count check = 100
235
236Run              = 4
237Temporary LOBs   = 1300
238Loop count check = 100
239
240Run              = 5
241Temporary LOBs   = 1400
242Loop count check = 100
243
244Run              = 6
245Temporary LOBs   = 1500
246Loop count check = 100
247
248Run              = 7
249Temporary LOBs   = 1600
250Loop count check = 100
251
252Run              = 8
253Temporary LOBs   = 1700
254Loop count check = 100
255
256Run              = 9
257Temporary LOBs   = 1800
258Loop count check = 100
259
260Run              = 10
261Temporary LOBs   = 1900
262Loop count check = 100
263
264Explicit LOB with no free (i.e. a temp lob leak)
265
266Run              = 1
267Temporary LOBs   = 2000
268Loop count check = 100
269
270Run              = 2
271Temporary LOBs   = 2100
272Loop count check = 100
273
274Run              = 3
275Temporary LOBs   = 2200
276Loop count check = 100
277
278Run              = 4
279Temporary LOBs   = 2300
280Loop count check = 100
281
282Run              = 5
283Temporary LOBs   = 2400
284Loop count check = 100
285
286Run              = 6
287Temporary LOBs   = 2500
288Loop count check = 100
289
290Run              = 7
291Temporary LOBs   = 2600
292Loop count check = 100
293
294Run              = 8
295Temporary LOBs   = 2700
296Loop count check = 100
297
298Run              = 9
299Temporary LOBs   = 2800
300Loop count check = 100
301
302Run              = 10
303Temporary LOBs   = 2900
304Loop count check = 100
305Done