use strict; use warnings; use Test::More; my $tests = 13; plan tests => $tests; my $class = 'HTML::FormHandler::Field::WeekdayStr'; my $name = $1 if $class =~ /::([^:]+)$/; use_ok( $class ); my $field = $class->new( name => 'test_field', type => $name, multiple => 1, ); ok( defined $field, 'new() called' ); for ( 0 .. 6 ) { $field->input( $_ ); $field->process; ok( !$field->has_errors, $_ . ' is valid' ); } $field->input( -1 ); $field->process; ok( $field->has_errors, '-1 is not valid day of the week' ); $field->input( 7 ); $field->process; ok( $field->has_errors, '7 is not valid day of the week' ); $field->input( [ 1, 3, 5 ] ); $field->process; ok( !$field->has_errors, '1 3 5 is valid days of the week' ); $field->input( [ 1, 3, 7 ] ); $field->process; ok( $field->has_errors, '1 3 7 included invalid 7' );