X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=test%2Fhope_dictionary_SUITE.erl;fp=test%2Fhope_dictionary_SUITE.erl;h=04e40d315ef1041688283bdba53b2d8e3f819c64;hp=4f355ca0bfc0f78b74e87f38c3dee0ffa26776b9;hb=e0fbc1da088f6d4a87c06c80ad40e2d40339b12a;hpb=352ddeb475ab48aabfab59558827e0e8d927551f

diff --git a/test/hope_dictionary_SUITE.erl b/test/hope_dictionary_SUITE.erl
index 4f355ca..04e40d3 100644
--- a/test/hope_dictionary_SUITE.erl
+++ b/test/hope_dictionary_SUITE.erl
@@ -63,7 +63,9 @@ t_get(Cfg) ->
     {some, V1} = DictModule:get(D, K1),
     V1         = DictModule:get(D, K1, V2),
     none       = DictModule:get(D, K2),
-    V2         = DictModule:get(D, K2, V2).
+    V2         = DictModule:get(D, K2, V2),
+    default    = DictModule:get(D, K1, default, fun (X) -> X =:= foo end),
+    V1         = DictModule:get(D, K1, default, fun (X) -> X =:= V1 end).
 
 t_set_new(Cfg) ->
     {some, DictModule} = hope_kv_list:get(Cfg, ?DICT_MODULE),