#!/usr/bin/perl -w # -*- perl -*- # # test the generation of HTML lists use strict; use lib qw( ./lib ../lib ); use Pod::POM; use Pod::POM::View::HTML; use Pod::POM::Test; $Pod::POM::DEFAULT_VIEW = 'Pod::POM::View::HTML'; ntests(2); my $text; { local $/ = undef; $text = ; } my ($test, $expect) = split(/\s*-------+\s*/, $text); my $parser = Pod::POM->new(); my $pom = $parser->parse_text($test); assert( $pom ); my $result = "$pom"; for ($result, $expect) { s/^\s*//; s/\s*$//; } match($result, $expect); #print $pom; __DATA__ =head1 Test =over 4 =item * The first item =item * The second item =back =over 4 =item 1 The 1st item =item 2 The 2nd item =back =over 4 =item 1. The 1st item =item 2. The 2nd item =back =over 4 =item foo The foo item =item bar The bar item =item crash bang wallop! The crazy item =back ------------------------------------------------------------------------

Test

  1. The 1st item

  2. The 2nd item

  1. The 1st item

  2. The 2nd item