diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-13 16:34:15 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-13 16:36:53 +0000 |
commit | 9c88a88bf2f605e353ff3a31ee725b1f9f0db556 (patch) | |
tree | 655e6c5b49bf325d4b18a3d593296e49e259cdf6 /cpan/Pod-LaTeX | |
parent | 680818c0361b180bb6f09d4bb11c4d5cd467fe62 (diff) | |
download | perl-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.t | 18 | ||||
-rw-r--r-- | cpan/Pod-LaTeX/t/user.t | 16 |
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"; |