#!/usr/bin/perl
use strict;
generate_test ($_) for
qw/
body comment head header html footer plaintext isindex
meta title aside blockquote details div h1 h2 h3 h4 h5 h6
map nav section address figure p dd dl dt li label caption
col colgroup tbody td tfoot thead tr bdo rb rbc rp rt rtc ruby
sub sup abbr acronym cite code dfn em kbd m meter progress q
samp strong span time var del ins a base link nextid
applet area audio canvas embed video frame iframe image img noembed
object param bgsound xml frameset noframes form fieldset legend
button command datagrid datalist input keygen dir menu ul ol
option output textarea select event-source script noscript
server basefont b big blackface blink bt font i s shadow strike
small tt u br center hr layer ilayer listing xmp marquee multicol
nobr wbr nolayer pre spacer
commentdecl dldtdd ulli olli menuli dirli basictable simpleruby
/;
sub generate_test ($) {
my $element = shift;
my $text1 = {
a => 'WWW',
br => ' ',
img => '',
image => '',
isindex => '',
meta => '',
link => '',
col => '
',
image => '