summaryrefslogtreecommitdiff
path: root/cpan/Pod-LaTeX
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-01-13 16:34:15 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-01-13 16:36:53 +0000
commit9c88a88bf2f605e353ff3a31ee725b1f9f0db556 (patch)
tree655e6c5b49bf325d4b18a3d593296e49e259cdf6 /cpan/Pod-LaTeX
parent680818c0361b180bb6f09d4bb11c4d5cd467fe62 (diff)
downloadperl-9c88a88bf2f605e353ff3a31ee725b1f9f0db556.tar.gz
Update Pod-LaTeX to CPAN version 0.59
[DELTA] 2011-01-04 Tim Jenness <tjenness@cpan.org> ---- Version 0.59 CPAN ---- * t/*.t: Use Test::More for tests. * Build.PL: Use Module::Build * LaTeX.pm: Fix typo in pod (RT #46887 via Dave Mitchell)
Diffstat (limited to 'cpan/Pod-LaTeX')
-rw-r--r--cpan/Pod-LaTeX/lib/Pod/LaTeX.pm (renamed from cpan/Pod-LaTeX/LaTeX.pm)15
-rw-r--r--cpan/Pod-LaTeX/t/pod2latex.t18
-rw-r--r--cpan/Pod-LaTeX/t/user.t16
3 files changed, 23 insertions, 26 deletions
diff --git a/cpan/Pod-LaTeX/LaTeX.pm b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm
index 9d3a905258..6404b27f57 100644
--- a/cpan/Pod-LaTeX/LaTeX.pm
+++ b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm
@@ -33,7 +33,7 @@ use Carp;
use vars qw/ $VERSION %HTML_Escapes @LatexSections /;
-$VERSION = '0.58';
+$VERSION = '0.59';
# Definitions of =headN -> latex mapping
@LatexSections = (qw/
@@ -494,7 +494,7 @@ If used in conjunction with C<AddPostamble> a full latex document will
be written that could be immediately processed by C<latex>.
For some pod escapes it may be necessary to include the amsmath
-package. This is not yet added to the preamble automaatically.
+package. This is not yet added to the preamble automatically.
=cut
@@ -1839,7 +1839,7 @@ Some HTML escapes are missing and many have not been tested.
=head1 SEE ALSO
-L<Pod::Parser>, L<Pod::Select>, L<pod2latex>
+L<Pod::Parser>, L<Pod::Select>, L<pod2latex>, L<Pod::Simple>.
=head1 AUTHORS
@@ -1852,12 +1852,13 @@ E<lt>marcel@codewerk.comE<gt>, Hugh S Myers
E<lt>hsmyers@sdragons.comE<gt>, Peter J Acklam
E<lt>jacklam@math.uio.noE<gt>, Sudhi Herle E<lt>sudhi@herle.netE<gt>,
Ariel Scolnicov E<lt>ariels@compugen.co.ilE<gt>,
-Adriano Rodrigues Ferreira E<lt>ferreira@triang.com.brE<gt> and
-R. de Vries E<lt>r.de.vries@dutchspace.nlE<gt>.
-
+Adriano Rodrigues Ferreira E<lt>ferreira@triang.com.brE<gt>,
+R. de Vries E<lt>r.de.vries@dutchspace.nlE<gt> and
+Dave Mitchell E<lt>davem@iabyn.comE<gt>.
=head1 COPYRIGHT
+Copyright (C) 2011 Tim Jenness.
Copyright (C) 2000-2004 Tim Jenness. All Rights Reserved.
This program is free software; you can redistribute it and/or modify
@@ -1867,7 +1868,7 @@ it under the same terms as Perl itself.
=head1 REVISION
-$Id: LaTeX.pm,v 1.19 2004/12/30 01:40:44 timj Exp $
+$Id$
=end __PRIVATE__
diff --git a/cpan/Pod-LaTeX/t/pod2latex.t b/cpan/Pod-LaTeX/t/pod2latex.t
index 965c9ccaff..7a003d9370 100644
--- a/cpan/Pod-LaTeX/t/pod2latex.t
+++ b/cpan/Pod-LaTeX/t/pod2latex.t
@@ -8,24 +8,22 @@
# will probably not match what is currently there. You
# will need to adjust it to match (assuming it is correct).
-use Test;
+use Test::More tests => 177;
use strict;
-BEGIN { plan tests => 177 }
-
-use Pod::LaTeX;
-
# The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils
use Pod::ParseUtils;
my $linkver = $Pod::ParseUtils::VERSION;
+BEGIN {
+ use_ok( "Pod::LaTeX" );
+}
+
# 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
@@ -37,7 +35,7 @@ while (my $line = <DATA>) {
# Create a new parser
my $parser = Pod::LaTeX->new;
-ok($parser);
+isa_ok($parser, "Pod::LaTeX");
$parser->Head1Level(1);
# Add the preamble but remember not to compare the timestamps
$parser->AddPreamble(1);
@@ -59,7 +57,7 @@ close(OUTFH) or die "Error closing OUTFH test.tex: $!\n";
open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n";
my @output = <INFH>;
-ok(@output, @reference);
+is(scalar @output, scalar @reference, "Count lines");
for my $i (0..$#reference) {
next if $reference[$i] =~ /^%%/; # skip timestamp comments
@@ -71,7 +69,7 @@ for my $i (0..$#reference) {
$reference[$i] =~ s/Standard link: \\emph\{Pod::LaTeX\}/Standard link: the \\emph\{Pod::LaTeX\} manpage/;
$reference[$i] =~ s/\\textsf\{sec\} in \\emph\{Pod::LaTeX\}/the section on \\textsf\{sec\} in the \\emph\{Pod::LaTeX\} manpage/;
}
- ok($output[$i], $reference[$i]);
+ is($output[$i], $reference[$i], "Check line $i");
}
close(INFH) or die "Error closing INFH test.tex: $!\n";
diff --git a/cpan/Pod-LaTeX/t/user.t b/cpan/Pod-LaTeX/t/user.t
index 04776de5ac..bd8c21100a 100644
--- a/cpan/Pod-LaTeX/t/user.t
+++ b/cpan/Pod-LaTeX/t/user.t
@@ -6,12 +6,12 @@
# Variant provided by
# Adriano Rodrigues Ferreira <ferreira@triang.com.br>
-use Test;
+use Test::More tests => 17;
use strict;
-BEGIN { plan tests => 17 }
-
-use Pod::LaTeX;
+BEGIN {
+ use_ok( "Pod::LaTeX" );
+}
# The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils
use Pod::ParseUtils;
@@ -22,8 +22,6 @@ 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
@@ -52,7 +50,7 @@ my %params = (
);
my $parser = Pod::LaTeX->new(%params);
-ok($parser);
+isa_ok($parser, "Pod::LaTeX");
# Create an output file
open(OUTFH, "> test.tex" ) or die "Unable to open test tex file: $!\n";
@@ -67,11 +65,11 @@ close(OUTFH) or die "Error closing OUTFH test.tex: $!\n";
open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n";
my @output = <INFH>;
-ok(@output, @reference);
+is(scalar @output, scalar @reference, "Count lines");
for my $i (0..$#reference) {
next if $reference[$i] =~ /^%%/; # skip timestamp comments
- ok($output[$i], $reference[$i]);
+ is($output[$i], $reference[$i], "Compare line $i");
}
close(INFH) or die "Error closing INFH test.tex: $!\n";