d3c19c0c98fcb3faa515e1b36aa5f7ed947cf223
[perl.git] / cpan / CGI / t / pretty.t
1 #!/bin/perl -w
2
3 use strict;
4 use lib '.', 't/lib','../blib/lib','./blib/lib';
5 use Test::More tests => 18;
6
7 BEGIN { use_ok('CGI::Pretty') };
8
9 # This is silly use_ok should take arguments
10 use CGI::Pretty (':all');
11
12 is(h1(), '<h1 />
13 ',"single tag");
14
15 is(ol(li('fred'),li('ethel')), <<HTML,   "basic indentation");
16 <ol>
17         <li>
18                 fred
19         </li>
20         <li>
21                 ethel
22         </li>
23 </ol>
24 HTML
25
26
27 is(p('hi',pre('there'),'frog'), <<HTML, "<pre> tags");
28 <p>
29         hi <pre>there</pre>
30         frog
31 </p>
32 HTML
33
34 is(h1({-align=>'CENTER'},'fred'), <<HTML, "open/close tag with attribute");
35 <h1 align="CENTER">
36         fred
37 </h1>
38 HTML
39
40 is(h1({-align=>undef},'fred'), <<HTML,"open/close tag with orphan attribute");
41 <h1 align>
42         fred
43 </h1>
44 HTML
45
46 is(h1({-align=>'CENTER'},['fred','agnes']), <<HTML, "distributive tag with attribute");
47 <h1 align="CENTER">
48         fred
49 </h1>
50 <h1 align="CENTER">
51         agnes
52 </h1>
53 HTML
54
55 is(p('hi',a({-href=>'frog'},'there'),'frog'), <<HTML,   "as-is");
56 <p>
57         hi <a href="frog">there</a>
58         frog
59 </p>
60 HTML
61
62 is(p([ qw( hi there frog ) ] ), <<HTML,   "array-reference");
63 <p>
64         hi
65 </p>
66 <p>
67         there
68 </p>
69 <p>
70         frog
71 </p>
72 HTML
73
74 is(p(p(p('hi'), 'there' ), 'frog'), <<HTML,   "nested tags");
75 <p>
76         <p>
77                 <p>
78                         hi
79                 </p>
80                 there
81         </p>
82         frog
83 </p>
84 HTML
85
86 is(table(TR(td(table(TR(td('hi', 'there', 'frog')))))), <<HTML,   "nested as-is tags");
87 <table>
88         <tr>
89                 <td><table>
90                         <tr>
91                                 <td>hi there frog</td>
92                         </tr>
93                 </table></td>
94         </tr>
95 </table>
96 HTML
97
98 is(table(TR(td(table(TR(td( [ qw( hi there frog ) ])))))), <<HTML,   "nested as-is array-reference");
99 <table>
100         <tr>
101                 <td><table>
102                         <tr>
103                                 <td>hi</td>
104                                 <td>there</td>
105                                 <td>frog</td>
106                         </tr>
107                 </table></td>
108         </tr>
109 </table>
110 HTML
111
112 $CGI::Pretty::INDENT = $CGI::Pretty::LINEBREAK = ""; 
113
114 is(h1(), '<h1 />',"single tag (pretty turned off)");
115 is(h1('fred'), '<h1>fred</h1>',"open/close tag (pretty turned off)");
116 is(h1('fred','agnes','maura'), '<h1>fred agnes maura</h1>',"open/close tag multiple (pretty turned off)");
117 is(h1({-align=>'CENTER'},'fred'), '<h1 align="CENTER">fred</h1>',"open/close tag with attribute (pretty turned off)");
118 is(h1({-align=>undef},'fred'), '<h1 align>fred</h1>',"open/close tag with orphan attribute (pretty turned off)");
119 is(h1({-align=>'CENTER'},['fred','agnes']), '<h1 align="CENTER">fred</h1> <h1 align="CENTER">agnes</h1>',
120    "distributive tag with attribute (pretty turned off)");
121