diff options
| author | Rose Hogenson <rosehogenson@posteo.net> | 2024-04-28 15:06:43 -0700 |
|---|---|---|
| committer | Rose Hogenson <rosehogenson@posteo.net> | 2024-04-28 15:06:43 -0700 |
| commit | 5737e8430d43b3b5bd448f761cd2f3c35707a174 (patch) | |
| tree | b24f44ea5245a56b2f712c2eef6a3897f53bd098 /tests | |
| parent | 9f5889c1263d63b953b3a324da07321deef5ca58 (diff) | |
| download | sml-5737e8430d43b3b5bd448f761cd2f3c35707a174.tar.zst | |
Add case over int.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/11-case.sml | 1 | ||||
| -rw-r--r-- | tests/12-case-int.sml | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tests/11-case.sml b/tests/11-case.sml new file mode 100644 index 0000000..297ae5b --- /dev/null +++ b/tests/11-case.sml @@ -0,0 +1 @@ +val _ = case 42 of x => __builtin "exit" x diff --git a/tests/12-case-int.sml b/tests/12-case-int.sml new file mode 100644 index 0000000..98967e4 --- /dev/null +++ b/tests/12-case-int.sml @@ -0,0 +1,5 @@ +val _ = + case 18 of + 17 => __builtin "exit" 41 + | 18 => __builtin "exit" 42 + | _ => __builtin "exit" 43 |