Move draft\library\security\openid under library\security\openid

library/security/openid/consumer/tests/test_openid.e

@@ -0,0 +1,69 @@
+note
+	description: "Summary description for {TEST_OPENID}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	TEST_OPENID
+
+create
+	make
+
+feature
+
+	make
+		local
+			o: OPENID_CONSUMER
+			v: OPENID_CONSUMER_VALIDATION
+			id: READABLE_STRING_8
+		do
+			id := "https://www.google.com/accounts/o8/id"
+			create o.make ("http://localhost")
+			if attached o.auth_url (id) as l_url then
+				check o.error = Void end
+				get_openid_response_uri (l_url)
+				if attached openid_response_uri as u and then u.is_valid then
+					create v.make_from_items (o, u.decoded_query_items)
+					v.validate
+					if v.is_valid then
+						print ("Succeed ...%N")
+					else
+						print ("Failed !!!%N")
+					end
+				else
+					print ("Failed !!!%N")
+				end
+			elseif attached o.error as l_err then
+				print (l_err)
+			else
+				print ("???")
+			end
+		end
+
+	get_openid_response_uri	(a_auth_url: READABLE_STRING_8)
+		local
+			f: RAW_FILE
+			e: EXECUTION_ENVIRONMENT
+		do
+			openid_response_uri := Void
+
+			create f.make_create_read_write ("openid_tmp.html")
+			f.put_string ("<a href=%"" + a_auth_url + "%">Click to authenticate with openid</a>")
+			f.put_new_line
+			f.close
+
+			create e
+			e.system ("start " + f.name)
+
+			io.put_string ("Returned URL (copy/paste the url from your browser's address bar )?%N")
+			io.read_line
+
+			create openid_response_uri.make_from_string (io.last_string)
+		end
+
+	openid_response_uri: detachable URI
+
+feature -- Access
+
+end