client-libraries/erlang/test/erldis_tests.erl

   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 %     ].