public function testBeanIdentityEquality()
{
$beanA = R::dispense('bean');
$beanB = R::dispense('bean');
$beanA->id = 1;
$beanB->id = 1;
asrt($beanA->equals($beanB), TRUE);
asrt($beanB->equals($beanA), TRUE);
asrt($beanA->equals($beanA), TRUE);
asrt($beanB->equals($beanB), TRUE);
$beanB->id = 2;
asrt($beanA->equals($beanB), FALSE);
asrt($beanB->equals($beanA), FALSE);
$beanA->id = '2';
asrt($beanA->equals($beanB), TRUE);
asrt($beanB->equals($beanA), TRUE);
$beanB = R::dispense('carrot');
$beanB->id = $beanA->id;
asrt($beanA->equals($beanB), FALSE);
asrt($beanB->equals($beanA), FALSE);
}