public function testTypesNegativeMoney()
{
$bean = R::dispense('bean');
$bean->money = '-$123.45';
R::store($bean);
$cols = R::getColumns('bean');
asrt($cols['money'], 'money');
$bean = R::load('bean', $bean->id);
asrt($bean->money, '-$123.45');
$bean->note = 'taint';
R::store($bean);
$bean = R::load('bean', $bean->id);
asrt($bean->money, '-$123.45');
}