From 6dbd6e0786f8ab1b5b35883dca6695cf58272b5b Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Fri, 24 Oct 2008 16:47:18 -0400
Subject: Transactions seem to be working

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

(limited to 'tests/aborter.ur')

diff --git a/tests/aborter.ur b/tests/aborter.ur
new file mode 100644
index 00000000..0921bdfc
--- /dev/null
+++ b/tests/aborter.ur
@@ -0,0 +1,5 @@
+table t : {A : int}
+
+fun main () : transaction page =
+    () <- dml (INSERT INTO t (A) VALUES (0));
+    return (error <xml>No way, Jose!</xml>)
-- 
cgit v1.2.3