summaryrefslogtreecommitdiff
path: root/test/matchargunion.myr
diff options
context:
space:
mode:
authorOri Bernstein <ori@eigenstate.org>2014-11-04 21:53:47 -0500
committerOri Bernstein <ori@eigenstate.org>2014-11-04 21:53:47 -0500
commitbe5462a429323b0c69e9cb4061bdc520be9727c1 (patch)
treeb658190273c2d17a07ebbb1c2b55975c044bae58 /test/matchargunion.myr
parent09af6b8f6597c29208b8725b4f67bd7ed6d45e85 (diff)
downloadmc-be5462a429323b0c69e9cb4061bdc520be9727c1.tar.gz
Fix most tests.
Matching constants is still buggered.
Diffstat (limited to 'test/matchargunion.myr')
-rw-r--r--test/matchargunion.myr9
1 files changed, 5 insertions, 4 deletions
diff --git a/test/matchargunion.myr b/test/matchargunion.myr
index 7d12706..f5ae799 100644
--- a/test/matchargunion.myr
+++ b/test/matchargunion.myr
@@ -12,10 +12,11 @@ const main = {
v = `Int 123
match v
- | `Int 127: std.exit(42)
- | `Int 123: std.exit(69)
- | `Chr 'a': std.exit(4)
- | `Nil: std.exit(6)
+ | `Int 127: std.exit(42)
+ | `Int 123: std.exit(69)
+ | `Chr 'a': std.exit(4)
+ | `Nil: std.exit(6)
+ | _: std.die("Impossible failed match\n")
;;
}