From eaa183b7dfc841df75d42ace7a90ada1e40ff282 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Tue, 4 Nov 2025 18:58:28 -0800
Subject: Add lists

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

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

diff --git a/tests/170-case-datatype.sml b/tests/170-case-datatype.sml
new file mode 100644
index 0000000..974f263
--- /dev/null
+++ b/tests/170-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