$v = $r->get('test');
test::assert_true($v == array(2, 1));
$r->set('test', null);
$v = $r->get('test');
test::assert_null($v);
$v = $r->exists('test');
test::assert_true($v);
$r->set('test', true);
$v = $r->get('test');
test::assert_true($v);
$r->set('test', false);
$v = $r->get('test');
test::assert_false($v);
$r->delete('test');
$v = $r->get('test');
test::assert_null($v);
$v = $r->exists('test');
test::assert_false($v);
# Increment/decrement
$r->delete('test');
$r->set('test', 1);
$v = $r->inc('test');
test::assert_value($v, 2, 'Increment/Decrement');
$v = $r->inc('test', 10);
test::assert_value($v, 12);
$r->delete('test');
$v = $r->inc('test');
test::assert_value($v, 1);
$v = $r->inc('test');
test::assert_value($v, 2);
$r->delete('test');
$ts = time();
$data = array('name' => 'Test', 'time' => $ts);
$p = new mock_peer();
$id = $p->insert($data);
test::assert_true($id > 0, 'Insert tests');
$v = $p->get_by_id($id);
test::assert_value($v['id'], $id);
test::assert_value($v['time'], $ts);
test::assert_value($v['name'], 'Test');
test::assert_value(count($v), 3);
$id1 = $p->insert($data);
$id2 = $p->insert($data);
$id3 = $p->insert($data);
test::assert_value($id1, $id2 - 1);
test::assert_value($id1, $id3 - 2);
$id = $p->insert($data);
$p->delete($id);
$v = $p->get_by_id($id);
test::assert_null($v, 'Delete tests');
$id = $p->insert($data);
$p->update($id, array('name' => 'Test updated'));
$v = $p->get_by_id($id);
test::assert_value($v['name'], 'Test updated', 'Update tests');
test::assert_value($v['id'], $id);
test::assert_value($v['time'], $ts);
test::assert_value(count($v), 3);
$p->update($id, array('country' => 'Ukraine'));
$v = $p->get_by_id($id);
test::assert_value($v['country'], 'Ukraine');
test::assert_value(count($v), 4);
test::summary();
