| author | wenzelm |
| Mon, 11 Sep 2023 19:31:09 +0200 | |
| changeset 78660 | 0d2ea608d223 |
| parent 68155 | 8b50f29a1992 |
| permissions | -rw-r--r-- |
| 59720 | 1 |
(* Title: HOL/Codegenerator_Test/Code_Test_MLton.thy |
| 58039 | 2 |
Author: Andreas Lochbihler, ETH Zurich |
3 |
||
4 |
Test case for test_code on MLton |
|
5 |
*) |
|
6 |
||
| 68155 | 7 |
theory Code_Test_MLton imports "HOL-Library.Code_Test" Code_Lazy_Test begin |
| 58039 | 8 |
|
9 |
test_code "14 + 7 * -12 = (140 div -2 :: integer)" in MLton |
|
10 |
||
|
58348
2d47c7d10b62
add target language evaluators for the value command;
Andreas Lochbihler
parents:
58039
diff
changeset
|
11 |
value [MLton] "14 + 7 * -12 :: integer" |
| 58039 | 12 |
|
| 68155 | 13 |
test_code "stake 10 (cycle ''ab'') = ''ababababab''" in MLton |
14 |
||
| 58039 | 15 |
end |