Mercurial > openid
comparison tests/test.ur @ 39:f6b3fbf10dac
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> |