diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/align.ur | 4 | ||||
-rw-r--r-- | tests/bodyClick.ur | 6 | ||||
-rw-r--r-- | tests/classy_form.ur | 9 | ||||
-rw-r--r-- | tests/nomangle.ur | 7 | ||||
-rw-r--r-- | tests/nomangle.urp | 5 |
5 files changed, 31 insertions, 0 deletions
diff --git a/tests/align.ur b/tests/align.ur new file mode 100644 index 00000000..7d6664da --- /dev/null +++ b/tests/align.ur @@ -0,0 +1,4 @@ +fun main () : transaction page = return <xml><body> + <p align="left">Left</p> + <p align="right">Right</p> +</body></xml> diff --git a/tests/bodyClick.ur b/tests/bodyClick.ur new file mode 100644 index 00000000..9dcc64cf --- /dev/null +++ b/tests/bodyClick.ur @@ -0,0 +1,6 @@ +fun main () : transaction page = return <xml> + <body onclick={fn _ => alert "You clicked the body."} + onkeyup={fn _ => alert "Key"}> + <p>Text</p> + </body> +</xml> diff --git a/tests/classy_form.ur b/tests/classy_form.ur new file mode 100644 index 00000000..f9fafb6e --- /dev/null +++ b/tests/classy_form.ur @@ -0,0 +1,9 @@ +style form_inline + +val main : transaction page = return <xml> + <body> + <form class="form-inline"> + Problematic? + </form> + </body> +</xml> diff --git a/tests/nomangle.ur b/tests/nomangle.ur new file mode 100644 index 00000000..b853a690 --- /dev/null +++ b/tests/nomangle.ur @@ -0,0 +1,7 @@ +table foo : { Bar : int, Baz : string } + PRIMARY KEY Baz + +fun main () : transaction page = + rs <- queryX1 (SELECT foo.Bar FROM foo WHERE foo.Baz = 'Hi') + (fn r => <xml>{[r.Bar]}</xml>); + return <xml><body>{rs}</body></xml> diff --git a/tests/nomangle.urp b/tests/nomangle.urp new file mode 100644 index 00000000..7fab4b03 --- /dev/null +++ b/tests/nomangle.urp @@ -0,0 +1,5 @@ +database dbname=test +noMangleSql +sql nomangle.sql + +nomangle |