From 1367d5b85512781d67a9c7b9827e3884dda70b5e Mon Sep 17 00:00:00 2001 From: Samuel Hym Date: Fri, 16 Dec 2022 19:50:06 +0100 Subject: [PATCH] Rewrite a test so that it passes also on the bytecode backend Rewrite a test to shorten the lexical scope of the string it builds because, in the bytecode backend, a variable is deemed live at least as long as its lexical scope. Reference: https://github.com/ocaml/ocaml/pull/10071 --- tests/core/t_vector.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/core/t_vector.ml b/tests/core/t_vector.ml index e1725f66..89bd2345 100644 --- a/tests/core/t_vector.ml +++ b/tests/core/t_vector.ml @@ -612,10 +612,11 @@ q (* check it frees memory properly *) t @@ fun () -> -let s = "coucou" ^ "lol" in let w = Weak.create 1 in -Weak.set w 0 (Some s); -let v = of_list [ "a"; s ] in +let v = + let s = "coucou" ^ "lol" in + Weak.set w 0 (Some s) ; + of_list [ "a"; s ] in filter_in_place (fun s -> String.length s <= 1) v; assert_equal 1 (length v); assert_equal "a" (get v 0);