|
my $tests = 7;
plan tests => $tests ;
my $class = 'HTML::FormHandler::Field::Minute' ;
my $name = $1 if $class =~ /::([^:]+)$/;
use_ok( $class );
my $field = $class ->new(
name => 'test_field' ,
type => $name ,
);
ok( defined $field , 'new() called' );
$field ->input( 0 );
$field ->process;
ok( ! $field ->has_errors, '0 in range' );
$field ->input( 59 );
$field ->process;
ok( ! $field ->has_errors, '59 in range' );
$field ->input( 12 );
$field ->process;
ok( ! $field ->has_errors, '12 in range' );
$field ->input( -1 );
$field ->process;
ok( $field ->has_errors, '-1 out of range' );
$field ->input( 60 );
$field ->process;
ok( $field ->has_errors, '60 out of range' );
|