$post->localUserEntity = $ne1->key();
$post->author($ne2->ds);
$post->owner($ne1->ds);
$post->data['text'] = 'This is a message, it will be deleted. Umlauts like üöä should be preserved.';
$post->save();
tlog($post->ds['m_key'] > 0, 'post saved locally', 'OK (#'.$post->ds['m_id'].')', 'fail');
$streamPosts1 = $this->msg->getStream($ne2->key());
foreach($streamPosts1['list'] as $pds)
if($pds['m_id'] == $post->data['msgid']) $matchDS7 = $pds;
tlog(is_array($matchDS7), 'post in stream', 'OK (#'.$post->ds['m_key'].')', 'fail');
$textData = HubbubMessage::unpackData($matchDS);
tlog($matchDS7['text'] == $textData['text'], 'post in stream is valid', 'OK (#'.$post->ds['m_key'].')', 'fail');
$post->markChanged(time()+$ctr++);
$post->executeHandler('delete');
tlog($post->data['deleted'] == 'yes', '"deleted" property set', 'OK', 'fail');
$mds = DB_GetDataset('messages', $post->ds['m_key']);
$textData = HubbubMessage::unpackData($mds);
tlog($mds['m_deleted'] == 'Y', 'm_deleted in DB', 'OK (#'.$mds['m_key'].')', 'fail');
tlog($textData['deleted'] == 'yes', 'deleted in record', 'OK (#'.$mds['m_key'].')', 'fail');
$streamPosts1 = $this->msg->getStream($ne2->key());
$wallPosts1 = $this->msg->getPostList($ne1->key());
$postFound9 = -1; $postFound10 = -1;
foreach($streamPosts1['list'] as $pds)
if($pds['m_id'] == $post->data['msgid']) $postFound9 = $pds['m_id'];
tlog($postFound9 == -1, 'Message gone from author stream', 'OK', 'fail (#'.$postFound9.')');
foreach($wallPosts1['list'] as $pds)
