aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--progs/tests/union_types_simple.sy23
-rw-r--r--progs/tests/union_types_simple_faulty.sy25
2 files changed, 48 insertions, 0 deletions
diff --git a/progs/tests/union_types_simple.sy b/progs/tests/union_types_simple.sy
new file mode 100644
index 0000000..490717e
--- /dev/null
+++ b/progs/tests/union_types_simple.sy
@@ -0,0 +1,23 @@
+f :: fn a:bool -> int | str | void {
+ if a {
+ ret 1
+ } else {
+ ret
+ }
+}
+
+g :: fn a:bool -> int | (bool, bool) {
+ if a {
+ ret 1
+ } else {
+ ret (true, true)
+ }
+}
+
+start :: fn {
+ 1 <=> f! true
+ nil <=> f! false
+ (true, true) <=> g! false
+ 1 <=> g! true
+ f(true) <=> g(true)
+}
diff --git a/progs/tests/union_types_simple_faulty.sy b/progs/tests/union_types_simple_faulty.sy
new file mode 100644
index 0000000..b742054
--- /dev/null
+++ b/progs/tests/union_types_simple_faulty.sy
@@ -0,0 +1,25 @@
+f :: fn a:bool -> int | void {
+ if a {
+ ret 1
+ } else {
+ ret "hello!"
+ }
+}
+
+g :: fn a:bool -> int | (bool, bool) {
+ if a {
+ ret 1
+ } else {
+ ret (true, 1.0)
+ }
+}
+
+start :: fn {
+ 0 <=> f! true
+ 0.0 <=> f! false
+ ("hello!", "there") <=> g! false
+ 1 <=> g! true
+ f(true) <=> g(true)
+}
+
+// errors: [ ErrorKind::TypeMismatch(_, _), ErrorKind::TypeMismatch(_, _), ErrorKind::TypeError(_, _), ErrorKind::TypeError(_, _) ]