lib/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