public function testDebugCustomLogger()
{
testpack('Test debug mode with custom logger');
$pdoDriver = new RPDO(R::getDatabaseAdapter()->getDatabase()->getPDO());
$customLogger = new CustomLogger();
$pdoDriver->setDebugMode(TRUE, $customLogger);
$pdoDriver->Execute('SELECT 123');
asrt(count($customLogger->getLogMessage()), 1);
$pdoDriver->setDebugMode(TRUE, NULL);
asrt($pdoDriver->getLogger() instanceof RDefault, TRUE);
testpack('Test bean->getProperties method');
$bean = R::dispense('bean');
$bean->property = 'hello';
$props = $bean->getProperties();
asrt(isset($props['property']), TRUE);
asrt($props['property'], 'hello');
}