Merge commit '2a46c55'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / OneLineMatch.scl

// Tests that match cases can be given in the same line as the scrutinee\r
data FooBar a = Foo a | Bar a\r
extract x = match x with Foo v -> v ; Bar v -> v\r
main = extract (Foo (3 :: Integer))\r
--\r
3