simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 04:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rewrite a test so that it passes also on the bytecode backend

Browse source 
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
This commit is contained in:
Samuel Hym 2022-12-16 19:50:06 +01:00 • committed by Fardale
parent d1de46c7a9
commit 1367d5b855
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/core/t_vector.ml
View file

@ -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);