1--TEST--
2oci_lob_free()/close()
3--EXTENSIONS--
4oci8
5--SKIPIF--
6<?php
7$target_dbs = array('oracledb' => true, 'timesten' => false);  // test runs on these DBs
8require(__DIR__.'/skipif.inc');
9?>
10--FILE--
11<?php
12
13require __DIR__.'/connect.inc';
14require __DIR__.'/create_table.inc';
15
16$ora_sql = "INSERT INTO
17                       ".$schema.$table_name." (blob)
18                      VALUES (empty_blob())
19                      RETURNING
20                               blob
21                      INTO :v_blob ";
22
23$statement = oci_parse($c,$ora_sql);
24$blob = oci_new_descriptor($c,OCI_D_LOB);
25oci_bind_by_name($statement,":v_blob", $blob,-1,OCI_B_BLOB);
26oci_execute($statement, OCI_DEFAULT);
27
28var_dump($blob->write("test"));
29var_dump($blob->close());
30var_dump($blob->write("test"));
31var_dump(oci_free_descriptor($blob));
32
33try {
34    var_dump($blob->write("test"));
35} catch(\TypeError $exception) {
36    var_dump($exception->getMessage());
37}
38
39try {
40    var_dump(oci_free_descriptor($blob));
41} catch(\TypeError $exception) {
42    var_dump($exception->getMessage());
43}
44
45$blob = oci_new_descriptor($c,OCI_D_LOB);
46unset($blob->descriptor);
47var_dump(oci_free_descriptor($blob));
48
49oci_commit($c);
50
51$select_sql = "SELECT blob FROM ".$schema.$table_name."";
52$s = oci_parse($c, $select_sql);
53oci_execute($s);
54
55var_dump(oci_fetch_array($s, OCI_NUM + OCI_RETURN_LOBS));
56
57require __DIR__.'/drop_table.inc';
58
59echo "Done\n";
60
61?>
62--EXPECTF--
63int(4)
64bool(true)
65int(4)
66bool(true)
67string(%d) "OCILob::write(): %s is not a valid oci8 descriptor resource"
68string(%d) "oci_free_descriptor(): %s is not a valid oci8 descriptor resource"
69
70Warning: oci_free_descriptor(): Unable to find descriptor property in %s on line %d
71bool(false)
72array(1) {
73  [0]=>
74  string(8) "testtest"
75}
76Done
77