From adefca12f83d73986b0f860621232b17c130c742 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 30 May 2009 13:29:00 -0400
Subject: Substring functions; fix a nasty MonoReduce pattern match
 substitution bug

---
 tests/substring.ur | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/substring.ur

(limited to 'tests/substring.ur')

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>
-- 
cgit v1.2.3