From e938eaa153be9cd3d8f61be666a6babc1bc16c89 Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Fri, 23 Jun 2017 16:51:28 +0100
Subject: [PATCH] Add close to test

---
 test/end_to_end/tictac_SUITE.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test/end_to_end/tictac_SUITE.erl b/test/end_to_end/tictac_SUITE.erl
index 774b92a..2c2b3f8 100644
--- a/test/end_to_end/tictac_SUITE.erl
+++ b/test/end_to_end/tictac_SUITE.erl
@@ -412,4 +412,10 @@ index_compare(_Config) ->
     % The actual difference is discovered
     true = lists:member({"zz999", term_to_binary("K9.Z")}, Diffs),
     % Without discovering too many others
-    true = length(Diffs) < 20.
+    true = length(Diffs) < 20,
+
+
+    ok = leveled_bookie:book_close(Book2A),
+    ok = leveled_bookie:book_close(Book2B),
+    ok = leveled_bookie:book_close(Book2C),
+    ok = leveled_bookie:book_close(Book2D).