Fix cache-time.t tests

ocaml · Nov 7, 2023 · 893f948 · 893f948
1 parent bf59126
commit 893f948
Showing 1 changed file with 9 additions and 6 deletions.
diff --git 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