#!/usr/bin/perl -w #$Id: 01defaults.t,v 1.17 2005/07/15 10:28:37 simonf Exp $ use strict; use lib qw(./lib ../lib); use Test; use Pod::Xhtml; use Getopt::Std; getopts('tTs', \my %opt); if ($opt{t} || $opt{T}) { require Log::Trace; import Log::Trace print => {Deep => $opt{T}}; } if (-d 't') { chdir( 't' ); } require Test_LinkParser; my $filecont; my $podia = 'a.pod'; my $podoa = 'a.xhtml'; unlink $podoa if -e $podoa; plan tests => 13; ok( $Pod::Xhtml::VERSION ); my $pod_links = Test_LinkParser->new(); my $parser = Pod::Xhtml->new(LinkParser => $pod_links); #### try parsing from file ok( ! -f $podoa ); $parser->parse_from_file( $podia, $podoa ); ok( -f $podoa ); $filecont = readfile( $podoa ); ok( $filecont ); ok( index( $filecont, cont_a() ) > -1 ); undef $filecont; unlink $podoa; #### parsing from filehandles ok( ! -f $podoa ); open(OUT, '>'.$podoa) or die("Can't open out $podoa: $!"); $parser->parse_from_filehandle( \*DATA, \*OUT ); close OUT; ok( -f $podoa ); $filecont = readfile( $podoa ); ok( $filecont ); ok( index( $filecont, cont_a() ) > -1 ); undef $filecont; unlink $podoa unless $opt{'s'}; my $podib = 'b.pod'; my $podob = 'b.xhtml'; ok ( !-f $podob ); $parser->parse_from_file( $podib, $podob ); ok ( -f $podob ); $filecont = readfile( $podob ); ok( $filecont ); ok( index( $filecont, cont_b() ) > -1 ); undef $filecont; unlink $podob unless $opt{'s'}; sub cont_a { return q{

Index

NAME
SYNOPSIS
DESCRIPTION
Sed diam nomumny
METHODS
ATTRIBUTES
ISSUES
- KNOWN ISSUES
- UNKNOWN ISSUES

NAME

A - Some demo POD

SYNOPSIS

	use Pod::Xhtml;
	my $px = new Pod::Xhtml;

DESCRIPTION

This is a module to translate POD to Xhtml. Lorem ipsum Dolor in Dolor sit amet consectueur adipscing elit. Sed diam nomumny. This is a module to translate POD to Xhtml. The Lorem entry ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. This is a module to translate POD to Xhtml. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. This is a module to translate POD to Xhtml. See Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. http://foo.bar/baz/

METHODS

Nested blocks

Pod::Xhtml now supports nested over/item/back blocks:

Point 1
Point Number 2
Item three

Point four

Still point four

  This is verbatim text in a bulleted list

  This is verbatim test in a regular list

ATTRIBUTES

Lorem: Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny.
Ipsum: Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny.
Dolor( $foo ): Lorem ipsum dolor sit amet consectueur .... elit. Sed diam nomumny.

ISSUES

KNOWN ISSUES

There are some issues known about. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. SPACES ARE IMPORTANT

UNKNOWN ISSUES

There are also some issues not known about. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny.

}; } sub cont_b { return q{

Index

NAME
SYNOPSIS
- SUB-SYNOPSIS
DESCRIPTION
LINKS
ISSUES
- KNOWN ISSUES

NAME

B - Some demo POD

SYNOPSIS

	use Pod::Xhtml;
	my $px = new Pod::Xhtml;

SUB-SYNOPSIS

To test returning back to head1.

DESCRIPTION

This is a module to translate POD to Xhtml. Lorem ipsum Dolor in Dolor sit amet consectueur adipscing elit. Sed diam nomumny.

LINKS

@ARGV should link to the as-yet undefined "@ARGV" section

Whereas $ARGV shouldn't. It should link to the undefined "$ARGV" section

ISSUES

KNOWN ISSUES

$ARGV

Is sometimes undefined

@ARGV

Is occasionally populated with the numbers 1, 2, 3, 4, 5, 6, 7, 8, 9 and 10

%ARGV

Does not exist

Test for Escaped HTML in Marked text

<meta />

R&R

"hello"

}; } sub readfile { my $filename = shift; local *IN; open(IN, '< ' . $filename) or die("Can't open $filename: $!"); local $/ = undef; my $x = ; close IN; return $x; } # Log::Trace stubs sub TRACE {} sub DUMP {} # this pod is for testing only! __DATA__ =head1 NAME A - Some demo POD =head1 SYNOPSIS use Pod::Xhtml; my $px = new Pod::Xhtml; =head1 DESCRIPTION This is a module to translate POD to Xhtml. Lorem ipsum L sit amet consectueur adipscing elit. Sed diam nomumny. This is a module to translate POD to Xhtml. L ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. This is a module to translate F to Xhtml. B ipsum I sit amet C elit. X. This is a module to translate POD to Xhtml. See L ipsum dolor sit amet consectueur adipscing elit. Sed diam L. L =head1 METHODS =over 4 =item Nested blocks Pod::Xhtml now supports nested over/item/back blocks: =over 4 =item * Point 1 =item * Point Number 2 =item * Item three =item * Point four Still point four This is verbatim text in a bulleted list =back This is verbatim test in a regular list =back =head1 ATTRIBUTES =over 4 =item Lorem Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. =item Ipsum Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. =item Dolor( $foo ) Lorem ipsum dolor sit amet consectueur ..Z.. elit. Sed diam nomumny. =back =head1 ISSUES =head2 KNOWN ISSUES There are some issues known about. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. S =head2 UNKNOWN ISSUES There are also some issues not known about. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. Lorem ipsum dolor sit amet consectueur adipscing elit. Sed diam nomumny. =cut