public function testAliasedFinder()
{
$message = R::dispense('message');
$message->subject = 'Roommate agreement';
list($sender, $recipient) = R::dispense('person', 2);
$sender->name = 'Sheldon';
$recipient->name = 'Leonard';
$message->sender = $sender;
$message->recipient = $recipient;
$id = R::store($message);
$message = R::load('message', $id);
asrt($message->fetchAs('person')->sender->name, 'Sheldon');
asrt($message->fetchAs('person')->recipient->name, 'Leonard');
$otherRecipient = R::dispense('person');
$otherRecipient->name = 'Penny';
$message->recipient = $otherRecipient;
R::store($message);
$message = R::load('message', $id);
asrt($message->fetchAs('person')->sender->name, 'Sheldon');
asrt($message->fetchAs('person')->recipient->name, 'Penny');
}