my $field = Data::MuForm::Field::Text->new( name => 'password', type => 'Text', required => 1, password => 1, ); is( $field->password, 1, 'password is set'); $field->value('abcdef'); is( $field->fif, '', 'no fif for password');

{ package My::Form; use Moo; extends 'Data::MuForm';

sub field_list {
    return [
            login       => 'Text',
            username    => 'Text',
            password    => { type => 'Password',
                             minlength => 6,
                           },
       ];
}

}

my $form = My::Form->new; my $params = { username => 'my4username', password => 'something' }; $form->process( $params );

$field = $form->field('password'); ok( $field, 'got password field' );

$field->input( '2192ab201def' ); $field->field_validate; ok( !$field->has_errors, 'Test for errors 1' );

$field->input( 'ab1' ); $field->field_validate; ok( $field->has_errors, 'too short' ); $field->clear_errors;

$field->input( '' ); $field->field_validate; ok( !$field->has_errors, 'empty password accepted' ); is($field->no_update, 1, 'noupdate has been set on password field' );

my $pass = 'my4user5name'; $field->input( $pass ); $field->field_validate; ok( !$field->has_errors, 'just right' ); is ( $field->value, $pass, 'Input and value match' );