From 5c8eea3f0e960d74b1af12fd09b9124e9497aa2a Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Fri, 6 Oct 2017 15:07:36 +0100
Subject: [PATCH] Extend foldheads_bybucket test

Now explicitly checking key ranges
---
 src/leveled_bookie.erl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/src/leveled_bookie.erl b/src/leveled_bookie.erl
index 8886a81..53f931e 100644
--- a/src/leveled_bookie.erl
+++ b/src/leveled_bookie.erl
@@ -1933,6 +1933,33 @@ foldobjects_vs_foldheads_bybucket_testto() ->
                     lists:usort(KeyHashList2B) == lists:usort(KeyHashList2C)),
     ?assertMatch(true,
                     lists:usort(KeyHashList2B) == lists:usort(KeyHashList2D)),
+    
+    {async, HTFolder2E} =
+        book_returnfolder(Bookie1,
+                            {foldheads_bybucket,
+                                ?STD_TAG,
+                                "BucketB",
+                                {"Key", "Key4zzzz"},
+                                FoldHeadsFun,
+                                false,
+                                false}),
+    KeyHashList2E = HTFolder2E(),
+    {async, HTFolder2F} =
+        book_returnfolder(Bookie1,
+                            {foldheads_bybucket,
+                                ?STD_TAG,
+                                "BucketB",
+                                {"Key5", <<"all">>},
+                                FoldHeadsFun,
+                                false,
+                                false}),
+    KeyHashList2F = HTFolder2F(),
+
+    ?assertMatch(true, length(KeyHashList2E) > 0),
+    ?assertMatch(true, length(KeyHashList2F) > 0),
+    ?assertMatch(true,
+                    lists:usort(KeyHashList2B) == 
+                        lists:usort(KeyHashList2E ++ KeyHashList2F)),
 
     ok = book_close(Bookie1),
     reset_filestructure().