From 5737e8430d43b3b5bd448f761cd2f3c35707a174 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sun, 28 Apr 2024 15:06:43 -0700 Subject: Add case over int. --- tests/11-case.sml | 1 + tests/12-case-int.sml | 5 +++++ 2 files changed, 6 insertions(+) create mode 100644 tests/11-case.sml create mode 100644 tests/12-case-int.sml (limited to 'tests') 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 -- cgit v1.3.1