diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-07-01 06:04:43 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-07-01 06:04:43 +0000 |
commit | 8e35575af73a89217bc5f9dc14dd59428f5ee39a (patch) | |
tree | 64543577987a03490ef3d1d244f94c1385533732 /sca-cpp/trunk/modules/openid/server-test.scm | |
parent | ac8bb2ddecac09d60760ef83319b627548d0fd77 (diff) |
Refactor OpenID test pages and add test methods returning the user info.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@959522 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to '')
-rw-r--r-- | sca-cpp/trunk/modules/openid/user-info.scm (renamed from sca-cpp/trunk/modules/openid/server-test.scm) | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/sca-cpp/trunk/modules/openid/server-test.scm b/sca-cpp/trunk/modules/openid/user-info.scm index 19f914b5ce..69eb207be9 100644 --- a/sca-cpp/trunk/modules/openid/server-test.scm +++ b/sca-cpp/trunk/modules/openid/user-info.scm @@ -17,5 +17,10 @@ ; OpenID support test case -(define (get id user email) (list "text/html" (list "<html><body><p>Hello " (user) ", " (email) "</p></body></html>"))) +(define (get id user email) (list "text/html" (list + "<html><body><p>The following info is generated on the server:</p><div>User: " (user) "</div><div>Email: " (email) "</div></body></html>"))) + +(define (getuser user email) (user)) + +(define (getemail user email) (email)) |