Mercurial > openid
comparison tests/utest.ur @ 29:35d06874bec4
Fix Utest to track latest change
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 24 Feb 2011 17:29:45 -0500 |
parents | c560ec5bf514 |
children | 90b8ce9be9f5 |
comparison
equal
deleted
inserted
replaced
28:fcd3a977d77b | 29:35d06874bec4 |
---|---|
22 | 22 |
23 fun tabulate r = | 23 fun tabulate r = |
24 n <- signal r.Nam; | 24 n <- signal r.Nam; |
25 return {Nam = n} | 25 return {Nam = n} |
26 | 26 |
27 fun choose _ r = return 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 end) | 32 end) |