5 2_fill_05_textarea.t - Test CGI::Ex::Fill's ability to fill textarea fields
10 use Test::More tests => 3;
12 use_ok('CGI::Ex::Fill');
14 my $hidden_form_in = qq{<TEXTAREA NAME="foo">blah</TEXTAREA>};
16 my %fdat = (foo => 'bar>bar');
18 my $output = CGI::Ex::Fill::form_fill($hidden_form_in,
20 ok($output eq '<TEXTAREA NAME="foo">bar>bar</TEXTAREA>',
21 "Output should match ($output)");
27 $output = CGI::Ex::Fill::form_fill($hidden_form_in,
29 ok($output eq '<TEXTAREA NAME="foo"></TEXTAREA>',
30 "Output should match ($output)");