Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
305c620c
Commit
305c620c
authored
Mar 26, 2010
by
MARCHE Claude
Browse files
Coq tests
parent
af13cc38
Changes
2
Hide whitespace changes
Inline
Side-by-side
Makefile.in
View file @
305c620c
...
...
@@ -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
...
...
src/printer/coq.ml
View file @
305c620c
...
...
@@ -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
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment