1 #!/usr/local/bin/perl -w
8 unshift @INC, qw( ../blib/lib ../blib/arch lib );
13 use Test::More tests => 5;
15 BEGIN { use_ok('CGI::Pretty') };
17 # This is silly use_ok should take arguments
18 use CGI::Pretty (':all');
20 is(h1(), '<h1>',"single tag");
22 is(ol(li('fred'),li('ethel')), <<HTML, "basic indentation");
34 is(p('hi',pre('there'),'frog'), <<HTML, "<pre> tags");
42 is(p('hi',a({-href=>'frog'},'there'),'frog'), <<HTML, "as-is");
44 hi <a href="frog">there</a>