관리-도구

편집 파일: 16tableinfo.phpt

--TEST--
DB_driver::tableInfo
--SKIPIF--
<?php

/**
 * Calls tableInfo() in various ways and checks to see that the output
 * matches what's expected.
 *
 * These tests account for each DBMS using different column types and
 * reporting back different information.  These differences are accounted
 * for in the <var>$quirks</var> array, which has the following format:
 *
 * <pre>
 * 'driver' => array(
 *     'clob' => DBMS's column type for creating CLOB fields
 *     'date' => DBMS's column type for creating DATE fields
 *     'dateliteral' => The SQL keyword necessary for defining dates
 *     'finds_table' => Can this DBMS determine table names from queries?
 *     'size_from_table' => Does this DBMS know the column size via table name?
 *     'handles_results' => Can the DBMS get info from query results?
 *     'commands' => array(
 *         Extra commands to be passed to PHP's eval() function
 *     )
 *     0 => array(
 *         //  Info expected to be reported for phptest_fk.a
 *         //  (INTEGER NOT NULL) (UNIQUE KEY with d)
 *         'type' => Column type reported by the DBMS
 *         'len' => Column size reported by the DBMS
 *         'flags' => Flags reported by the DBMS
 *     )
 *     1 => array()  Info expected to be reported for phptest_fk.fk
 *                   (INTEGER NOT NULL) (PRIMARY KEY)
 *     2 => array()  Info expected to be reported for phptest_fk.c
 *                   (CLOB/CHAR/VARCHAR NULL)
 *     3 => array()  Info expected to be reported for phptest_fk.d
 *                   (DATE NOT NULL) (UNIQUE KEY with a)
 *     4 => array()  Info expected to be reported for phptest_fk.e
 *                   (CHAR(2) DEFAULT ' e' NOT NULL)
 *     5 => array()  Info expected to be reported for phptest_fk.f
 *                   (DECIMAL(2,1) NULL)
 *     9 => array()  Info expected to be reported for phptest.d
 *                   (VARCHAR(20) NULL)
 * )
 * </pre>
 *
 * @category Database
 * @package  DB
 * @version  $Id$
 * @author   Daniel Convissor <danielc@analysisandsolutions.com>
 * @see      DB_common::tableInfo()
 */

chdir(dirname(__FILE__));
require_once dirname(__FILE__) . '/skipif.inc';
$tableInfo = $dbh->tableInfo('ajkdslfajoijkadie');
if (DB::isError($tableInfo) && $tableInfo->code == DB_ERROR_NOT_CAPABLE) {
    die("skip $tableInfo->message");
}

?>
--FILE--
<?php

//  $Id$

/**
 * Connect to the database and make the phptest table.
 */
require_once dirname(__FILE__) . '/mktable.inc';

/**
 * Local error callback handler.
 *
 * In general, it prints out an error message and kills the process.
 * But some errors are expected and allowed to exist.
 *
 * @param object  $o  PEAR error object automatically passed to this method
 * @return void
 * @see PEAR::setErrorHandling()
 */
function pe($o){
    global $dbh, $quirks;

if ($o->getMessage() == "DB Error: can't distinguish duplicate field names") {
        print "NOTICE: $dbh->phptype can't distinguish duplicate field names";
        return;
    }

if ($o->getCode() == DB_ERROR_NOT_CAPABLE &&
        !$quirks[$dbh->phptype . ':' . $dbh->dbsyntax]['handles_results'])
    {
        return;
    }

$dbh->setErrorHandling(PEAR_ERROR_RETURN);
    drop_table($dbh, 'phptest');
    drop_table($dbh, 'phptest_fk');

die($o->toString());
}

/**
 * Loop through an array returned from tableInfo(), compare the actual
 * contents to the expected contents.  If the actual results match the
 * expectations, say so.  If not, say so and show the information.
 *
 * @param array   $array     the array to be examined
 * @param string  $expected  the expected contents of the array
 * @param string  $field     field index number of $quriks and table
 * @param boolean $query     true if array is from a query or false if array
 *                           is tableInfo()
 * @return void
 */
function examineArrayData($array, $expected, $field = false, $query = true) {
    global $dbh, $quirks;

$quirk_key = $dbh->phptype . ':' . $dbh->dbsyntax;

if (DB::isError($array) && $array->getCode() == DB_ERROR_NOT_CAPABLE) {
        print "matched expected result\n";
        return;
    }

if (!is_array($array)) {
        print "This DMBS didn't produce proper results\n";
        return;
    }

if (is_int($field)) {
        $array = $array[$field];
    }

$actual = '';
    foreach ($array as $key => $value) {
        if ($field !== false &&
            isset($quirks[$quirk_key][$field][$key]))
        {
            if ($key == 'flags' && $value == '' && $query &&
                !$quirks[$quirk_key]['finds_table'])
            {
                $actual .= "$key ... matched expected value\n";
            } else {
                if ($quirks[$quirk_key][$field][$key] == $value) {
                    $actual .= "$key ... matched expected value\n";
                } else {
                    if ($value == 0
                        && !$quirks[$quirk_key]['size_from_table'])
                    {
                        $actual .= "$key ... matched expected value\n";
                    } else {
                        $actual .= "$key ... was '$value' but we expected ";
                        $actual .= "'{$quirks[$quirk_key][$field][$key]}'\n";
                    }
                }
            }
        } else {
            if ($key == 'table') {
                if ($field <= 5) {
                    if ($value == 'phptest_fk') {
                        $actual .= "$key ... matched expected value\n";
                    } else {
                        if ($value == '' && $query &&
                            !$quirks[$quirk_key]['finds_table'])
                        {
                            $actual .= "$key ... matched expected value\n";
                        } else {
                            $actual .= "$key ... was '$value' but we expected 'phptest_fk'\n";
                        }
                    }
                } else {
                    if ($value == 'phptest') {
                        $actual .= "$key ... matched expected value\n";
                    } else {
                        if ($value == '' && $query &&
                            !$quirks[$quirk_key]['finds_table'])
                        {
                            $actual .= "$key ... matched expected value\n";
                        } else {
                            $actual .= "$key ... was '$value' but we expected 'phptest_fk'\n";
                        }
                    }
                }
            } else {
                $actual .= "$key => $value\n";
            }
        }
    }
    if ($actual == $expected) {
        print "matched expected result\n";
    } else {
        print "DIDN'T match expected values...\n";
        print "~~~~~~~~\nExpected:\n$expected\n";
        print "~~~~\nActual:\n$actual\n~~~~~~~~\n\n";
    }
}

/**
 * Loop through an array of table info data and return the results.
 *
 * @param array  $array  the array to be examined
 * @return string
 */
function returnArrayData($array) {
    global $dbh, $quirks;

$quirk_key = $dbh->phptype . ':' . $dbh->dbsyntax;

if (!$quirks[$quirk_key]['handles_results']) {
        return "\n";
    }

$out = '';
    foreach ($array as $key => $value) {
        $out .= "$key => $value\n";
    }
    return $out;
}

$dbh->setErrorHandling(PEAR_ERROR_CALLBACK, 'pe');

$quirks = array(
    'fbsql:fbsql' => array(
        'charset' => '',
        'clob' => 'CHAR(29)',
        'date' => 'DATE',
        'dateliteral' => ' DATE ',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 0,
            'flags' => '',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 0,
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'CHARACTER',
            'len' => 29,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 0,
            'flags' => '',
        ),
        4 => array(
            'type' => 'CHARACTER',
            'len' => 2,
            'flags' => '',
        ),
        5 => array(
            'type' => 'DECIMAL',
            'len' => 0,
            'flags' => '',
        ),
        9 => array(
            'type' => 'CHARACTER',
            'len' => 20,
            'flags' => '',
        ),
    ),

'ibase:ibase' => array(
        'charset' => '',
        'clob' => 'VARCHAR(50)',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 4,
            'flags' => 'unique_key not_null',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 4,
            'flags' => 'primary_key not_null',
        ),
        2 => array(
            'type' => 'VARCHAR',
            'len' => 50,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 4,
            'flags' => 'unique_key not_null',
        ),
        4 => array(
            'type' => 'CHAR',
            'len' => 2,
            'flags' => 'not_null default',
        ),
        5 => array(
            'type' => 'NUMERIC(9,1)',
            'len' => 4,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'ibase:firebird' => array(
        'charset' => '',
        'clob' => 'VARCHAR(50)',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 4,
            'flags' => 'unique_key not_null',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 4,
            'flags' => 'primary_key not_null',
        ),
        2 => array(
            'type' => 'VARCHAR',
            'len' => 50,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 4,
            'flags' => 'unique_key not_null',
        ),
        4 => array(
            'type' => 'CHAR',
            'len' => 2,
            'flags' => 'not_null default',
        ),
        5 => array(
            'type' => 'NUMERIC(9,1)',
            'len' => 4,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'ifx:ifx' => array(
        'charset' => '',
        'clob' => 'CHAR(29)',
        'date' => 'CHAR(10)',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'SQLINT',
            'len' => 4,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'SQLINT',
            'len' => 4,
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'SQLCHAR',
            'len' => 29,
            'flags' => '',
        ),
        3 => array(
            'type' => 'SQLCHAR',
            'len' => 10,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'SQLCHAR',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'SQLDECIMAL',
            'len' => 513,
            'flags' => '',
        ),
        9 => array(
            'type' => 'SQLCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'msql:msql' => array(
        'charset' => '',
        'clob' => 'TEXT(255)',
        'date' => 'CHAR(10)',
        'dateliteral' => '',
        'finds_table' => true,
        'size_from_table' => true,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'int',
            'len' => 4,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'int',
            'len' => 4,
            // for some reason, the unique property always contains 0
            // 'flags' => 'unique_key not_null',
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'text',
            'len' => 255,
            'flags' => '',
        ),
        3 => array(
            'type' => 'char',
            'len' => 10,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'char',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'real',
            'len' => 8,
            'flags' => '',
        ),
        9 => array(
            'type' => 'char',
            'len' => 20,
            'flags' => '',
        ),
    ),

'mssql:mssql' => array(
        'charset' => '',
        'clob' => 'TEXT',
        'date' => 'SMALLDATETIME',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
            'ini_set("mssql.datetimeconvert", "Off");',
            '$dbh->query("SET DATEFORMAT ymd");',
        ),
        0 => array(
            'type' => 'int',
            'len' => 4,
            'flags' => 'multiple_key unique_key not_null',
        ),
        1 => array(
            'type' => 'int',
            'len' => 4,
            'flags' => 'primary_key not_null',
        ),
        2 => array(
            'type' => 'text',
            'len' => 4096,
            'flags' => '',
        ),
        3 => array(
            'type' => 'datetime',
            'len' => 4,
            'flags' => 'multiple_key unique_key not_null',
        ),
        4 => array(
            'type' => 'char',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'real',
            'len' => 8,
            'flags' => '',
        ),
        9 => array(
            'type' => 'char',
            'len' => 20,
            'flags' => '',
        ),
    ),

'mysql:mysql' => array(
        'charset' => 'CHARACTER SET ascii',
        'clob' => 'TEXT',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => true,
        'size_from_table' => true,
        'handles_results' => true,
        'commands' => array(
            '$dbh->query("SET NAMES \'ascii\'");',
        ),
        0 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'not_null multiple_key',
        ),
        1 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'not_null primary_key',
        ),
        2 => array(
            'type' => 'blob',
            'len' => 65535,
            'flags' => 'blob',
        ),
        3 => array(
            'type' => 'date',
            'len' => 10,
            'flags' => 'not_null multiple_key binary',
        ),
        4 => array(
            'type' => 'string',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'real',
            'len' => 4,
            'flags' => '',
        ),
        9 => array(
            'type' => 'string',
            'len' => 20,
            'flags' => '',
        ),
    ),

'mysqli:mysqli' => array(
        'charset' => 'CHARACTER SET ascii',
        'clob' => 'TEXT',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => true,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
            '$dbh->query("SET NAMES \'ascii\'");',
        ),
        0 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'not_null multiple_key',
        ),
        1 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'not_null primary_key',
        ),
        2 => array(
            'type' => 'blob',
            'len' => 65535,
            'flags' => 'blob',
        ),
        3 => array(
            'type' => 'date',
            'len' => 10,
            'flags' => 'not_null multiple_key binary',
        ),
        4 => array(
            'type' => 'string',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'real',
            'len' => 4,
            'flags' => '',
        ),
        9 => array(
            'type' => 'string',
            'len' => 20,
            'flags' => '',
        ),
    ),

'oci8:oci8' => array(
        'charset' => '',
        'clob' => 'CLOB',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
            '$dbh->query("ALTER SESSION SET NLS_DATE_FORMAT = \'YYYY-MM-DD\'");',
        ),
        0 => array(
            'type' => 'NUMBER',
            'len' => 22,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'NUMBER',
            'len' => 22,
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'CLOB',
            'len' => 4000,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 7,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'CHAR',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'NUMBER',
            'len' => 22,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'odbc:access' => array(
        'charset' => '',
        'clob' => 'TEXT',
        'date' => 'DATETIME',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 10,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 10,
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'LONGCHAR',
            'len' => 255,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATETIME',
            'len' => 19,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'VARCHAR',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'DECIMAL',
            'len' => 15,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'odbc:db2' => array(
        'charset' => '',
        'clob' => 'CLOB',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 10,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 10,
            'flags' => 'not_null',
        ),
        2 => array(
            'type' => 'CLOB',
            'len' => 1048576,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 10,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'CHAR',
            'len' => 2,
            'flags' => 'not_null',
        ),
        5 => array(
            'type' => 'DECIMAL',
            'len' => 2,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'pgsql:pgsql' => array(
        'charset' => '',
        'clob' => 'TEXT',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
            '$dbh->query("SET DATESTYLE = ISO");',
        ),
        0 => array(
            'type' => 'int4',
            'len' => 4,
            'flags' => 'not_null unique_key multiple_key',
        ),
        1 => array(
            'type' => 'int4',
            'len' => 4,
            'flags' => 'not_null primary_key',
        ),
        2 => array(
            'type' => 'text',
            'len' => -1,
            'flags' => '',
        ),
        3 => array(
            'type' => 'date',
            'len' => 4,
            'flags' => 'not_null unique_key multiple_key',
        ),
        4 => array(
            'type' => 'bpchar',
            'len' => -1,
            'flags' => 'not_null default_%20e',
        ),
        5 => array(
            'type' => 'numeric',
            'len' => -1,
            'flags' => '',
        ),
        9 => array(
            'type' => 'varchar',
            'len' => -1,
            'flags' => '',
        ),
    ),

'sqlite:sqlite' => array(
        'charset' => '',
        'clob' => 'CLOB',
        'date' => 'DATE',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => false,
        'commands' => array(
        ),
        0 => array(
            'type' => 'INTEGER',
            'len' => 0,
            'flags' => 'not_null',
        ),
        1 => array(
            'type' => 'INTEGER',
            'len' => 0,
            'flags' => 'primary_key auto_increment not_null',
        ),
        2 => array(
            'type' => 'CLOB',
            'len' => 0,
            'flags' => '',
        ),
        3 => array(
            'type' => 'DATE',
            'len' => 0,
            'flags' => 'not_null',
        ),
        4 => array(
            'type' => 'CHAR',
            'len' => 2,
            'flags' => 'not_null default_%20e',
        ),
        5 => array(
            'type' => 'DECIMAL',
            'len' => 2,
            'flags' => '',
        ),
        9 => array(
            'type' => 'VARCHAR',
            'len' => 20,
            'flags' => '',
        ),
    ),

'sybase:sybase' => array(
        'charset' => '',
        'clob' => 'TEXT',
        'date' => 'SMALLDATETIME',
        'dateliteral' => '',
        'finds_table' => false,
        'size_from_table' => false,
        'handles_results' => true,
        'commands' => array(
            '$dbh->query("SET DATEFORMAT ymd");',
        ),
        0 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'multiple_key unique_key',
        ),
        1 => array(
            'type' => 'int',
            'len' => 11,
            'flags' => 'unique_key',
        ),
        2 => array(
            'type' => 'string',
            'len' => 64512,
            'flags' => '',
        ),
        3 => array(
            'type' => 'datetime',
            'len' => 29,
            'flags' => 'multiple_key unique_key',
        ),
        4 => array(
            'type' => 'string',
            'len' => 2,
            'flags' => '',
        ),
        5 => array(
            'type' => 'real',
            'len' => 4,
            'flags' => '',
        ),
        9 => array(
            'type' => 'string',
            'len' => 20,
            'flags' => '',
        ),
    ),
);

$quirk_key = $dbh->phptype . ':' . $dbh->dbsyntax;

if (!isset($quirks[$quirk_key])) {
    die("This test does not yet support $quirk_key");
}

if (count($quirks[$quirk_key]['commands'])) {
    foreach ($quirks[$quirk_key]['commands'] as $value) {
        eval($value);
    }
}

$dbh->query('DELETE FROM phptest');
$dbh->query("INSERT INTO phptest VALUES (1, 'one', 'One', '2001-02-16')");
$dbh->query("INSERT INTO phptest VALUES (2, 'two', 'Two', '2001-02-15')");
$dbh->query("INSERT INTO phptest VALUES (3, 'three', 'Three', '2001-02-14')");

$dbh->setErrorHandling(PEAR_ERROR_RETURN);
drop_table($dbh, 'phptest_fk');
$dbh->setErrorHandling(PEAR_ERROR_CALLBACK, 'pe');

if ($quirk_key == 'odbc:access') {
    $default_e = '';
    $decimal   = 'NUMERIC';
} elseif ($quirk_key == 'msql:msql') {
    $default_e = '';
    $decimal   = 'REAL';
} else {
    $default_e = "DEFAULT ' e'";
    $decimal   = 'DECIMAL(2,1)';
}

if ($quirk_key == 'mssql:mssql') {
    /* We need to reset the expected length of phptest_fk.c to match
     * @@TEXTSIZE, since the default value seems to vary based on the version
     * of SQL Server we're talking to and its configuration. */
    $textsize = $dbh->getOne('SELECT @@TEXTSIZE');
    if (DB::isError($textsize)) {
        echo 'Error retrieving @@TEXTSIZE: '.$textsize->getMessage()."\n";
    } else {
        $quirks[$quirk_key][2]['len'] = (integer) $textsize;
    }
}

// $null is set in mktable.inc

switch ($dbh->phptype) {
    case 'msql':
        $dbh->query("
            CREATE TABLE phptest_fk (
                a INTEGER NOT NULL,
                fk INTEGER NOT NULL,
                cc {$quirks[$quirk_key]['clob']} $null,
                d {$quirks[$quirk_key]['date']} NOT NULL,
                e CHAR(2) $default_e NOT NULL,
                f $decimal $null
            )
        ");
        $dbh->query('CREATE UNIQUE INDEX fkpk ON phptest_fk (fk)');
        $dbh->query('CREATE UNIQUE INDEX fkuk ON phptest_fk (a, d)');
        break;
    default:
        $dbh->query("
            CREATE TABLE phptest_fk (
                a INTEGER NOT NULL,
                fk INTEGER NOT NULL,
                cc {$quirks[$quirk_key]['clob']} {$quirks[$quirk_key]['charset']} $null,
                d {$quirks[$quirk_key]['date']} NOT NULL,
                e CHAR(2) {$quirks[$quirk_key]['charset']} $default_e NOT NULL,
                f $decimal $null,
                PRIMARY KEY (fk),
                UNIQUE (a, d)
            )
        ");
}

$dbh->query("CREATE INDEX thedidx ON phptest_fk (d)");
$dbh->query("INSERT INTO phptest_fk VALUES (10, 1, 'One',"
            . $quirks[$quirk_key]['dateliteral'] . "'2001-02-16',  'c1', 1.1)");
$dbh->query("INSERT INTO phptest_fk VALUES (20, 2, 'Two',"
            . $quirks[$quirk_key]['dateliteral'] . "'2001-02-15', 'c2', 2.2)");
$dbh->query("INSERT INTO phptest_fk VALUES (30, 3, 'Three',"
            . $quirks[$quirk_key]['dateliteral'] . "'2001-02-14', 'c3', 3.3)");

function &runQuery() {
    global $dbh, $resultobj;

$quirk_key = $dbh->phptype . ':' . $dbh->dbsyntax;

switch ($quirk_key) {
        case 'odbc:db2':
            // can't extract blob's this way so make a fake column
            $query = "SELECT phptest_fk.a, phptest_fk.fk, 'tempxyz' AS cc,"
                   . ' phptest_fk.d, phptest_fk.e, phptest_fk.f,'
                   . ' phptest.a, phptest.b, phptest.cc, phptest.d'
                   . ' FROM phptest_fk, phptest'
                   . ' WHERE phptest.a = phptest_fk.fk';
            break;
        case 'msql:msql':
            $query = 'SELECT phptest_fk.a, phptest_fk.fk, phptest_fk.cc,'
                   . ' phptest_fk.d, phptest_fk.e, phptest_fk.f,'
                   . ' phptest.a, phptest.b, phptest.cc, phptest.d'
                   . ' FROM phptest_fk, phptest'
                   . ' WHERE phptest.a = phptest_fk.fk';
            break;
        default:
            $query = 'SELECT phptest_fk.a, phptest_fk.fk, phptest_fk.cc,'
                   . ' phptest_fk.d, phptest_fk.e, phptest_fk.f,'
                   . ' phptest.a, phptest.b, phptest.cc, phptest.d'
                   . ' FROM phptest_fk, phptest'
                   . ' WHERE phptest.a = phptest_fk.fk';
    }
    $resultobj =& $dbh->query($query);
    return $resultobj;
}

$expected01 = 'table ... matched expected value
name => a
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected02 = 'table ... matched expected value
name => fk
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected03 = 'table ... matched expected value
name => cc
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected04 = 'table ... matched expected value
name => d
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected05 = 'table ... matched expected value
name => e
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected06 = 'table ... matched expected value
name => f
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

$expected10 = 'table ... matched expected value
name => d
type ... matched expected value
len ... matched expected value
flags ... matched expected value
';

print "\n==========================================\n";
print "Passing result OBJECT to method in DB_<type>.\n";
print "Output = default.\n";
print "------------------------------------------\n";
$resultobj =& runQuery();
// This numRows call provides a regression test for bug #4388.
$resultobj->numRows();
$array = $dbh->tableInfo($resultobj);

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0);

print "\ncolumn 9:\n";
examineArrayData($array, $expected10, 9);

print "\n==========================================\n";
print "Passing result ID to method in DB_<type>.\n";
print "Output = DB_TABLEINFO_ORDER.\n";
print "------------------------------------------\n";
$resultobj =& runQuery();
$array = $dbh->tableInfo($resultobj->result, DB_TABLEINFO_ORDER);

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0);

print "\ncolumn 3:\n";
examineArrayData($array, $expected04, 3);

print "\nnum_fields: ";
if ($quirks[$quirk_key]['handles_results'] && $array['num_fields'] == 10) {
    print "matched expected result\n";
} elseif (DB::isError($array) && $array->getCode() == DB_ERROR_NOT_CAPABLE) {
    print "matched expected result\n";
} else {
    print "This DMBS didn't produce proper results\n";
}

print "\norder:\n";
if ($quirks[$quirk_key]['handles_results'] && is_array($array['order'])) {
    $expected = 'a => 6
b => 7
cc => 8
d => 9
e => 4
f => 5
fk => 1
';
    ksort($array['order']);
    examineArrayData($array['order'], $expected);
} elseif (DB::isError($array) && $array->getCode() == DB_ERROR_NOT_CAPABLE) {
    print "matched expected result\n";
} else {
    print "This DMBS didn't produce proper results\n";
}

print "\n==========================================\n";
print "Passing DB_TABLEINFO_ORDERTABLE to method in DB_result.\n";
print "Output = DB_TABLEINFO_ORDERTABLE.\n";
print "------------------------------------------\n";
$resultobj =& runQuery();
$array = $resultobj->tableInfo(DB_TABLEINFO_ORDERTABLE);
// Free this to keep interbase happy.
$resultobj->free();

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0);

print "\ncolumn 3:\n";
examineArrayData($array, $expected04, 3);

print 'ordertable[phptest]: ';
$expected = 'a => 6
b => 7
cc => 8
d => 9
';
if ($quirks[$quirk_key]['handles_results']
    && isset($array['ordertable']['phptest'])) {
    $actual = returnArrayData($array['ordertable']['phptest']);
} else {
    $actual = '';
}
if ($actual == $expected) {
    print "matched expected result\n";
} else {
    if (($quirks[$quirk_key]['finds_table'] === false 
        || DB::isError($array) && $array->getCode() == DB_ERROR_NOT_CAPABLE)
        && $actual == '') {
        print "matched expected result\n";
    } else {
        print "DIDN'T match expected values...\n";
        print "~~~~~~~~\nExpected:\n$expected\n";
        print "~~~~\nActual:\n$actual\n~~~~~~~~\n\n";
    }
}

print 'ordertable[phptest_fk]: ';
$expected = 'a => 0
fk => 1
cc => 2
d => 3
e => 4
f => 5
';
if ($quirks[$quirk_key]['handles_results']
    && isset($array['ordertable']['phptest_fk'])) {
    $actual = returnArrayData($array['ordertable']['phptest_fk']);
} else {
    $actual = '';
}
if ($actual == $expected) {
    print "matched expected result\n";
} else {
    if (($quirks[$quirk_key]['finds_table'] === false 
        || DB::isError($array) && $array->getCode() == DB_ERROR_NOT_CAPABLE)
        && $actual == '') {
        print "matched expected result\n";
    } else {
        print "DIDN'T match expected values...\n";
        print "~~~~~~~~\nExpected:\n$expected\n";
        print "~~~~\nActual:\n$actual\n~~~~~~~~\n\n";
    }
}

print "\n==========================================\n";
print "Passing TABLE NAME 'phptest_fk' to method in DB_<driver>.\n";
print "Output = default.\n";
print "------------------------------------------\n";
$array = $dbh->tableInfo('phptest_fk');

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0, false);

print "\ncolumn 1:\n";
examineArrayData($array, $expected02, 1, false);

print "\ncolumn 2:\n";
examineArrayData($array, $expected03, 2, false);

print "\ncolumn 3:\n";
examineArrayData($array, $expected04, 3, false);

print "\ncolumn 4:\n";
examineArrayData($array, $expected05, 4, false);

print "\ncolumn 5:\n";
examineArrayData($array, $expected06, 5, false);

print "\n==========================================\n";
print "Passing TABLE NAME 'phptest_fk' to method in DB_<driver>.\n";
print "Output = DB_TABLEINFO_FULL.\n";
print "------------------------------------------\n";
$array = $dbh->tableInfo('phptest_fk', DB_TABLEINFO_FULL);

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0, false);

print "\norder:\n";
$expect ='a => 0
fk => 1
cc => 2
d => 3
e => 4
f => 5
';
examineArrayData($array['order'], $expect, false, false);

print "\nordertable[phptest_fk]:\n";
$expect ='a => 0
fk => 1
cc => 2
d => 3
e => 4
f => 5
';
examineArrayData($array['ordertable']['phptest_fk'], $expect);

print "\n==========================================\n";
print "Passing TABLE NAME 'phptest_fk' to method in DB_<driver> AGAIN.\n";
print "Output = DB_TABLEINFO_FULL, lowercasing turned off.\n";
print "------------------------------------------\n";
$dbh->setOption('portability', DB_PORTABILITY_ALL ^ DB_PORTABILITY_LOWERCASE);
$array = $dbh->tableInfo('phptest_fk', DB_TABLEINFO_FULL);

// testing non-lowercasing above to ensure program doesn't die.
// lowercase the names here to ensure test uniformity.
$array[0]['table'] = strtolower($array[0]['table']);
$array[0]['name'] = strtolower($array[0]['name']);

print "\ncolumn 0:\n";
examineArrayData($array, $expected01, 0, false);

$dbh->setErrorHandling(PEAR_ERROR_RETURN);
drop_table($dbh, 'phptest');
drop_table($dbh, 'phptest_fk');

?>
--EXPECT--
==========================================
Passing result OBJECT to method in DB_<type>.
Output = default.
------------------------------------------

column 0:
matched expected result

column 9:
matched expected result

==========================================
Passing result ID to method in DB_<type>.
Output = DB_TABLEINFO_ORDER.
------------------------------------------

column 0:
matched expected result

column 3:
matched expected result

num_fields: matched expected result

order:
matched expected result

==========================================
Passing DB_TABLEINFO_ORDERTABLE to method in DB_result.
Output = DB_TABLEINFO_ORDERTABLE.
------------------------------------------

column 0:
matched expected result

column 3:
matched expected result

num_fields: matched expected result
ordertable[phptest]: matched expected result
ordertable[phptest_fk]: matched expected result

==========================================
Passing TABLE NAME 'phptest_fk' to method in DB_<driver>.
Output = default.
------------------------------------------

column 0:
matched expected result

column 1:
matched expected result

column 2:
matched expected result

column 3:
matched expected result

column 4:
matched expected result

column 5:
matched expected result

==========================================
Passing TABLE NAME 'phptest_fk' to method in DB_<driver>.
Output = DB_TABLEINFO_FULL.
------------------------------------------

column 0:
matched expected result

order:
matched expected result

ordertable[phptest_fk]:
matched expected result

==========================================
Passing TABLE NAME 'phptest_fk' to method in DB_<driver> AGAIN.
Output = DB_TABLEINFO_FULL, lowercasing turned off.
------------------------------------------

column 0:
matched expected result