From fa513c1c428b1553f0036c230c5794995428737d Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Tue, 24 Jul 2018 12:09:59 +0100
Subject: [PATCH] Change start time to correct time

Must have miscaulcated the start time originally
---
 src/leveled_iclerk.erl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/leveled_iclerk.erl b/src/leveled_iclerk.erl
index 29dbc3f..8372705 100644
--- a/src/leveled_iclerk.erl
+++ b/src/leveled_iclerk.erl
@@ -700,13 +700,14 @@ schedule_test() ->
     schedule_test_bycount(4).
 
 schedule_test_bycount(N) ->
-    CurrentTS = {1490,883918,94000}, % Actually 30th March 2017 15:27
+    CurrentTS = {1490,884020,0}, % Actually 30th March 2017 15:27
     SecondsToCompaction0 = schedule_compaction([16], N, CurrentTS),
     io:format("Seconds to compaction ~w~n", [SecondsToCompaction0]),
     ?assertMatch(true, SecondsToCompaction0 > 1800),
     ?assertMatch(true, SecondsToCompaction0 < 5700),
     SecondsToCompaction1 = schedule_compaction([14], N, CurrentTS), % tomorrow!
-    io:format("Seconds to compaction ~w~n", [SecondsToCompaction1]),
+    io:format("Seconds to compaction ~w for count ~w~n", 
+                [SecondsToCompaction1, N]),
     ?assertMatch(true, SecondsToCompaction1 >= 81180),
     ?assertMatch(true, SecondsToCompaction1 =< 84780).