Fix the user-setup-url unit test: return two values from the handle-check-id-setup, as required by the provider (the test failed because we recently added an assert in the provider code)
Tue Aug 16 18:16:56 PDT 2011 Anton Vodonosov <avodonosov@yandex.ru>
* Fix the user-setup-url unit test: return two values from the handle-check-id-setup, as required by the provider (the test failed because we recently added an assert in the provider code)
diff -rN -u old-cl-openid/t/provider.lisp new-cl-openid/t/provider.lisp
--- old-cl-openid/t/provider.lisp 2014-07-11 15:50:05.000000000 -0700
+++ new-cl-openid/t/provider.lisp 2014-07-11 15:50:05.000000000 -0700
@@ -254,7 +254,7 @@
:endpoint-uri "http://test-endpoint-uri.com/"
:handle-checkid-setup-impl (lambda (&rest ignored)
(declare (ignore ignored))
- "handle-checkid-setup-called"))))
+ (values "handle-checkid-setup-called" 200)))))
;; Now request checkid-immediate from that provider
;; receive negative response and retrieve