From 8cc7053b00237cd468290cb5f2042898e7a80329 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 14 Sep 2008 15:10:04 -0400
Subject: Crud supports INSERT

---
 tests/crud1.ur | 39 +++++++++++++++++++++++++++++++++++----
 1 file changed, 35 insertions(+), 4 deletions(-)

(limited to 'tests/crud1.ur')

diff --git a/tests/crud1.ur b/tests/crud1.ur
index f9d67ed8..fa539dd3 100644
--- a/tests/crud1.ur
+++ b/tests/crud1.ur
@@ -1,14 +1,45 @@
 table t1 : {Id : int, A : int, B : string, C : float, D : bool}
 
 open Crud.Make(struct
+        con cols :: {(Type * Type)} = [
+                A = (int, string),
+                B = (string, string),
+                C = (float, string),
+                D = (bool, string)
+        ]
+
         val tab = t1
 
         val title = "Crud1"
 
         val cols = {
-                A = {Nam = "A", Show = txt _},
-                B = {Nam = "B", Show = txt _},
-                C = {Nam = "C", Show = txt _},
-                D = {Nam = "D", Show = txt _}
+                A = {
+                        Nam = "A",
+                        Show = txt _,
+                        Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+                        Parse = readError _,
+                        Inject = sql_int
+                    },
+                B = {
+                        Nam = "B",
+                        Show = txt _,
+                        Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+                        Parse = readError _,
+                        Inject = sql_string
+                    },
+                C = {
+                        Nam = "C",
+                        Show = txt _,
+                        Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+                        Parse = readError _,
+                        Inject = sql_float
+                    },
+                D = {
+                        Nam = "D",
+                        Show = txt _,
+                        Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+                        Parse = readError _,
+                        Inject = sql_bool
+                    }
         }
 end)
-- 
cgit v1.2.3