From 893f948a2b9fc0aeadbffe96e41364e0b9b0aa1b Mon Sep 17 00:00:00 2001
From: Rafal Gwozdzinski <rafal@gwozdzinski.com>
Date: Tue, 7 Nov 2023 12:43:08 +0100
Subject: [PATCH] Fix cache-time.t tests

---
 tests/test-dirs/cache-time.t | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/tests/test-dirs/cache-time.t b/tests/test-dirs/cache-time.t
index 1cbd66187f..8a050eb2fe 100644
--- a/tests/test-dirs/cache-time.t
+++ b/tests/test-dirs/cache-time.t
@@ -16,20 +16,23 @@
   > EOF
 
 Let's populate file cache
-  $ $MERLIN server errors -log-file merlin_logs \
+  $ $MERLIN server errors -log-file merlin_logs -cache-time 45 \
   > -filename main.ml 1> /dev/null <main.ml
 
-When cache time is set to large value, we use the cache
+When cache time is set to large value, we keep the cache
   $ $MERLIN server errors -log-file merlin_logs -cache-time 45 \
   > -filename main.ml 1> /dev/null <main.ml
-  $ cat merlin_logs | grep 'reusing 1 items, 0 new items to type'
-  reusing 1 items, 0 new items to type
+  $ cat merlin_logs | grep -A1 "# 0.01 File_cache(Cmi_cache) - flush" \
+  > | tail -1 | awk '{print $1;}'
+  keeping
+
 
 When cache time is set to 0, file cache gets flushed
   $ $MERLIN server errors -log-file merlin_logs -cache-time 0 \
   > -filename main.ml 1> /dev/null <main.ml
-  $ cat merlin_logs | grep 'reusing 1 items, 0 new items to type'
-  [1]
+  $ cat merlin_logs | grep -A1 "# 0.01 File_cache(Cmi_cache) - flush" \
+  > | tail -1 | awk '{print $1;}'
+  removing
 
 Stop server
   $ $MERLIN server stop-server