QoL: Add a set_progress command in learn-ocaml-editor/Test/Generate

ocaml-sf · Aug 26, 2021 · 7689962 · 7689962
1 parent 4a2601f
commit 7689962
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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"))