diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-16 16:15:17 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-16 16:15:17 -0400 |
| commit | 0a66597b3498f5863620c3ca5e2713e45eed47f8 (patch) | |
| tree | 3d989c71c000d7324852e4d03d417d29e91b3f0c /tests | |
| parent | 22236f78bf5acb81d9c404ab71be9aa3d9e3bf26 (diff) | |
Indenting SELECT sub-clauses properly
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/select.ur | 20 | ||||
| -rw-r--r-- | tests/sql_indent.ur | 5 |
2 files changed, 15 insertions, 10 deletions
diff --git a/tests/select.ur b/tests/select.ur index d97e6a55..ff3908e9 100644 --- a/tests/select.ur +++ b/tests/select.ur @@ -1,13 +1,13 @@ -val handler = fn x => <html><body> +val handler = fn x => <xml><body> You entered: {cdata x.A} -</body></html> +</body></xml> -val main = fn () => <html><body> - <lform> - <lselect{#A}> - <loption value="A">A</loption> - <loption value="B">B</loption> - </lselect> +val main = fn () => <xml><body> + <form> + <select{#A}> + <option value="A">A</option> + <option value="B">B</option> + </select> <submit action={handler}/> - </lform> -</body></html> + </form> +</body></xml> diff --git a/tests/sql_indent.ur b/tests/sql_indent.ur new file mode 100644 index 00000000..c4a46d71 --- /dev/null +++ b/tests/sql_indent.ur @@ -0,0 +1,5 @@ +table t1 : {A : int, B : string, C : float} + +val q1 = (SELECT * + FROM t1 + WHERE A = 0) |