summaryrefslogtreecommitdiff
path: root/test/matchunion.myr
blob: f57b205ef68995802b1fa7103107d786dbf0aae2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use std
/* checks that union matching works, at least on the key.
exits with 84. */
type u = union
	`Foo
	`Bar
	`Baz
	`Quux
;;

const main = {
	var v

	v = `Foo
	match v
	| `Bar:	std.exit(42)
	| `Baz:	std.exit(81)
	| `Foo:	std.exit(84)
	| `Quux:	std.exit(123)
	;;
}