diff options
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 |