From 76899622574979854bd598bedee4b0556557eb53 Mon Sep 17 00:00:00 2001 From: Erik Martin-Dorel Date: Thu, 26 Aug 2021 23:49:09 +0200 Subject: [PATCH] QoL: Add a set_progress command in learn-ocaml-editor/Test/Generate --- src/editor/test_spec.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/editor/test_spec.ml b/src/editor/test_spec.ml index e5e02e088..c2d4c4312 100644 --- a/src/editor/test_spec.ml +++ b/src/editor/test_spec.ml @@ -244,11 +244,11 @@ let cat_question name list_qst = (2, "q_" ^ name ^ "_1") l |> snd -(* TODO/FIXME: Add some "let () = set_progress ..." lines *) let compile indexed_list = let tests = test_prel ^ (ast_fonction true true) in - let tests = List.fold_left (fun acc (_name, list_qst) -> + let tests = List.fold_left (fun acc (name, list_qst) -> acc ^ + Format.sprintf {|let () = set_progress "Q. %s"@.@.|} name ^ if List.length list_qst > 1 then List.fold_left (fun (i, acc) qst -> (i + 1, acc ^ question_typed ~num:i qst ^" \n"))