Mercurial > openid
comparison tests/utest.ur @ 32:90b8ce9be9f5
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> |