1--TEST-- 2SELECT oci_bind_by_name with SQLT_AFC aka CHAR and dates 3--SKIPIF-- 4<?php 5if (!extension_loaded('oci8')) die ("skip no oci8 extension"); 6require(dirname(__FILE__)."/connect.inc"); 7// The bind buffer size edge cases seem to change each DB version. 8if (preg_match('/Release 10\.2\./', oci_server_version($c), $matches) !== 1) { 9 if (preg_match('/Release 11\.2\.0\.2/', oci_server_version($c), $matches) !== 2) { 10 die("skip expected output only valid when using Oracle 10gR2 or 11.2.0.2 databases"); 11 } 12} 13if (preg_match('/^11\./', oci_client_version()) != 1) { 14 die("skip test expected to work only with Oracle 11g or greater version of client"); 15} 16?> 17--ENV-- 18NLS_LANG= 19--FILE-- 20<?php 21 22require(dirname(__FILE__).'/connect.inc'); 23 24// Initialization 25 26$stmtarray = array( 27 "alter session set nls_date_format='YYYY-MM-DD'", 28 "drop table bind_char_tab", 29 "create table bind_char_tab (id number, c1 date)", 30 "insert into bind_char_tab values (1, '2008-04-20')", 31); 32 33oci8_test_sql_execute($c, $stmtarray); 34 35// Run Test 36 37$bv1 = '2008-04-20'; 38 39echo "Test 1.1: Type: default. Length: default\n"; 40$s = oci_parse($c, "select * from bind_char_tab where c1 = :bv"); 41$r = oci_bind_by_name($s, ":bv", $bv1); 42if ($r) 43 do_e_q($s); 44 45echo "Test 1.2: Type: AFC. Length: default\n"; 46$r = oci_bind_by_name($s, ":bv", $bv1, -1, SQLT_AFC); 47if ($r) 48 do_e_q($s); 49 50echo "Test 1.3: Type: AFC: Length: 0\n"; 51$r = oci_bind_by_name($s, ":bv", $bv1, 0, SQLT_AFC); 52if ($r) 53 do_e_q($s); 54 55echo "Test 1.4: Type: AFC: Length: strlen\n"; 56$r = oci_bind_by_name($s, ":bv", $bv1, strlen($bv1), SQLT_AFC); 57if ($r) 58 do_e_q($s); 59 60echo "Test 1.5: Type: AFC. Length: strlen-1\n"; 61$r = oci_bind_by_name($s, ":bv", $bv1, strlen($bv1)-1, SQLT_AFC); 62if ($r) 63 do_e_q($s); 64 65echo "Test 1.6: Type: AFC. Length: strlen+1\n"; 66$r = oci_bind_by_name($s, ":bv", $bv1, strlen($bv1)+1, SQLT_AFC); 67if ($r) 68 do_e_q($s); 69 70 71function do_e_q($s) 72{ 73 echo " Querying:\n"; 74 75 $r = @oci_execute($s); 76 if (!$r) { 77 $m = oci_error($s); 78 echo " Oci_execute error ORA-".$m['code']." Exiting Query\n"; 79 return; 80 } 81 while ($row = oci_fetch_array($s, OCI_ASSOC+OCI_RETURN_NULLS)) { 82 foreach ($row as $item) { 83 echo " :" . $item . ":\n"; 84 } 85 } 86} 87 88// Cleanup 89$stmtarray = array( 90 "drop table bind_char_tab" 91); 92 93oci8_test_sql_execute($c, $stmtarray); 94 95echo "Done\n"; 96 97?> 98--EXPECT-- 99Test 1.1: Type: default. Length: default 100 Querying: 101 :1: 102 :2008-04-20: 103Test 1.2: Type: AFC. Length: default 104 Querying: 105 :1: 106 :2008-04-20: 107Test 1.3: Type: AFC: Length: 0 108 Querying: 109 Oci_execute error ORA-1460 Exiting Query 110Test 1.4: Type: AFC: Length: strlen 111 Querying: 112 :1: 113 :2008-04-20: 114Test 1.5: Type: AFC. Length: strlen-1 115 Querying: 116 :1: 117 :2008-04-20: 118Test 1.6: Type: AFC. Length: strlen+1 119 Querying: 120 :1: 121 :2008-04-20: 122Done 123
