Annotation of embedaddon/php/ext/oci8/tests/array_bind_008.phpt, revision 1.1.1.1
1.1 misho 1: --TEST--
2: oci_bind_array_by_name() and invalid values 8
3: --SKIPIF--
4: <?php
5: $target_dbs = array('oracledb' => true, 'timesten' => false); // test runs on these DBs
6: require(dirname(__FILE__).'/skipif.inc');
7: ?>
8: --FILE--
9: <?php
10:
11: require dirname(__FILE__).'/connect.inc';
12:
13: $drop = "DROP table bind_test";
14: $statement = oci_parse($c, $drop);
15: @oci_execute($statement);
16:
17: $create = "CREATE table bind_test(name NUMBER)";
18: $statement = oci_parse($c, $create);
19: oci_execute($statement);
20:
21: $create_pkg = "
22: CREATE OR REPLACE PACKAGE ARRAYBINDPKG1 AS
23: TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
24: PROCEDURE iobind(c1 IN OUT ARRTYPE);
25: END ARRAYBINDPKG1;";
26: $statement = oci_parse($c, $create_pkg);
27: oci_execute($statement);
28:
29: $create_pkg_body = "
30: CREATE OR REPLACE PACKAGE BODY ARRAYBINDPKG1 AS
31: CURSOR CUR IS SELECT name FROM bind_test;
32: PROCEDURE iobind(c1 IN OUT ARRTYPE) IS
33: BEGIN
34: FOR i IN 1..5 LOOP
35: INSERT INTO bind_test VALUES (c1(i));
36: END LOOP;
37: IF NOT CUR%ISOPEN THEN
38: OPEN CUR;
39: END IF;
40: FOR i IN REVERSE 1..5 LOOP
41: FETCH CUR INTO c1(i);
42: IF CUR%NOTFOUND THEN
43: CLOSE CUR;
44: EXIT;
45: END IF;
46: END LOOP;
47: END iobind;
48: END ARRAYBINDPKG1;";
49: $statement = oci_parse($c, $create_pkg_body);
50: oci_execute($statement);
51:
52: $statement = oci_parse($c, "BEGIN ARRAYBINDPKG1.iobind(:c1); END;");
53:
54: $array = Array(1,2,3,4,5);
55:
56: oci_bind_array_by_name($statement, ":c1", $array, 5, 5, SQLT_CHR);
57:
58: oci_execute($statement);
59:
60: var_dump($array);
61:
62: echo "Done\n";
63: ?>
64: --EXPECTF--
65: Warning: oci_execute(): ORA-06550: line %d, column %d:
66: PLS-00418: %s
67: ORA-06550: %s
68: PL/SQL: %s
69: array(5) {
70: [0]=>
71: string(1) "1"
72: [1]=>
73: string(1) "2"
74: [2]=>
75: string(1) "3"
76: [3]=>
77: string(1) "4"
78: [4]=>
79: string(1) "5"
80: }
81: Done
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>