public function testBasicListVariations()
{
$farm = R::dispense('building');
$village = R::dispense('village');
$farm->name = 'farm';
$village->name = 'Dusty Mountains';
$farm->village = $village;
$id = R::store($farm);
$farm = R::load('building', $id);
asrt($farm->name, 'farm');
asrt($farm->village->name, 'Dusty Mountains');
$village = R::dispense('village');
list($mill, $tavern) = R::dispense('building', 2);
$mill->name = 'Mill';
$tavern->name = 'Tavern';
$village->ownBuilding = array($mill, $tavern);
$id = R::store($village);
$village = R::load('village', $id);
asrt(count($village->ownBuilding), 2);
$village2 = R::dispense('village');
$army = R::dispense('army');
$village->sharedArmy[] = $army;
$village2->sharedArmy[] = $army;
$id1 = R::store($village);
$id2 = R::store($village2);
$village1 = R::load('village', $id1);
$village2 = R::load('village', $id2);
asrt(count($village1->sharedArmy), 1);
asrt(count($village2->sharedArmy), 1);
asrt(count($village1->ownArmy), 0);
asrt(count($village2->ownArmy), 0);
}