diff tests/test.ur @ 15:35bc4da563dd

Realms; documentation and license
author Adam Chlipala <adam@chlipala.net>
date Sun, 02 Jan 2011 11:22:30 -0500
parents de04a3fc6b72
children f6b3fbf10dac
line wrap: on
line diff
--- a/tests/test.ur	Sun Jan 02 10:33:07 2011 -0500
+++ b/tests/test.ur	Sun Jan 02 11:22:30 2011 -0500
@@ -7,9 +7,10 @@
 
 fun auth r =
     msg <- Openid.authenticate afterward
-                               {Association = Openid.Stateless (* Openid.Stateful {AssociationType = Openid.HMAC_SHA256,
-                                                                                   AssociationSessionType = Openid.NoEncryption} *),
-                                Identifier = r.Id};
+                               {Association = Openid.Stateful {AssociationType = Openid.HMAC_SHA256,
+                                                               AssociationSessionType = Openid.NoEncryption},
+                                Identifier = r.Id,
+                                Realm = Some "http://localhost:8080/"};
     error <xml>{[msg]}</xml>
 
 fun main () = return <xml><body>