comparison tests/crud1.ur @ 349:beb72f8a7218

Expand cases where expression wildcards are allowed
author Adam Chlipala <adamc@hcoop.net>
date Sat, 04 Oct 2008 20:05:50 -0400
parents b88f4297167f
children 3a1e36b14105
comparison
equal deleted inserted replaced
348:b88f4297167f 349:beb72f8a7218
10 Nam = "A", 10 Nam = "A",
11 Show = txt _, 11 Show = txt _,
12 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, 12 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
13 WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, 13 WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>,
14 Parse = readError _, 14 Parse = readError _,
15 Inject = sql_int 15 Inject = _
16 }, 16 },
17 B = { 17 B = {
18 Nam = "B", 18 Nam = "B",
19 Show = txt _, 19 Show = txt _,
20 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, 20 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
21 WidgetPopulated = fn (nm :: Name) s => <lform><textbox{nm} value={s}/></lform>, 21 WidgetPopulated = fn (nm :: Name) s => <lform><textbox{nm} value={s}/></lform>,
22 Parse = readError _, 22 Parse = readError _,
23 Inject = sql_string 23 Inject = _
24 }, 24 },
25 C = { 25 C = {
26 Nam = "C", 26 Nam = "C",
27 Show = txt _, 27 Show = txt _,
28 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, 28 Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
29 WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, 29 WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>,
30 Parse = readError _, 30 Parse = readError _,
31 Inject = sql_float 31 Inject = _
32 }, 32 },
33 D = { 33 D = {
34 Nam = "D", 34 Nam = "D",
35 Show = txt _, 35 Show = txt _,
36 Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>, 36 Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>,
37 WidgetPopulated = fn (nm :: Name) b => <lform><checkbox{nm} checked={b}/></lform>, 37 WidgetPopulated = fn (nm :: Name) b => <lform><checkbox{nm} checked={b}/></lform>,
38 Parse = fn x => x, 38 Parse = fn x => x,
39 Inject = sql_bool 39 Inject = _
40 } 40 }
41 } 41 }
42 end) 42 end)