view release on metacpan or  search on metacpan

t/FV_length.t  view on Meta::CPAN

    },
    msgs => {
      constraints => {
        ok_length => 'Not an OK length',
        length    => 'Wrong Length',
      }
    },
  } );

ok( defined $result );

# Test multi-line input: someone might be using this for a textarea or somesuch

my $multiline_result = Data::FormValidator->check(
  my $expect = {
    alpha   => "apple\naeroplane\n",        # 16 char
    beta    => "bus\nbuffalo\n",            # 12 char
    charlie => "cat\ncoconut\ncoffee\n",    # 19 char
    delta   => "dog\ndinosaur\n",           # 13 char
    echo    => "egg\nelephant\nemu\n",      # 17 char
    foxtrot => "flan\nfrog\n",              # 10 char
    golf    => "giraffe\ngrapefruit\n",     # 19 char
  },
  {
    required                => [qw/alpha beta charlie delta echo foxtrot golf/],
    untaint_all_constraints => 1,
    constraint_methods      => {
      alpha   => FV_max_length(16),              # max length
      beta    => FV_max_length(11),              # too long
      charlie => FV_min_length(19),              # just long enough
      delta   => FV_min_length(14),              # too short
      echo    => FV_length_between( 16, 18 ),    # just right
      foxtrot => FV_length_between( 11, 13 ),    # too short
      golf    => FV_length_between( 16, 18 ),    # too long
    },
  },
);

ok( $multiline_result->valid('alpha'),   'multiline FV_max_length in bounds' );
ok( $multiline_result->invalid('beta'),  'multiline FV_max_length too long' );
ok( $multiline_result->valid('charlie'), 'multiline FV_min_length in bounds' );
ok( $multiline_result->invalid('delta'), 'multiline FV_min_length too short' );
ok( $multiline_result->valid('echo'), 'multiline FV_length_between in bounds' );
ok(
  $multiline_result->invalid('foxtrot'),
  'multiline FV_length_between too short'
);
ok( $multiline_result->invalid('golf'),
  'multiline FV_length_between too long' );

# check expected values for valid untainted fields
for my $field (qw( alpha charlie echo ))
{
  is( $multiline_result->valid($field), $expect->{$field}, "identity $field" );
}

# Test "long" results. Early implementations checked length with
# regular expressions which limit length options to 32kb.
# The 80000 char test string is an arbitrary length.
# good a value as any other. And it's pretty long.
# Just for good measure we'll use the unicode smiley character (as seen in
# perluniintro) in our test string.

my $smiley      = "\x{263a}";            # Thats "smiling face, white" folks!
my $long_string = "x$smiley" x 40000;    # results in a 80000 length string
my $long_result = Data::FormValidator->check( {
    alpha   => $long_string,
    beta    => $long_string,
    charlie => $long_string,
    delta   => $long_string,
    echo    => $long_string,
    foxtrot => $long_string,
    golf    => $long_string,
  },
  {
    required           => [qw/alpha beta charlie delta echo foxtrot golf/],
    constraint_methods => {
      alpha   => FV_max_length(80000),                 # max length
      beta    => FV_max_length(79999),                 # too long
      charlie => FV_min_length(80000),                 # just long enough
      delta   => FV_min_length(80001),                 # too short
      echo    => FV_length_between( 79999, 80001 ),    # just right
      foxtrot => FV_length_between( 80001, 80000 ),    # too short
      golf    => FV_length_between( 70000, 79999 ),    # too long
    },
  },
);

ok( $long_result->valid('alpha'),     'long FV_max_length in bounds' );
ok( $long_result->invalid('beta'),    'long FV_max_length too long' );
ok( $long_result->valid('charlie'),   'long FV_min_length in bounds' );
ok( $long_result->invalid('delta'),   'long FV_min_length too short' );
ok( $long_result->valid('echo'),      'long FV_length_between in bounds' );
ok( $long_result->invalid('foxtrot'), 'long FV_length_between too short' );
ok( $long_result->invalid('golf'),    'long FV_length_between too long' );