1 files changed, 10 insertions, 0 deletions
diff --git a/tests/view.ur b/tests/view.ur
new file mode 100644
index 00000000..36d77deb
--- /dev/null
+++ b/tests/view.ur
@@ -0,0 +1,10 @@
+table t : { A : int, B : string }
+
+view v = SELECT t.A AS X FROM t
+
+fun main () =
+    rows <- queryX (SELECT * FROM v)
+            (fn r => <xml><li>{[r.V.X]}</li></xml>);
+    return <xml><body>
+      {rows}
+    </body></xml>