use strict;
use warnings;
use Test::More tests => 2;

use HTML::FormFu;
use lib 'lib';

my $original_foo = "abc123";
my $deflated_foo = "ABC123";

my $original_bar = "abcdef";
my $deflated_bar = "ABCdef";

my $form = HTML::FormFu->new(
    { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );

$form->element({
    name      => 'foo',
    default  => $original_foo,
    deflator => {
        type     => 'Callback',
        callback => sub { return uc($_[0]) },
    },
});

$form->element({
    name     => 'bar',
    default  => $original_bar,
    deflator => {
        type      => 'Callback',
        callback => 'DeflatorCallback::my_def',
    },
});

$form->process;

like( $form->get_field('foo'), qr/\Q$deflated_foo/ );
like( $form->get_field('bar'), qr/\Q$deflated_bar/ );

{

    package DeflatorCallback;
    use strict;
    use warnings;

    sub my_def {
        my ($value) = @_;

        $value =~ tr/abc/ABC/;

        return $value;
    }
}