plan tests => 6;
require_ok( 'XHTML::Instrumented' );
require_ok( 'XHTML::Instrumented::Form' );
my $data = <<DATA;
<div>
<input type="text" name="remove_me" id="remove_me" />
<input type="text" name="dont_remove_me" id="dont_remove_me" />
</div>
DATA
my $cmp = <<DATA;
<div>
<input type="text" name="remove_me" id="remove_me" />
<input type="text" name="dont_remove_me" id="dont_remove_me" />
</div>
DATA
my $x = XHTML::Instrumented->new(name => \$data, type => '');
my $output = $x->output(
);
is_xml($output, $cmp, 'control');
$cmp = <<DATA;
<div>
<input type="text" name="dont_remove_me" id="dont_remove_me" />
</div>
DATA
$output = $x->output(
remove_me => $x->replace(remove => 1),
);
is_xml($output, $cmp, 'simple');
$data = <<DATA;
<div>
<form name="bob">
<input type="text" name="remove_me" id="remove_me" />
<input type="text" name="dont_remove_me" id="dont_remove_me" />
</form>
</div>
DATA
$cmp = <<DATA;
<div>
<form method="post" name="bob">
<input type="text" name="remove_me" id="remove_me" value="" />
<input type="text" name="dont_remove_me" id="dont_remove_me" value="" />
</form>
</div>
DATA
$x = XHTML::Instrumented->new(name => \$data, type => '');
$form = XHTML::Instrumented::Form->new();
my $q = $form->add_element(
name => "remove_me",
type => 'text',
remove => 1,
);
$form->add_element(
name => "dont_remove_me",
type => 'text',
);
$output = $x->output(
bob => $form,
);
$cmp = <<DATA;
<div>
<form method="post" name="bob">
<input type="text" name="dont_remove_me" id="dont_remove_me" value="" />
</form>
</div>
DATA
is_xml($output, $cmp, 'form control');
$output = $x->output(
# remove_me => $x->replace(remove => 1),
bob => $form,
);
is_xml($output, $cmp, 'simple');