Mercurial > openid

comparison tests/test.ur @ 13:de04a3fc6b72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Stateless verification worked
author Adam Chlipala <adam@chlipala.net>
date Sun, 02 Jan 2011 10:11:38 -0500
parents 194577b60771
children 35bc4da563dd
comparison
equal deleted inserted replaced
12:c778455fe570 13:de04a3fc6b72
5 | Openid.AuthenticatedAs id => <xml>I now know you as <tt>{[id]}</tt>.</xml>} 5 | Openid.AuthenticatedAs id => <xml>I now know you as <tt>{[id]}</tt>.</xml>}
6 </body></xml> 6 </body></xml>
7 7
8 fun auth r = 8 fun auth r =
9 msg <- Openid.authenticate afterward 9 msg <- Openid.authenticate afterward
10 {AssociationType = Openid.HMAC_SHA256, 10 {Association = Openid.Stateless (* Openid.Stateful {AssociationType = Openid.HMAC_SHA256,
11 AssociationSessionType = Openid.NoEncryption, 11 AssociationSessionType = Openid.NoEncryption} *),
12 Identifier = r.Id}; 12 Identifier = r.Id};
13 error <xml>{[msg]}</xml> 13 error <xml>{[msg]}</xml>
14 14
15 fun main () = return <xml><body> 15 fun main () = return <xml><body>
16 <form> 16 <form>