Mercurial > openid
comparison tests/utest.ur @ 36:df258dbf4739
Merge Adam's upstream changes and update tests.
author | Karn Kallio <kkallio@eka> |
---|---|
date | Thu, 21 Apr 2011 20:06:46 -0430 |
parents | 90b8ce9be9f5 |
children | 9f392276d614 |
comparison
equal
deleted
inserted
replaced
35:a5574ec3991f | 36:df258dbf4739 |
---|---|
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 structure CtlDisplay = OpenidUser.DefaultDisplay | |
32 end) | 34 end) |
33 | 35 |
34 fun wrap title body = | 36 fun wrap title body = |
35 userStuff <- U.main wrap; | 37 userStuff <- U.main wrap; |
36 return <xml><head> | 38 return <xml><head> |
37 <title>{[title]}</title> | 39 <title>{[title]}</title> |
38 </head><body> | 40 </head><body> |
39 {userStuff.Status}<br/> | 41 {userStuff.Status}<br/> |
40 {userStuff.Other} | 42 {userStuff.Other.Xml} |
41 | 43 |
42 <h1>{[title]}</h1> | 44 <h1>{[title]}</h1> |
43 | 45 |
44 {body} | 46 {body} |
45 </body></xml> | 47 </body></xml> |