# -*-perl-*-
=head1 NAME
2_fill_00_base.t - Test CGI::Ex::Fill's base ability.
=cut
use strict;
use Test::More tests => 6;
use_ok qw(CGI::Ex::Fill);
###----------------------------------------------------------------###
my $form = {foo => "FOO", bar => "BAR", baz => "BAZ"};
my $html = '
';
CGI::Ex::Fill::form_fill(\$html, $form);
ok(
$html eq '
', "perldoc example 1 passed");
#print $html;
###----------------------------------------------------------------###
$form = {foo => ['aaaa', 'bbbb', 'cccc']};
$html = '
';
form_fill(\$html, $form);
ok(
$html eq '
', "Perldoc example 2 passed");
#print $html;
###----------------------------------------------------------------###
$form = {foo => 'FOO', bar => ['aaaa', 'bbbb', 'cccc'], baz => 'on'};
$html = '
';
form_fill(\$html, $form);
ok(
$html eq '
', "Perldoc example 3 passed");
#print $html;
###----------------------------------------------------------------###
$form = {foo => 'FOO', bar => ['aaaa', 'bbbb', 'cccc']};
$html = '