From c7ab80f743b3e2d34bb702be787507418cc794a8 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Thu, 14 Oct 2010 15:02:35 -0700
Subject: Typecheck tags in "alt" patterns

---
 src/test/compile-fail/alt-tag-nullary.rs | 12 ++++++++++++
 src/test/compile-fail/alt-tag-unary.rs   | 12 ++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 src/test/compile-fail/alt-tag-nullary.rs
 create mode 100644 src/test/compile-fail/alt-tag-unary.rs

(limited to 'src/test')

diff --git a/src/test/compile-fail/alt-tag-nullary.rs b/src/test/compile-fail/alt-tag-nullary.rs
new file mode 100644
index 00000000..f55f67e9
--- /dev/null
+++ b/src/test/compile-fail/alt-tag-nullary.rs
@@ -0,0 +1,12 @@
+// error-pattern: mismatched types
+
+tag a { A; }
+tag b { B; }
+
+fn main() {
+    let a x = A;
+    alt (x) {
+        case (B) {}
+    }
+}
+
diff --git a/src/test/compile-fail/alt-tag-unary.rs b/src/test/compile-fail/alt-tag-unary.rs
new file mode 100644
index 00000000..f2004896
--- /dev/null
+++ b/src/test/compile-fail/alt-tag-unary.rs
@@ -0,0 +1,12 @@
+// error-pattern: mismatched types
+
+tag a { A(int); }
+tag b { B(int); }
+
+fn main() {
+    let a x = A(0);
+    alt (x) {
+        case (B(?y)) {}
+    }
+}
+
-- 
cgit v1.2.3