Form-Processor-Field-URI/t/03.t

   1 use strict;
   2 use warnings;
   3 use lib './t';
   4 use Test::More tests   => 4;
   5
   6 use Form::Processor::Field::URI;
   7
   8 my $field = Form::Processor::Field::URI->new(
   9     name    => 'test_field',
  10     type    => 'uri',
  11     form    => undef
  12 );
  13
  14 ok( defined $field,  'new() called' );
  15
  16 $field->input( 'foo' );
  17 $field->validate_field;
  18 ok( $field->has_error );
  19
  20 $field->input( 'http://google.com' );
  21 $field->validate_field;
  22 ok( !$field->has_error );
  23
  24 $field->input( 'https://google.com' );
  25 $field->validate_field;
  26 ok( !$field->has_error );