public function testDatabaseProperties()
{
testpack('Testing Database Properties');
$adapter = R::getDatabaseAdapter();
if (method_exists(R::getDatabaseAdapter()->getDatabase(), 'getPDO')) {
asrt($adapter->getDatabase()->getPDO() instanceof \PDO, TRUE);
}
asrt(strlen($adapter->getDatabase()->getDatabaseVersion()) > 0, TRUE);
asrt(strlen($adapter->getDatabase()->getDatabaseType()) > 0, TRUE);
}