Common-Validator/t/field.t

   1 use strict;
   2 use Test::More tests => 15;
   3
   4 use Common::Validator::Field;
   5 use Common::Validator::Constraint::Length;
   6
   7 my $field = Common::Validator::Field->new( name => 'username', required => 1 );
   8
   9 ok( $field );
  10
  11 is( $field->name,     'username' );
  12 is( $field->required, 1 );
  13 is_deeply( $field->constraints, [] );
  14
  15 $field->add_constraint(
  16     Common::Validator::Constraint::Length->new( args => [ 3, 14 ] )
  17 );
  18
  19 ok( not defined $field->value );
  20
  21 $field->value( 'ab' );
  22
  23 is( $field->is_defined(), 1 );
  24 is( $field->is_empty(),   0 );
  25
  26 is( $field->value(), 'ab' );
  27
  28 ok( not defined $field->error );
  29
  30 is( $field->is_valid(), 0 );
  31
  32 ok( $field->error );
  33
  34 $field->value( undef );
  35
  36 is( $field->is_defined(), 0 );
  37 is( $field->is_empty(),   1 );
  38
  39 $field->value( '' );
  40 is( $field->is_defined(), 1 );
  41 is( $field->is_empty(),   1 );
  42
  43 #is( $field->error, Common::Validator::Constraint::Length->errorstr );