r21716 - in /trunk/libpod-simple-perl: ./ debian/ lib/Pod/ lib/Pod/Simple/ t/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jun 16 09:14:50 UTC 2008
Author: dmn
Date: Mon Jun 16 09:14:49 2008
New Revision: 21716
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21716
Log:
* New upstream release
* add perl-modules (>= 5.10) to B-D-I as Test 1.25 is required by tests
* add upstream maintainers info to debian/copyright
Added:
trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm
- copied unchanged from r21714, branches/upstream/libpod-simple-perl/current/lib/Pod/Simple/XHTML.pm
trunk/libpod-simple-perl/t/xhtml01.t
- copied unchanged from r21714, branches/upstream/libpod-simple-perl/current/t/xhtml01.t
trunk/libpod-simple-perl/t/xhtml05.t
- copied unchanged from r21714, branches/upstream/libpod-simple-perl/current/t/xhtml05.t
Modified:
trunk/libpod-simple-perl/ChangeLog
trunk/libpod-simple-perl/MANIFEST
trunk/libpod-simple-perl/META.yml
trunk/libpod-simple-perl/Makefile.PL
trunk/libpod-simple-perl/debian/changelog
trunk/libpod-simple-perl/debian/control
trunk/libpod-simple-perl/debian/copyright
trunk/libpod-simple-perl/lib/Pod/Simple.pm
trunk/libpod-simple-perl/lib/Pod/Simple.pod
trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm
trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm
trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm
trunk/libpod-simple-perl/t/begin.t
trunk/libpod-simple-perl/t/fcodes_l.t
trunk/libpod-simple-perl/t/fcodes_s.t
Modified: trunk/libpod-simple-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/ChangeLog?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/ChangeLog (original)
+++ trunk/libpod-simple-perl/ChangeLog Mon Jun 16 09:14:49 2008
@@ -1,5 +1,34 @@
# ChangeLog for Pod::Simple dist
#---------------------------------------------------------------------------
+
+2008-06-04 Allison Randal <allison at perl.org>
+ * Release 3.07
+
+ Fix module dependencies, make HTML::Entities optional and require
+ Test::More.
+
+2008-06-03 Allison Randal <allison at perl.org>
+ * Release 3.06
+
+ Fix bugs related to passing $1 to File::Spec, reported by Andrew Hamlin and
+ John McNamara.
+
+ Applied a suggested fix from Kevin Ryde to return a successful exit
+ code when Pod::Simple::HTML is run from the command line.
+
+ Fix handling of complex L<URL> entries, thanks to tests supplied in RT#4896.
+
+ Fix incorrect handling of S<> entries made up of entirely whitespace, thanks
+ to test case from Andreas Koenig.
+
+ Launch Pod::Simple::XHTML, an XHTML compliant, more easily extensible
+ HTML formatter.
+
+ Add feature to parse additional text after =begin target as a block
+ title, requested by Adam Kennedy.
+
+ Thanks to Hans Dieter Pearcey for applying patches, resolving bugs,
+ and generally getting ready for the release.
2007-03-03 Allison Randal <allison at perl.org>
* Release 3.05
Modified: trunk/libpod-simple-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/MANIFEST?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/MANIFEST (original)
+++ trunk/libpod-simple-perl/MANIFEST Mon Jun 16 09:14:49 2008
@@ -29,6 +29,7 @@
lib/Pod/Simple/Transcode.pm
lib/Pod/Simple/TranscodeDumb.pm
lib/Pod/Simple/TranscodeSmart.pm
+lib/Pod/Simple/XHTML.pm
lib/Pod/Simple/XMLOutStream.pm
Makefile.PL
MANIFEST
@@ -173,5 +174,7 @@
t/verb_fmt.t
t/verbatim.t
t/x_nixer.t
+t/xhtml01.t
+t/xhtml05.t
t/testlib3/squaa/Vliff.pm
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libpod-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/META.yml?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/META.yml (original)
+++ trunk/libpod-simple-perl/META.yml Mon Jun 16 09:14:49 2008
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Pod-Simple
-version: 3.05
+version: 3.07
version_from: lib/Pod/Simple.pm
installdirs: site
requires:
@@ -17,7 +17,9 @@
Pod::Escapes: 1.04
strict: 0
Symbol: 0
+ Test: 1.25
+ Test::More: 0
Text::Wrap: 98.112902
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libpod-simple-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/Makefile.PL?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/Makefile.PL (original)
+++ trunk/libpod-simple-perl/Makefile.PL Mon Jun 16 09:14:49 2008
@@ -20,10 +20,13 @@
'Text::Wrap' => '98.112902',
'Pod::Escapes' => '1.04',
+ # RT#29439
+ 'Test' => '1.25',
+
# And finally, things I don't have any particular version in mind for:
map {; $_ => 0 } qw[
File::Spec File::Basename Cwd Config Carp overload Symbol strict
- constant integer File::Find
+ constant integer File::Find Test::More
]
},
);
Modified: trunk/libpod-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/changelog?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/changelog (original)
+++ trunk/libpod-simple-perl/debian/changelog Mon Jun 16 09:14:49 2008
@@ -1,3 +1,11 @@
+libpod-simple-perl (3.07-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * add perl-modules (>= 5.10) to B-D-I as Test 1.25 is required by tests
+ * add upstream maintainers info to debian/copyright
+
+ -- Damyan Ivanov <dmn at debian.org> Mon, 16 Jun 2008 12:05:00 +0300
+
libpod-simple-perl (3.05-2) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libpod-simple-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/control?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/control (original)
+++ trunk/libpod-simple-perl/debian/control Mon Jun 16 09:14:49 2008
@@ -5,7 +5,8 @@
Uploaders: Jay Bonci <jaybonci at debian.org>, Gunnar Wolf <gwolf at debian.org>,
Damyan Ivanov <dmn at debian.org>
Build-Depends: debhelper (>= 6)
-Build-Depends-Indep: libpod-escapes-perl, perl (>= 5.6.0-16), perl-doc
+Build-Depends-Indep: libpod-escapes-perl, perl (>= 5.6.0-16), perl-doc,
+ perl-modules (>= 5.10)
Standards-Version: 3.7.3
Homepage: http://search.cpan.org/dist/Pod-Simple/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpod-simple-perl/
Modified: trunk/libpod-simple-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/copyright?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/copyright (original)
+++ trunk/libpod-simple-perl/debian/copyright Mon Jun 16 09:14:49 2008
@@ -1,9 +1,11 @@
This package was debianized by Jay Bonci <jay at bonci.com> on
Sat, 8 Mar 2003 03:32:35 -0500.
-It was downloaded from http://search.cpan.org/dist/Pod-Simple
+It was downloaded from http://search.cpan.org/dist/Pod-Simple/
Upstream Author: Sean M. Burke <sburke at cpan.org>
+Maintained by: Allison Randal <allison at perl.org>
+ Hans Dieter Pearcey <hdp at cpan.org>
Copyright:
Modified: trunk/libpod-simple-perl/lib/Pod/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple.pm?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple.pm Mon Jun 16 09:14:49 2008
@@ -18,7 +18,7 @@
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.05';
+$VERSION = '3.07';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
@@ -983,6 +983,7 @@
# L<text|name/"sec"> or L<text|name/sec>
# L<text|/"sec"> or L<text|/sec> or L<text|"sec">
# L<scheme:...>
+ # Ltext|scheme:...>
my($self, at stack) = @_;
@@ -1002,11 +1003,12 @@
# By here, $treelet->[$i] is definitely an L node
- DEBUG > 1 and print "Ogling L node $treelet->[$i]\n";
+ my $ell = $treelet->[$i];
+ DEBUG > 1 and print "Ogling L node $ell\n";
# bitch if it's empty
- if( @{$treelet->[$i]} == 2
- or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
+ if( @{$ell} == 2
+ or (@{$ell} == 3 and $ell->[2] eq '')
) {
$self->whine( $start_line, "An empty L<>" );
$treelet->[$i] = 'L<>'; # just make it a text node
@@ -1014,55 +1016,70 @@
}
# Catch URLs:
- # URLs can, alas, contain E<...> sequences, so we can't /assume/
- # that this is one text node. But it has to START with one text
- # node...
- if(! ref $treelet->[$i][2] and
- $treelet->[$i][2] =~ m/^\w+:[^:\s]\S*$/s
+
+ # there are a number of possible cases:
+ # 1) text node containing url: http://foo.com
+ # -> [ 'http://foo.com' ]
+ # 2) text node containing url and text: foo|http://foo.com
+ # -> [ 'foo|http://foo.com' ]
+ # 3) text node containing url start: mailto:xE<at>foo.com
+ # -> [ 'mailto:x', [ E ... ], 'foo.com' ]
+ # 4) text node containing url start and text: foo|mailto:xE<at>foo.com
+ # -> [ 'foo|mailto:x', [ E ... ], 'foo.com' ]
+ # 5) other nodes containing text and url start: OE<39>Malley|http://foo.com
+ # -> [ 'O', [ E ... ], 'Malley', '|http://foo.com' ]
+ # ... etc.
+
+ # anything before the url is part of the text.
+ # anything after it is part of the url.
+ # the url text node itself may contain parts of both.
+
+ if (my ($url_index, $text_part, $url_part) =
+ # grep is no good here; we want to bail out immediately so that we can
+ # use $1, $2, etc. without having to do the match twice.
+ sub {
+ for (2..$#$ell) {
+ next if ref $ell->[$_];
+ next unless $ell->[$_] =~ m/^(?:([^|]*)\|)?(\w+:[^:\s]\S*)$/s;
+ return ($_, $1, $2);
+ }
+ return;
+ }->()
) {
- $treelet->[$i][1]{'type'} = 'url';
- $treelet->[$i][1]{'content-implicit'} = 'yes';
-
- # TODO: deal with rel: URLs here?
-
- if( 3 == @{ $treelet->[$i] } ) {
- # But if it IS just one text node (most common case)
- DEBUG > 1 and printf qq{Catching "%s as " as ho-hum L<URL> link.\n},
- $treelet->[$i][2]
- ;
- $treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
- $treelet->[$i][2]
- ); # its own treelet
- } else {
- # It's a URL but complex (like "L<foo:bazE<123>bar>"). Feh.
- #$treelet->[$i][1]{'to'} = [ @{$treelet->[$i]} ];
- #splice @{ $treelet->[$i][1]{'to'} }, 0,2;
- #DEBUG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
- # join '~', @{$treelet->[$i][1]{'to' }};
-
- $treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
- $treelet->[$i] # yes, clone the whole content as a treelet
- );
- $treelet->[$i][1]{'to'}[0] = ''; # set the copy's tagname to nil
- die "SANITY FAILURE" if $treelet->[0] eq ''; # should never happen!
- DEBUG > 1 and print
- qq{Catching "$treelet->[$i][1]{'to'}" as a complex L<URL> link.\n};
+ $ell->[1]{'type'} = 'url';
+
+ my @text = @{$ell}[2..$url_index-1];
+ push @text, $text_part if defined $text_part;
+
+ my @url = @{$ell}[$url_index+1..$#$ell];
+ unshift @url, $url_part;
+
+ unless (@text) {
+ $ell->[1]{'content-implicit'} = 'yes';
+ @text = @url;
}
- next; # and move on
- }
-
+ $ell->[1]{to} = Pod::Simple::LinkSection->new(
+ @url == 1
+ ? $url[0]
+ : [ '', {}, @url ],
+ );
+
+ splice @$ell, 2, $#$ell, @text;
+
+ next;
+ }
# Catch some very simple and/or common cases
- if(@{$treelet->[$i]} == 3 and ! ref $treelet->[$i][2]) {
- my $it = $treelet->[$i][2];
+ if(@{$ell} == 3 and ! ref $ell->[2]) {
+ my $it = $ell->[2];
if($it =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
# Hopefully neither too broad nor too restrictive a RE
DEBUG > 1 and print "Catching \"$it\" as manpage link.\n";
- $treelet->[$i][1]{'type'} = 'man';
+ $ell->[1]{'type'} = 'man';
# This's the only place where man links can get made.
- $treelet->[$i][1]{'content-implicit'} = 'yes';
- $treelet->[$i][1]{'to' } =
+ $ell->[1]{'content-implicit'} = 'yes';
+ $ell->[1]{'to' } =
Pod::Simple::LinkSection->new( $it ); # treelet!
next;
@@ -1071,9 +1088,9 @@
# Extremely forgiving idea of what constitutes a bare
# modulename link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
DEBUG > 1 and print "Catching \"$it\" as ho-hum L<Modulename> link.\n";
- $treelet->[$i][1]{'type'} = 'pod';
- $treelet->[$i][1]{'content-implicit'} = 'yes';
- $treelet->[$i][1]{'to' } =
+ $ell->[1]{'type'} = 'pod';
+ $ell->[1]{'content-implicit'} = 'yes';
+ $ell->[1]{'to' } =
Pod::Simple::LinkSection->new( $it ); # treelet!
next;
}
@@ -1089,7 +1106,6 @@
my $link_text; # set to an arrayref if found
- my $ell = $treelet->[$i];
my @ell_content = @$ell;
splice @ell_content,0,2; # Knock off the 'L' and {} bits
@@ -1443,7 +1459,7 @@
"\nAbout to parse source: {{\n$_[0]\n}}\n\n";
- my $parser = $class->new;
+ my $parser = ref $class && $class->isa(__PACKAGE__) ? $class : $class->new;
$parser->hide_line_numbers(1);
my $out = '';
Modified: trunk/libpod-simple-perl/lib/Pod/Simple.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple.pod?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple.pod (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple.pod Mon Jun 16 09:14:49 2008
@@ -211,7 +211,15 @@
Original author: Sean M. Burke C<sburke at cpan.org>
-Maintained by: Allison Randal C<allison at perl.org>
+Maintained by:
+
+=over
+
+=item * Allison Randal C<allison at perl.org>
+
+=item * Hans Dieter Pearcey C<hdp at cpan.org>
+
+=back
=cut
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm Mon Jun 16 09:14:49 2008
@@ -910,17 +910,10 @@
return 1;
}
- unless($content =~ m/^\S+$/s) { # i.e., unless it's one word
- $self->whine(
- $para->[1]{'start_line'},
- "'=begin' only takes one parameter, not several as in '=begin $content'"
- );
- DEBUG and print "Ignoring unintelligible =begin $content\n";
- return 1;
- }
-
-
- $para->[1]{'target'} = $content; # without any ':'
+ my ($target, $title) = $content =~ m/^(\S+)\s*(.*)$/;
+ $para->[1]{'title'} = $title if ($title);
+ $para->[1]{'target'} = $target; # without any ':'
+ $content = $target; # strip off the title
$content =~ s/^:!/!:/s;
my $neg; # whether this is a negation-match
@@ -1681,8 +1674,11 @@
[A-Z](?!<)
)
|
+ # whitespace is ok, but we don't want to eat the whitespace before
+ # a multiple-bracket end code.
+ # NOTE: we may still have problems with e.g. S<< >>
(?:
- \s(?!\s*>)
+ \s(?!\s*>{2,})
)
)+
)
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm Mon Jun 16 09:14:49 2008
@@ -164,7 +164,7 @@
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-sub go { exit Pod::Simple::HTML->parse_from_file(@ARGV) }
+sub go { Pod::Simple::HTML->parse_from_file(@ARGV); exit 0 }
# Just so we can run from the command line. No options.
# For that, use perldoc!
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm Mon Jun 16 09:14:49 2008
@@ -607,7 +607,7 @@
my $url = $chunk->[0];
my $outfile;
if( ref($chunk->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.css$)} ) {
- $outfile = $self->filespecsys->catfile( $outdir, $1 );
+ $outfile = $self->filespecsys->catfile( $outdir, "$1" );
DEBUG > 5 and print "Noting $$chunk[0] as a file I'll create.\n";
} else {
DEBUG > 5 and print "OK, noting $$chunk[0] as an external CSS.\n";
@@ -772,7 +772,7 @@
my $outfile;
if( ref($script->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.js$)} ) {
- $outfile = $self->filespecsys->catfile( $outdir, $1 );
+ $outfile = $self->filespecsys->catfile( $outdir, "$1" );
DEBUG > 5 and print "Noting $$script[0] as a file I'll create.\n";
} else {
DEBUG > 5 and print "OK, noting $$script[0] as an external JavaScript.\n";
Modified: trunk/libpod-simple-perl/t/begin.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/begin.t?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/begin.t (original)
+++ trunk/libpod-simple-perl/t/begin.t Mon Jun 16 09:14:49 2008
@@ -7,7 +7,7 @@
use strict;
use Test;
-BEGIN { plan tests => 61 };
+BEGIN { plan tests => 62 };
my $d;
#use Pod::Simple::Debug (\$d, 0);
@@ -113,7 +113,6 @@
ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\nI<Stuff>\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"),
'<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
);
-
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -448,8 +447,14 @@
qq{<Para>Yup.</Para></Document>}
);
-
-
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+print "# Testing matching of begin block titles\n";
+ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo Title\n\nstuff\n\n=end mojojojo \n\nYup.\n"),
+ '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo" title="Title"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>'
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
print "# Wrapping up... one for the road...\n";
ok 1;
Modified: trunk/libpod-simple-perl/t/fcodes_l.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/fcodes_l.t?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/fcodes_l.t (original)
+++ trunk/libpod-simple-perl/t/fcodes_l.t Mon Jun 16 09:14:49 2008
@@ -8,7 +8,7 @@
use strict;
use Test;
-BEGIN { plan tests => 93 };
+BEGIN { plan tests => 99 };
#use Pod::Simple::Debug (10);
@@ -399,6 +399,27 @@
'<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
);
+ok( $x->_out(qq{=pod\n\nI like L<<< B<text>s|http://text.com >>>.\n}),
+'<Document><Para>I like <L to="http://text.com" type="url"><B>text</B>s</L>.</Para></Document>'
+);
+ok( $x->_out(qq{=pod\n\nI like L<<< text|https://text.com/1/2 >>>.\n}),
+'<Document><Para>I like <L to="https://text.com/1/2" type="url">text</L>.</Para></Document>'
+);
+ok( $x->_out(qq{=pod\n\nI like L<<< I<text>|http://text.com >>>.\n}),
+'<Document><Para>I like <L to="http://text.com" type="url"><I>text</I></L>.</Para></Document>'
+);
+ok( $x->_out(qq{=pod\n\nI like L<<< C<text>|http://text.com >>>.\n}),
+'<Document><Para>I like <L to="http://text.com" type="url"><C>text</C></L>.</Para></Document>'
+);
+ok( $x->_out(qq{=pod\n\nI like L<<< I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com >>>.\n}),
+'<Document><Para>I like <L to="mailto:earl at text.com" type="url"><I>t<I>e<I>x<I>t</I></I></I></I></L>.</Para></Document>'
+);
+ok( $x->_out(qq{=pod\n\nI like L<<< textZ<>|http://text.com >>>.\n}),
+'<Document><Para>I like <L to="http://text.com" type="url">text</L>.</Para></Document>'
+);
+
+
+
#
# TODO: S testing.
Modified: trunk/libpod-simple-perl/t/fcodes_s.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/fcodes_s.t?rev=21716&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/fcodes_s.t (original)
+++ trunk/libpod-simple-perl/t/fcodes_s.t Mon Jun 16 09:14:49 2008
@@ -8,7 +8,7 @@
use strict;
use Test;
-BEGIN { plan tests => 13 };
+BEGIN { plan tests => 14 };
#use Pod::Simple::Debug (6);
@@ -77,7 +77,30 @@
qq{=pod\n\nI like L<StuffE<160>I<likeE<160>that>|"bric-a-brac a gogo">.\n},
));
+use Pod::Simple::Text;
+$x = Pod::Simple::Text->new;
+$x->preserve_whitespace(1);
+# RT#25679
+ok(
+ $x->_out(<<END
+=head1 The Tk::mega manpage showed me how C<< SE<lt> E<gt> foo >> is being rendered
+Both pod2text and pod2man S< > lose the rest of the line
+
+=head1 Do they always S< > lose the rest of the line?
+
+=cut
+END
+ ),
+ <<END
+The Tk::mega manpage showed me how S< > foo is being rendered
+
+ Both pod2text and pod2man lose the rest of the line
+
+Do they always lose the rest of the line?
+
+END
+);
print "# Wrapping up... one for the road...\n";
ok 1;
More information about the Pkg-perl-cvs-commits
mailing list