Commit | Line | Data |
6b4ac661 |
1 | #!/usr/local/bin/perl -w |
3d1a2ec4 |
2 | |
f0c07f2e |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | if ($ENV{PERL_CORE}) { |
6 | @INC = '../lib'; |
7 | } else { |
8 | unshift @INC, qw( ../blib/lib ../blib/arch lib ); |
9 | } |
10 | } |
11 | |
ac734d8b |
12 | use strict; |
ac734d8b |
13 | use Test::More tests => 5; |
14 | |
15 | BEGIN { use_ok('CGI::Pretty') }; |
16 | |
17 | # This is silly use_ok should take arguments |
18 | use CGI::Pretty (':all'); |
19 | |
20 | is(h1(), '<h1>',"single tag"); |
21 | |
22 | is(ol(li('fred'),li('ethel')), <<HTML, "basic indentation"); |
23 | <ol> |
24 | <li> |
25 | fred |
26 | </li> |
27 | <li> |
28 | ethel |
29 | </li> |
30 | </ol> |
31 | HTML |
32 | |
33 | |
34 | is(p('hi',pre('there'),'frog'), <<HTML, "<pre> tags"); |
35 | <p> |
6b4ac661 |
36 | hi <pre>there</pre> |
ac734d8b |
37 | frog |
6b4ac661 |
38 | </p> |
ac734d8b |
39 | HTML |
40 | |
41 | |
42 | is(p('hi',a({-href=>'frog'},'there'),'frog'), <<HTML, "as-is"); |
43 | <p> |
6b4ac661 |
44 | hi <a href="frog">there</a> |
ac734d8b |
45 | frog |
6b4ac661 |
46 | </p> |
ac734d8b |
47 | HTML |
48 | |