Mercurial > openid

comparison tests/utest.ur @ 32:90b8ce9be9f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change some field names and update utest
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Apr 2011 13:24:55 -0400
parents 35d06874bec4
children df258dbf4739
comparison
equal deleted inserted replaced
31:1be573ac8e2b 32:90b8ce9be9f5
27 fun choose _ r = return (OpenidUser.Success r) 27 fun choose _ r = return (OpenidUser.Success r)
28 28
29 val formClass = inputs 29 val formClass = inputs
30 30
31 val fakeId = None 31 val fakeId = None
32
33 val ctlDisplay = {User = {Status = <xml>Status</xml>, Logout = <xml>Log Out</xml>},
34 Guest = {Status = <xml>Status</xml>, Signup = <xml>Sign Up</xml>}}
32 end) 35 end)
33 36
34 fun wrap title body = 37 fun wrap title body =
35 userStuff <- U.main wrap; 38 userStuff <- U.main wrap;
36 return <xml><head> 39 return <xml><head>