Add borked test case for generic chaining.

2 files changed, 17 insertions, 0 deletions

diff --git a/test/genericchain.myr b/test/genericchain.myr
new file mode 100644
index 0000000..0608cf6
--- /dev/null
+++ b/test/genericchain.myr
@@ -0,0 +1,16 @@
+use std
+
+generic fail = {val : @a
+	-> `std.Some val
+}
+
+generic try = {opt : std.option(@b)
+	match opt
+	| `std.Some v:	-> v
+	| `std.None:	std.die("Badness\n")
+	;;
+}
+
+const main = {
+	std.put("val = %i\n", try(fail(123)))
+}
diff --git a/test/tests b/test/tests
index 27cf53f..e06e93a 100644
--- a/test/tests
+++ b/test/tests
@@ -84,6 +84,7 @@ B generictype	E	0
 B genericret	E	42
 B genericmatch	E	15
 B genericrec	E	0
+# B genericchain	P	"val = 123" ## BUGGERED
 B stdopt-some	E	42
 B stdopt-none	E	42
 B stdopt-mk	E	42