1 #!/usr/local/bin/perl -w
4 use lib 't/lib','../blib/lib','./blib/lib';
5 use Test::More tests => 5;
7 BEGIN { use_ok('CGI::Pretty') };
9 # This is silly use_ok should take arguments
10 use CGI::Pretty (':all');
12 is(h1(), '<h1>',"single tag");
14 is(ol(li('fred'),li('ethel')), <<HTML, "basic indentation");
26 is(p('hi',pre('there'),'frog'), <<HTML, "<pre> tags");
34 is(p('hi',a({-href=>'frog'},'there'),'frog'), <<HTML, "as-is");
36 hi <a href="frog">there</a>