view release on metacpan or  search on metacpan

t/recaptcha_field.t  view on Meta::CPAN

#/usr/bin/env perl

use strict;
use warnings;
use Test::More tests=>4;
use utf8;

package Test::reCAPTCHA;

use HTML::FormHandler::I18N;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler'; # se non derivasse da DBIC

with 'HTML::FormHandlerX::Widget::Field::reCAPTCHA';

has '+is_html5' => (default=>1);

has_field 'recaptcha' => (
        type=>'reCAPTCHA', 
        recaptcha_message => "Non hai dimostrato di essere un umano!",
        required=>1,
);

has ['recaptcha_public_key','recaptcha_private_key'] => (is => 'rw', isa=>'Str', required=>1);

no HTML::FormHandler::Moose;

package ::main;

#use_ok('Test::reCAPTCHA');

my $public_key = 'zio pino';
my $private_key = 'zio can';

my $form = Test::reCAPTCHA->new(recaptcha_public_key=>$public_key,recaptcha_private_key=>$private_key);

ok($form, 'get form');

$form->process(params => {});

ok($form->field('recaptcha')->render, 'OK recaptcha');

my $expected = q(
<div>
<label for="recaptcha">Recaptcha</label>
<script type="text/javascript">
//<![CDATA[
var RecaptchaOptions = {};
//]]>
</script>
<script src="http://www.google.com/recaptcha/api/challenge?k=zio+pino" type="text/javascript"></script>
<noscript><iframe frameborder="0" height="300" src="http://www.google.com/recaptcha/api/noscript?k=zio+pino" width="500"></iframe><textarea cols="40" name="recaptcha_challenge_field" rows="3"></textarea><input name="recaptcha_response_field" type="hi...

</div>);

ok($form->field('recaptcha')->render eq $expected, 'recaptcha render OK') || diag($form->field('recaptcha')->render);

like($form->field('recaptcha')->render,qr/k=zio\+pino/, 'recaptcha public_key OK') || diag($form->field('recaptcha')->render);

exit;

1;