Mercurial > openid

comparison tests/utest.ur @ 36:df258dbf4739

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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>