diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/makeUrl.ur | 3 | ||||
| -rw-r--r-- | tests/makeUrl.urp | 3 | ||||
| -rw-r--r-- | tests/makeUrl.urs | 1 | ||||
| -rw-r--r-- | tests/redirect.ur | 15 | ||||
| -rw-r--r-- | tests/redirect.urp | 4 | ||||
| -rw-r--r-- | tests/redirect.urs | 1 |
6 files changed, 27 insertions, 0 deletions
diff --git a/tests/makeUrl.ur b/tests/makeUrl.ur new file mode 100644 index 00000000..12026dab --- /dev/null +++ b/tests/makeUrl.ur @@ -0,0 +1,3 @@ +fun other () = return <xml>Hi!</xml> + +fun main () = return <xml>{[Basis.url (main ())]}, {[url (other ())]}</xml> diff --git a/tests/makeUrl.urp b/tests/makeUrl.urp new file mode 100644 index 00000000..83451c4c --- /dev/null +++ b/tests/makeUrl.urp @@ -0,0 +1,3 @@ +debug + +makeUrl diff --git a/tests/makeUrl.urs b/tests/makeUrl.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/makeUrl.urs @@ -0,0 +1 @@ +val main : unit -> transaction page diff --git a/tests/redirect.ur b/tests/redirect.ur new file mode 100644 index 00000000..da5114ca --- /dev/null +++ b/tests/redirect.ur @@ -0,0 +1,15 @@ +fun other () = redirect (bless "http://www.google.com/") + +fun further () = case checkUrl "http://www.google.com/" of + None => return <xml>Darn.</xml> + | Some url => redirect url + +fun failing () = case checkUrl "http://www.yahoo.com/" of + None => return <xml>Darn.</xml> + | Some url => redirect url + +fun main () = return <xml><body> + <a link={other ()}>Go there</a><br/> + <a link={further ()}>Go also there</a><br/> + <a link={failing ()}>Fail there</a> +</body></xml> diff --git a/tests/redirect.urp b/tests/redirect.urp new file mode 100644 index 00000000..670d3212 --- /dev/null +++ b/tests/redirect.urp @@ -0,0 +1,4 @@ +debug +allow url http://www.google.com/ + +redirect diff --git a/tests/redirect.urs b/tests/redirect.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/redirect.urs @@ -0,0 +1 @@ +val main : unit -> transaction page |