author | Andreas Lochbihler |
Tue, 16 Sep 2014 16:04:08 +0200 | |
changeset 58348 | 2d47c7d10b62 |
parent 58039 | 469a375212c1 |
child 58414 | f945e7af0d27 |
permissions | -rw-r--r-- |
58039 | 1 |
(* Title: Code_Test_GHC.thy |
2 |
Author: Andreas Lochbihler, ETH Zurich |
|
3 |
||
4 |
Test case for test_code on GHC |
|
5 |
*) |
|
6 |
||
7 |
theory Code_Test_GHC imports Code_Test begin |
|
8 |
||
9 |
definition id_integer :: "integer \<Rightarrow> integer" where "id_integer = id" |
|
10 |
||
11 |
test_code "id_integer (14 + 7 * -12) = 140 div -2" in GHC |
|
12 |
||
58348
2d47c7d10b62
add target language evaluators for the value command;
Andreas Lochbihler
parents:
58039
diff
changeset
|
13 |
value [GHC] "14 + 7 * -12 :: integer" |
58039 | 14 |
|
15 |
end |