author | wenzelm |
Mon, 03 Feb 2025 20:22:51 +0100 (2 months ago) | |
changeset 82073 | 879be333e939 |
parent 81815 | 0b31f0909060 |
permissions | -rw-r--r-- |
59720 | 1 |
(* Title: HOL/Codegenerator_Test/Code_Test_PolyML.thy |
58039 | 2 |
Author: Andreas Lochbihler, ETH Zurich |
3 |
*) |
|
4 |
||
81642
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
5 |
theory Code_Test_PolyML |
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
6 |
imports |
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
7 |
"HOL-Library.Code_Test" |
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
8 |
Code_Lazy_Test |
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
9 |
begin |
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
10 |
|
e77e8ef5bf9b
explicit tests for target-language bit operations
haftmann
parents:
68155
diff
changeset
|
11 |
text \<open>Test cases for \<^text>\<open>test_code\<close>\<close> |
58039 | 12 |
|
13 |
test_code "14 + 7 * -12 = (140 div -2 :: integer)" in PolyML |
|
14 |
||
58348
2d47c7d10b62
add target language evaluators for the value command;
Andreas Lochbihler
parents:
58039
diff
changeset
|
15 |
value [PolyML] "14 + 7 * -12 :: integer" |
58039 | 16 |
|
68155 | 17 |
test_code "stake 10 (cycle ''ab'') = ''ababababab''" in PolyML |
18 |
||
58039 | 19 |
end |