| ed9b544e |
1 | -module(erldis_tests). |
| 2 | |
| 3 | -include_lib("eunit/include/eunit.hrl"). |
| 4 | -include("erldis.hrl"). |
| 5 | |
| 6 | quit_test() -> |
| 7 | {ok, Client} = erldis:connect("localhost"), |
| 8 | ok = erldis:quit(Client), |
| 9 | false = is_process_alive(Client). |
| 10 | |
| 11 | utils_test() -> |
| 12 | ?assertEqual(client:str(1), "1"), |
| 13 | ?assertEqual(client:str(atom), "atom"), |
| 14 | ?assertEqual(client:format([[1, 2, 3]]), "1 2 3"), |
| 15 | ?assertEqual(client:format([[1,2,3], [4,5,6]]), "1 2 3\r\n4 5 6"). |
| 16 | |
| 17 | pipeline_test() -> |
| 18 | {ok, Client} = erldis:connect("localhost"), |
| 19 | erldis:flushall(Client), |
| 20 | erldis:get(Client, "pippo"), |
| 21 | erldis:set(Client, "hello", "kitty!"), |
| 22 | erldis:setnx(Client, "foo", "bar"), |
| 23 | erldis:setnx(Client, "foo", "bar"), |
| 24 | [ok, nil, ok, true, false] = erldis:get_all_results(Client), |
| 25 | |
| 26 | erldis:exists(Client, "hello"), |
| 27 | erldis:exists(Client, "foo"), |
| 28 | erldis:get(Client, "foo"), |
| 29 | erldis:del(Client, "hello"), |
| 30 | erldis:del(Client, "foo"), |
| 31 | erldis:exists(Client, "hello"), |
| 32 | erldis:exists(Client, "foo"), |
| 33 | [true, true, "bar", true, true, false, false] = erldis:get_all_results(Client), |
| 34 | |
| 35 | erldis:set(Client, "pippo", "pluto"), |
| 36 | erldis:sadd(Client, "pippo", "paperino"), |
| 37 | % foo doesn't exist, the result will be nil |
| 38 | erldis:lrange(Client, "foo", 1, 2), |
| 39 | erldis:lrange(Client, "pippo", 1, 2), |
| 40 | [ok, {error, wrong_type}, nil, |
| 41 | {error, "Operation against a key holding the wrong kind of value"} |
| 42 | ] = erldis:get_all_results(Client), |
| 43 | erldis:del(Client, "pippo"), |
| 44 | [true] = erldis:get_all_results(Client), |
| 45 | |
| 46 | erldis:rpush(Client, "a_list", "1"), |
| 47 | erldis:rpush(Client, "a_list", "2"), |
| 48 | erldis:rpush(Client, "a_list", "3"), |
| 49 | erldis:rpush(Client, "a_list", "1"), |
| 50 | erldis:lrem(Client, "a_list", 1, "1"), |
| 51 | erldis:lrange(Client, "a_list", 0, 2), |
| 52 | [ok, ok, ok, ok, 1, ["2", "3", "1"]] = erldis:get_all_results(Client), |
| 53 | |
| 54 | erldis:sort(Client, "a_list"), |
| 55 | erldis:sort(Client, "a_list", "DESC"), |
| 56 | erldis:lrange(Client, "a_list", 0, 2), |
| 57 | erldis:sort(Client, "a_list", "LIMIT 0 2 ASC"), |
| 58 | [["1", "2", "3"], ["3", "2", "1"], ["2", "3", "1"], |
| 59 | ["1", "2"]] = erldis:get_all_results(Client), |
| 60 | |
| 61 | ok = erldis:quit(Client). |
| 62 | |
| 63 | |
| 64 | |
| 65 | % inline_tests(Client) -> |
| 66 | % [?_assertMatch(ok, erldis:set(Client, "hello", "kitty!")), |
| 67 | % ?_assertMatch(false, erldis:setnx(Client, "hello", "kitty!")), |
| 68 | % ?_assertMatch(true, erldis:exists(Client, "hello")), |
| 69 | % ?_assertMatch(true, erldis:del(Client, "hello")), |
| 70 | % ?_assertMatch(false, erldis:exists(Client, "hello")), |
| 71 | % |
| 72 | % ?_assertMatch(true, erldis:setnx(Client, "hello", "kitty!")), |
| 73 | % ?_assertMatch(true, erldis:exists(Client, "hello")), |
| 74 | % ?_assertMatch("kitty!", erldis:get(Client, "hello")), |
| 75 | % ?_assertMatch(true, erldis:del(Client, "hello")), |
| 76 | % |
| 77 | % |
| 78 | % ?_assertMatch(1, erldis:incr(Client, "pippo")) |
| 79 | % ,?_assertMatch(2, erldis:incr(Client, "pippo")) |
| 80 | % ,?_assertMatch(1, erldis:decr(Client, "pippo")) |
| 81 | % ,?_assertMatch(0, erldis:decr(Client, "pippo")) |
| 82 | % ,?_assertMatch(-1, erldis:decr(Client, "pippo")) |
| 83 | % |
| 84 | % ,?_assertMatch(6, erldis:incrby(Client, "pippo", 7)) |
| 85 | % ,?_assertMatch(2, erldis:decrby(Client, "pippo", 4)) |
| 86 | % ,?_assertMatch(-2, erldis:decrby(Client, "pippo", 4)) |
| 87 | % ,?_assertMatch(true, erldis:del(Client, "pippo")) |
| 88 | % ]. |
projects / redis.git / blame