Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

113 lines (96 sloc) 2.173 kb
#!/bin/perl -w
use strict;
use Test::More tests => 17;
use CGI::Pretty ':all';
is(h1(), '<h1 />
',"single tag");
is(ol(li('fred'),li('ethel')), <<HTML, "basic indentation");
<ol>
<li>
fred
</li>
<li>
ethel
</li>
</ol>
HTML
is(p('hi',pre('there'),'frog'), <<HTML, "<pre> tags");
<p>
hi <pre>there</pre> frog
</p>
HTML
is(h1({-align=>'CENTER'},'fred'), <<HTML, "open/close tag with attribute");
<h1 align="CENTER">
fred
</h1>
HTML
is(h1({-align=>undef},'fred'), <<HTML,"open/close tag with orphan attribute");
<h1 align>
fred
</h1>
HTML
is(h1({-align=>'CENTER'},['fred','agnes']), <<HTML, "distributive tag with attribute");
<h1 align="CENTER">
fred
</h1>
<h1 align="CENTER">
agnes
</h1>
HTML
is(p('hi',a({-href=>'frog'},'there'),'frog'), <<HTML, "as-is");
<p>
hi <a href="frog">there</a> frog
</p>
HTML
is(p([ qw( hi there frog ) ] ), <<HTML, "array-reference");
<p>
hi
</p>
<p>
there
</p>
<p>
frog
</p>
HTML
is(p(p(p('hi'), 'there' ), 'frog'), <<HTML, "nested tags");
<p>
<p>
<p>
hi
</p>
there
</p>
frog
</p>
HTML
is(table(TR(td(table(TR(td('hi', 'there', 'frog')))))), <<HTML, "nested as-is tags");
<table>
<tr>
<td><table>
<tr>
<td>hi there frog</td>
</tr>
</table></td>
</tr>
</table>
HTML
is(table(TR(td(table(TR(td( [ qw( hi there frog ) ])))))), <<HTML, "nested as-is array-reference");
<table>
<tr>
<td><table>
<tr>
<td>hi</td><td>there</td><td>frog</td>
</tr>
</table></td>
</tr>
</table>
HTML
$CGI::Pretty::INDENT = $CGI::Pretty::LINEBREAK = "";
is(h1(), '<h1 />',"single tag (pretty turned off)");
is(h1('fred'), '<h1>fred</h1>',"open/close tag (pretty turned off)");
is(h1('fred','agnes','maura'), '<h1>fred agnes maura</h1>',"open/close tag multiple (pretty turned off)");
is(h1({-align=>'CENTER'},'fred'), '<h1 align="CENTER">fred</h1>',"open/close tag with attribute (pretty turned off)");
is(h1({-align=>undef},'fred'), '<h1 align>fred</h1>',"open/close tag with orphan attribute (pretty turned off)");
is(h1({-align=>'CENTER'},['fred','agnes']), '<h1 align="CENTER">fred</h1> <h1 align="CENTER">agnes</h1>',
"distributive tag with attribute (pretty turned off)");
Jump to Line
Something went wrong with that request. Please try again.