#! /usr/bin/perl # #=============================================================================== # # FILE: options.t # # DESCRIPTION: Test variations in output that result from command-line options # # FILES: --- # BUGS: --- # NOTES: --- # AUTHOR: Geoffrey Leach, # VERSION: 1.0 # CREATED: 10/16/07 14:46:57 PDT # REVISION: --- # #=============================================================================== use 5.006002; use strict; use warnings; use lib qw(./t); use Run qw(run ); use Pod::HtmlEasy::Data qw(NL body); use File::Slurp; use version; our $VERSION = qv('1.0.1'); #--------------------------- test 4 run( q{Empty POD file}, undef, [], [], ); #--------------------------- test 5 my $outfile = q{./test.html}; run(q{Output to file}, # Null pod file => =pod/=cut [], [], [], { outfile => $outfile, title => $outfile, no_css => 1, no_index => 1, no_generator => 1, }, ); #--------------------------- test 6 run(q{Generator HTML}, [], [], [], { no_css => 1, no_index => 1, }, ); #--------------------------- test 7 run(q{Index prototype}, [], [], [], { no_css => 1, no_generator => 1, }, ); #--------------------------- test 8 run(q{User-specified index}, [], [], [ q{foo => bar}, ], { index => q{foo => bar}, no_css => 1, no_generator => 1, }, ); #--------------------------- test 9 run(q{Standard CSS}, [], [], [], { no_index => 1, no_generator => 1, }, ); #--------------------------- test 10 run(q{CSS from file}, [], [], [], { # Specify a file for the css. We're only testing the HTML output, # so there's no actual file, in case you're checking the rendering. css => q{test.css}, no_index => 1, no_generator => 1, }, ); #--------------------------- test 11 my $test_css = << "TEST_CSS"; BODY { background: blue; color: black; font-family: arial,sans-serif; margin: 0; padding: 1ex; } TEST_CSS run(q{CSS from option}, [], [], [], { # Specify stuff for css css => qq{$test_css}, no_index => 1, no_generator => 1, }, ); #--------------------------- test 12 run(q{Default }, [], [], [], { no_css => 1, no_index => 1, no_generator => 1, }, ); #--------------------------- test 13 run(q{Custom , single change}, [], [], [], { no_css => 1, no_index => 1, no_generator => 1, body => { alink => '#XXXXXX' }, }, ); #--------------------------- test 14 my $body = q{alink="#AAAAAA" bgcolor="#BBBBBB" link="#CCCCCC" } . q{text="#DDDDDD" vlink="#EEEEEE"}; run(q{Custom , multiple changes}, [], [], [], { no_css => 1, no_index => 1, no_generator => 1, body => $body, }, ); #--------------------------- test 15 run(q{Testing TOP literal option}, [ q{=head1 NAME Testing TOP literal option}, ], [ q{

NAME Testing } . q{TOP literal option&Z;

}, ], [ q{
  • NAME Testing } . q{TOP literal option
    • }, ], { title => q{Testing TOP literal option}, no_css => 1, no_generator => 1, top => q{Z}, }, ); #--------------------------- test 16 my $top_file = q{top.jpg}; write_file( $top_file, '' ); run(q{Testing TOP file option}, [ q{=head1 NAME Testing TOP file option}, ], [ q{

    NAME Testing TOP file option} . qq{

    }, ], [ q{
  • NAME Testing TOP file option
    • }, ], { title => q{Testing TOP file option}, no_css => 1, no_generator => 1, top => q{top.jpg}, }, ); unlink $top_file; #--------------------------- test 17 run(q{Verify index_item}, [ q{=head1 NAME Verify index_item}, q{=head2 Verify head2 level}, q{=item Item 1}, q{This is item 1}, q{=item Item 2}, q{This is item 2}, q{=item *}, q{Starred item}, q{=item * title star}, q{Title starred item}, q{=head2 Verify head2 new level}, ], [ q{

    NAME Verify index_item

    }, q{

    Verify head2 level

    }, q{
  • Item 1
    • }, q{

    This is item 1

    }, q{
  • Item 2
    • }, q{

    This is item 2

    }, q{
  • Starred item
    • }, q{
  • title star
    • }, q{

    Title starred item

    }, q{

    Verify head2 new level

    }, ], [ q{
  • NAME Verify index_item
    • }, q{}, ], { title => q{Verify index_item}, no_css => 1, index_item => 1, no_generator => 1, }, ); #--------------------------- test 18 run( q{Testing only_content}, [], [], [], { only_content => 1, }, ); #--------------------------- test 19 my $htmleasy = Pod::HtmlEasy->new( on_G => sub { my ( $this, $txt ) = @_; return ""; }, ); run(q{User formatting command}, [ # It's not an error if this file is missing, # which it is, in this case q{G<./graphic-file.jpg>}, ], [ q{

    }, ], [], { htmleasy => $htmleasy, no_css => 1, no_generator => 1, } ); #--------------------------- test 20 run(q{STDIN => STDOUT}, # Null pod file => =pod/=cut [], [], [], { stdio => 1, title => q{STDINtoSTDOUT}, no_css => 1, no_index => 1, no_generator => 1, }, );