diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-08-28 17:16:54 -0400 |
commit | 30959446b17bea49d07d2ded62f3fc5b978be330 (patch) | |
tree | 57bb51d132b4f81840f3ec44eba22addcf822f52 /tests | |
parent | eb1f7abebc8b0d88be660550258d5fe1e8610621 (diff) |
Gentle handling of back-button returns to pages with stale message-passing credentials
Diffstat (limited to 'tests')
-rw-r--r-- | tests/goback.ur | 20 | ||||
-rw-r--r-- | tests/goback.urp | 6 | ||||
-rw-r--r-- | tests/goback.urs | 1 |
3 files changed, 27 insertions, 0 deletions
diff --git a/tests/goback.ur b/tests/goback.ur new file mode 100644 index 00000000..ef61a817 --- /dev/null +++ b/tests/goback.ur @@ -0,0 +1,20 @@ +table channels : { Channel : channel {} } + +fun get () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi. + </body></xml> + +fun post () = + ch <- channel; + dml (INSERT INTO channels (Channel) VALUES ({[ch]})); + return <xml><body onload={recv ch}> + Hi! + </body></xml> + +fun main () = return <xml><body> + <li><a link={get ()}>Get</a></li> + <li><form><submit action={post}/></form></li> +</body></xml> diff --git a/tests/goback.urp b/tests/goback.urp new file mode 100644 index 00000000..8db1b3a6 --- /dev/null +++ b/tests/goback.urp @@ -0,0 +1,6 @@ +database dbname=goback +sql goback.sql +rewrite all Goback/* +safeGet get + +goback diff --git a/tests/goback.urs b/tests/goback.urs new file mode 100644 index 00000000..901d6bf2 --- /dev/null +++ b/tests/goback.urs @@ -0,0 +1 @@ +val main : {} -> transaction page |