1 files changed, 15 insertions, 0 deletions
diff --git a/tests/time.ur b/tests/time.ur
new file mode 100644
index 0000000..8676c48
--- /dev/null
+++ b/tests/time.ur
@@ -0,0 +1,15 @@
+table t : { Id : int, Time : time }
+
+val now : time = readError "10/30/08 14:35:42"
+val later : time = readError "10/30/08 14:37:42"
+
+fun main () =
+    dml (INSERT INTO t (Id, Time) VALUES (42, {now}));
+    xml <- queryX (SELECT * FROM t)
+           (fn r => <xml>{[r.T.Id]}: {[r.T.Time]}<br/></xml>);
+    minMax <- oneRow (SELECT CURRENT_TIMESTAMP AS Cur, MIN(t.Time) AS Min, MAX(t.Time) AS Max FROM t);
+    return <xml><body>
+      {xml}
+      {[now]}, {[now = now]}, {[now = later]}, {[later < now]}, {[now < later]}<br/>
+      {[minMax.Cur]}, {[minMax.Min]}, {[minMax.Max]}
+    </body></xml>