blob: 04776de5ace9ffe24ee543e1e5f763dba0a88da8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!perl
# Purpose: test UserPreamble and UserPostamble
# It's a minor variation of 'pod2latex.t',
# subject to the same limitations.
# Variant provided by
# Adriano Rodrigues Ferreira <ferreira@triang.com.br>
use Test;
use strict;
BEGIN { plan tests => 17 }
use Pod::LaTeX;
# The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils
use Pod::ParseUtils;
my $linkver = $Pod::ParseUtils::VERSION;
# Set up an END block to remove the test output file
END {
unlink "test.tex";
};
ok(1);
# First thing to do is to read the expected output from
# the DATA filehandle and store it in a scalar.
# Do this until we read an =pod
my @reference;
while (my $line = <DATA>) {
last if $line =~ /^=pod/;
push(@reference,$line);
}
my $user_preamble = <<PRE;
\\documentclass{article}
\\begin{document}
PRE
my $user_postamble = <<POST;
\\end{document}
POST
# Create a new parser
my %params = (
UserPreamble => $user_preamble,
UserPostamble => $user_postamble
);
my $parser = Pod::LaTeX->new(%params);
ok($parser);
# Create an output file
open(OUTFH, "> test.tex" ) or die "Unable to open test tex file: $!\n";
# Read from the DATA filehandle and write to a new output file
# Really want to write this to a scalar
$parser->parse_from_filehandle(\*DATA,\*OUTFH);
close(OUTFH) or die "Error closing OUTFH test.tex: $!\n";
# Now read in OUTFH and compare
open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n";
my @output = <INFH>;
ok(@output, @reference);
for my $i (0..$#reference) {
next if $reference[$i] =~ /^%%/; # skip timestamp comments
ok($output[$i], $reference[$i]);
}
close(INFH) or die "Error closing INFH test.tex: $!\n";
__DATA__
\documentclass{article}
\begin{document}
%% Latex generated from POD in document (unknown)
%% Using the perl module Pod::LaTeX
%% Converted on Wed Jan 14 19:04:22 2004
%% Preamble supplied by user.
\section{POD\label{POD}\index{POD}}
This is a POD file, very simple. \textit{Bye}.
\end{document}
=pod
=head1 POD
This is a POD file, very simple. I<Bye>.
|
