-export(
[ t_set_new/1
, t_set_existing/1
+ , t_get/1
, t_pop/1
, t_fold/1
+ , t_dictionary_specs/1
]).
Tests =
[ t_set_new
, t_set_existing
+ , t_get
, t_pop
, t_fold
+ , t_dictionary_specs
],
- Properties = [],
+ Properties = [parallel],
[{?DICT_MODULE_KV_LIST, Properties, Tests}].
init_per_group(DictModule, Cfg) ->
%% Test cases
%% =============================================================================
+t_get(Cfg) ->
+ {some, DictModule} = hope_kv_list:get(Cfg, ?DICT_MODULE),
+ K1 = k1,
+ K2 = k2,
+ V1 = v1,
+ V2 = v2,
+ D = DictModule:set(DictModule:empty(), K1, V1),
+ {some, V1} = DictModule:get(D, K1),
+ V1 = DictModule:get(D, K1, V2),
+ none = DictModule:get(D, K2),
+ V2 = DictModule:get(D, K2, V2).
+
t_set_new(Cfg) ->
{some, DictModule} = hope_kv_list:get(Cfg, ?DICT_MODULE),
Key = key,
KVList = [{a, 1}, {a, 5}, {b, 3}, {c, 4}, {c, 4}],
Dict = DictModule:of_kv_list(KVList),
17 = DictModule:fold(Dict, fun (_K, V, Acc) -> V + Acc end, 0).
+
+t_dictionary_specs(Cfg) ->
+ {some, DictModule} = hope_kv_list:get(Cfg, ?DICT_MODULE),
+ [] = proper:check_specs(DictModule).