From 92baa4f6bf99efe229abf2ab895cec8fd7a8936d Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Fri, 17 May 2024 16:16:49 -0700
Subject: Fix case on datatype.

---
 tests/17-case-datatype.sml | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 tests/17-case-datatype.sml

(limited to 'tests/17-case-datatype.sml')

diff --git a/tests/17-case-datatype.sml b/tests/17-case-datatype.sml
new file mode 100644
index 0000000..974f263
--- /dev/null
+++ b/tests/17-case-datatype.sml
@@ -0,0 +1,6 @@
+datatype D = A | B
+
+val _ =
+  case B of
+    A => __builtin "exit" 0
+  | B => __builtin "exit" 42
-- 
cgit v1.3.1