X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=test%2Fhope_kv_list_SUITE.erl;h=97f0ee6bcc0bf6fc31733e585490b9dec44120f3;hp=8abb888a8542b1ae4e330312a36a3d60c347920f;hb=30a42d775b289fb111e5d80c7b35cfc9ef875a6b;hpb=70cf8e86a06d8721fcc8b658bb2be1f7b401326f

diff --git a/test/hope_kv_list_SUITE.erl b/test/hope_kv_list_SUITE.erl
index 8abb888..97f0ee6 100644
--- a/test/hope_kv_list_SUITE.erl
+++ b/test/hope_kv_list_SUITE.erl
@@ -61,5 +61,10 @@ t_set_existing(_Config) ->
 t_pop(_Config) ->
     KVList = [{a, 1}, {b, 2}, {c, 3}],
     Dict1 = hope_kv_list:of_kv_list(KVList),
-    {{some, 1},  Dict2} = hope_kv_list:pop(Dict1, a),
-    {none     , _Dict3} = hope_kv_list:pop(Dict2, a).
+    {{some, 1} , Dict2} = hope_kv_list:pop(Dict1, a),
+    {none      , Dict3} = hope_kv_list:pop(Dict2, a),
+    {{some, 2} , Dict4} = hope_kv_list:pop(Dict3, b),
+    {none      , Dict5} = hope_kv_list:pop(Dict4, b),
+    {{some, 3} , Dict6} = hope_kv_list:pop(Dict5, c),
+    {none      , Dict7} = hope_kv_list:pop(Dict6, c),
+    [] = hope_kv_list:to_kv_list(Dict7).