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

fix: remove dep on mtime in checker

Browse source
This commit is contained in:
Simon Cruanes 2021-08-23 10:17:51 -04:00
parent 28fad1e408
commit 07d512badc
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/checker/dune
View file

@ -3,6 +3,6 @@
(name main) (name main)
(public_name sidekick-checker) (public_name sidekick-checker)
(package sidekick-bin) (package sidekick-bin)
(libraries containers sidekick-bin.lib mtime mtime.clock.os (libraries containers sidekick-bin.lib
sidekick.util sidekick.tef sidekick.drup) sidekick.util sidekick.tef sidekick.drup)
(flags :standard -warn-error -a+8 -open Sidekick_util)) (flags :standard -warn-error -a+8 -open Sidekick_util))

4
src/checker/main.ml
View file

@ -83,6 +83,8 @@ let () =
Printexc.record_backtrace true; Printexc.record_backtrace true;
Sidekick_tef.setup(); Sidekick_tef.setup();
let t1 = Unix.gettimeofday() in
Arg.parse opts (fun f -> files := f :: !files) "checker [opt]* [file]+"; Arg.parse opts (fun f -> files := f :: !files) "checker [opt]* [file]+";
let ok = let ok =
@ -96,7 +98,7 @@ let () =
| _ -> Error.errorf "expected <problem>? <proof>" | _ -> Error.errorf "expected <problem>? <proof>"
in in
let t2 = Mtime_clock.elapsed () |> Mtime.Span.to_s in let t2 = Unix.gettimeofday() -. t1 in
Format.printf "c %s@." (if ok then "OK" else "FAIL"); Format.printf "c %s@." (if ok then "OK" else "FAIL");
Format.printf "c elapsed time: %.3fs@." t2; Format.printf "c elapsed time: %.3fs@." t2;
if not ok then exit 1 if not ok then exit 1