public function testScanningAndCoding()
{
$toolbox = R::getToolBox();
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$writer->createTable("testtable");
$writer->addColumn("testtable", "special", CUBRID::C_DATATYPE_SPECIAL_DATE);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols['special'], TRUE), CUBRID::C_DATATYPE_SPECIAL_DATE);
asrt($writer->code($cols['special'], FALSE), CUBRID::C_DATATYPE_SPECIFIED);
$writer->addColumn("testtable", "special2", CUBRID::C_DATATYPE_SPECIAL_DATETIME);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols['special2'], TRUE), CUBRID::C_DATATYPE_SPECIAL_DATETIME);
asrt($writer->code($cols['special'], FALSE), CUBRID::C_DATATYPE_SPECIFIED);
}