test_drivers.php

来自「视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.」· PHP 代码 · 共 123 行

<?php
/* vim: set expandtab tabstop=4 shiftwidth=4: */
// +----------------------------------------------------------------------+
// | Copyright (c) 2002-2003 Brent Cook                                        |
// +----------------------------------------------------------------------+
// | This library is free software; you can redistribute it and/or        |
// | modify it under the terms of the GNU Lesser General Public           |
// | License as published by the Free Software Foundation; either         |
// | version 2.1 of the License, or (at your option) any later version.   |
// |                                                                      |
// | This library is distributed in the hope that it will be useful,      |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of       |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU    |
// | Lesser General Public License for more details.                      |
// |                                                                      |
// | You should have received a copy of the GNU Lesser General Public     |
// | License along with this library; if not, write to the Free Software  |
// | Foundation, Inc., 59 Temple Place, Suite 330,Boston,MA 02111-1307 USA|
// +----------------------------------------------------------------------+
// | Author: Brent Cook <[e-mail]>                         |
// +----------------------------------------------------------------------+
//
// $Id: test_drivers.php,v 1.4 2003/01/11 01:59:46 busterb Exp $
//

// test functionality of the file-based dba driver

ini_set('include_path',ini_get('include_path').':../../');
include 'PEAR.php';
include 'DBA.php';

$testDataArray = array ('1', '22', '333', '4444', '55555', '666666',
                        '7777777', '88888888', '999999999');

$maxDataIndex = sizeof($testDataArray)-1;

//$testDrivers = DBA::getDriverList();
$testDrivers = array('file');

echo "Testing create/insert/replace/remove/drop/read/open/close functionality\n";
foreach ($testDrivers as $driver) {
    echo "Testing $driver driver\n\n";
    $testDB =& DBA::create($driver);

    if (PEAR::isError($result=$testDB->open('test_db', 'c'))) {
        echo $result->getMessage()."\n";
        exit;
    }

    // main testing loop
    for ($i=0; $i<5000; ++$i) {
        $testKey = rand (0, 200);
        $testData = $testDataArray[rand(0, 8)];
        switch (rand(0, 3)) {
            case 0:
                if (!$testDB->exists($testKey)) {
                    $result = $testDB->insert($testKey, $testData);
                }
                break;
            case 1:
                if ($testDB->exists($testKey)) {
                    $result = $testDB->remove($testKey);
                }
                break;
            case 2:
                $result = $testDB->replace($testKey, $testData);
                break;
            case 3:
                if ($testDB->exists($testKey)) {
                    $result = $testDB->fetch($testKey);
                }
        }
        if (PEAR::isError($result)) {
            echo $result->getMessage()."\n";
        }
    }

    if (PEAR::isError($result = $testDB->close())) {
        echo $result->getMessage();
        exit;
    }

    if (PEAR::isError($result=$testDB->open('test_db', 'r'))) {
        echo $result->getMessage()."\n";
        exit;
    }

    $key = $testDB->firstkey();
    while ($key !== FALSE) {
        echo "$key = ".$testDB->fetch($key)."\n";
        $key = $testDB->nextkey($key);
    }

    if (PEAR::isError($result = $testDB->close())) {
        echo $result->getMessage();
        exit;
    }

    if (PEAR::isError($result = $testDB->drop())) {
        echo $result->getMessage();
        exit;
    }
}

echo "Testing static drop functionality\n";
// test static drop
foreach ($testDrivers as $driver) {
    echo "Testing $driver driver\n\n";
    $testDB =& DBA::create($driver);

    if (PEAR::isError($result=$testDB->open('test_db', 'c'))) {
        echo $result->getMessage()."\n";
        exit;
    }

    if (PEAR::isError($result = DBA::db_drop('test_db', $driver))) {
        echo $result->getMessage();
        exit;
    }
}

?>