lwtarantool 0.0.2

data/ext/lwtarantool/vendor/tarantool-c/test/tarantool_tcp.c

@@ -0,0 +1,840 @@
+#include "test.h"
+#include <string.h>
+#include <stdlib.h>
+#include <stdint.h>
+
+#include <msgpuck.h>
+
+#include <tarantool/tarantool.h>
+
+#include <tarantool/tnt_net.h>
+#include <tarantool/tnt_opt.h>
+
+#include "common.h"
+
+#define header() note("*** %s: prep ***", __func__)
+#define footer() note("*** %s: done ***", __func__)
+
+int
+tnt_request_set_sspace(struct tnt_stream *s, struct tnt_request *req,
+		       const char *space, uint32_t slen)
+{
+	int32_t sno = tnt_get_spaceno(s, space, slen);
+	if (sno == -1) return -1;
+	return tnt_request_set_space(req, sno);
+}
+
+int
+tnt_request_set_sspacez(struct tnt_stream *s, struct tnt_request *req,
+			const char *space)
+{
+	return tnt_request_set_sspace(s, req, space, strlen(space));
+}
+
+int
+tnt_request_set_sindex(struct tnt_stream *s, struct tnt_request *req,
+		       const char *index, uint32_t ilen)
+{
+	int32_t ino = tnt_get_indexno(s, req->space_id, index, ilen);
+	if (ino == -1) return -1;
+	return tnt_request_set_index(req, ino);
+}
+
+int
+tnt_request_set_sindexz(struct tnt_stream *s, struct tnt_request *req,
+			const char *index)
+{
+	return tnt_request_set_sindex(s, req, index, strlen(index));
+}
+
+/*
+static int
+test_() {
+	plan(0);
+	header();
+
+	footer();
+	return check_plan();
+}
+*/
+
+static int
+test_connect_tcp() {
+	plan(7);
+	header();
+
+	char uri[128] = {0};
+	snprintf(uri, 128, "%s%s%s", "test:test@", "localhost:",
+		 getenv("PRIMARY_PORT"));
+
+	struct tnt_stream *s = NULL; s = tnt_net(NULL);
+	isnt(s, NULL, "Checking that stream is allocated");
+	is  (s->alloc, 1, "Checking s->alloc");
+	isnt(tnt_set(s, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(s), -1, "Connecting");
+//	isnt(tnt_authenticate(s), -1, "Authenticating");
+	tnt_close(s);
+	tnt_stream_free(s);
+
+	struct tnt_stream sa = {0}; tnt_net(&sa);
+	is  (sa.alloc, 0, "Checking sa.alloc");
+	isnt(tnt_set(&sa, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(&sa), -1, "Connecting");
+//	isnt(tnt_authenticate(&sa), -1, "Authenticating");
+	tnt_close(&sa);
+	tnt_stream_free(&sa);
+
+	footer();
+	return check_plan();
+}
+
+static int
+test_object() {
+	plan(102);
+	header();
+
+	struct tnt_stream *s = NULL; s = tnt_object(NULL);
+
+
+	char str1[] = "I'm totaly duck, i can quack";
+	ssize_t str1_len = strlen(str1);
+
+	isnt(s, NULL, "Checking that object is allocated");
+	is  (s->alloc, 1, "Checking s->alloc");
+	is  (tnt_object_add_int(s, 1211),  3, "encoding int > 0");
+	is  (tnt_object_add_int(s, -1211), 3, "encoding int < 0");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_str(s, str1, str1_len), str1_len + 1, "encoding str");
+	is  (tnt_object_add_strz(s, str1), str1_len + 1, "encoding strz");
+
+	is  (tnt_object_type(s, TNT_SBO_SPARSE), -1, "Check type set (must fail)");
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	is  (tnt_object_type(s, TNT_SBO_SPARSE), 0, "Check type set (must be ok)");
+	is  (tnt_object_add_array(s, 0), 5, "Sparse array");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_container_close(s), 0, "Closing container");
+	is  (tnt_object_container_close(s), -1, "Erroneous container close");
+
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	is  (tnt_object_type(s, TNT_SBO_PACKED), 0, "Check type set (must be ok)");
+	is  (tnt_object_add_array(s, 0), 1, "Packed array");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_add_nil(s), 1, "encoding nil");
+	is  (tnt_object_container_close(s), 0, "Closing container");
+	is  (tnt_object_container_close(s), -1, "Erroneous container close");
+
+
+	/*
+	 * {"menu": {
+  	 *    "popup": {
+    	 *      "menuitem": [
+      	 *        {"value": "New", "onclick": "CreateNewDoc()"},
+      	 *        {"value": "Open", "onclick": "OpenDoc()"},
+      	 *        {"value": "Close", "onclick": "CloseDoc()"}
+    	 *      ]
+  	 *    }
+	 *    "id": "file",
+  	 *    "value": "File",
+	 * }}
+	 */
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	is  (tnt_object_type(s, TNT_SBO_PACKED), 0, "Check type set (must be ok)");
+	is  (tnt_object_add_map(s, 0), 1,			"Packing map-1");
+	is  (tnt_object_add_strz(s, "menu"), 5,			"  Packing key (str)");
+	is  (tnt_object_add_map(s, 0), 1,			"   Packing value (map-2)");
+	is  (tnt_object_add_strz(s, "popup"), 6,		"  Packing key (str)");
+	is  (tnt_object_add_map(s, 0), 1,			"   Packing value (map-3)");
+	is  (tnt_object_add_strz(s, "menuitem"), 9,		"     Packing key (str)");
+	is  (tnt_object_add_array(s, 0), 1,			"      Packing value (array)");
+	is  (tnt_object_add_map(s, 0), 1,			"        Packing value (map-4)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "CreateNewDoc()"), 15,	"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "New"), 4,			"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-4");
+	is  (tnt_object_add_map(s, 0), 1,			"        Packing value (map-5)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "OpenDoc()"), 10,		"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "Open"), 5,			"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-5");
+	is  (tnt_object_add_map(s, 0), 1,			"        Packing value (map-6)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "CloseDoc()"), 11,		"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "Close"), 6,		"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-6");
+	is  (tnt_object_container_close(s), 0,			"      Closing map-3");
+	is  (tnt_object_container_close(s), 0,			"    Closing array");
+	is  (tnt_object_add_strz(s, "id"), 3,			"  Packing key (str)");
+	is  (tnt_object_add_strz(s, "file"), 5,			"   Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"  Packing key (str)");
+	is  (tnt_object_add_strz(s, "File"), 5,			"   Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"  Closing map-2");
+	is  (tnt_object_container_close(s), 0,			"Closing map-1");
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	is  (tnt_object_type(s, TNT_SBO_SPARSE), 0, "Check type set (must be ok)");
+	is  (tnt_object_add_map(s, 0), 5,			"Packing map-1");
+	is  (tnt_object_add_strz(s, "menu"), 5,			"  Packing key (str)");
+	is  (tnt_object_add_map(s, 0), 5,			"   Packing value (map-2)");
+	is  (tnt_object_add_strz(s, "popup"), 6,		"  Packing key (str)");
+	is  (tnt_object_add_map(s, 0), 5,			"   Packing value (map-3)");
+	is  (tnt_object_add_strz(s, "menuitem"), 9,		"     Packing key (str)");
+	is  (tnt_object_add_array(s, 0), 5,			"      Packing value (array)");
+	is  (tnt_object_add_map(s, 0), 5,			"        Packing value (map-4)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "CreateNewDoc()"), 15,	"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "New"), 4,			"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-4");
+	is  (tnt_object_add_map(s, 0), 5,			"        Packing value (map-5)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "OpenDoc()"), 10,		"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "Open"), 5,			"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-5");
+	is  (tnt_object_add_map(s, 0), 5,			"        Packing value (map-6)");
+	is  (tnt_object_add_strz(s, "onclick"), 8,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "CloseDoc()"), 11,		"           Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"          Packing key (str)");
+	is  (tnt_object_add_strz(s, "Close"), 6,		"           Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"        Closing map-6");
+	is  (tnt_object_container_close(s), 0,			"      Closing map-3");
+	is  (tnt_object_container_close(s), 0,			"    Closing array");
+	is  (tnt_object_add_strz(s, "id"), 3,			"  Packing key (str)");
+	is  (tnt_object_add_strz(s, "file"), 5,			"   Packing value (str)");
+	is  (tnt_object_add_strz(s, "value"), 6,		"  Packing key (str)");
+	is  (tnt_object_add_strz(s, "File"), 5,			"   Packing value (str)");
+	is  (tnt_object_container_close(s), 0,			"  Closing map-2");
+	is  (tnt_object_container_close(s), 0,			"Closing map-1");
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	is  (tnt_object_type(s, TNT_SBO_PACKED), 0, "Check type set (must be ok)");
+	is  (tnt_object_add_array(s, 0), 1, "Packing array (size more 1 byte)");
+	for (int i = 0; i < 32; ++i) tnt_object_add_nil(s);
+	is  (tnt_object_container_close(s), 0, "Closing array (size more 1 byte)");
+
+	is  (tnt_object_reset(s), 0, "Reset bytestring");
+	isnt(tnt_object_format(s, "{%s{%s{%s[{%s%s%s%s}{%s%s%s%s}{%s%s%s%s}]}%s%s%s%s}}",
+			       "menu", "popup", "menuitem",
+			       "onclick", "CreateNewDoc()", "value", "New",
+			       "onclick", "OpenDoc()", "value", "Open",
+			       "onclick", "CloseDoc()", "value", "Close",
+			       "id", "file", "value", "File"), -1, "Pack with format");
+
+	tnt_stream_free(s);
+
+	footer();
+	return check_plan();
+}
+
+static int
+test_request_01(char *uri) {
+	plan(5);
+	header();
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+//	isnt(tnt_authenticate(tnt), -1, "Authenticating");
+
+	struct tnt_stream *arg = tnt_object(NULL);
+	isnt(arg, NULL, "Check object creation");
+	is  (tnt_object_add_array(arg, 0), 1, "Append elem");
+
+	struct tnt_request *req1 = tnt_request_call_16(NULL);
+	tnt_request_set_funcz(req1, "test_4");
+	tnt_request_set_tuple(req1, arg);
+	uint64_t sync1 = tnt_request_compile(tnt, req1);
+	tnt_request_free(req1);
+
+	struct tnt_request *req2 = tnt_request_eval(NULL);
+	tnt_request_set_exprz(req2, "return test_4()");
+	tnt_request_set_tuple(req2, arg);
+	uint64_t sync2 = tnt_request_compile(tnt, req2);
+	tnt_request_free(req2);
+
+
+	tnt_flush(tnt);
+
+	struct tnt_iter it; tnt_iter_reply(&it, tnt);
+	while (tnt_next(&it)) {
+		struct tnt_reply *r = TNT_IREPLY_PTR(&it);
+		if (r->sync == sync1) {
+		  ;
+		} else if (r->sync == sync2) {
+		  ;
+		} else {
+			assert(0);
+		}
+	}
+
+	tnt_stream_free(tnt);
+	tnt_stream_free(arg);
+
+	footer();
+	return check_plan();
+}
+
+static int
+test_request_02(char *uri) {
+	plan(15);
+	header();
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+//	isnt(tnt_authenticate(tnt), -1, "Authenticating");
+
+	struct tnt_stream *key = tnt_object(NULL);
+	isnt(key, NULL, "Check object creation");
+	is  (tnt_object_add_array(key, 1), 1, "Create key");
+	is  (tnt_object_add_strz(key, "_vspace"), 8, "Create key");
+
+	struct tnt_request *req = NULL;
+	req = tnt_request_select(NULL);
+	isnt(req, NULL, "Check request creation");
+	is  (req->hdr.type, TNT_OP_SELECT, "Check that we inited select");
+	is  (tnt_request_set_space(req, 281), 0, "Set space");
+	is  (tnt_request_set_index(req, 2), 0, "Set index");
+	is  (tnt_request_set_key(req, key), 0, "Set key");
+	isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+	
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+	tnt_request_free(req);
+	tnt_stream_free(key);
+
+	struct tnt_reply reply;
+	isnt(tnt_reply_init(&reply), NULL, "Init reply");
+	isnt(tnt->read_reply(tnt, &reply), -1, "Read reply");
+	
+	tnt_reply_free(&reply);
+
+	tnt_stream_free(tnt);
+
+	footer();
+	return check_plan();
+}
+
+static int
+test_request_03(char *uri) {
+	plan(15);
+	header();
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+//	isnt(tnt_authenticate(tnt), -1, "Authenticating");
+
+	struct tnt_stream *key = tnt_object(NULL);
+	isnt(key, NULL, "Check object creation");
+	is  (tnt_object_add_array(key, 1), 1, "Create key");
+	is  (tnt_object_add_strz(key, "_vspace"), 8, "Create key");
+
+	struct tnt_request *req = NULL; req = tnt_request_select(NULL);
+	isnt(req, NULL, "Check request creation");
+	is  (req->hdr.type, TNT_OP_SELECT, "Check that we inited select");
+	is  (tnt_request_set_sspace(tnt, req, "_vspace", 7), 0, "Set space");
+	is  (tnt_request_set_sindex(tnt, req, "name", 4), 0, "Set index");
+	is  (tnt_request_set_key(req, key), 0, "Set key");
+	isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+	
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+	tnt_request_free(req);
+	tnt_stream_free(key);
+
+	struct tnt_reply reply;
+	isnt(tnt_reply_init(&reply), NULL, "Init reply");
+	isnt(tnt->read_reply(tnt, &reply), -1, "Read reply");
+	
+	tnt_reply_free(&reply);
+
+	tnt_stream_free(tnt);
+
+	footer();
+	return check_plan();
+}
+
+static int
+test_request_04(char *uri) {
+	plan(18);
+	header();
+
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+//	isnt(tnt_authenticate(tnt), -1, "Authenticating");
+
+	struct tnt_stream *key = NULL; key = tnt_object(NULL);
+	isnt(key, NULL, "Check object creation");
+	is  (tnt_object_add_array(key, 1), 1, "Create key");
+	is  (tnt_object_add_strz(key, "_vspace"), 8, "Create key");
+
+	struct tnt_request *req = NULL; req = tnt_request_select(NULL);
+	isnt(req, NULL, "Check request creation");
+	is  (req->hdr.type, TNT_OP_SELECT, "Check that we inited select");
+	is  (tnt_request_set_sspace(tnt, req, "_vspace", 7), 0, "Set space");
+	is  (tnt_request_set_sindex(tnt, req, "name", 4), 0, "Set index");
+	is  (tnt_request_set_key(req, key), 0, "Set key");
+	is  (tnt_request_set_offset(req, 1), 0, "Set offset");
+	is  (tnt_request_set_limit(req, 1), 0, "Set limit");
+	is  (tnt_request_set_iterator(req, TNT_ITER_GT), 0, "Set iterator");
+	isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+	tnt_request_free(req);
+	tnt_stream_free(key);
+
+	struct tnt_reply reply;
+	isnt(tnt_reply_init(&reply), NULL, "Init reply");
+	isnt(tnt->read_reply(tnt, &reply), -1, "Read reply");
+
+	tnt_reply_free(&reply);
+
+	tnt_stream_free(tnt);
+
+	footer();
+	return check_plan();
+}
+
+
+
+static int
+test_request_05(char *uri) {
+	plan(351);
+	header();
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+	tnt_stream_reqid(tnt, 0);
+
+	for (int i = 0; i < 10; ++i) {
+		char ex[128] = {0};
+		size_t ex_len = snprintf(ex, 128, "examplestr %d %d", i, i*i);
+
+		struct tnt_stream *val = tnt_object(NULL);
+		tnt_object_format(val, "[%d%d%.*s]", i, i + 10, ex_len, ex);
+
+		struct tnt_request *req = tnt_request_insert(NULL);
+		isnt(req, NULL, "Check request creation");
+		is  (req->hdr.type, TNT_OP_INSERT, "Check that we inited insert");
+		is  (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+		is  (tnt_request_set_tuple(req, val), 0, "Set tuple");
+		isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+
+		tnt_request_free(req);
+		tnt_stream_free(val);
+	}
+
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+
+	struct tnt_iter it; tnt_iter_reply(&it, tnt);
+	while (tnt_next(&it)) {
+		struct tnt_reply *r = TNT_IREPLY_PTR(&it);
+		uint32_t i = r->sync, str_len = 0;
+		char ex[128] = {0};
+		size_t ex_len = snprintf(ex, 128, "examplestr %d %d", i, i*i);
+		isnt(r->data, NULL, "check that we get answer");
+		if (r->code!=0) {
+			fprintf(stderr,"# tnt_next error %s\n",r->error);
+			break;
+		}
+		if (!r->data) {
+			fprintf(stderr,"# tnt_next returns no data.\n");
+			break;
+		}
+		const char *data = r->data;
+		is  (mp_typeof(*data), MP_ARRAY, "Check array");
+		is  (mp_decode_array(&data), 1, "Check array, again");
+		is  (mp_decode_array(&data), 3, "And again (another)");
+		ok  (mp_typeof(*data) == MP_UINT &&
+		     mp_decode_uint(&data) == i &&
+		     mp_typeof(*data) == MP_UINT &&
+		     mp_decode_uint(&data) == i + 10 &&
+		     mp_typeof(*data) == MP_STR &&
+		     strncmp(mp_decode_str(&data, &str_len), ex, ex_len) == 0,
+		     "Check fields");
+	}
+
+	tnt_stream_reqid(tnt, 0);
+
+	for (int i = 0; i < 5; ++i) {
+		char ex[128] = {0};
+		size_t ex_len = snprintf(ex, 128, "anotherexamplestr %d %d", i, i*i);
+
+		struct tnt_stream *val = tnt_object(NULL);
+		tnt_object_format(val, "[%d%d%.*s]", i, i + 5, ex_len, ex);
+
+		struct tnt_request *req = tnt_request_replace(NULL);
+		isnt(req, NULL, "Check request creation");
+		is  (req->hdr.type, TNT_OP_REPLACE, "Check that we inited replace");
+		is  (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+		is  (tnt_request_set_tuple(req, val), 0, "Set tuple");
+		isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+
+		tnt_request_free(req);
+		tnt_stream_free(val);
+	}
+
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+	tnt_iter_reply(&it, tnt);
+	while (tnt_next(&it)) {
+		struct tnt_reply *r = TNT_IREPLY_PTR(&it);
+		uint32_t i = r->sync, str_len = 0;
+		char ex[128] = {0};
+		size_t ex_len = 0;
+		ex_len = snprintf(ex, 128, "anotherexamplestr %d %d", i, i*i);
+		isnt(r->data, NULL, "check that we get answer");
+		const char *data = r->data;
+		if (r->code!=0) {
+			fprintf(stderr,"# tnt_next error %s\n",r->error);
+			break;
+		}
+		if (!r->data) {
+			fprintf(stderr,"# tnt_next returns no data.\n");
+			break;
+		}
+		is  (mp_typeof(*data), MP_ARRAY, "Check array");
+		is  (mp_decode_array(&data), 1, "Check array, again");
+		is  (mp_decode_array(&data), 3, "And again (another)");
+		ok  (mp_typeof(*data) == MP_UINT &&
+		     mp_decode_uint(&data) == i &&
+		     mp_typeof(*data) == MP_UINT &&
+		     mp_decode_uint(&data) == i + 5 &&
+		     mp_typeof(*data) == MP_STR &&
+		     strncmp(mp_decode_str(&data, &str_len), ex, ex_len) == 0,
+		     "Check fields");
+	}
+
+	struct tnt_stream *key = NULL; key = tnt_object(NULL);
+	isnt(key, NULL, "Check object creation");
+	is  (tnt_object_add_array(key, 0), 1, "Create key");
+	struct tnt_request *req = tnt_request_select(NULL);
+	is (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+	tnt_request_set_key(req, key);
+	tnt_request_compile(tnt, req);
+
+	tnt_flush(tnt);
+
+	struct tnt_reply reply; tnt_reply_init(&reply);
+	tnt->read_reply(tnt, &reply);
+	const char *data = reply.data;
+
+	is  (mp_typeof(*data), MP_ARRAY, "Check array");
+	is  (mp_decode_array(&data), 10, "Check array, again");
+
+	uint32_t arrsz = 10;
+	uint32_t str_len = 0;
+
+	while (arrsz-- > 0) {
+		is  (mp_decode_array(&data), 3, "And again (another)");
+		is  (mp_typeof(*data), MP_UINT, "check int");
+		uint32_t sz = mp_decode_uint(&data);
+		is  (mp_typeof(*data), MP_UINT, "check int");
+		uint32_t sz_z = sz + 10; if (sz < 5) sz_z -= 5;
+		is  (mp_decode_uint(&data), sz_z, "check int val");
+		char ex[128] = {0};
+		size_t ex_len = 0;
+		if (sz < 5)
+			ex_len = snprintf(ex, 128, "anotherexamplestr %d %d",
+					  sz, sz*sz);
+		else
+			ex_len = snprintf(ex, 128, "examplestr %d %d", sz, sz*sz);
+		ok  (mp_typeof(*data) == MP_STR &&
+		     strncmp(mp_decode_str(&data, &str_len), ex, ex_len) == 0,
+		     "Check str");
+	}
+
+	tnt_request_free(req);
+	tnt_stream_free(key);
+	tnt_reply_free(&reply);
+
+	tnt_stream_reqid(tnt, 0);
+
+	for (int i = 0; i < 10; ++i) {
+		struct tnt_stream *key = tnt_object(NULL);
+		tnt_object_format(key, "[%d]", i);
+
+		struct tnt_request *req = tnt_request_delete(NULL);
+		isnt(req, NULL, "Check request creation");
+		is  (req->hdr.type, TNT_OP_DELETE, "Check that we inited delete");
+		is  (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+		is  (tnt_request_set_key(req, key), 0, "Set key");
+		isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+
+		tnt_request_free(req);
+		tnt_stream_free(key);
+	}
+
+	isnt(tnt_flush(tnt), -1, "Send package to server");
+	
+	int j=0;
+	tnt_iter_reply(&it, tnt);
+	while (tnt_next(&it)) {
+		struct tnt_reply *r = TNT_IREPLY_PTR(&it);
+		uint32_t i = r->sync, str_len = 0;
+		char ex[128] = {0};
+		size_t ex_len = 0;
+		if (i < 5)
+			ex_len = snprintf(ex, 128, "anotherexamplestr %d %d",
+					  i, i*i);
+		else
+			ex_len = snprintf(ex, 128, "examplestr %d %d", i, i*i);
+		isnt(r->data, NULL, "check that we get answer");
+		const char *data = r->data;
+		if (r->code!=0) {
+			fprintf(stderr,"# tnt_next (%d) error %s\n",j,r->error);
+			break;
+		}
+		if (!r->data) {
+			fprintf(stderr,"# tnt_next return no data.\n");
+			break;
+		}
+		j++;
+		is  (mp_typeof(*data), MP_ARRAY, "Check array");
+		is  (mp_decode_array(&data), 1, "Check array, again");
+		is  (mp_decode_array(&data), 3, "And again (another)");
+
+		is  (mp_typeof(*data), MP_UINT, "Check int");
+		uint32_t v=mp_decode_uint(&data);
+		is  (v,i,"Check int val");
+
+		uint32_t sz_z = v + 10; if (v < 5) sz_z -= 5;
+
+		is  (mp_typeof(*data), MP_UINT, "Check int");
+		v=mp_decode_uint(&data);
+		is  (v,sz_z,"Check int val +5");
+
+		ok  (mp_typeof(*data) == MP_STR &&
+		     strncmp(mp_decode_str(&data, &str_len), ex, ex_len) == 0,
+		     "Check str");
+	}
+
+	tnt_stream_free(tnt);
+
+	footer();
+	return check_plan();
+}
+
+static inline int
+test_msgpack_array_iter() {
+	plan(32);
+	header();
+
+	/* simple array and array of arrays */
+	struct tnt_stream *sa, *aofa;
+	sa = tnt_object(NULL);
+	isnt(tnt_object_format(sa, "[%s%d%s%d]", "hello", 11, "world", 12),
+			       -1, "Pack with format sa");
+	size_t sz = 0;
+	struct tnt_iter *it = tnt_iter_array_object(NULL, sa);
+	isnt(it, NULL, "check allocation");
+	while (tnt_next(it)) {
+		uint32_t str_len = 0;
+		const char *pos = TNT_IARRAY_ELEM(it);
+		switch (sz) {
+		case (0):
+			is  (mp_typeof(*pos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&pos, &str_len), "hello", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+			break;
+		case (1):
+			is  (mp_typeof(*pos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&pos), 11, "check int");
+			break;
+		case (2):
+			is  (mp_typeof(*pos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&pos, &str_len), "world", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+			break;
+		case (3):
+			is  (mp_typeof(*pos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&pos), 12, "check int");
+			break;
+		default:
+			fail("unreacheable section");
+		}
+		sz += 1;
+	}
+	tnt_iter_free(it);
+	tnt_stream_free(sa);
+
+	aofa = tnt_object(NULL);
+	isnt(tnt_object_format(aofa, "[[%d%d] [%d%d] [%d%d]]", 1, 2, 3,
+			       4, 5, 6), -1, "Pack with format aofa");
+	it = tnt_iter_array_object(NULL, aofa);
+	isnt(it, NULL, "check allocation");
+	sz = 1;
+	while (tnt_next(it)) {
+		const char *pos = TNT_IARRAY_ELEM(it);
+		size_t elen = TNT_IARRAY_ELEM_END(it) - pos;
+		is  (mp_typeof(*pos), MP_ARRAY, "check for array");
+		struct tnt_iter *wit = tnt_iter_array(NULL, pos, elen);
+		isnt(wit, NULL, "check allocation");
+		while (tnt_next(wit)) {
+			const char *wpos = TNT_IARRAY_ELEM(wit);
+			is  (mp_typeof(*wpos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&wpos), sz, "check int");
+			sz += 1;
+		}
+		tnt_iter_free(wit);
+	}
+	tnt_iter_free(it);
+	tnt_stream_free(aofa);
+
+	footer();
+	return check_plan();
+}
+
+static inline int
+test_msgpack_mapa_iter() {
+	plan(34);
+	header();
+
+	/* simple map and map with arrays */
+	struct tnt_stream *sm, *mofa;
+	isnt(sm = tnt_object(NULL), NULL, "check allocation");
+	isnt(tnt_object_format(sm, "{%s%d%s%d}", "hello", 11, "world", 12),
+			       -1, "Pack with format s,");
+
+	size_t sz = 0;
+	struct tnt_iter *it = tnt_iter_map_object(NULL, sm);
+	isnt(it, NULL, "check allocation");
+	while (tnt_next(it)) {
+		uint32_t str_len = 0;
+		const char *kpos = TNT_IMAP_KEY(it);
+		const char *vpos = TNT_IMAP_VAL(it);
+		switch (sz) {
+		case (0):
+			is  (mp_typeof(*kpos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&kpos, &str_len), "hello", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+			is  (mp_typeof(*vpos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&vpos), 11, "check int");
+			break;
+		case (1):
+			is  (mp_typeof(*kpos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&kpos, &str_len), "world", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+			is  (mp_typeof(*vpos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&vpos), 12, "check int");
+			break;
+		default:
+			fail("unreacheable section");
+		}
+		sz += 1;
+	}
+	tnt_iter_free(it);
+	tnt_stream_free(sm);
+
+	isnt(mofa = tnt_object(NULL), NULL, "check allocation");
+	isnt(tnt_object_format(mofa, "{%s [%d%d] %s [%d%d]}",
+			       "hello", 0, 1,
+			       "world", 2, 3), -1, "Pack with format aofa");
+	it = tnt_iter_map_object(NULL, mofa);
+	isnt(it, NULL, "check allocation");
+	sz = 0;
+	while (tnt_next(it)) {
+		const char *kpos = TNT_IMAP_KEY(it);
+		uint32_t str_len = 0;
+		if (sz == 0) {
+			is  (mp_typeof(*kpos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&kpos, &str_len), "hello", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+		} else {
+			is  (mp_typeof(*kpos), MP_STR, "check str type");
+			is  (strncmp(mp_decode_str(&kpos, &str_len), "world", 5),
+			     0, "check str value");
+			is  (str_len, 5, "check string length");
+		}
+		const char *vpos = TNT_IMAP_VAL(it);
+		size_t vlen = TNT_IMAP_VAL_END(it) - vpos;
+		is  (mp_typeof(*vpos), MP_ARRAY, "check for array");
+		struct tnt_iter *wit = tnt_iter_array(NULL, vpos, vlen);
+		isnt(wit, NULL, "check allocation");
+		while (tnt_next(wit)) {
+			const char *wpos = TNT_IARRAY_ELEM(wit);
+			is  (mp_typeof(*wpos), MP_UINT, "check int type");
+			is  (mp_decode_uint(&wpos), sz, "check int");
+			sz += 1;
+		}
+		tnt_iter_free(wit);
+	}
+	tnt_iter_free(it);
+	tnt_stream_free(mofa);
+
+	footer();
+	return check_plan();
+}
+
+/*
+static inline int
+test_msgpack_mapa_iter() {
+	plan(5);
+	header();
+
+	struct tnt_stream *tnt = NULL; tnt = tnt_net(NULL);
+	isnt(tnt, NULL, "Check connection creation");
+	isnt(tnt_set(tnt, TNT_OPT_URI, uri), -1, "Setting URI");
+	isnt(tnt_connect(tnt), -1, "Connecting");
+	tnt_stream_reqid(tnt, 0);
+
+	struct tnt_request *req = tnt_request_replace(NULL);
+	isnt(req, NULL, "Check request creation");
+	is  (req->hdr.type, TNT_OP_REPLACE, "Check that we inited replace");
+	is  (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+	is  (tnt_request_set_tuple_format(req, "[%d%s%d%s]", 1, "hello", 2, "world"), 0, "Set tuple");
+	isnt(tnt_request_compile(tnt, req), -1, "Compile request");
+	tnt_request_free(req);
+
+	struct tnt_request *req = tnt_request_upsert(NULL);
+	isnt(req, NULL, "Check request creation");
+	is  (req->hdr.type, TNT_OP_UPDATE, "CHeck that we inited upsert");
+	is  (tnt_request_set_sspacez(tnt, req, "test"), 0, "Set space");
+	is  (tnt_request_set_tuple(req, val), 0, ""
+	tnt_stream_free(val);
+	tnt_stream_free(val);
+
+	footer();
+	return check_plan();
+}
+*/
+int main() {
+	plan(9);
+
+	char uri[128] = {0};
+	snprintf(uri, 128, "%s%s%s", "test:test@", "localhost:", getenv("PRIMARY_PORT"));
+
+	test_connect_tcp();
+	test_object();
+	test_request_01(uri);
+	test_request_02(uri);
+	test_request_03(uri);
+	test_request_04(uri);
+	test_request_05(uri);
+	test_msgpack_array_iter();
+	test_msgpack_mapa_iter();
+
+	return check_plan();
+}
+