Return to array_bind_007.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / oci8 / tests

Annotation of embedaddon/php/ext/oci8/tests/array_bind_007.phpt, revision 1.1

1.1     ! misho       1: --TEST--
        !             2: oci_bind_array_by_name() and invalid values 7
        !             3: --SKIPIF--
        !             4: <?php if (!extension_loaded('oci8')) die("skip no oci8 extension"); ?>
        !             5: --FILE--
        !             6: <?php
        !             7: 
        !             8: require dirname(__FILE__).'/connect.inc';
        !             9: 
        !            10: $drop = "DROP table bind_test";
        !            11: $statement = oci_parse($c, $drop);
        !            12: @oci_execute($statement);
        !            13: 
        !            14: $create = "CREATE table bind_test(name NUMBER)";
        !            15: $statement = oci_parse($c, $create);
        !            16: oci_execute($statement);
        !            17: 
        !            18: $create_pkg = "
        !            19: CREATE OR REPLACE PACKAGE ARRAYBINDPKG1 AS 
        !            20:   TYPE ARRTYPE IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; 
        !            21:   PROCEDURE iobind(c1 IN OUT ARRTYPE); 
        !            22: END ARRAYBINDPKG1;";
        !            23: $statement = oci_parse($c, $create_pkg);
        !            24: oci_execute($statement);
        !            25: 
        !            26: $create_pkg_body = "
        !            27: CREATE OR REPLACE PACKAGE BODY ARRAYBINDPKG1 AS 
        !            28:   CURSOR CUR IS SELECT name FROM bind_test;
        !            29:   PROCEDURE iobind(c1 IN OUT ARRTYPE) IS
        !            30:     BEGIN
        !            31:     FOR i IN 1..5 LOOP
        !            32:       INSERT INTO bind_test VALUES (c1(i));
        !            33:     END LOOP;
        !            34:     IF NOT CUR%ISOPEN THEN
        !            35:       OPEN CUR;
        !            36:     END IF;
        !            37:     FOR i IN REVERSE 1..5 LOOP
        !            38:       FETCH CUR INTO c1(i);
        !            39:       IF CUR%NOTFOUND THEN
        !            40:         CLOSE CUR;
        !            41:         EXIT;
        !            42:       END IF;
        !            43:     END LOOP;
        !            44:   END iobind;
        !            45: END ARRAYBINDPKG1;";
        !            46: $statement = oci_parse($c, $create_pkg_body);
        !            47: oci_execute($statement);
        !            48: 
        !            49: $statement = oci_parse($c, "BEGIN ARRAYBINDPKG1.iobind(:c1); END;");
        !            50: 
        !            51: $array = Array(1,2,3,4,5);
        !            52: 
        !            53: oci_bind_array_by_name($statement, ":c1", $array, 5, 5, -1);
        !            54: 
        !            55: oci_execute($statement);
        !            56: 
        !            57: var_dump($array);
        !            58: 
        !            59: echo "Done\n";
        !            60: ?>
        !            61: --EXPECTF--    
        !            62: Warning: oci_bind_array_by_name(): Unknown or unsupported datatype given: -1 in %s on line %d
        !            63: 
        !            64: Warning: oci_execute(): ORA-%r(01008|57000)%r: %s in %s on line %d
        !            65: array(5) {
        !            66:   [0]=>
        !            67:   int(1)
        !            68:   [1]=>
        !            69:   int(2)
        !            70:   [2]=>
        !            71:   int(3)
        !            72:   [3]=>
        !            73:   int(4)
        !            74:   [4]=>
        !            75:   int(5)
        !            76: }
        !            77: Done