Return to bind_sqltchr_2.phpt CVS log

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

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

1.1     ! misho       1: --TEST--
        !             2: PL/SQL bind with SQLT_CHR
        !             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: // Initialization
        !            11: 
        !            12: $stmtarray = array(
        !            13:     "create or replace procedure bind_sqltchr_proc (msg_in in varchar2, msg_out out varchar2)
        !            14:     as
        !            15:     begin
        !            16:       msg_out := upper(msg_in);
        !            17:     end;"    
        !            18: 
        !            19: );
        !            20: 
        !            21: oci8_test_sql_execute($c, $stmtarray);
        !            22: 
        !            23: // Run Test
        !            24: 
        !            25: echo "Test 1 - PL/SQL IN and OUT variables\n";
        !            26:  
        !            27: $stmt = oci_parse($c, "BEGIN bind_sqltchr_proc(:a, :b); END;");
        !            28: $msg_in = "Cat got your keyboard?";
        !            29: oci_bind_by_name($stmt, ":a", $msg_in, -1, SQLT_CHR);
        !            30: oci_bind_by_name($stmt, ":b", $msg_out, 800, SQLT_CHR);
        !            31: oci_execute($stmt);
        !            32: var_dump($msg_in);
        !            33: var_dump($msg_out);
        !            34: 
        !            35: // Clean up
        !            36: 
        !            37: $stmtarray = array(
        !            38:     "drop procedure bind_sqltchr_proc"
        !            39: );
        !            40: 
        !            41: oci8_test_sql_execute($c, $stmtarray);
        !            42: 
        !            43: ?>
        !            44: ===DONE===
        !            45: <?php exit(0); ?>
        !            46: --EXPECTF--
        !            47: Test 1 - PL/SQL IN and OUT variables
        !            48: string(22) "Cat got your keyboard?"
        !            49: string(22) "CAT GOT YOUR KEYBOARD?"
        !            50: ===DONE===