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
|
use Test::More tests => 14;
BEGIN { use_ok('CGI::Application::Plugin::ValidateRM') };
use lib './t';
use strict;
$ENV{CGI_APP_RETURN_ONLY} = 1;
use CGI;
use TestApp1;
my $t1_obj = TestApp1->new(QUERY=>CGI->new("email=broken;rm=form_process"));
my $t1_output = $t1_obj->run();
like($t1_output, qr/Some fields below/, 'err__');
like($t1_output, qr/name="email".*Invalid/, 'basic invalid');
like($t1_output,qr/name="phone".*Missing/, 'basic missing');
my $t2_obj = TestApp1->new(QUERY=>CGI->new("email=broken;rm=form_process_with_ref"));
my $t2_output = $t2_obj->run();
like($t2_output, qr/Some fields below/, 'err__');
like($t2_output, qr/name="email".*Invalid/, 'basic invalid');
like($t2_output,qr/name="phone".*Missing/, 'basic missing');
my $t3_obj = TestApp1->new(QUERY=>CGI->new("email=broken;passwd=anything;rm=form_process_with_fif_opts"));
my $t3_output = $t3_obj->run();
like($t3_output,qr/name="phone".*Missing/, 't3 basic missing');
unlike($t3_output, qr/anything/, 'passing options to HTML::FillInForm works');
{
ok( $t3_obj->can('dfv_results'), "has dfv_results method" );
ok( $t3_obj->can('dfv_error_page'), "has dfv_error_page method" );
ok( $t3_obj->can('check_rm_error_page'), "has check_rm_error_page method" );
ok( defined $t3_obj->dfv_results->invalid('email'), "content of DFV method is as expected" );
}
{
my $valid = $t3_obj->check_rm('form_display', '_form_profile', );
ok($valid->can('invalid'), "calling check_rm in scalar context returns just the DFV obj.");
}
|
