| author | Fabian Huch <huch@in.tum.de> | 
| Thu, 14 Mar 2024 15:46:39 +0100 | |
| changeset 79895 | 4ec26ed6f481 | 
| parent 69597 | ff784d5a5bfb | 
| child 81642 | e77e8ef5bf9b | 
| permissions | -rw-r--r-- | 
| 59720 | 1  | 
(* Title: HOL/Codegenerator_Test/Code_Test_Scala.thy  | 
| 58039 | 2  | 
Author: Andreas Lochbihler, ETH Zurich  | 
3  | 
||
4  | 
Test case for test_code on Scala  | 
|
5  | 
*)  | 
|
6  | 
||
| 68155 | 7  | 
theory Code_Test_Scala imports "HOL-Library.Code_Test" Code_Lazy_Test begin  | 
| 58039 | 8  | 
|
9  | 
test_code "14 + 7 * -12 = (140 div -2 :: integer)" in Scala  | 
|
10  | 
||
| 
58348
 
2d47c7d10b62
add target language evaluators for the value command;
 
Andreas Lochbihler 
parents: 
58039 
diff
changeset
 | 
11  | 
value [Scala] "14 + 7 * -12 :: integer"  | 
| 58039 | 12  | 
|
| 69597 | 13  | 
test_code \<comment> \<open>Tests for the serialisation of \<^const>\<open>gcd\<close> on \<^typ>\<open>integer\<close>\<close>  | 
| 
61856
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
14  | 
"gcd 15 10 = (5 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
15  | 
"gcd 15 (- 10) = (5 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
16  | 
"gcd (- 10) 15 = (5 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
17  | 
"gcd (- 10) (- 15) = (5 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
18  | 
"gcd 0 (- 10) = (10 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
19  | 
"gcd (- 10) 0 = (10 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
20  | 
"gcd 0 0 = (0 :: integer)"  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
21  | 
in Scala  | 
| 
 
4b1b85f38944
add gcd instance for integer and serialisation to target language operations
 
Andreas Lochbihler 
parents: 
59720 
diff
changeset
 | 
22  | 
|
| 68155 | 23  | 
test_code "stake 10 (cycle ''ab'') = ''ababababab''" in Scala  | 
24  | 
||
| 58039 | 25  | 
end  |