Add more tests for alt expressions

1 files changed, 35 insertions, 0 deletions

diff --git a/src/test/run-pass/expr-alt-struct.rs b/src/test/run-pass/expr-alt-struct.rs
new file mode 100644
index 00000000..31406969
--- /dev/null
+++ b/src/test/run-pass/expr-alt-struct.rs
@@ -0,0 +1,35 @@
+// xfail-boot
+// -*- rust -*-
+
+// Tests for alt as expressions resulting in structural types
+
+fn test_rec() {
+  auto res = alt (true) {
+    case (true) {
+      rec(i = 100)
+    }
+  };
+  check (res == rec(i = 100));
+}
+
+fn test_tag() {
+  tag mood {
+    happy;
+    sad;
+  }
+
+  auto res = alt (true) {
+    case (true) {
+      happy
+    }
+    case (false) {
+      sad
+    }
+  };
+  check (res == happy);
+}
+
+fn main() {
+  test_rec();
+  test_tag();
+}
\ No newline at end of file