ruby/element-in-rt/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 rt</title>
</head>
<body>
<ruby>YYYYYYYY<rt>XXX${text1}ZZZ</rt></ruby>
</body>
</html>];

  open my $file, '>', "$element-2-norb.html";
  print $file qq[<!DOCTYPE html>
<html>
<head>
<title>$element in rt</title>
</head>
<body>
<p><ruby>YYYYYYYY<rt>XXX${text1}ZZZ</rt></ruby></p>
</body>
</html>];
} # generate_test
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 rt</title>
60	</head>
61	<body>
62	<ruby>YYYYYYYY<rt>XXX${text1}ZZZ</rt></ruby>
63	</body>
64	</html>];
65
66	open my $file, '>', "$element-2-norb.html";
67	print $file qq[<!DOCTYPE html>
68	<html>
69	<head>
70	<title>$element in rt</title>
71	</head>
72	<body>
73	<p><ruby>YYYYYYYY<rt>XXX${text1}ZZZ</rt></ruby></p>
74	</body>
75	</html>];
76	} # generate_test