70 lines
1.6 KiB
Plaintext
70 lines
1.6 KiB
Plaintext
note
|
|
description: "[
|
|
Eiffel tests that can be executed by testing tool.
|
|
]"
|
|
author: "EiffelStudio test wizard"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
testing: "type/manual"
|
|
|
|
class
|
|
RECAPTCHA_API_TEST_SET
|
|
|
|
inherit
|
|
EQA_TEST_SET
|
|
|
|
feature -- Test routines
|
|
|
|
test_invalid_input
|
|
-- invalid-input-response
|
|
local
|
|
l_captcha: RECAPTCHA_API
|
|
do
|
|
create l_captcha.make ("","234")
|
|
check
|
|
not_true:not l_captcha.verify
|
|
end
|
|
assert ("Not true", not l_captcha.verify)
|
|
assert ("Has error invalid-input-response",has_error (l_captcha,"invalid-input-response"))
|
|
end
|
|
|
|
test_missing_input
|
|
-- missing-input-response
|
|
local
|
|
l_captcha: RECAPTCHA_API
|
|
do
|
|
create l_captcha.make ("key","")
|
|
check
|
|
not_true:not l_captcha.verify
|
|
end
|
|
assert ("Not true", not l_captcha.verify)
|
|
assert ("Has error missing-input-response",has_error (l_captcha,"missing-input-response"))
|
|
end
|
|
|
|
test_missing_key_input
|
|
-- missing-input-response
|
|
-- invalid-input-response
|
|
local
|
|
l_captcha: RECAPTCHA_API
|
|
do
|
|
create l_captcha.make ("","")
|
|
l_captcha.set_remoteip("localhost")
|
|
assert ("Not true", not l_captcha.verify)
|
|
assert ("Has error missing-input-response",has_error (l_captcha,"missing-input-response"))
|
|
assert ("Has error invalid-input-response",has_error (l_captcha,"invalid-input-response"))
|
|
end
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
has_error (l_captcha: RECAPTCHA_API; a_error: READABLE_STRING_32): BOOLEAN
|
|
do
|
|
if attached l_captcha.errors as l_errors then
|
|
l_errors.compare_objects
|
|
Result := l_errors.has (a_error)
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
|