summaryrefslogtreecommitdiff
path: root/tests/substring.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-30 13:29:00 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-30 13:29:00 -0400
commit54276f5a38163eb7997c574810faed0cc6dea35c (patch)
treeff01535ec8b49034e5cb39f0be1e36261bea9d8b /tests/substring.ur
parent581a2290590268039cacfbe0762b343f710c3116 (diff)
Substring functions; fix a nasty MonoReduce pattern match substitution bug
Diffstat (limited to 'tests/substring.ur')
-rw-r--r--tests/substring.ur5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/substring.ur b/tests/substring.ur
new file mode 100644
index 00000000..bc7b5068
--- /dev/null
+++ b/tests/substring.ur
@@ -0,0 +1,5 @@
+fun main () : transaction page = return <xml>
+ {[case String.split "abc{" #"{" of
+ None => "!"
+ | Some (pre, post) => pre ^ post]}
+</xml>