Mercurial > urweb

diff tests/sqlprecision.ur @ 1920:2f33d9a51765

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Increase precision for rendering floats to SQL
author Adam Chlipala <adam@chlipala.net>
date Tue, 03 Dec 2013 16:54:04 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/sqlprecision.ur	Tue Dec 03 16:54:04 2013 -0500
@@ -0,0 +1,12 @@
+table t : { N : float }
+
+fun insert r =
+    dml (INSERT INTO t (N) VALUES ({[readError r.N]}));
+    return <xml/>
+
+fun main () = return <xml><body>
+  <form>
+    <textbox{#N}/>
+    <submit action={insert}/>
+  </form>
+</body></xml>