furnace.recaptcha: logic in recaptcha-url was wrong, fix and test case

diff --git a/basis/furnace/recaptcha/recaptcha-tests.factor b/basis/furnace/recaptcha/recaptcha-tests.factor
new file mode 100644 (file)
index 0000000..7f18184
--- /dev/null
+++ b/basis/furnace/recaptcha/recaptcha-tests.factor
@@ -0,0 +1,10 @@
+USING: furnace.recaptcha.private tools.test urls ;
+IN: furnace.recaptcha.tests
+
+{
+    URL" http://www.google.com/recaptcha/api/challenge"
+    URL" https://www.google.com/recaptcha/api/challenge"
+} [
+    f recaptcha-url
+    t recaptcha-url
+] unit-test

diff --git a/basis/furnace/recaptcha/recaptcha.factor b/basis/furnace/recaptcha/recaptcha.factor
index 3ae20f14bbf9df2779bc4aa473bef4a1c05a5d2e..fff1f61610c3bba25cfd921a881807b9a1e4720d 100644 (file)
--- a/basis/furnace/recaptcha/recaptcha.factor
+++ b/basis/furnace/recaptcha/recaptcha.factor
@@ -39,8 +39,7 @@ M: recaptcha call-responder*
     XML] ;
 
 : recaptcha-url ( secure? -- ? )
-    "http://www.google.com/recaptcha/api/challenge"
-    "https://www.google.com/recaptcha/api/challenge" ?
+    "https" "http" ? "://www.google.com/recaptcha/api/challenge" append
     recaptcha-error cget [ "?error=" glue ] when* >url ;
 
 : render-recaptcha ( -- xml )