diff tests/test.ur @ 13:de04a3fc6b72

Stateless verification worked
author Adam Chlipala <adam@chlipala.net>
date Sun, 02 Jan 2011 10:11:38 -0500
parents 194577b60771
children 35bc4da563dd
line wrap: on
line diff
--- a/tests/test.ur	Sat Jan 01 14:00:52 2011 -0500
+++ b/tests/test.ur	Sun Jan 02 10:11:38 2011 -0500
@@ -7,8 +7,8 @@
 
 fun auth r =
     msg <- Openid.authenticate afterward
-                               {AssociationType = Openid.HMAC_SHA256,
-                                AssociationSessionType = Openid.NoEncryption,
+                               {Association = Openid.Stateless (* Openid.Stateful {AssociationType = Openid.HMAC_SHA256,
+                                                                                   AssociationSessionType = Openid.NoEncryption} *),
                                 Identifier = r.Id};
     error <xml>{[msg]}</xml>