From 4fe42be07b7b57147f9cac0d17c2611f71f0758a Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 18 May 2024 07:23:11 -0700 Subject: Add structures. --- tests/20-structure.sml | 5 +++++ tests/21-struct-datatype.sml | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 tests/20-structure.sml create mode 100644 tests/21-struct-datatype.sml (limited to 'tests') diff --git a/tests/20-structure.sml b/tests/20-structure.sml new file mode 100644 index 0000000..dfc7b9b --- /dev/null +++ b/tests/20-structure.sml @@ -0,0 +1,5 @@ +structure S = struct + val fourtyTwo = 42 +end + +val _ = __builtin "exit" S.fourtyTwo diff --git a/tests/21-struct-datatype.sml b/tests/21-struct-datatype.sml new file mode 100644 index 0000000..ab714ea --- /dev/null +++ b/tests/21-struct-datatype.sml @@ -0,0 +1,6 @@ +structure S = struct + datatype D = D of int +end + +val S.D x = S.D 42 +val _ = __builtin "exit" x -- cgit v1.3.1