#!/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 => 'WWW', image => 'WWW', isindex => '', meta => '', link => '', col => '', nextid => '', area => 'WWW', frame => '', param => '', bgsound => '', input => '', 'event-source' => '', script => '', hr => '
', wbr => '', spacer => '', commentdecl => '', dldtdd => '
WWW
www
', ulli => '
  • WWW
', olli => '
  1. WWW
', menuli => '
  • WWW
    • ', dirli => '
  • WWW
    • ', basictable => '
    WWW
    ', simpleruby => 'WWWwww', }->{$element} || qq[<$element>WWW]; open my $file, '>', "$element-1-norb.html"; print $file qq[ $element in (implied) rb XX${text1}ZZZZYYYYYYYYYYYY ]; open my $file, '>', "$element-1-rb.html"; print $file qq[ $element in rb XX${text1}ZZZZYYYYYYYYYYYY ]; open my $file, '>', "$element-2-norb.html"; print $file qq[ $element in (implied) rb

    XX${text1}ZZZZYYYYYYYYYYYY

    ]; open my $file, '>', "$element-2-rb.html"; print $file qq[ $element in rb

    XX${text1}ZZZZYYYYYYYYYYYY

    ]; if ({ blockquote => 1, div => 1, }->{$element}) { my $text1 = qq[<$element>

    WWW

    ]; open my $file, '>', "$element-3-norb.html"; print $file qq[ $element in (implied) rb XX${text1}ZZZZYYYYYYYYYYYY ]; open my $file, '>', "$element-3-rb.html"; print $file qq[ $element in rb XX${text1}ZZZZYYYYYYYYYYYY ]; open my $file, '>', "$element-4-norb.html"; print $file qq[ $element in (implied) rb

    XX${text1}ZZZZYYYYYYYYYYYY

    ]; open my $file, '>', "$element-4-rb.html"; print $file qq[ $element in rb

    XX${text1}ZZZZYYYYYYYYYYYY

    ]; } } # generate_test