diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:13:02 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:13:02 -0400 |
| commit | 79c2e18d5d237d48f0803bb874d72b4354ba9b25 (patch) | |
| tree | 3766580321bca3f077b2115ec5cbcd30dd9312a4 /tests | |
| parent | 700a48cc6e78f75166b6e322207a29981782c4e3 (diff) | |
intToString
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/option.ur | 6 | ||||
| -rw-r--r-- | tests/option.urp | 5 | ||||
| -rw-r--r-- | tests/toString.ur | 3 | ||||
| -rw-r--r-- | tests/toString.urp | 5 |
4 files changed, 16 insertions, 3 deletions
diff --git a/tests/option.ur b/tests/option.ur index 76fcc6ea..d9e901bf 100644 --- a/tests/option.ur +++ b/tests/option.ur @@ -9,15 +9,15 @@ val show = fn x => case x of None => "None" | Some x => x val show2 = fn x => case x of None => "None'" | Some x => show x -val page = fn x => <html><body> +val page = fn x => return <html><body> {cdata (show x)} </body></html> -val page2 = fn x => <html><body> +val page2 = fn x => return <html><body> {cdata (show2 x)} </body></html> -val main : unit -> page = fn () => <html><body> +val main : unit -> transaction page = fn () => return <html><body> <li><a link={page none_Hi}>None1</a></li> <li><a link={page some_Hi}>Some1</a></li> <li><a link={page2 none_some_Hi}>None2</a></li> diff --git a/tests/option.urp b/tests/option.urp new file mode 100644 index 00000000..865e089f --- /dev/null +++ b/tests/option.urp @@ -0,0 +1,5 @@ +debug +database dbname=test +exe /tmp/webapp + +option diff --git a/tests/toString.ur b/tests/toString.ur new file mode 100644 index 00000000..830f4713 --- /dev/null +++ b/tests/toString.ur @@ -0,0 +1,3 @@ +fun main () : transaction page = return <html><body> + 6 = {cdata (intToString 6)} +</body></html> diff --git a/tests/toString.urp b/tests/toString.urp new file mode 100644 index 00000000..e29d34cd --- /dev/null +++ b/tests/toString.urp @@ -0,0 +1,5 @@ +debug +database dbname=test +exe /tmp/webapp + +toString |