1--TEST-- 2Oracle Database 12c Implicit Result Sets: oci_free_statement #1 3--SKIPIF-- 4<?php 5if (!extension_loaded('oci8')) die ("skip no oci8 extension"); 6$target_dbs = array('oracledb' => true, 'timesten' => false); // test runs on these DBs 7require(__DIR__.'/skipif.inc'); 8preg_match('/.*Release ([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)*/', oci_server_version($c), $matches); 9if (!(isset($matches[0]) && $matches[1] >= 12)) { 10 die("skip expected output only valid when using Oracle Database 12c or greater"); 11} 12preg_match('/^[[:digit:]]+/', oci_client_version(), $matches); 13if (!(isset($matches[0]) && $matches[0] >= 12)) { 14 die("skip works only with Oracle 12c or greater version of Oracle client libraries"); 15} 16?> 17--FILE-- 18<?php 19 20require(__DIR__.'/connect.inc'); 21 22// Initialization 23 24$stmtarray = array( 25 "create or replace procedure imp_res_close_proc as 26 c1 sys_refcursor; 27 begin 28 open c1 for select 1 from dual union all select 2 from dual order by 1; 29 dbms_sql.return_result(c1); 30 open c1 for select 3 from dual union all select 4 from dual order by 1; 31 dbms_sql.return_result(c1); 32 open c1 for select 5 from dual union all select 6 from dual order by 1; 33 dbms_sql.return_result(c1); 34 end;" 35); 36 37oci8_test_sql_execute($c, $stmtarray); 38 39// Run Test 40 41echo "Test 1\n"; 42$s = oci_parse($c, "begin imp_res_close_proc(); end;"); 43oci_execute($s); 44 45try { 46 while (($row = oci_fetch_array($s, OCI_ASSOC+OCI_RETURN_NULLS)) != false) { 47 foreach ($row as $item) { 48 echo " ".$item; 49 } 50 echo "\n"; 51 oci_free_statement($s); // Free the implicit result handle 52 } 53} catch(\TypeError $exception) { 54 var_dump($exception->getMessage()); 55} 56 57// Clean up 58 59$stmtarray = array( 60 "drop procedure imp_res_close_proc" 61); 62 63oci8_test_sql_execute($c, $stmtarray); 64 65?> 66--EXPECTF-- 67Test 1 68 1 69string(%d) "oci_fetch_array(): supplied resource is not a valid oci8 statement resource" 70
