Return to interbase.inc CVS log

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

Annotation of embedaddon/php/ext/interbase/tests/interbase.inc, revision 1.1

1.1     ! misho       1: <?php /* $Id: interbase.inc 267053 2008-10-07 12:51:21Z felipe $ */
        !             2: 
        !             3: srand((double)microtime()*1000000);
        !             4: 
        !             5: $user = 'SYSDBA';
        !             6: $password = 'masterkey';
        !             7: ini_set('ibase.default_user',$user);
        !             8: ini_set('ibase.default_password',$password);
        !             9: 
        !            10: /* we need just the generated name, not the file itself */
        !            11: unlink($test_base = tempnam('/tmp',"php_ibase_test"));
        !            12: 
        !            13: function init_db()
        !            14: {
        !            15:        global $test_base, $user, $password;
        !            16: 
        !            17:        $test_db = ibase_query(IBASE_CREATE, 
        !            18:                sprintf("CREATE SCHEMA '%s' USER '%s' PASSWORD '%s' DEFAULT CHARACTER SET %s",$test_base,
        !            19:                $user, $password, ($charset = ini_get('ibase.default_charset')) ? $charset : 'NONE'));
        !            20:        $tr = ibase_trans($test_db);
        !            21:        ibase_query($tr,"create table test1 (i integer, c varchar(100))");
        !            22:        ibase_commit_ret($tr);
        !            23:        ibase_query($tr,"insert into test1(i, c) values(1, 'test table not created with isql')");
        !            24:        ibase_commit($tr);
        !            25:        ibase_close($test_db);
        !            26: }
        !            27: 
        !            28: function cleanup_db()
        !            29: {
        !            30:        global $test_base;
        !            31:     
        !            32:        $r = ibase_connect($test_base);
        !            33:        ibase_drop_db($r);
        !            34: }
        !            35: 
        !            36: register_shutdown_function('cleanup_db');
        !            37: init_db();
        !            38: 
        !            39: function out_table($table_name)
        !            40: {
        !            41:        echo "--- $table_name ---\n";
        !            42:        $res = ibase_query("select * from $table_name");
        !            43:        while ($r = ibase_fetch_row($res)) {
        !            44:                echo join("\t",$r)."\t\n";
        !            45:        }
        !            46:        ibase_free_result($res);
        !            47:        echo "---\n";
        !            48: }
        !            49: 
        !            50: function out_result($result, $table_name = "")
        !            51: {
        !            52:        echo "--- $table_name ---\n";
        !            53:        while ($r = ibase_fetch_row($result)) {
        !            54:                echo join("\t",$r)."\t\n";
        !            55:        }
        !            56:        echo "---\n";
        !            57: }
        !            58: 
        !            59: function out_result_trap_error($result, $table_name = "")
        !            60: {
        !            61:    echo "--- $table_name ---\n";
        !            62:    while ($r = @ibase_fetch_row($result)) {
        !            63:                echo join("\t",$r)."\t\n";
        !            64:    }
        !            65:    echo "errmsg [" . ibase_errmsg() . "]\t\n";
        !            66:    echo "---\n";
        !            67: }
        !            68: 
        !            69: /* M/D/Y H:M:S */
        !            70: function rand_datetime()
        !            71: {
        !            72:     return sprintf("%02d/%02d/%4d %02d:%02d:%02d",
        !            73:                rand()%12+1, rand()%28+1, rand()%100+1910,
        !            74:                rand()%24,   rand()%60,  rand()%60);
        !            75: }
        !            76: 
        !            77: /* random binary string  */
        !            78: function rand_binstr($max_len)
        !            79: {
        !            80:     $len = rand() % $max_len;
        !            81:     $s = "";
        !            82:     while($len--) {
        !            83:         $s .= sprintf("%c", rand() % 256);
        !            84:     }
        !            85:     return $s;
        !            86: }
        !            87: 
        !            88: function rand_str($max_len)
        !            89: {
        !            90:     $len = rand() % $max_len;
        !            91:     $s = "";
        !            92:     while ($len--) {
        !            93:         $s .= sprintf("%c", rand() % 26 + 65);
        !            94:     }
        !            95:     return $s;
        !            96: }
        !            97: 
        !            98: function rand_number($len , $prec = -1, $sign = 1)
        !            99: {
        !           100:     if ($prec == -1) {
        !           101:         $n = substr(rand() . rand(), 0, rand() % $len + 1);
        !           102:         if (strlen($n) < $len) {
        !           103:                $n .= "." . substr(rand(), 0, rand() % ($len - strlen($n)) + 1);
        !           104:         }
        !           105:     } else if ($prec == 0) {
        !           106:         $n = substr(rand() . rand(), 0, rand() % $len + 1);
        !           107:     } else if (($prec - $len) == 0) {
        !           108:         $n = substr(rand() . rand(), 0, 1);
        !           109:         $n .= "." . substr(rand(), 0, $prec);
        !           110:     } else {
        !           111:         $n = substr(rand() . rand(), 0, rand() % ($len - $prec) + 1);
        !           112:         $n .= "." . substr(rand(), 0, $prec);
        !           113:     }
        !           114:     if ($sign && (rand() % 3 == 0)) {
        !           115:         $n = "-" .$n;
        !           116:     }
        !           117:     return $n;
        !           118: }
        !           119: 
        !           120: ?>