File: 03_overload.t

package info (click to toggle)
libcaptcha-recaptcha-v3-perl 0.06-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 156 kB
  • sloc: perl: 167; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 376 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use Test::More 0.98 tests => 3;

use Captcha::reCAPTCHA::V3;
my $rc = Captcha::reCAPTCHA::V3->new( secret => 'Dummy', sitekey => 'Dummy' );

is $rc->name(), 'g-recaptcha-response', "the dfault name is g-recaptcha-response";
is $rc,         'g-recaptcha-response', "the overload works";

$rc->name('another');
is $rc, 'another', "succeed to rename";

done_testing;