Mercurial > openid

comparison tests/test.ur @ 39:f6b3fbf10dac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper handling of known vs. to-be-chosen identifiers
author Adam Chlipala <adam@chlipala.net>
date Wed, 01 Jun 2011 07:51:55 -0400
parents 35bc4da563dd
children
comparison
equal deleted inserted replaced
38:8d23d76b5d48 39:f6b3fbf10dac
7 7
8 fun auth r = 8 fun auth r =
9 msg <- Openid.authenticate afterward 9 msg <- Openid.authenticate afterward
10 {Association = Openid.Stateful {AssociationType = Openid.HMAC_SHA256, 10 {Association = Openid.Stateful {AssociationType = Openid.HMAC_SHA256,
11 AssociationSessionType = Openid.NoEncryption}, 11 AssociationSessionType = Openid.NoEncryption},
12 Identifier = r.Id, 12 Identifier = Openid.KnownIdentifier r.Id,
13 Realm = Some "http://localhost:8080/"}; 13 Realm = Some "http://localhost:8080/"};
14 error <xml>{[msg]}</xml> 14 error <xml>{[msg]}</xml>
15 15
16 fun main () = return <xml><body> 16 fun main () = return <xml><body>
17 <form> 17 <form>