Commit 305c620c authored by MARCHE Claude's avatar MARCHE Claude

Coq tests

parent af13cc38
......@@ -177,22 +177,17 @@ test: bin/why.byte $(TOOLS)
--output-file tmp.v --goal Test.G src/test.why
echo bin/why.byte --call --timeout 1 --driver drivers/alt_ergo.drv -I theories/ \
--all-goals theories/real.why
mkdir -p theories/coq
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of int.Abs
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of int.EuclideanDivision --goals-of int.ComputerDivision
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of real.Abs
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of real.FromInt
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of real.ExpLog
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of real.Trigonometric
bin/why.byte --driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of floating_point.Test
for i in theories/coq/*.v; do echo coq $$i; (coqc $$i || true) done
@mkdir -p theories/coq
@printf "*** Checking Coq file generation ***\\n"
@for i in int.Abs int.EuclideanDivision int.ComputerDivision \
real.Abs real.FromInt real.ExpLog real.Trigonometric \
floating_point.Test \
; do \
printf "Generate Coq file for $$i" && bin/why.byte \
--driver drivers/coq.drv -I theories/ \
--output-dir theories/coq --goals-of $$i ; done
@printf "*** Checking Coq compilation ***\\n"
@for i in theories/coq/*.v; do printf "coq $$i\\n" && coqc $$i ; done
testl: bin/whyl.byte
ocamlrun -bt bin/whyl.byte -I theories/ src/programs/test.mlw
......
......@@ -68,8 +68,8 @@ let print_ts fmt ts =
let print_ls fmt ls =
let n = id_unique lprinter ls.ls_name in
(* if ls.ls_name = "mod" then *)
eprintf "Coq.print_ls: %s -> %s@." ls.ls_name.id_long n;
(* temporary workaround *)
let n = if n = "mod" then "bmod" else n in
fprintf fmt "%s" n
let print_pr fmt pr =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment