ref: 0a337df767ec5a911dfef3ca529406e2ad3c4462
parent: 019c09f1c3d0d04dc60ba01b0a51e59d5b4fdcaa
author: Ori Bernstein <[email protected]>
date: Tue Sep 4 17:31:20 EDT 2012
Add missing tests.
--- /dev/null
+++ b/test/generictype.myr
@@ -1,0 +1,15 @@
+type option(@a) = union
+ `Some @a
+ `None
+;;
+
+const main = {+ var v
+
+ v = `Some 123
+ match v
+ `None: -> 1;;
+ `Some 123: -> 0;;
+ ;;
+ -> 60
+}