st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix script to generate tests

Browse source 
Signed-off-by: Kakadu <Kakadu@pm.me>
This commit is contained in:
Kakadu 2024-08-31 12:02:03 +03:00
parent e167734a27
commit 55d595600d
1 changed files with 45 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

64
regression/expressions/gen.ml
View file

@ -1,24 +1,48 @@
(* let () =
let lamas = List.filter (String.ends_with ~suffix:".lama") (Sys.readdir "." |> Array.to_list)
|> List.sort String.compare in
(* List.iter print_endline lamas; *)
()
*)
let count = 10000
let () =
for i=0 to 2 do
let test = In_channel.with_open_text (Printf.sprintf "generated%05d.input" i) In_channel.input_all in
let test = String.split_on_char '\n' test
(* |> List.filter ((<>)"") *)
in
Out_channel.with_open_text "dune" (fun dunech ->
Printf.fprintf dunech "(cram (deps ../../src/Driver.exe ../../runtime/Std.i))\n\n";
for i=0 to count / 10 do
(* let dunebuf = Buffer.create 100 in *)
let cram_buf = Buffer.create 100 in
let cram_file = Printf.sprintf "r%04dx.t" i in
let deps = ref [] in
for j=0 to 9 do
let k = (i*10+j) in
let lama_file = Printf.sprintf "generated%05d.lama" k in
Out_channel.with_open_text (Printf.sprintf "r%05d.t" i) (fun ch ->
Printf.fprintf ch " $ cat > test.input <<EOF\n";
List.iter (Printf.fprintf ch " > %s\n") test;
Printf.fprintf ch " > EOF\n";
Printf.fprintf ch " $ cat test.input\n";
Printf.fprintf ch " $ ls -l\n";
Printf.fprintf ch " $ LAMA=../../runtime ../../src/Driver.exe -i generated%05d.lama" i
)
if Sys.file_exists lama_file then
let test =
In_channel.with_open_text (Printf.sprintf "generated%05d.input" k) In_channel.input_all
|> String.split_on_char '\n' |> List.filter ((<>)"")
in
(
deps := lama_file :: !deps;
Printf.bprintf cram_buf " $ cat > test.input <<EOF\n";
List.iter (Printf.bprintf cram_buf " > %s\n") test;
Printf.bprintf cram_buf " > EOF\n";
(* Printf.fprintf ch " $ cat test.input\n";
Printf.fprintf ch " $ ls -l\n"; *)
Printf.bprintf cram_buf " $ LAMA=../../runtime ../../src/Driver.exe -i generated%05d.lama < test.input\n" k
)
done;
match !deps with
| [] -> ()
| xs ->
(Printf.fprintf dunech "(cram (applies_to r%04dx)\n" i;
Printf.fprintf dunech " (deps %s))\n%!" (String.concat " " xs);
Out_channel.with_open_text cram_file (fun ch ->
output_string ch (Buffer.contents cram_buf)
)
)
done
)
(*
let () =
for i=0 to count do
if Sys.file_exists (Printf.sprintf "generated%05d.lama" i) then
(Printf.fprintf ch "(cram (applies_to r%05d)\n" i;
Printf.fprintf ch " (deps generated%05d.lama))\n%!" i;)
done *)