diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mutual.ur | 8 | ||||
| -rw-r--r-- | tests/mutual.urs | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/mutual.ur b/tests/mutual.ur index da8eade4..c3d80c89 100644 --- a/tests/mutual.ur +++ b/tests/mutual.ur @@ -1,2 +1,10 @@ datatype foo = A | B of bar and bar = C | D of foo + +val q = B (D A) + +fun main () = return <xml> + {case q of + B (D A) => <xml>Good</xml> + | _ => <xml>Bad</xml>} +</xml> diff --git a/tests/mutual.urs b/tests/mutual.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/mutual.urs @@ -0,0 +1 @@ +val main : unit -> transaction page |