[PHP-CVS] cvs: php-src(PHP_5_2) /ext/oci8/tests lob_027.phpt

[Antony Dovgal]

tony2001                Mon Dec 11 12:32:06 2006 UTC

  Added files:                 (Branch: PHP_5_2)
    /php-src/ext/oci8/tests     lob_027.phpt 
  Log:
  add new test
  
  

http://cvs.php.net/viewvc.cgi/php-src/ext/oci8/tests/lob_027.phpt?view=markup&rev=1.1
Index: php-src/ext/oci8/tests/lob_027.phpt
+++ php-src/ext/oci8/tests/lob_027.phpt
--TEST--
oci_lob_truncate()
--SKIPIF--
<?php if (!extension_loaded('oci8')) die("skip no oci8 extension"); ?>
--FILE--
<?php
        
require dirname(__FILE__).'/connect.inc';
require dirname(__FILE__).'/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 = b"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());
        var_dump($row['BLOB']->truncate(($i-1)*10));
        
        oci_commit($c);
}


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

echo "Done\n";

?>
--EXPECTF--
object(OCI-Lob)#%d (1) {
  ["descriptor"]=>
  resource(%d) of type (oci8 descriptor)
}
int(72)
array(2) {
  [0]=>
  object(OCI-Lob)#%d (1) {
    ["descriptor"]=>
    resource(%d) of type (oci8 descriptor)
  }
  ["BLOB"]=>
  object(OCI-Lob)#%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) ""

Warning: OCI-Lob::truncate(): Length must be greater than or equal to zero in 
%s on line %d
bool(false)
Done
--UEXPECTF--
object(OCI-Lob)#%d (1) {
  [u"descriptor"]=>
  resource(%d) of type (oci8 descriptor)
}
int(72)
array(2) {
  [0]=>
  object(OCI-Lob)#%d (1) {
    [u"descriptor"]=>
    resource(%d) of type (oci8 descriptor)
  }
  [u"BLOB"]=>
  object(OCI-Lob)#%d (1) {
    [u"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) ""

Warning: OCI-Lob::truncate(): Length must be greater than or equal to zero in 
%s on line %d
bool(false)
Done

-- 
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php