php-src/ext/oci8/tests/lob_027.phpt
George Peter Banyard 824a2bf149 Promote some warnings to ValueError in OCI8
Closes GH-6116

Co-authored-by: Christopher Jones <sixd@php.net>
2020-09-15 02:54:12 +02:00

112 lines
2.6 KiB
PHP

--TEST--
oci_lob_truncate()
--SKIPIF--
<?php
$target_dbs = array('oracledb' => true, 'timesten' => false); // test runs on these DBs
require(__DIR__.'/skipif.inc');
?>
--FILE--
<?php
require __DIR__.'/connect.inc';
require __DIR__.'/create_table.inc';
$ora_sql = "INSERT INTO
".$schema.$table_name." (blob)
VALUES (empty_blob())
RETURNING
blob
INTO :v_blob ";
$statement = oci_parse($c,$ora_sql);
$blob = oci_new_descriptor($c,OCI_D_LOB);
oci_bind_by_name($statement,":v_blob", $blob,-1,OCI_B_BLOB);
oci_execute($statement, OCI_DEFAULT);
var_dump($blob);
$str = "this is a biiiig faaat test string. why are you reading it, I wonder? =)";
var_dump($blob->write($str));
oci_commit($c);
$select_sql = "SELECT blob FROM ".$schema.$table_name." FOR UPDATE";
$s = oci_parse($c, $select_sql);
oci_execute($s, OCI_DEFAULT);
var_dump($row = oci_fetch_array($s));
oci_commit($c);
for ($i = 5; $i >= 0; $i--) {
$select_sql = "SELECT blob FROM ".$schema.$table_name." FOR UPDATE";
$s = oci_parse($c, $select_sql);
oci_execute($s, OCI_DEFAULT);
$row = oci_fetch_array($s);
var_dump($row['BLOB']->load());
try {
var_dump($row['BLOB']->truncate(($i-1)*10));
} catch (ValueError $e) {
echo $e->getMessage(), "\n";
}
oci_commit($c);
}
$select_sql = "SELECT blob FROM ".$schema.$table_name." FOR UPDATE";
$s = oci_parse($c, $select_sql);
oci_execute($s, OCI_DEFAULT);
$row = oci_fetch_array($s);
var_dump($row['BLOB']->load());
var_dump($row['BLOB']->truncate(0));
try {
var_dump($row['BLOB']->truncate(-1));
} catch (ValueError $e) {
echo $e->getMessage(), "\n";
}
oci_commit($c);
require __DIR__.'/drop_table.inc';
echo "Done\n";
?>
--EXPECTF--
object(OCILob)#%d (1) {
["descriptor"]=>
resource(%d) of type (oci8 descriptor)
}
int(72)
array(2) {
[0]=>
object(OCILob)#%d (1) {
["descriptor"]=>
resource(%d) of type (oci8 descriptor)
}
["BLOB"]=>
object(OCILob)#%d (1) {
["descriptor"]=>
resource(%d) of type (oci8 descriptor)
}
}
string(72) "this is a biiiig faaat test string. why are you reading it, I wonder? =)"
bool(true)
string(40) "this is a biiiig faaat test string. why "
bool(true)
string(30) "this is a biiiig faaat test st"
bool(true)
string(20) "this is a biiiig faa"
bool(true)
string(10) "this is a "
bool(true)
string(0) ""
OCILob::truncate(): Argument #1 ($length) must be greater than or equal to 0
string(0) ""
bool(true)
OCILob::truncate(): Argument #1 ($length) must be greater than or equal to 0
Done