public function testImportFromAndSetProp()
{
$bean = R::dispense('bean');
asrt($bean->getMeta('tainted'), TRUE);
asrt($bean->getMeta('changed'), TRUE);
$bean->setMeta('tainted', FALSE);
$bean->setMeta('changed', FALSE);
asrt($bean->getMeta('tainted'), FALSE);
asrt($bean->getMeta('changed'), FALSE);
$bean->importFrom(R::dispense('bean'));
asrt($bean->getMeta('tainted'), TRUE);
asrt($bean->getMeta('changed'), TRUE);
$bean->setMeta('tainted', FALSE);
$bean->setMeta('changed', FALSE);
asrt($bean->getMeta('tainted'), FALSE);
asrt($bean->getMeta('changed'), FALSE);
$bean->setProperty('id', 0, TRUE, TRUE);
asrt($bean->getMeta('tainted'), TRUE);
asrt($bean->getMeta('changed'), TRUE);
$bean->setMeta('tainted', FALSE);
$bean->setMeta('changed', FALSE);
asrt($bean->getMeta('tainted'), FALSE);
asrt($bean->getMeta('changed'), FALSE);
$bean->setProperty('id', 0, TRUE, FALSE);
asrt($bean->getMeta('tainted'), FALSE);
asrt($bean->getMeta('changed'), FALSE);
$bean->name = 'x';
asrt($bean->getMeta('tainted'), TRUE);
asrt($bean->getMeta('changed'), TRUE);
}