ruby/element-in-rb/generate.pl

#!/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 => '<a href="/">WWW</a>',
               br => '<br>',
               img => '<img src="../../../support/1.png" alt="WWW">',
               image => '<image src="../../../support/1.png" alt="WWW">',
               isindex => '<isindex>',
               meta => '<meta name="keywords" content="WWW">',
               link => '<link href="/" rel="author" title="WWW">',
               col => '<col>',
               nextid => '<nextid n="1">',
               area => '<area alt="WWW">',
               frame => '<frame src="404">',
               param => '<param name="n" value="v">',
               bgsound => '<bgsound src="404">',
               input => '<input type="text" value="WWW">',
               'event-source' => '<event-source src="404">',
               script => '<script>document.write ("WWW")</script>',
               hr => '<hr>',
               wbr => '<wbr>',
               spacer => '<spacer>',
               commentdecl => '<!-- WWW -->',
               dldtdd => '<dl><dt>WWW</dt><dd>www</dd></dl>',
               ulli => '<ul><li>WWW</li></ul>',
               olli => '<ol><li>WWW</li></ol>',
               menuli => '<menu><li>WWW</li></menu>',
               dirli => '<dir><li>WWW</li></dir>',
               basictable => '<table><tr><td>WWW</td></tr></table>',
               simpleruby => '<ruby><rb>WWW</rb><rt>www</rt></ruby>',
              }->{$element} || qq[<$element>WWW</$element>];

  open my $file, '>', "$element-1-norb.html";
  print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in (implied) rb</title>
</head>
<body>
<ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby>
</body>
</html>];

  open my $file, '>', "$element-1-rb.html";
  print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in rb</title>
</head>
<body>
<ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby>
</body>
</html>];

  open my $file, '>', "$element-2-norb.html";
  print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in (implied) rb</title>
</head>
<body>
<p><ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby></p>
</body>
</html>];

  open my $file, '>', "$element-2-rb.html";
  print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in rb</title>
</head>
<body>
<p><ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby></p>
</body>
</html>];

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

    open my $file, '>', "$element-3-norb.html";
    print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in (implied) rb</title>
</head>
<body>
<ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby>
</body>
</html>];

    open my $file, '>', "$element-3-rb.html";
    print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in rb</title>
</head>
<body>
<ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby>
</body>
</html>];

    open my $file, '>', "$element-4-norb.html";
    print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in (implied) rb</title>
</head>
<body>
<p><ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby></p>
</body>
</html>];

    open my $file, '>', "$element-4-rb.html";
    print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in rb</title>
</head>
<body>
<p><ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby></p>
</body>
</html>];
  }
} # generate_test
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			generate_test ($_) for
5			qw/
6			body comment head header html footer plaintext isindex
7			meta title aside blockquote details div h1 h2 h3 h4 h5 h6
8			map nav section address figure p dd dl dt li label caption
9			col colgroup tbody td tfoot thead tr bdo rb rbc rp rt rtc ruby
10			sub sup abbr acronym cite code dfn em kbd m meter progress q
11			samp strong span time var del ins a base link nextid
12			applet area audio canvas embed video frame iframe image img noembed
13			object param bgsound xml frameset noframes form fieldset legend
14			button command datagrid datalist input keygen dir menu ul ol
15			option output textarea select event-source script noscript
16			server basefont b big blackface blink bt font i s shadow strike
17			small tt u br center hr layer ilayer listing xmp marquee multicol
18			nobr wbr nolayer pre spacer
19			commentdecl dldtdd ulli olli menuli dirli basictable simpleruby
20			/;
21
22			sub generate_test ($) {
23			my $element = shift;
24
25			my $text1 = {
26			a => '<a href="/">WWW</a>',
27			br => '<br>',
28			img => '<img src="../../../support/1.png" alt="WWW">',
29			image => '<image src="../../../support/1.png" alt="WWW">',
30			isindex => '<isindex>',
31			meta => '<meta name="keywords" content="WWW">',
32			link => '<link href="/" rel="author" title="WWW">',
33			col => '<col>',
34			nextid => '<nextid n="1">',
35			area => '<area alt="WWW">',
36			frame => '<frame src="404">',
37			param => '<param name="n" value="v">',
38			bgsound => '<bgsound src="404">',
39			input => '<input type="text" value="WWW">',
40			'event-source' => '<event-source src="404">',
41			script => '<script>document.write ("WWW")</script>',
42			hr => '<hr>',
43			wbr => '<wbr>',
44			spacer => '<spacer>',
45			commentdecl => '<!-- WWW -->',
46			dldtdd => '<dl><dt>WWW</dt><dd>www</dd></dl>',
47			ulli => '<ul><li>WWW</li></ul>',
48			olli => '<ol><li>WWW</li></ol>',
49			menuli => '<menu><li>WWW</li></menu>',
50			dirli => '<dir><li>WWW</li></dir>',
51			basictable => '<table><tr><td>WWW</td></tr></table>',
52			simpleruby => '<ruby><rb>WWW</rb><rt>www</rt></ruby>',
53			}->{$element} \|\| qq[<$element>WWW</$element>];
54
55			open my $file, '>', "$element-1-norb.html";
56			print $file qq[<!DOCTYPE html>
57			<html>
58			<head>
59			<title>$element in (implied) rb</title>
60			</head>
61			<body>
62			<ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby>
63			</body>
64			</html>];
65
66			open my $file, '>', "$element-1-rb.html";
67			print $file qq[<!DOCTYPE html>
68			<html>
69			<head>
70			<title>$element in rb</title>
71			</head>
72			<body>
73			<ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby>
74			</body>
75			</html>];
76
77			open my $file, '>', "$element-2-norb.html";
78			print $file qq[<!DOCTYPE html>
79			<html>
80			<head>
81			<title>$element in (implied) rb</title>
82			</head>
83			<body>
84			<p><ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby></p>
85			</body>
86			</html>];
87
88			open my $file, '>', "$element-2-rb.html";
89			print $file qq[<!DOCTYPE html>
90			<html>
91			<head>
92			<title>$element in rb</title>
93			</head>
94			<body>
95			<p><ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby></p>
96			</body>
97			</html>];
98
99			if ({
100			blockquote => 1,
101			div => 1,
102			}->{$element}) {
103			my $text1 = qq[<$element><p>WWW</p></$element>];
104
105			open my $file, '>', "$element-3-norb.html";
106			print $file qq[<!DOCTYPE html>
107			<html>
108			<head>
109			<title>$element in (implied) rb</title>
110			</head>
111			<body>
112			<ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby>
113			</body>
114			</html>];
115
116			open my $file, '>', "$element-3-rb.html";
117			print $file qq[<!DOCTYPE html>
118			<html>
119			<head>
120			<title>$element in rb</title>
121			</head>
122			<body>
123			<ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby>
124			</body>
125			</html>];
126
127			open my $file, '>', "$element-4-norb.html";
128			print $file qq[<!DOCTYPE html>
129			<html>
130			<head>
131			<title>$element in (implied) rb</title>
132			</head>
133			<body>
134			<p><ruby>XX${text1}ZZZZ<rt>YYYYYYYYYYYY</rt></ruby></p>
135			</body>
136			</html>];
137
138			open my $file, '>', "$element-4-rb.html";
139			print $file qq[<!DOCTYPE html>
140			<html>
141			<head>
142			<title>$element in rb</title>
143			</head>
144			<body>
145			<p><ruby><rb>XX${text1}ZZZZ</rb><rt>YYYYYYYYYYYY</rt></ruby></p>
146			</body>
147			</html>];
148			}
149			} # generate_test