1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Test::TCaptcha;
my $pubkey = '6LeIxAcTAAAAAJcZVRqyHh71UMIEGNQ_MXjiZKhI';
my $captcha = undef;
ok $captcha = Test::TCaptcha->new(), "new Cpatcha::reCAPTCHA Created OK";
isa_ok $captcha, 'Captcha::reCAPTCHA';
my @schedule = (
{
name => 'Simple',
line => __LINE__,
args => [$pubkey],
expect =>
qq{<script src="https://www.google.com/recaptcha/api.js" async defer></script>} .
qq{<div class="g-recaptcha" data-sitekey="$pubkey"></div>\n}
},
{
# This test is to make sure that the provided arguments are still passed in
name => 'Error in hash',
line => __LINE__,
args =>
[ $pubkey, { is_valid => 0, error => '<<some random error>>' } ],
expect =>
qq{<script src="https://www.google.com/recaptcha/api.js" async defer></script>}
. qq{<div class="g-recaptcha" data-sitekey="$pubkey" }
.qq{error="<<some random error>>" is_valid="0"></div>\n}
},
{
name => 'Secure',
line => __LINE__,
args => [ $pubkey, undef ],
expect =>
qq{<script src="https://www.google.com/recaptcha/api.js" async defer></script>}
. qq{<div class="g-recaptcha" data-sitekey="$pubkey"></div>\n}
},
{
name => 'Options',
line => __LINE__,
args =>
[ $pubkey, { 'data-theme' => 'dark', 'data-tabindex' => 3 } ],
expect =>
qq{<script src="https://www.google.com/recaptcha/api.js" async defer></script>}
. qq{<div class="g-recaptcha" data-sitekey="$pubkey" }
. qq{data-tabindex="3" data-theme="dark"></div>\n}
}
);
for my $test ( @schedule ) {
my $name = $test->{name};
my $captcha = undef;
ok $captcha = Test::TCaptcha->new(), "$name: Created OK at line " . $test->{line};
isa_ok $captcha, 'Captcha::reCAPTCHA';
my $args = $test->{args};
my $html = $captcha->get_html_v2( @$args );
is $html, $test->{expect}, "$name: Generate HTML OK at line " . $test->{line};
}
note "Check out options setter div works";
$captcha = undef;
ok $captcha = Test::TCaptcha->new(), "$captcha: Created OK";
eval {
$captcha->get_options_setter_div($pubkey, 'non hash args');
};
ok $@ =~ /The argument to get_options_setter_div must be a hashref/,
"Get option setter only takes a hash ref argument";
ok $captcha->get_options_setter_div($pubkey) =~ /data-sitekey="6LeIxAcTAAAAAJcZVRqyHh71UMIEGNQ_MXjiZKhI/,
"Options setter div contains data-sitekey";
done_testing();
|
