package main;

#
# Default behavior, EXCEPT:
#    ignore_fields => ['aaa']
#

use Test::More tests => 3;
use lib 't/lib';
use Catalyst::Test 'TestApp2';

use HTML::Parser ();
my $p = HTML::Parser->new(
   start_h => [\&html_parser_start, "self,tagname,attr"],
);

my $url = '/?aaa=one&bbb=two&ccc=three&ddd=four';

my $parsed_html;
{
    ok( my $response = request($url), 'Normal Request'  );
    is( $response->code, 200,         'OK status code'  );
    $p->parse($response->content);
    is( $parsed_html,
        "form1:aaa||bbb|two|ccc|three|ddd|four|" .
        "form2:aaa||bbb|two|ccc|three|ddd|four|",
                                      'Re-Parsed HTML'  );
}

sub html_parser_start {
    my($self, $tag, $attr) = @_;
    if ($tag eq "form") {
       $parsed_html .= $attr->{name} . ":";
    } elsif ($tag eq "input") {
       $parsed_html .= sprintf("%s|%s|", $attr->{name}, $attr->{value});
    }
}