#include "stdafx.h"

static bool __check_addr = false;
static acl::string __keypre("test_key");

static bool test_set(acl::redis_string& redis, int n)
{
	acl::string key;
	acl::string value;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("value_%s", key.c_str());

		redis.clear();
		redis.set_check_addr(__check_addr);
		if (redis.set(key.c_str(), value.c_str(), 100, SETFLAG_EX | SETFLAG_NX) == false)
		{
			printf("set key: %s error: %s\r\n",
				key.c_str(), redis.result_error());
			return false;
		}
		else if (i < 10)
			printf("set key: %s ok\r\n", key.c_str());
	}

	return true;
}

static bool test_setex(acl::redis_string& redis, int n, int ttl)
{
	acl::string key, value;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("value_%s", key.c_str());

		redis.clear();
		if (redis.setex(key.c_str(), value.c_str(), ttl) == false)
		{
			printf("setex key: %s error: %s\r\n",
				key.c_str(), redis.result_error());
			return false;
		}
		else if (i < 10)
			printf("setex key: %s, ttl: %d\r\n", key.c_str(), ttl);
	}

	return true;
}

static bool test_setnx(acl::redis_string& redis, int n)
{
	acl::string key;
	acl::string value;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("_setnx_%s", key.c_str());

		redis.clear();
		int ret = redis.setnx(key.c_str(), value.c_str());
		if (ret < 0)
		{
			printf("setnx key: %s error: %s\r\n",
				key.c_str(), redis.result_error());
			return false;
		}
		printf("%s: ret: %d, key: %s\r\n", __FUNCTION__, ret,
			key.c_str());
	}

	return true;
}

static bool test_append(acl::redis_string& redis, int n)
{
	acl::string key;
	acl::string value;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("_append_%d", i);

		redis.clear();
		if (redis.append(key.c_str(), value.c_str()) < 0)
		{
			printf("append key: %s\r\n", key.c_str());
			return false;
		}
	}

	return true;
}

static bool test_get(acl::redis_string& redis, int n)
{
	acl::string key;
	acl::string value;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		//key.format("key1_%s_%d", __keypre.c_str(), i);
		value.clear();

		redis.clear();
		if (redis.get(key.c_str(), value) == false)
		{
			printf("get key: %s\r\n", key.c_str());
			return false;
		}
		else if (i < 10)
			printf("key: %s, value: %s, len: %d\r\n",
				key.c_str(), value.c_str(),
				(int) value.length());
	}

	return true;
}

static bool test_getset(acl::redis_string& redis, int n)
{
	acl::string key;
	acl::string value;
	acl::string result;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("getset_%s", key.c_str());
		result.clear();

		redis.clear();
		if (redis.getset(key.c_str(), value.c_str(), result) == false)
		{
			printf("getset error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("getset: key: %s, old value: %s\r\n",
				key.c_str(), result.c_str());
	}

	return true;
}

static bool test_strlen(acl::redis_string& redis, int n)
{
	acl::string key;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);

		redis.clear();
		int ret = redis.get_strlen(key.c_str());
		if (ret < 0)
		{
			printf("str_len error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("key: %s's value's length: %d\r\n",
				key.c_str(), ret);
	}

	return true;
}

static bool test_mset(acl::redis_string& redis, int n)
{
	acl::string key1, key2, key3;
	acl::string val1, val2, val3;
	std::map<acl::string, acl::string> objs;

	for (int i = 0; i < n; i++)
	{
		key1.format("key1_%s_%d", __keypre.c_str(), i);
		key2.format("key2_%s_%d", __keypre.c_str(), i);
		key3.format("key3_%s_%d", __keypre.c_str(), i);

		val1.format("val1_%s", key1.c_str());
		val2.format("val2_%s", key2.c_str());
		val3.format("val3_%s", key3.c_str());

		objs[key1] = val1;
		objs[key2] = val2;
		objs[key3] = val3;

		redis.clear();
		if (redis.mset(objs) == false)
		{
			printf("mset error: %s\r\n", redis.result_error());
			return false;
		}
		else if (i < 10)
		{
			printf("mset ok, %s=%s, %s=%s, %s=%s\r\n",
				key1.c_str(), val1.c_str(),
				key2.c_str(), val2.c_str(),
				key3.c_str(), val3.c_str());
		}
		objs.clear();
	}

	return true;
}

static bool test_mget(acl::redis_string& redis, int n)
{
	acl::string key1, key2, key3;
	std::vector<acl::string> result;
	const char* keys[3];

	for (int i = 0; i < n; i++)
	{
		key1.format("key1_%s_%d", __keypre.c_str(), i);
		key2.format("key2_%s_%d", __keypre.c_str(), i);
		key3.format("key3_%s_%d", __keypre.c_str(), i);
		keys[0] = key1.c_str();
		keys[1] = key2.c_str();
		keys[2] = key3.c_str();

		result.clear();
		redis.clear();
		if (redis.mget(keys, 3, &result) == false)
		{
			printf("mset error: %s\r\n", redis.result_error());
			return false;
		}
		else if (i >= 10)
			continue;

		size_t size = redis.result_size();
		printf("size: %lu\r\n", (unsigned long) size);

		size_t j;
		for (j = 0; j < size; j++)
		{
			const char* val = redis.result_value(j);
			printf("mget ok, %s=%s\r\n",
				keys[j], val ? val : "null");
		}

		std::vector<acl::string>::const_iterator it= result.begin();
		for (j = 0; it != result.end(); ++it, j++)
			printf("mget %s=%s\r\n", keys[j], (*it).c_str());
	}

	return true;
}

static bool test_msetnx(acl::redis_string& redis, int n)
{
	acl::string key1, key2, key3;
	acl::string val1, val2, val3;
	std::map<acl::string, acl::string> objs;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key1.format("key1_%s_%d", __keypre.c_str(), i);
		key2.format("key2_%s_%d", __keypre.c_str(), i);
		key3.format("key3_%s_%d", __keypre.c_str(), i);

		val1.format("val1_%s", key1.c_str());
		val2.format("val2_%s", key2.c_str());
		val3.format("val3_%s", key3.c_str());

		objs[key1] = val1;
		objs[key2] = val2;
		objs[key3] = val3;

		redis.clear();
		ret = redis.msetnx(objs);
		if (ret < 0)
		{
			printf("mset error: %s\r\n", redis.result_error());
			return false;
		}
		else if (i < 10)
		{
			printf("msetnx ret: %d, %s=%s, %s=%s, %s=%s\r\n", ret,
				key1.c_str(), val1.c_str(),
				key2.c_str(), val2.c_str(),
				key3.c_str(), val3.c_str());
		}
		objs.clear();
	}

	return true;
}

static bool test_setrange(acl::redis_string& redis, int n)
{
	acl::string key, value;
	unsigned int off = 5;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.format("range_value_%s", key.c_str());

		redis.clear();
		ret = redis.setrange(key.c_str(), off, value.c_str());
		if (ret < 0)
		{
			printf("setrange error: %s, key: %s, off: %u, value: %s\r\n",
				redis.result_error(), key.c_str(), off, value.c_str());
			return false;
		}
		else if (i < 10)
			printf("setrange ok, key: %s, off: %u, value: %s\r\n",
				key.c_str(), off, value.c_str());
	}

	return true;
}

static bool test_getrange(acl::redis_string& redis, int n)
{
	acl::string key, value;
	int start = 5, end = 10;

	for (int i = 0; i < n; i++)
	{
		key.format("%s_%d", __keypre.c_str(), i);
		value.clear();

		redis.clear();
		if (redis.getrange(key, start, end, value) == false)
		{
			printf("getrange error: %s, key: %s, start: %d, end: %d\r\n",
				redis.result_error(), key.c_str(), start, end);
			return false;
		}
		else if (i >= 10)
			continue;

		printf("getrange ok, key: %s, start: %d, end: %d, value: %s\r\n",
			key.c_str(), start, end, value.c_str());
	}

	return true;
}

static bool test_setbit(acl::redis_string& redis, int n)
{
	acl::string key;
	unsigned off = 5;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.setbit_(key.c_str(), off, 1) == false)
		{
			printf("setbit error: %s, key: %s, off: %u\r\n",
				redis.result_error(), key.c_str(), off);
			return false;
		}
		else if (i >= 10)
			continue;

		printf("setbit ok, key: %s, off: %d\r\n", key.c_str(), off);
	}

	return true;
}

static bool test_getbit(acl::redis_string& redis, int n)
{
	acl::string key;
	unsigned off = 5;
	int bit;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.getbit(key.c_str(), off, bit) == false)
		{
			printf("getbit error: %s, key: %s, off: %u\r\n",
				redis.result_error(), key.c_str(), off);
			return false;
		}
		else if (i >= 10)
			continue;

		printf("getbit ok, key: %s, off: %d, bit: %d\r\n",
			key.c_str(), off, bit);
	}

	return true;
}

static bool test_bitcount(acl::redis_string& redis, int n)
{
	acl::string key;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);

		redis.clear();
		ret = redis.bitcount(key.c_str());
		if (ret < 0)
		{
			printf("bitcount error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("bitcount ok, key: %s, ret: %d\r\n",
				key.c_str(), ret);
	}

	return true;
}

static bool test_bitop_and(acl::redis_string& redis, int n)
{
	const char* keys[3];
	acl::string key, key1, key2, key3;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);
		key1.format("bit_%s_%d", __keypre.c_str(), i % 1);
		key2.format("bit_%s_%d", __keypre.c_str(), i % 2);
		key3.format("bit_%s_%d", __keypre.c_str(), i % 3);
		keys[0] = key1.c_str();
		keys[1] = key2.c_str();
		keys[2] = key3.c_str();

		redis.clear();
		ret = redis.bitop_and(key.c_str(), keys, 3);
		if (ret < 0)
		{
			printf("bitop_and error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("bitop_and ok, key: %s, bits: %u\n",
				key.c_str(), ret);
	}

	return true;
}

static bool test_bitop_or(acl::redis_string& redis, int n)
{
	const char* keys[3];
	acl::string key, key1, key2, key3;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);
		key1.format("bit_%s_%d", __keypre.c_str(), i % 1);
		key2.format("bit_%s_%d", __keypre.c_str(), i % 2);
		key3.format("bit_%s_%d", __keypre.c_str(), i % 3);
		keys[0] = key1.c_str();
		keys[1] = key2.c_str();
		keys[2] = key3.c_str();

		redis.clear();
		ret = redis.bitop_or(key.c_str(), keys, 3);
		if (ret < 0)
		{
			printf("bitop_or error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("bitop_or ok, key: %s, bits: %u\n",
				key.c_str(), ret);
	}

	return true;
}

static bool test_bitop_xor(acl::redis_string& redis, int n)
{
	const char* keys[3];
	acl::string key, key1, key2, key3;
	int   ret;

	for (int i = 0; i < n; i++)
	{
		key.format("bit_%s_%d", __keypre.c_str(), i);
		key1.format("bit_%s_%d", __keypre.c_str(), i % 1);
		key2.format("bit_%s_%d", __keypre.c_str(), i % 2);
		key3.format("bit_%s_%d", __keypre.c_str(), i % 3);
		keys[0] = key1.c_str();
		keys[1] = key2.c_str();
		keys[2] = key3.c_str();

		redis.clear();
		ret = redis.bitop_xor(key.c_str(), keys, 3);
		if (ret < 0)
		{
			printf("bitop_xor error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("bitop_xor ok, key: %s, bits: %u\n",
				key.c_str(), ret);
	}


	return true;
}

static bool test_incr(acl::redis_string& redis, int n)
{
	acl::string key;
	long long int result;

	for (int i = 0; i < n; i++)
	{
		key.format("incr_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.incr(key.c_str(), &result) == false)
		{
			printf("incr error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("incr ok, key: %s, result: %lld\r\n",
				key.c_str(), result);
	}

	return true;
}

static bool test_incrby(acl::redis_string& redis, int n)
{
	acl::string key;
	long long int result;

	for (int i = 0; i < n; i++)
	{
		key.format("incr_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.incrby(key.c_str(), 10, &result) == false)
		{
			printf("incrby error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("incrby ok, key: %s, result: %lld\r\n",
				key.c_str(), result);
	}

	return true;
}

static bool test_incrbyfloat(acl::redis_string& redis, int n)
{
	acl::string key;
	double result;

	for (int i = 0; i < n; i++)
	{
		key.format("incrbyfloat_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.incrbyfloat(key.c_str(), 8.8, &result) == false)
		{
			printf("incrbyfloat error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("incrbyfloat ok, key: %s, result: %.2f\r\n",
				key.c_str(), result);
	}

	return true;
}

static bool test_decr(acl::redis_string& redis, int n)
{
	acl::string key;
	long long int result;

	for (int i = 0; i < n; i++)
	{
		key.format("incr_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.decr(key.c_str(), &result) == false)
		{
			printf("decr error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("decr ok, key: %s, result: %lld\r\n",
				key.c_str(), result);
	}

	return true;
}

static bool test_decrby(acl::redis_string& redis, int n)
{
	acl::string key;
	long long int result;

	for (int i = 0; i < n; i++)
	{
		key.format("incr_%s_%d", __keypre.c_str(), i);

		redis.clear();
		if (redis.decrby(key.c_str(), 10, &result) == false)
		{
			printf("decrby error: %s, key: %s\r\n",
				redis.result_error(), key.c_str());
			return false;
		}
		else if (i < 10)
			printf("decrby ok, key: %s, result: %lld\r\n",
				key.c_str(), result);
	}

	return true;
}

static void usage(const char* procname)
{
	printf("usage: %s -h[help]\r\n"
		"-s redis_addr[127.0.0.1:6379]\r\n"
		"-n count[default: 1]\r\n"
		"-C connect_timeout[default: 10]\r\n"
		"-I rw_timeout[default: 10]\r\n"
		"-t object timeout[default: 10]\r\n"
		"-c [use cluster mode]\r\n"
		"-M [if check connection addr first]\r\n"
		"-a cmd[set|setex|setnx|append|get|getset|strlen|mset|mget|msetnx|setrange|getrange|setbit|getbit|bitcount|bitop_and|bitop_or|bitop_xor|incr|incrby|incrbyfloat|decr|decrby]\r\n",
		procname);
}

int main(int argc, char* argv[])
{
	int  ch, n = 1, conn_timeout = 10, rw_timeout = 10, ttl = 10;
	acl::string addr("127.0.0.1:6379"), cmd;
	bool cluster_mode = false;

	while ((ch = getopt(argc, argv, "hs:n:C:I:a:t:cM")) > 0)
	{
		switch (ch)
		{
		case 'h':
			usage(argv[0]);
			return 0;
		case 's':
			addr = optarg;
			break;
		case 'n':
			n = atoi(optarg);
			break;
		case 'C':
			conn_timeout = atoi(optarg);
			break;
		case 'I':
			rw_timeout = atoi(optarg);
			break;
		case 'a':
			cmd = optarg;
			break;
		case 't':
			ttl = atoi(optarg);
			break;
		case 'c':
			cluster_mode = true;
			break;
		case 'M':
			__check_addr = true;
			break;
		default:
			break;
		}
	}

	acl::acl_cpp_init();
	acl::log::stdout_open(true);

	acl::redis_client_cluster cluster;
	cluster.set(addr.c_str(), 100, conn_timeout, rw_timeout);

	acl::redis_client client(addr.c_str(), conn_timeout, rw_timeout);

	acl::redis_string redis;

	if (cluster_mode)
		redis.set_cluster(&cluster);
	else
		redis.set_client(&client);

	bool ret;

	if (cmd == "set")
		ret = test_set(redis, n);
	else if (cmd == "setex")
		ret = test_setex(redis, n, ttl);
	else if (cmd == "setnx")
		ret = test_setnx(redis, n);
	else if (cmd == "append")
		ret = test_append(redis, n);
	else if (cmd == "get")
		ret = test_get(redis, n);
	else if (cmd == "getset")
		ret = test_getset(redis, n);
	else if (cmd == "strlen")
		ret = test_strlen(redis, n);
	else if (cmd == "mset")
		ret = test_mset(redis, n);
	else if (cmd == "mget")
		ret = test_mget(redis, n);
	else if (cmd == "msetnx")
		ret = test_msetnx(redis, n);
	else if (cmd == "setrange")
		ret = test_setrange(redis, n);
	else if (cmd == "getrange")
		ret = test_getrange(redis, n);
	else if (cmd == "setbit")
		ret = test_setbit(redis, n);
	else if (cmd == "getbit")
		ret = test_getbit(redis, n);
	else if (cmd == "bitcount")
		ret = test_bitcount(redis, n);
	else if (cmd == "bitop_and")
		ret = test_bitop_and(redis, n);
	else if (cmd == "bitop_or")
		ret = test_bitop_or(redis, n);
	else if (cmd == "bitop_xor")
		ret = test_bitop_xor(redis, n);
	else if (cmd == "incr")
		ret = test_incr(redis, n);
	else if (cmd == "incrby")
		ret = test_incrby(redis, n);
	else if (cmd == "incrbyfloat")
		ret = test_incrbyfloat(redis, n);
	else if (cmd == "decr")
		ret = test_decr(redis, n);
	else if (cmd == "decrby")
		ret = test_decrby(redis, n);
	else if (cmd == "all")
	{
		ret = test_set(redis, n)
			&& test_setex(redis, n, ttl)
			&& test_setnx(redis, n)
			&& test_append(redis, n)
			&& test_get(redis, n)
			&& test_getset(redis, n)
			&& test_strlen(redis, n)
			&& test_mset(redis, n)
			&& test_mget(redis, n)
			&& test_msetnx(redis, n)
			&& test_setrange(redis, n)
			&& test_getrange(redis, n)
			&& test_setbit(redis, n)
			&& test_getbit(redis, n)
			&& test_bitcount(redis, n)
			&& test_bitop_and(redis, n)
			&& test_bitop_or(redis, n)
			&& test_bitop_xor(redis, n)
			&& test_incr(redis, n)
			&& test_incrby(redis, n)
			&& test_incrbyfloat(redis, n)
			&& test_decr(redis, n)
			&& test_decrby(redis, n);
	}
	else
	{
		ret = false;
		printf("unknown cmd: %s\r\n", cmd.c_str());
	}

	if (ret == true)
		printf("test OK!\r\n");
	else
		printf("test failed!\r\n");

#ifdef WIN32
	printf("enter any key to exit\r\n");
	getchar();
#endif
	return 0;
}