diff options
Diffstat (limited to 'tests/pcase.ur')
-rw-r--r-- | tests/pcase.ur | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/pcase.ur b/tests/pcase.ur new file mode 100644 index 00000000..581d94c3 --- /dev/null +++ b/tests/pcase.ur @@ -0,0 +1,9 @@ +val flip = fn x : int => case x of 0 => 1 | _ => 0 + +val zero = flip 1 +val one = flip 0 + +val flipS = fn x : string => case x of "" => "Hello world!" | _ => "" + +val s1 = flipS "" +val s2 = flipS "Boop" |