From 0744a81b1c33c8ce557d26414bf4966be7b2025d Mon Sep 17 00:00:00 2001 From: Craig Ferguson Date: Thu, 15 Apr 2021 11:04:44 +0100 Subject: [PATCH] Restore compatibility with Alcotest 1.4.0 The Alcotest 1.4.0 release adds optional arguments to Alcotest.fail. Eta-expansion is necessary to use this function with the continuation printers. --- test/mirage/tests.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/mirage/tests.ml b/test/mirage/tests.ml index 2d40782..6c1991c 100644 --- a/test/mirage/tests.ml +++ b/test/mirage/tests.ml @@ -55,7 +55,7 @@ let check_header ~message expected actual = Alcotest.(check packet) message expected actual let fail = Alcotest.fail -let failf fmt = Fmt.kstrf Alcotest.fail fmt +let failf fmt = Fmt.kstrf (fun s -> Alcotest.fail s) fmt let timeout ~time t = let msg = Printf.sprintf "Timed out: didn't complete in %d milliseconds" time in