From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Thu, 14 Aug 2014 19:08:24 +0000 (-0400)
Subject: Extend dictionary pop test.
X-Git-Tag: 1.0.0~11
X-Git-Url: https://git.xandkar.net/?p=hope.git;a=commitdiff_plain;h=30a42d775b289fb111e5d80c7b35cfc9ef875a6b;hp=70cf8e86a06d8721fcc8b658bb2be1f7b401326f

Extend dictionary pop test.
---

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).