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
|
use strict;
use Test::More tests => 34;
BEGIN{ use_ok("FormValidator::Simple::Results") }
my $results = FormValidator::Simple::Results->new;
$results->register('r1');
$results->register('r2');
$results->register('r3');
my $valids = $results->valid;
is( scalar(keys %$valids), 3 );
ok( exists $valids->{r1});
ok( exists $valids->{r2});
ok( !$results->has_missing );
ok( !$results->has_invalid );
$results->record('r1')->is_blank(1);
my $valids2 = $results->valid;
is( scalar(keys %$valids2), 2 );
ok( exists $valids2->{r2});
ok( exists $valids2->{r3});
ok( $results->has_error );
ok( !$results->success );
ok( $results->has_blank );
ok( !$results->has_invalid );
ok( $results->missing('r1') );
my @missings = $results->missing;
is( scalar(@missings), 1 );
is( $missings[0], 'r1' );
$results->record('r2')->set( 'ASCII' => 1 );
$results->record('r2')->set( 'INT' => undef );
ok( $results->has_error );
ok( $results->has_invalid );
ok( !$results->success );
my @invalids = $results->invalid;
is( scalar(@invalids), 1 );
is( $invalids[0], 'r2' );
ok( !$results->invalid('r1') );
ok( $results->invalid('r2') );
ok( !$results->invalid('r3') );
ok( !$results->invalid('r2', 'ASCII') );
ok( $results->invalid('r2', 'INT' ) );
$results->record('r3')->data('data');
my $valids3 = $results->valid;
is( scalar(keys %$valids3), 1 );
ok( exists $valids3->{r3});
is( $results->valid('r3'), 'data' );
$results->clear;
is(scalar keys %{$results->valid}, 0);
is(scalar @{$results->missing}, 0);
ok(!$results->has_error);
ok(!$results->has_invalid);
ok($results->success);
|
