diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-09-12 20:44:53 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-09-13 08:26:05 +0100 |
| commit | 09a90ea7ecb1cbdb87ab854c4ad6cf6da6c6e053 (patch) | |
| tree | 763112a8c528b14960a5ce8d50bce0cb7f6e3b4d /lib/Pod/Simple/t | |
| parent | 9ddff1485169a2ddf8548bfc8dce819bad389a50 (diff) | |
| download | perl-09a90ea7ecb1cbdb87ab854c4ad6cf6da6c6e053.tar.gz | |
Move Pod::Simple from lib to ext.
In the process, unpack the "packed" files. These were the last files uunecoded,
so now uupacktool.pl is obsolete, and can be retired.
Diffstat (limited to 'lib/Pod/Simple/t')
142 files changed, 0 insertions, 14436 deletions
diff --git a/lib/Pod/Simple/t/00about.t b/lib/Pod/Simple/t/00about.t deleted file mode 100644 index e5e7038e38..0000000000 --- a/lib/Pod/Simple/t/00about.t +++ /dev/null @@ -1,123 +0,0 @@ - -require 5; -# Time-stamp: "2004-05-23 19:48:32 ADT" - -# Summary of, well, things. - -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -my @modules; -BEGIN { - @modules = qw( - -Pod::Escapes - -Pod::Simple -Pod::Simple::BlackBox Pod::Simple::Checker Pod::Simple::DumpAsText -Pod::Simple::DumpAsXML Pod::Simple::HTML Pod::Simple::HTMLBatch -Pod::Simple::HTMLLegacy Pod::Simple::LinkSection Pod::Simple::Methody -Pod::Simple::Progress Pod::Simple::PullParser -Pod::Simple::PullParserEndToken Pod::Simple::PullParserStartToken -Pod::Simple::PullParserTextToken Pod::Simple::PullParserToken -Pod::Simple::RTF Pod::Simple::Search Pod::Simple::SimpleTree -Pod::Simple::Text Pod::Simple::TextContent Pod::Simple::TiedOutFH -Pod::Simple::Transcode Pod::Simple::XMLOutStream - - ); - plan tests => 2 + @modules; -}; - -ok 1; - -#chdir "t" if -e "t"; -foreach my $m (@modules) { - print "# Loading $m ...\n"; - eval "require $m;"; - unless($@) { ok 1; next } - my $e = $@; - $e =~ s/\s+$//s; - $e =~ s/[\n\r]+/\n# > /; - print "# Error while trying to load $m --\n# > $e\n"; - ok 0; -} - -{ - my @out; - push @out, - "\n\nPerl v", - defined($^V) ? sprintf('%vd', $^V) : $], - " under $^O ", - (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber()) - ? ("(Win32::BuildNumber ", &Win32::BuildNumber(), ")") : (), - (defined $MacPerl::Version) - ? ("(MacPerl version $MacPerl::Version)") : (), - "\n" - ; - - # Ugly code to walk the symbol tables: - my %v; - my @stack = (''); # start out in %:: - my $this; - my $count = 0; - my $pref; - while(@stack) { - $this = shift @stack; - die "Too many packages?" if ++$count > 1000; - next if exists $v{$this}; - next if $this eq 'main'; # %main:: is %:: - - #print "Peeking at $this => ${$this . '::VERSION'}\n"; - no strict 'refs'; - if( defined ${$this . '::VERSION'} ) { - $v{$this} = ${$this . '::VERSION'} - } elsif( - defined *{$this . '::ISA'} or defined &{$this . '::import'} - or ($this ne '' and grep defined *{$_}{'CODE'}, values %{$this . "::"}) - # If it has an ISA, an import, or any subs... - ) { - # It's a class/module with no version. - $v{$this} = undef; - } else { - # It's probably an unpopulated package. - ## $v{$this} = '...'; - } - - $pref = length($this) ? "$this\::" : ''; - push @stack, map m/^(.+)::$/ ? "$pref$1" : (), - do { no strict 'refs'; keys %{$this . '::'} }; - #print "Stack: @stack\n"; - } - push @out, " Modules in memory:\n"; - delete @v{'', '[none]'}; - foreach my $p (sort {lc($a) cmp lc($b)} keys %v) { - my $indent = ' ' x (2 + ($p =~ tr/:/:/)); - push @out, ' ', $indent, $p, defined($v{$p}) ? " v$v{$p};\n" : ";\n"; - } - push @out, sprintf "[at %s (local) / %s (GMT)]\n", - scalar(gmtime), scalar(localtime); - my $x = join '', @out; - $x =~ s/^/#/mg; - print $x; -} - -print "# Running", - (chr(65) eq 'A') ? " in an ASCII world.\n" : " in a non-ASCII world.\n", - "#\n", -; - -print "# \@INC:\n", map("# [$_]\n", @INC), "#\n#\n"; - -print "# \%INC:\n"; -foreach my $x (sort {lc($a) cmp lc($b)} keys %INC) { - print "# [$x] = [", $INC{$x} || '', "]\n"; -} - -ok 1; - diff --git a/lib/Pod/Simple/t/20_skip.t b/lib/Pod/Simple/t/20_skip.t deleted file mode 100644 index c06220e8c2..0000000000 --- a/lib/Pod/Simple/t/20_skip.t +++ /dev/null @@ -1,19 +0,0 @@ -# 20 skip under 5.8 -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -print "1..2\n"; - print "# Running under Perl v $]\n"; -if($] < 5.008) { - print "ok 1 # Skip under Perl before 5.8 ($])\n"; -} else { - print "ok 1\n"; - print "# ^ not skipping\n"; -} - -print "ok 2\n"; - diff --git a/lib/Pod/Simple/t/ac_d.t b/lib/Pod/Simple/t/ac_d.t deleted file mode 100644 index 398456d236..0000000000 --- a/lib/Pod/Simple/t/ac_d.t +++ /dev/null @@ -1,93 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 14 }; - -#use Pod::Simple::Debug (6); - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - -#sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - -my $x = 'Pod::Simple::XMLOutStream'; - -ok 1; - -print "# Testing exceptions being thrown...\n"; - -eval { $x->new->accept_directive('head1') }; -if($@) { ok 1 } # print " # Good: exception thrown: $@\n" } -else { ok 0,1, 'No exception thrown!' } - -eval { $x->new->accept_directive('I like pie') }; -if($@) { ok 1 } # print " # Good: exception thrown: $@\n" } -else { ok 0,1, 'No exception thrown!' } - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# print "Testing basic directive behavior...\n"; - -sub Pd { shift->accept_directive_as_data( 'freepies') } -sub Pv { shift->accept_directive_as_verbatim( 'freepies') } -sub Pp { shift->accept_directive_as_processed('freepies') } - -ok( $x->_out( "\n=freepies Mmmmpie\n\n") => '/POD ERROR/' ); - -ok( $x->_out(\&Pp, "\n=freepies Mmmmpie\n\n"), - '<Document><freepies>Mmmmpie</freepies></Document>' -); -ok( $x->_out(\&Pv, "\n=freepies Mmmmpie\n\n"), - '<Document><freepies xml:space="preserve">Mmmmpie</freepies></Document>' -); -ok( $x->_out(\&Pd, "\n=freepies Mmmmpie\n\n"), - '<Document><freepies xml:space="preserve">Mmmmpie</freepies></Document>' -); - -# print "Testing more complex directive behavior...\n"; - -ok( $x->_out(\&Pp, "\n=freepies Mmmmpie \n\tI<is good>! \n\n"), - '<Document><freepies>Mmmmpie <I>is good</I>!</freepies></Document>' -); -ok( $x->_out(\&Pd, "\n=freepies Mmmmpie \n\tI<is good>! \n\n"), - qq{<Document><freepies xml:space="preserve">Mmmmpie \n\tI<is good>! </freepies></Document>} -); -ok( $x->_out(\&Pv, "\n=freepies Mmmmpie \n\tI<is good>! \n\n"), - qq{<Document><freepies xml:space="preserve">Mmmmpie \n I<is good>! </freepies></Document>} -); - -# print "Testing within larger documents...\n"; - - -ok( $x->_out(\&Pp, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>! \n\nGoody!"), - '<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies>Mmmmpie <I>is good</I>!</freepies><Para>Goody!</Para></Document>' -); -ok( $x->_out(\&Pd, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>! \n\nGoody!"), - qq{<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies xml:space="preserve">Mmmmpie \n\tI<is good>! </freepies><Para>Goody!</Para></Document>} -); -ok( $x->_out(\&Pv, "\n=head1 NAME\n\nPie Consortium -- me gustan pasteles\n\n=freepies Mmmmpie \n\tI<is good>! \n\nGoody!"), - qq{<Document><head1>NAME</head1><Para>Pie Consortium -- me gustan pasteles</Para><freepies xml:space="preserve">Mmmmpie \n I<is good>! </freepies><Para>Goody!</Para></Document>} -); - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - -__END__ - diff --git a/lib/Pod/Simple/t/accept01.t b/lib/Pod/Simple/t/accept01.t deleted file mode 100644 index 5c739e29d5..0000000000 --- a/lib/Pod/Simple/t/accept01.t +++ /dev/null @@ -1,95 +0,0 @@ -# Testing accept_codes -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 13 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; -sub accept_N { $_[0]->accept_codes('N') } - -print "# Some sanity tests...\n"; -ok( $x->_out( "=pod\n\nI like pie.\n"), # without acceptor - '<Document><Para>I like pie.</Para></Document>' -); -ok( $x->_out( \&accept_N, "=pod\n\nI like pie.\n"), - '<Document><Para>I like pie.</Para></Document>' -); -ok( $x->_out( "=pod\n\nB<foo\t>\n"), # without acceptor - '<Document><Para><B>foo </B></Para></Document>' -); -ok( $x->_out( \&accept_N, "=pod\n\nB<foo\t>\n"), - '<Document><Para><B>foo </B></Para></Document>' -); - -print "# Some real tests...\n"; - -ok( $x->_out( \&accept_N, "=pod\n\nN<foo\t>\n"), - '<Document><Para><N>foo </N></Para></Document>' -); -ok( $x->_out( \&accept_N, "=pod\n\nB<N<foo\t>>\n"), - '<Document><Para><B><N>foo </N></B></Para></Document>' -); -ok( $x->_out( "=pod\n\nB<N<foo\t>>\n") # without the mutor - ne '<Document><Para><B><N>foo </N></B></Para></Document>' - # make sure it DOESN'T pass thru the N<...> when not accepted -); -ok( $x->_out( \&accept_N, "=pod\n\nB<pieF<zorch>N<foo>I<pling>>\n"), - '<Document><Para><B>pie<F>zorch</F><N>foo</N><I>pling</I></B></Para></Document>' -); - -print "# Tests of nonacceptance...\n"; - -sub starts_with { - my($large, $small) = @_; - print("# supahstring is undef\n"), - return '' unless defined $large; - print("# supahstring $large is smaller than target-starter $small\n"), - return '' if length($large) < length($small); - if( substr($large, 0, length($small)) eq $small ) { - #print "# Supahstring $large\n# indeed starts with $small\n"; - return 1; - } else { - print "# Supahstring $large\n# !starts w/ $small\n"; - return ''; - } -} - - -ok( starts_with( $x->_out( "=pod\n\nB<N<foo\t>>\n"), # without the mutor - '<Document><Para><B>foo </B></Para>' - # make sure it DOESN'T pass thru the N<...>, when not accepted -)); - -ok( starts_with( $x->_out( "=pod\n\nB<pieF<zorch>N<foo>I<pling>>\n"), # !mutor - '<Document><Para><B>pie<F>zorch</F>foo<I>pling</I></B></Para>' - # make sure it DOESN'T pass thru the N<...>, when not accepted -)); - -ok( starts_with( $x->_out( "=pod\n\nB<pieF<zorch>N<C<foo>>I<pling>>\n"), # !mutor - '<Document><Para><B>pie<F>zorch</F><C>foo</C><I>pling</I></B></Para>' - # make sure it DOESN'T pass thru the N<...>, when not accepted -)); - - - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/accept05.t b/lib/Pod/Simple/t/accept05.t deleted file mode 100644 index d346de507c..0000000000 --- a/lib/Pod/Simple/t/accept05.t +++ /dev/null @@ -1,143 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 24 }; - -#use Pod::Simple::Debug (2); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; -sub accept_Q { $_[0]->accept_codes('Q') } -sub accept_prok { $_[0]->accept_codes('prok') } -sub accept_zing_prok { $_[0]->accept_codes('zing:prok') } -sub accept_zing_superprok { $_[0]->accept_codes('z.i_ng:Prok-12') } -sub accept_zing_superduperprok { - $_[0]->accept_codes('A'); - $_[0]->accept_codes('z.i_ng:Prok-12'); -} - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -print "# Some sanity tests...\n"; -ok( $x->_out( "=pod\n\nI like pie.\n"), - '<Document><Para>I like pie.</Para></Document>' -); -ok( $x->_out( "=extend N C Y,W\n\nI like pie.\n"), - '<Document><Para>I like pie.</Para></Document>' -); -ok( $x->_out( "=extend N C,F Y,W\n\nI like pie.\n"), - '<Document><Para>I like pie.</Para></Document>' -); -ok( $x->_out( "=extend N C,F,I Y,W\n\nI like pie.\n"), - '<Document><Para>I like pie.</Para></Document>' -); - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -print "## OK, actually trying to use an extended code...\n"; - -print "# extending but not accepted (so hitting fallback)\n"; - -ok( $x->_out( "=extend N B Y,W\n\nI N<like> pie.\n"), - '<Document><Para>I <B>like</B> pie.</Para></Document>' -); -ok( $x->_out( "=extend N B,I Y,W\n\nI N<like> pie.\n"), - '<Document><Para>I <B><I>like</I></B> pie.</Para></Document>' -); -ok( $x->_out( "=extend N C,B,I Y,W\n\nI N<like> pie.\n"), - '<Document><Para>I <C><B><I>like</I></B></C> pie.</Para></Document>' -); - - - -print "# extending to one-letter accepted (not hitting fallback)\n"; - -ok( $x->_out( \&accept_Q, "=extend N B Y,Q,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <Q>like</Q> pie.</Para></Document>' -); -ok( $x->_out( \&accept_Q, "=extend N B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <Q>like</Q> pie.</Para></Document>' -); -ok( $x->_out( \&accept_Q, "=extend N C,B,I Y,Q,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <Q>like</Q> pie.</Para></Document>' -); - - - -print "# extending to many-letter accepted (not hitting fallback)\n"; - -ok( $x->_out( \&accept_prok, "=extend N B Y,prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <prok>like</prok> pie.</Para></Document>' -); -ok( $x->_out( \&accept_prok, "=extend N B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <prok>like</prok> pie.</Para></Document>' -); -ok( $x->_out( \&accept_prok, "=extend N C,B,I Y,prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <prok>like</prok> pie.</Para></Document>' -); - - - -print "# extending to :-containing, many-letter accepted (not hitting fallback)\n"; - -ok( $x->_out( \&accept_zing_prok, "=extend N B Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_prok, "=extend N B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_prok, "=extend N C,B,I Y,zing:prok,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <zing:prok>like</zing:prok> pie.</Para></Document>' -); - - - - -print "# extending to _:-0-9-containing, many-letter accepted (not hitting fallback)\n"; - -ok( $x->_out( \&accept_zing_superprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_superprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_superprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); - - - -print "#\n# Testing acceptance order\n"; - -ok( $x->_out( \&accept_zing_superduperprok, "=extend N B Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_superduperprok, "=extend N B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); -ok( $x->_out( \&accept_zing_superduperprok, "=extend N C,B,I Y,z.i_ng:Prok-12,A,bzroch\n\nI N<like> pie.\n"), - '<Document><Para>I <z.i_ng:Prok-12>like</z.i_ng:Prok-12> pie.</Para></Document>' -); - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/basic.t b/lib/Pod/Simple/t/basic.t deleted file mode 100644 index 0b9cefd361..0000000000 --- a/lib/Pod/Simple/t/basic.t +++ /dev/null @@ -1,95 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 30 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -require Pod::Simple::BlackBox; -ok 1; - -require Pod::Simple; ok 1; - -Pod::Simple->VERSION(.90); ok 1; - -#print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -require Pod::Simple::DumpAsXML; ok 1; - -require Pod::Simple::XMLOutStream; ok 1; - -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -print "# Simple identity tests...\n"; - -&ok( e "", "" ); -&ok( e "\n", "", ); -&ok( e "\n", "\n", ); -&ok( e "puppies\n\n\n\n", "", ); - - -print "# Contentful identity tests...\n"; - -&ok( e "=pod\n\nFoo\n", "=pod\n\nFoo\n" ); -&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" ); -&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\nFoo\n" ); - -# Now with some more newlines -&ok( e "\n\n=pod\n\nFoo\n", "\n\n=pod\n\nFoo\n" ); -&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" ); -&ok( e "=pod\n\n\n\nFoo\n\n\n", "\n\n=pod\n\nFoo\n" ); - - -&ok( e "=head1 Foo\n", "=head1 Foo\n" ); -&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n\n=cut\n" ); -&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n" ); - -# Now just add some newlines... -&ok( e "\n\n\n\n=head1 Foo\n", "\n\n\n\n=head1 Foo\n" ); -&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n\n=cut\n" ); -&ok( e "=head1 Foo\n\n=cut\n", "\n\n\n\n=head1 Foo\n" ); - - -print "# Simple XMLification tests...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n\n\nprint \$^T;\n\n\n"), - qq{<Document\ncontentless="1"></Document>} - # make sure the contentless flag is set -); -ok( Pod::Simple::XMLOutStream->_out("\n\n"), - qq{<Document\ncontentless="1"></Document>} - # make sure the contentless flag is set -); -ok( Pod::Simple::XMLOutStream->_out("\n"), - qq{<Document\ncontentless="1"></Document>} - # make sure the contentless flag is set -); -ok( Pod::Simple::XMLOutStream->_out(""), - qq{<Document\ncontentless="1"></Document>} - # make sure the contentless flag is set -); - -ok( Pod::Simple::XMLOutStream->_out('', '<Document></Document>' ) ); - -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nFoo\n"), - '<Document><Para>Foo</Para></Document>' -); - -ok( Pod::Simple::XMLOutStream->_out("=head1 Chacha\n\nFoo\n"), - '<Document><head1>Chacha</head1><Para>Foo</Para></Document>' -); - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/begin.t b/lib/Pod/Simple/t/begin.t deleted file mode 100644 index 3b40095d22..0000000000 --- a/lib/Pod/Simple/t/begin.t +++ /dev/null @@ -1,462 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 62 }; - -my $d; -#use Pod::Simple::Debug (\$d, 0); - - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -sub moj {$_[0]->accept_target('mojojojo')} -sub mojtext {$_[0]->accept_target_as_text('mojojojo')} -sub any {$_[0]->accept_target_as_text('*')} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -print "# Testing non-matching complaint...\n"; -{ - -my $out; -ok( ($out = $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end blorp\n\nYup.\n")) - =~ m/POD ERRORS/ -) or print "# Didn't contain POD ERRORS:\n# $out\n"; - -ok( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nStuff\n\n=end :blorp\n\nYup.\n")) - =~ m/POD ERRORS/ -) or print "# Didn't contain POD ERRORS:\n# $out\n"; -ok( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n=begin :zaz\n\nStuff\n\n=end :blorp\n\nYup.\n")) - =~ m/POD ERRORS/ -) or print "# Didn't contain POD ERRORS:\n# $out\n"; - -} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -print "# Testing some trivial cases of non-acceptance...\n"; - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\nStuff\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\nStuff\n\n=end :mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n Stuff\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\n Stuff\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\n Stuff\n\n=end :mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<Stuff>\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\nI<Stuff>\n\n=end mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\nI<Stuff>\n\n=end :mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - - - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nStuff\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n\nStuff\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\nStuff\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n Stuff\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n\n Stuff\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\n Stuff\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<Stuff>\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -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>' -); -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>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# Testing matching because of negated non-acceptance...\n"; -#$d = 5; -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nstuff\n\n=end !mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nI<stuff>\n\n=end !mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !:mojojojo\n\nI<stuff>\n\n=end !:mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:mojojojo" target_matching="!"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin :!mojojojo \n\nI<stuff>\n\n=end :!mojojojo \t \n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":!mojojojo" target_matching="!"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !crunk,zaz\n\nstuff\n\n=end !crunk,zaz\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk,zaz" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!crunk" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nstuff\n\n=end !mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">stuff</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nI<stuff>\n\n\n=end !mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); - -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><for target="!psketti,mojojojo,crunk" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=begin !:psketti,mojojojo,crunk\n\nI<stuff>\n\n=end !:psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:psketti,mojojojo,crunk" target_matching="!"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# Testing accept_target + simple ...\n"; -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n=end mojojojo \n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n=end psketti,mojojojo,crunk \n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target_as_text + simple ...\n"; -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n=end mojojojo \n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n=end psketti,mojojojo,crunk \n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target + two simples ...\n"; -#$d = 10; -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\nHm, B<things>!\n\n=end mojojojo\n\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve">Hm, B<things>!</Data></for><Para>Yup.</Para></Document>' -); - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve">Hm, B<things>!</Data></for><Para>Yup.</Para></Document>' -); - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nI<stuff>\n\nHm, B<things>!\n\n=end :mojojojo\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para><Para>Hm, <B>things</B>!</Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para><Para>Hm, <B>things</B>!</Para></for><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target_as_text + two simples ...\n"; - -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para><Para>Hm, <B>things</B>!</Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para><Para>Hm, <B>things</B>!</Para></for><Para>Yup.</Para></Document>' -); - - - -print "# Testing accept_target + two simples, latter with leading whitespace ...\n"; -#$d = 10; - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n Hm, B<things>!\nTrala.\n\n=end mojojojo\n\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n</Data></for><Para>Yup.</Para></Document>} -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n Hm, B<things>!\nTrala.\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n</Data></for><Para>Yup.</Para></Document>} -); - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n Hm, B<things>!\nTrala.\n\n\n=end mojojojo\n\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n\n</Data></for><Para>Yup.</Para></Document>} -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n Hm, B<things>!\nTrala.\n\n\n=end psketti,mojojojo,crunk\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n\n</Data></for><Para>Yup.</Para></Document>} -); - - -print "# Testing :-target and accept_target + two simples, latter with leading whitespace ...\n"; - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\nTrala.\n\n=end :mojojojo\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>} -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\nTrala.\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>} -); - -print "# now with accept_target_as_text\n"; -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\nTrala.\n\n=end mojojojo\n\nYup.\n"), - qq{<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>} -); -ok( $x->_out( \&mojtext, join "\n\n" => - "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - "=end psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target="psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.</Verbatim>}. - qq{</for><Para>Yup.</Para></Document>} -); - -print "# Now with five paragraphs (p,v,v,p,p) and accept_target_as_text\n"; - -ok( $x->_out( \&mojtext, join "\n\n" => - "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "Woohah S<thwack\nwoohah>squim!", - "=end psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target="psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}. - qq{</for><Para>Yup.</Para></Document>} -); - - - -print "#\n# Now nested begin...end regions...\n"; - -sub mojprok { shift->accept_targets(qw{mojojojo prok}) } - -ok( $x->_out( \&mojprok, join "\n\n" => - "=pod\n\nI like pie.", - "=begin :psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "=begin :prok", - "Woohah S<thwack\nwoohah>squim!", - "=end :prok", - "ZubZ<>aaz.", - "=end :psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<for target=":prok" target_matching="prok">}. - qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}. - qq{</for>}. - qq{<Para>Zubaaz.</Para>}. - qq{</for>}. - qq{<Para>Yup.</Para></Document>} -); - - -print "# a little more complex this time...\n"; - -ok( $x->_out( \&mojprok, join "\n\n" => - "=pod\n\nI like pie.", - "=begin :psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "=begin :prok", - " Blorp, B<things>!\nTrala.", - " Khh, F<< dodads >>!\nHurf.", - "Woohah S<thwack\nwoohah>squim!", - "=end :prok", - "ZubZ<>aaz.", - "=end :psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<for target=":prok" target_matching="prok">}. - qq{<Verbatim xml:space="preserve"> Blorp, B<things>!\nTrala.\n\n}. - qq{ Khh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}. - qq{</for>}. - qq{<Para>Zubaaz.</Para>}. - qq{</for>}. - qq{<Para>Yup.</Para></Document>} -); - - -$d = 10; -print "# Now with nesting where inner region is non-resolving...\n"; - -ok( $x->_out( \&mojprok, join "\n\n" => - "=pod\n\nI like pie.", - "=begin :psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "=begin prok", - " Blorp, B<things>!\nTrala.", - " Khh, F<< dodads >>!\nHurf.", - "Woohah S<thwack\nwoohah>squim!", - "=end prok", - "ZubZ<>aaz.", - "=end :psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<for target="prok" target_matching="prok">}. - qq{<Data xml:space="preserve"> Blorp, B<things>!\nTrala.\n\n}. - qq{ Khh, F<< dodads >>!\nHurf.\n</Data>}. - qq{<Data xml:space="preserve">Woohah S<thwack\nwoohah>squim!</Data>}. - qq{</for>}. - qq{<Para>Zubaaz.</Para>}. - qq{</for>}. - qq{<Para>Yup.</Para></Document>} -); - - - -print "# Now a begin...end with a non-resolving for inside\n"; - -ok( $x->_out( \&mojprok, join "\n\n" => - "=pod\n\nI like pie.", - "=begin :psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "=for prok" - . " Blorp, B<things>!\nTrala.\n Khh, F<< dodads >>!\nHurf.", - "ZubZ<>aaz.", - "=end :psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<for target="prok" target_matching="prok">}. - qq{<Data xml:space="preserve">Blorp, B<things>!\nTrala.\n}. - qq{ Khh, F<< dodads >>!\nHurf.</Data>}. - qq{</for>}. - qq{<Para>Zubaaz.</Para>}. - qq{</for>}. - qq{<Para>Yup.</Para></Document>} -); - - - - -print "# Now a begin...end with a resolving for inside\n"; - -ok( $x->_out( \&mojprok, join "\n\n" => - "=pod\n\nI like pie.", - "=begin :psketti,mojojojo,crunk", - "I<stuff>\nTrala!", - " Hm, B<things>!\nTrala.", - " Oh, F<< dodads >>!\nHurf.", - "Boing C<spr-\t\n\t\t\toink>\n Blorg!", - "=for :prok" - . " Blorp, B<things>!\nTrala.\n Khh, F<< dodads >>!\nHurf.", - "ZubZ<>aaz.", - "=end :psketti,mojojojo,crunk", - "Yup.\n" - ), - qq{<Document><Para>I like pie.</Para>}. - qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}. - qq{<Para><I>stuff</I> Trala!</Para>}. - qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}. - qq{ Oh, F<< dodads >>!\nHurf.</Verbatim>}. - qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}. - qq{<for target=":prok" target_matching="prok">}. - qq{<Para>Blorp, <B>things</B>! Trala. Khh, }. - qq{<F>dodads</F>! Hurf.</Para>}. - qq{</for>}. - qq{<Para>Zubaaz.</Para>}. - qq{</for>}. - 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; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/cbacks.t b/lib/Pod/Simple/t/cbacks.t deleted file mode 100644 index 4c15c82f7e..0000000000 --- a/lib/Pod/Simple/t/cbacks.t +++ /dev/null @@ -1,83 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 8 }; - -my $d; -#use Pod::Simple::Debug (\$d, 0); - -ok 1; - -use Pod::Simple::XMLOutStream; -use Pod::Simple::DumpAsXML; -use Pod::Simple::DumpAsText; - -my @from = ( - 'Pod::Simple::XMLOutStream' - => '<Document><head1>I LIKE PIE</head1></Document>', - - 'Pod::Simple::DumpAsXML' - => "<Document>\n <head1>\n I LIKE PIE\n </head1>\n</Document>\n", - - 'Pod::Simple::DumpAsText' - => "++Document\n ++head1\n * \"I LIKE PIE\"\n --head1\n--Document\n", - -); - - -# Might as well test all the classes... -while(@from) { - my($x => $expected) = splice(@from, 0,2); - my $more = ''; - print "#Testing via class $x, version ", $x->VERSION(), "\n"; - my $p = $x->new; - my($got, $exp); - ok scalar($got = $x->_out( - # Mutor: - sub { - $_[0]->code_handler(sub { $more .= $_[1] . ":" . $_[0] . "\n" } ); - $_[0]->cut_handler( sub { $more .= "~" . $_[1] . ":" . $_[0]. "\n" } ); - } => join "\n", - "", - "\t# This is handy...", - "=head1 I LIKE PIE", - "", - "=cut", - "use Test::Harness;", - "runtests(sort glob 't/*.t');", - "", - "", - )) - => scalar($exp = $expected); - ; - unless($got eq $exp) { - print '# Got vs exp:\n# ', Pod::Simple::BlackBox::pretty($got), - "\n# ",Pod::Simple::BlackBox::pretty($exp),"\n"; - } - - ok scalar($got = $more), scalar($exp = join "\n" => - "1:", - "2:\t# This is handy...", - "~5:=cut", - "6:use Test::Harness;", - "7:runtests(sort glob 't/*.t');", - "8:", - "", - ); - unless($got eq $exp) { - print '# Got vs exp:\n# ', Pod::Simple::BlackBox::pretty($got), - "\n# ",Pod::Simple::BlackBox::pretty($exp),"\n"; - } -} - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/chunking.t b/lib/Pod/Simple/t/chunking.t deleted file mode 100644 index f51766dd7b..0000000000 --- a/lib/Pod/Simple/t/chunking.t +++ /dev/null @@ -1,49 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -#use Pod::Simple::Debug (2); - -use strict; -use Test; -BEGIN { plan tests => 11 }; - - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"), - '<Document><head1>=head1</head1></Document>' -); - -ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"), - '<Document><head1>=head1</head1></Document>' -); - -ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"), - '<Document><head1>=head1</head1></Document>' -); - -ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"), - '<Document><head1>=head1</head1></Document>' -); - -&ok(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n"); - -&ok(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n"); - -&ok(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); -&ok(e "\n=pod\n\nCha\tcha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); -&ok(e "\n=pod\n\nCha\ncha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/closeys.t b/lib/Pod/Simple/t/closeys.t deleted file mode 100644 index 683ce13ff3..0000000000 --- a/lib/Pod/Simple/t/closeys.t +++ /dev/null @@ -1,39 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 3 }; - -my $d; -#use Pod::Simple::Debug (\$d,0); -#use Pod::Simple::Debug (10); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) } - -sub nowhine { -# $_[0]->{'no_whining'} = 1; - $_[0]->accept_targets("*"); -} - -&ok(e( -"=begin :foo\n\n=begin :bar\n\nZaz\n\n", -"=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n", -)); - - -print "# Ending ", __FILE__, "\n"; -ok 1; - -__END__ - - diff --git a/lib/Pod/Simple/t/corpus.t b/lib/Pod/Simple/t/corpus.t deleted file mode 100644 index 291edd649a..0000000000 --- a/lib/Pod/Simple/t/corpus.t +++ /dev/null @@ -1,183 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } - - use Config; - if ($Config::Config{'extensions'} !~ /\bEncode\b/) { - print "1..0 # Skip: Encode was not built\n"; - exit 0; - } -} - -#use Pod::Simple::Debug (10); -use Test qw(plan ok skip); - -use File::Spec; -#use utf8; -use strict; -my(@testfiles, %xmlfiles, %wouldxml); -#use Pod::Simple::Debug (10); -BEGIN { - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - my @bits; - if(-e( File::Spec::->catdir( @bits = - source_path('corpus') ) ) ) - { - # OK - print "# 1Bits: @bits\n"; - } elsif( -e (File::Spec::->catdir( @bits = - (File::Spec::->curdir, 'corpus') ) ) - ) { - # OK - print "# 2Bits: @bits\n"; - } elsif ( -e (File::Spec::->catdir( @bits = - (File::Spec::->curdir, 't', 'corpus') ) ) - ) { - # OK - print "# 3Bits: @bits\n"; - } else { - die "Can't find the corpusdir"; - } - my $corpusdir = File::Spec::->catdir( @bits); - print "#Corpusdir: $corpusdir\n"; - - opendir(INDIR, $corpusdir) or die "Can't opendir corpusdir : $!"; - my @f = map File::Spec::->catfile(@bits, $_), readdir(INDIR); - closedir(INDIR); - my %f; - @f{@f} = (); - foreach my $maybetest (sort @f) { - my $xml = $maybetest; - $xml =~ s/\.(txt|pod)$/\.xml/is or next; - $wouldxml{$maybetest} = $xml; - push @testfiles, $maybetest; - foreach my $x ($xml, uc($xml), lc($xml)) { - next unless exists $f{$x}; - $xmlfiles{$maybetest} = $x; - last; - } - } - die "Too few test files (".@testfiles.")" unless @ARGV or @testfiles > 20; - - @testfiles = @ARGV if @ARGV and !grep !m/\.txt/, @ARGV; - - plan tests => (2 + 2*@testfiles - 1); -} - -my $HACK = 1; -#@testfiles = ('nonesuch.txt'); - -ok 1; - -my $skippy = ($] < 5.008) ? "skip because perl ($]) pre-dates v5.8.0" : 0; -if($skippy) { - print "# This is just perl v$], so I'm skipping many many tests.\n"; -} - -{ - my @x = @testfiles; - print "# Files to test:\n"; - while(@x) { print "# ", join(' ', splice @x,0,3), "\n" } -} - -require Pod::Simple::DumpAsXML; - - -foreach my $f (@testfiles) { - my $xml = $xmlfiles{$f}; - if($xml) { - print "#\n#To test $f against $xml\n"; - } else { - print "#\n# $f has no xml to test it against\n"; - } - - my $outstring; - eval { - my $p = Pod::Simple::DumpAsXML->new; - $p->output_string( \$outstring ); - $p->parse_file( $f ); - undef $p; - }; - - if($@) { - my $x = "#** Couldn't parse $f:\n $@"; - $x =~ s/([\n\r]+)/\n#** /g; - print $x, "\n"; - ok 0; - ok 0; - next; - } else { - print "# OK, parsing $f generated ", length($outstring), " bytes\n"; - ok 1; - } - - die "Null outstring?" unless $outstring; - - next if $f =~ /nonesuch/; - - # foo.xml.out is not a portable filename. foo.xml_out may be a bit more portable - - my $outfilename = ($HACK > 1) ? $wouldxml{$f} : "$wouldxml{$f}_out"; - if($HACK) { - open OUT, ">$outfilename" or die "Can't write-open $outfilename: $!\n"; - binmode(OUT); - print OUT $outstring; - close(OUT); - } - unless($xml) { - print "# (no comparison done)\n"; - ok 1; - next; - } - - open(IN, "<$xml") or die "Can't read-open $xml: $!"; - #binmode(IN); - local $/; - my $xmlsource = <IN>; - close(IN); - - print "# There's errata!\n" if $outstring =~ m/start_line="-321"/; - - if( - $xmlsource eq $outstring - or do { - $xmlsource =~ s/[\n\r]+/\n/g; - $outstring =~ s/[\n\r]+/\n/g; - $xmlsource eq $outstring; - } - ) { - print "# (Perfect match to $xml)\n"; - unlink $outfilename unless $outfilename =~ m/\.xml$/is; - ok 1; - next; - } - - if($skippy) { - skip $skippy, 0; - } else { - print "# $outfilename and $xml don't match!\n"; - ok 0; - } - -} - - -print "#\n# I've been using Encode v", - $Encode::VERSION ? $Encode::VERSION : "(NONE)", "\n"; -print "# Byebye\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/corpus/2202jp.txt.packed b/lib/Pod/Simple/t/corpus/2202jp.txt.packed deleted file mode 100644 index 9ff9cda007..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jp.txt.packed +++ /dev/null @@ -1,52 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u 2202jp.txt.packed 2202jp.txt - -To recreate it use the following command: - - uupacktool.pl -p 2202jp.txt 2202jp.txt.packed - -Created at Thu Mar 22 13:31:40 2007 -######################################################################### -__UU__ -M#0H-"CUH96%D,2!.04U%#0H-"FAA:6MU+6ES;S(P,C)J<"`M+2!A('1E<W0@ -M2F%P86YE<V4@9&]C=6UE;G0@:6X@:7-O+3(P,C(M:G`-"@T*/6AE860Q($1% -M4T-225!424].#0H-"CUE;F-O9&EN9R!I<V\M,C`R,BUJ<`T*#0I4:&ES(&ES -M(&$@=&5S="!0;V0@9&]C=6UE;G0@:6X@25-/+3(R,#(M2E`N("!)=',@8V]N -M=&5N="!I<R!S;VUE#0I*87!A;F5S92!H86EK=2!B>2!F86UO=7,@<&]E=',N -M#0H-"@T*/6AE860R($U!5%-53R!"05-(3R`H&R1"/CY(>$=./E8;*$(@,38T -M-"`M(#$V.30I(#H-"@T*&R1".$5#4R1D,S\D2"13.7XD8#]E)$XR.QLH0@T* -M#0HH9G5R=6EK92!Y82`O(&MA=V%Z=2!T;V)I:V]M=2`O(&UI>G4@;F\@;W1O -M*0T*#0I!<R!V97)B871I;3H-"@T*("`;)$(X14-3)&0S/R1()%,Y?B1@/V4D -M3C([&RA"#0H-"@T*#0H]:&5A9#(@64]302!"55-/3B`H&R1"33\\54ES0CP; -M*$(Q-S$V("T@,3<X,RD-"@T*&R1"2GU(+$XD,2LQ0"1H)#LD3#(T0S`D*R1* -M&RA"#0H-"BAH;R!H86-H:7)I("\@86UA9W5M;R!Y;W-E;G4@+R!B;W1A;B!K -M86YA*0T*#0I!<R!V97)B871I;3H-"@T*("`;)$)*?4@L3B0Q*S%`)&@D.R1, -M,C1#,"0K)$H;*$(-"@T*/6AE860R($U!4T%/2T$@4TA)2TD@*!LD0D`U,BP[ -M4C4L&RA"(#$X-C<@+2`Q.3`R*0T*#0H;)$(D)"1!)$\D1"1.,&Q.6$=R)#<] -M521.2FL;*$(-"@T**&EC:&EH871S=2!N;R`O(&EC:&ER:6X@<VAI<F]S:&D@ -M+R!H87)U;F\@:W5R92D-"@T*07,@=F5R8F%T:6TZ#0H-"B`@&R1")"0D021/ -M)$0D3C!L3EA'<B0W/54D3DIK&RA"#0H-"ALD0DT^3#\D)"0O)%`D+R0K)"(D -M:TQK0SLD-QLH0@T*#0HH>6]M96D@+R!I:W5B86MU:V$@87)U("\@>6\@;6EJ -M:6MA<VAI*0T*#0H@(!LD0DT^3#\D)"0O)%`D+R0K)"(D:TQK0SLD-QLH0@T* -M#0H]:&5A9#$@05,@02!,25-4#0H-"CUO=F5R#0H-"CUI=&5M($U!5%-53R!" -M05-(3R`H&R1"/CY(>$=./E8;*$(@,38T-"`M(#$V.30I(#H-"@T*&R1".$5# -M4R1D,S\D2"13.7XD8#]E)$XR.QLH0@T*#0HH9G5R=6EK92!Y82`O(&MA=V%Z -M=2!T;V)I:V]M=2`O(&UI>G4@;F\@;W1O*0T*#0I!<R!V97)B871I;3H-"@T* -M("`;)$(X14-3)&0S/R1()%,Y?B1@/V4D3C([&RA"#0H-"@T*#0H]:71E;2!9 -M3U-!($)54T].("@;)$)-/SQ527-"/!LH0C$W,38@+2`Q-S@S*0T*#0H;)$)* -M?4@L3B0Q*S%`)&@D.R1,,C1#,"0K)$H;*$(-"@T**&AO(&AA8VAI<FD@+R!A -M;6%G=6UO('EO<V5N=2`O(&)O=&%N(&MA;F$I#0H-"D%S('9E<F)A=&EM.@T* -M#0H@(!LD0DI]2"Q.)#$K,4`D:"0[)$PR-$,P)"LD2ALH0@T*#0H]:71E;2!- -M05-!3TM!(%-(24M)("@;)$)`-3(L.U(U+!LH0B`Q.#8W("T@,3DP,BD-"@T* -M&R1")"0D021/)$0D3C!L3EA'<B0W/54D3DIK&RA"#0H-"BAI8VAI:&%T<W4@ -M;F\@+R!I8VAI<FEN('-H:7)O<VAI("\@:&%R=6YO(&MU<F4I#0H-"D%S('9E -M<F)A=&EM.@T*#0H@(!LD0B0D)$$D3R1$)$XP;$Y81W(D-SU5)$Y*:QLH0@T* -M#0H;)$)-/DP_)"0D+R10)"\D*R0B)&M,:T,[)#<;*$(-"@T**'EO;65I("\@ -M:6MU8F%K=6MA(&%R=2`O('EO(&UI:FEK87-H:2D-"@T*("`;)$)-/DP_)"0D -M+R10)"\D*R0B)&M,:T,[)#<;*$(-"@T*/6)A8VL-"@T*6V5N9%T-"@T*/6-U -'=`T*#0H-"@`` diff --git a/lib/Pod/Simple/t/corpus/2202jp.xml b/lib/Pod/Simple/t/corpus/2202jp.xml deleted file mode 100644 index e0304954d4..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jp.xml +++ /dev/null @@ -1,133 +0,0 @@ -<Document start_line="3"> - <head1 start_line="3"> - NAME - </head1> - <Para start_line="5"> - haiku-iso2022jp -- a test Japanese document in iso-2022-jp - </Para> - <head1 start_line="7"> - DESCRIPTION - </head1> - <Para start_line="11"> - This is a test Pod document in ISO-2202-JP. Its content - is some Japanese haiku by famous poets. - </Para> - <head2 start_line="15"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </head2> - <Para start_line="17"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="19"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="21"> - As verbatim: - </Para> - <VerbatimFormatted start_line="23" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <head2 start_line="27"> - YOSA BUSON (与謝蕪村1716 - 1783) - </head2> - <Para start_line="29"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="31"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="33"> - As verbatim: - </Para> - <VerbatimFormatted start_line="35" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <head2 start_line="37"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </head2> - <Para start_line="39"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="41"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="43"> - As verbatim: - </Para> - <VerbatimFormatted start_line="45" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="47"> - 余命いくばくかある夜短し - </Para> - <Para start_line="49"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="51" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - <head1 start_line="53"> - AS A LIST - </head1> - <over-text indent="4" start_line="55"> - <item-text start_line="57"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </item-text> - <Para start_line="59"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="61"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="63"> - As verbatim: - </Para> - <VerbatimFormatted start_line="65" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <item-text start_line="69"> - YOSA BUSON (与謝蕪村1716 - 1783) - </item-text> - <Para start_line="71"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="73"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="75"> - As verbatim: - </Para> - <VerbatimFormatted start_line="77" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <item-text start_line="79"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </item-text> - <Para start_line="81"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="83"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="85"> - As verbatim: - </Para> - <VerbatimFormatted start_line="87" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="89"> - 余命いくばくかある夜短し - </Para> - <Para start_line="91"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="93" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - </over-text> - <Para start_line="97"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/2202jpx.txt.packed b/lib/Pod/Simple/t/corpus/2202jpx.txt.packed deleted file mode 100644 index df173d446a..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpx.txt.packed +++ /dev/null @@ -1,52 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u 2202jpx.txt.packed 2202jpx.txt - -To recreate it use the following command: - - uupacktool.pl -p 2202jpx.txt 2202jpx.txt.packed - -Created at Thu Mar 22 13:32:14 2007 -######################################################################### -__UU__ -M#0H-"CUH96%D,2!.04U%#0H-"FAA:6MU+6ES;S(P,C)J<"`M+2!A('1E<W0@ -M2F%P86YE<V4@9&]C=6UE;G0@:6X@:7-O+3(P,C(M:G`-"@T*/6AE860Q($1% -M4T-225!424].#0H-"CUE;F-O9&EN9R!I<V\M,C`R,BUJ<`T*#0I4:&ES(&ES -M(&$@=&5S="!0;V0@9&]C=6UE;G0@:6X@25-/+3(R,#(M2E`N("!)=',@8V]N -M=&5N="!I<R!S;VUE#0I*87!A;F5S92!H86EK=2!B>2!F86UO=7,@<&]E=',N -M#0H-"@T*/6AE860R($U!5%-53R!"05-(3R`H&R1"/CY(>$=./E8;*$(@,38T -M-"`M(#$V.30I(#H-"@T*&R1".$5#4R1D,S\D2"13.7XD8#]E)$XR.QLH0@T* -M#0HH9G5R=6EK92!Y82`O(&MA=V%Z=2!T;V)I:V]M=2`O(&UI>G4@;F\@;W1O -M*0T*#0I!<R!V97)B871I;3H-"@T*("`;)$(X14-3)&0S/R1()%,Y?B1@/V4D -M3C([&RA"#0H-"@T*#0H]:&5A9#(@64]302!"55-/3B`H&R1"33\\54ES0CP; -M*$(Q-S$V("T@,3<X,RD-"@T*&R1"2GU(+$XD,2LQ0"1H)#LD3#(T0S`D*R1* -M&RA"#0H-"BAH;R!H86-H:7)I("\@86UA9W5M;R!Y;W-E;G4@+R!B;W1A;B!K -M86YA*0T*#0I!<R!V97)B871I;3H-"@T*("`;)$)*?4@L3B0Q*S%`)&@D.R1, -M,C1#,"0K)$H;*$(-"@T*/6AE860R($U!4T%/2T$@4TA)2TD@*!LD0D`U,BP[ -M4C4L&RA"(#$X-C<@+2`Q.3`R*0T*#0H;)$(D)"1!)$\D1"1.,&Q.6$=R)#<] -M521.2FL;*$(-"@T**&EC:&EH871S=2!N;R`O(&EC:&ER:6X@<VAI<F]S:&D@ -M+R!H87)U;F\@:W5R92D-"@T*07,@=F5R8F%T:6TZ#0H-"B`@&R1")"0D021/ -M)$0D3C!L3EA'<B0W/54D3DIK&RA"#0H-"ALD0DT^3#\D)"0O)%`D+R0K)"(D -M:TQK0SLD-QLH0@T*#0HH>6]M96D@+R!I:W5B86MU:V$@87)U("\@>6\@;6EJ -M:6MA<VAI*0T*#0H@(!LD0DT^3#\D)"0O)%`D+R0K)"(D:TQK0SLD-QLH0@T* -M#0H]:&5A9#$@05,@02!,25-4#0H-"CUO=F5R#0H-"CUI=&5M($U!5%-53R!" -M05-(3R`H&R1"/CY(>$=./E8;*$(@,38T-"`M(#$V.30I(#H-"@T*&R1".$5# -M4R1D,S\D2"13.7XD8#]E)$XR.QLH0@T*#0HH9G5R=6EK92!Y82`O(&MA=V%Z -M=2!T;V)I:V]M=2`O(&UI>G4@;F\@;W1O*0T*#0I!<R!V97)B871I;3H-"@T* -M("`;)$(X14-3)&0S/R1()%,Y?B1@/V4D3C([&RA"#0H-"@T*#0H]:71E;2!9 -M3U-!($)54T].("@;)$)-/SQ527-"/!LH0C$W,38@+2`Q-S@S*0T*#0H;)$)* -M?4@L3B0Q*S%`)&@D.R1,,C1#,"0K)$H;*$(-"@T**&AO(&AA8VAI<FD@+R!A -M;6%G=6UO('EO<V5N=2`O(&)O=&%N(&MA;F$I#0H-"D%S('9E<F)A=&EM.@T* -M#0H@(!LD0DI]2"Q.)#$K,4`D:"0[)$PR-$,P)"LD2ALH0@T*#0H]:71E;2!- -M05-!3TM!(%-(24M)("@;)$)`-3(L.U(U+!LH0B`Q.#8W("T@,3DP,BD-"@T* -M&R1")"0D021/)$0D3C!L3EA'<B0W/54D3DIK&RA"#0H-"BAI8VAI:&%T<W4@ -M;F\@+R!I8VAI<FEN('-H:7)O<VAI("\@:&%R=6YO(&MU<F4I#0H-"D%S('9E -M<F)A=&EM.@T*#0H@(!LD0B0D)$$D3R1$)$XP;$Y81W(D-SU5)$Y*:QLH0@T* -M#0H;)$)-/DP_)"0D+R10)"\D*R0B)&M,:T,[)#<;*$(-"@T**'EO;65I("\@ -M:6MU8F%K=6MA(&%R=2`O('EO(&UI:FEK87-H:2D-"@T*("`;)$)-/DP_)"0D -M+R10)"\D*R0B)&M,:T,[)#<;*$(-"@T*/6)A8VL-"@T*+F5N9"X-"@T*/6-U -'=`T*#0H-"@`` diff --git a/lib/Pod/Simple/t/corpus/2202jpx.xml b/lib/Pod/Simple/t/corpus/2202jpx.xml deleted file mode 100644 index 57cb4ceadc..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpx.xml +++ /dev/null @@ -1,133 +0,0 @@ -<Document start_line="3"> - <head1 start_line="3"> - NAME - </head1> - <Para start_line="5"> - haiku-iso2022jp -- a test Japanese document in iso-2022-jp - </Para> - <head1 start_line="7"> - DESCRIPTION - </head1> - <Para start_line="11"> - This is a test Pod document in ISO-2202-JP. Its content - is some Japanese haiku by famous poets. - </Para> - <head2 start_line="15"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </head2> - <Para start_line="17"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="19"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="21"> - As verbatim: - </Para> - <VerbatimFormatted start_line="23" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <head2 start_line="27"> - YOSA BUSON (与謝蕪村1716 - 1783) - </head2> - <Para start_line="29"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="31"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="33"> - As verbatim: - </Para> - <VerbatimFormatted start_line="35" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <head2 start_line="37"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </head2> - <Para start_line="39"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="41"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="43"> - As verbatim: - </Para> - <VerbatimFormatted start_line="45" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="47"> - 余命いくばくかある夜短し - </Para> - <Para start_line="49"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="51" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - <head1 start_line="53"> - AS A LIST - </head1> - <over-text indent="4" start_line="55"> - <item-text start_line="57"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </item-text> - <Para start_line="59"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="61"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="63"> - As verbatim: - </Para> - <VerbatimFormatted start_line="65" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <item-text start_line="69"> - YOSA BUSON (与謝蕪村1716 - 1783) - </item-text> - <Para start_line="71"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="73"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="75"> - As verbatim: - </Para> - <VerbatimFormatted start_line="77" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <item-text start_line="79"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </item-text> - <Para start_line="81"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="83"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="85"> - As verbatim: - </Para> - <VerbatimFormatted start_line="87" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="89"> - 余命いくばくかある夜短し - </Para> - <Para start_line="91"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="93" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - </over-text> - <Para start_line="97"> - .end. - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/2202jpy.txt.packed b/lib/Pod/Simple/t/corpus/2202jpy.txt.packed deleted file mode 100644 index fb960e2493..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpy.txt.packed +++ /dev/null @@ -1,52 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u 2202jpy.txt.packed 2202jpy.txt - -To recreate it use the following command: - - uupacktool.pl -p 2202jpy.txt 2202jpy.txt.packed - -Created at Thu Mar 22 13:32:29 2007 -######################################################################### -__UU__ -M#0H]:&5A9#$@3D%-10T*#0IH86EK=2UI<V\R,#(R:G`@+2T@82!T97-T($IA -M<&%N97-E(&1O8W5M96YT(&EN(&ES;RTR,#(R+6IP#0H-"CUH96%D,2!$15-# -M4DE05$E/3@T*#0H]96YC;V1I;F<@:7-O+3(P,C(M:G`-"@T*5&AI<R!I<R!A -M('1E<W0@4&]D(&1O8W5M96YT(&EN($E33RTR,C`R+4I0+B`@271S(&-O;G1E -M;G0@:7,@<V]M90T*2F%P86YE<V4@:&%I:W4@8GD@9F%M;W5S('!O971S+@T* -M#0H-"CUH96%D,B!-051354\@0D%32$\@*!LD0CX^2'A'3CY6&RA"(#$V-#0@ -M+2`Q-CDT*2`Z#0H-"ALD0CA%0U,D9#,_)$@D4SE^)&`_921.,CL;*$(-"@T* -M*&9U<G5I:V4@>6$@+R!K87=A>G4@=&]B:6MO;74@+R!M:7IU(&YO(&]T;RD- -M"@T*07,@=F5R8F%T:6TZ#0H-"B`@&R1".$5#4R1D,S\D2"13.7XD8#]E)$XR -M.QLH0@T*#0H-"@T*/6AE860R(%E/4T$@0E533TX@*!LD0DT_/%5)<T(\&RA" -M,3<Q-B`M(#$W.#,I#0H-"ALD0DI]2"Q.)#$K,4`D:"0[)$PR-$,P)"LD2ALH -M0@T*#0HH:&\@:&%C:&ER:2`O(&%M86=U;6\@>6]S96YU("\@8F]T86X@:V%N -M82D-"@T*07,@=F5R8F%T:6TZ#0H-"B`@&R1"2GU(+$XD,2LQ0"1H)#LD3#(T -M0S`D*R1*&RA"#0H-"CUH96%D,B!-05-!3TM!(%-(24M)("@;)$)`-3(L.U(U -M+!LH0B`Q.#8W("T@,3DP,BD-"@T*&R1")"0D021/)$0D3C!L3EA'<B0W/54D -M3DIK&RA"#0H-"BAI8VAI:&%T<W4@;F\@+R!I8VAI<FEN('-H:7)O<VAI("\@ -M:&%R=6YO(&MU<F4I#0H-"D%S('9E<F)A=&EM.@T*#0H@(!LD0B0D)$$D3R1$ -M)$XP;$Y81W(D-SU5)$Y*:QLH0@T*#0H;)$)-/DP_)"0D+R10)"\D*R0B)&M, -M:T,[)#<;*$(-"@T**'EO;65I("\@:6MU8F%K=6MA(&%R=2`O('EO(&UI:FEK -M87-H:2D-"@T*("`;)$)-/DP_)"0D+R10)"\D*R0B)&M,:T,[)#<;*$(-"@T* -M/6AE860Q($%3($$@3$E35`T*#0H];W9E<@T*#0H]:71E;2!-051354\@0D%3 -M2$\@*!LD0CX^2'A'3CY6&RA"(#$V-#0@+2`Q-CDT*2`Z#0H-"ALD0CA%0U,D -M9#,_)$@D4SE^)&`_921.,CL;*$(-"@T**&9U<G5I:V4@>6$@+R!K87=A>G4@ -M=&]B:6MO;74@+R!M:7IU(&YO(&]T;RD-"@T*07,@=F5R8F%T:6TZ#0H-"B`@ -M&R1".$5#4R1D,S\D2"13.7XD8#]E)$XR.QLH0@T*#0H-"@T*/6ET96T@64]3 -M02!"55-/3B`H&R1"33\\54ES0CP;*$(Q-S$V("T@,3<X,RD-"@T*&R1"2GU( -M+$XD,2LQ0"1H)#LD3#(T0S`D*R1*&RA"#0H-"BAH;R!H86-H:7)I("\@86UA -M9W5M;R!Y;W-E;G4@+R!B;W1A;B!K86YA*0T*#0I!<R!V97)B871I;3H-"@T* -M("`;)$)*?4@L3B0Q*S%`)&@D.R1,,C1#,"0K)$H;*$(-"@T*/6ET96T@34%3 -M04]+02!32$E+22`H&R1"0#4R+#M2-2P;*$(@,3@V-R`M(#$Y,#(I#0H-"ALD -M0B0D)$$D3R1$)$XP;$Y81W(D-SU5)$Y*:QLH0@T*#0HH:6-H:6AA='-U(&YO -M("\@:6-H:7)I;B!S:&ER;W-H:2`O(&AA<G5N;R!K=7)E*0T*#0I!<R!V97)B -M871I;3H-"@T*("`;)$(D)"1!)$\D1"1.,&Q.6$=R)#<]521.2FL;*$(-"@T* -M&R1"33Y,/R0D)"\D4"0O)"LD(B1K3&M#.R0W&RA"#0H-"BAY;VUE:2`O(&EK -M=6)A:W5K82!A<G4@+R!Y;R!M:6II:V%S:&DI#0H-"B`@&R1"33Y,/R0D)"\D -M4"0O)"LD(B1K3&M#.R0W&RA"#0H-"CUB86-K#0H-"B)E;F0B#0H-"CUC=70- -'"@T*#0H-"@`` diff --git a/lib/Pod/Simple/t/corpus/2202jpy.xml b/lib/Pod/Simple/t/corpus/2202jpy.xml deleted file mode 100644 index 23d51e1ebb..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpy.xml +++ /dev/null @@ -1,133 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - haiku-iso2022jp -- a test Japanese document in iso-2022-jp - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in ISO-2202-JP. Its content - is some Japanese haiku by famous poets. - </Para> - <head2 start_line="14"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </head2> - <Para start_line="16"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="18"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="20"> - As verbatim: - </Para> - <VerbatimFormatted start_line="22" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <head2 start_line="26"> - YOSA BUSON (与謝蕪村1716 - 1783) - </head2> - <Para start_line="28"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="30"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="32"> - As verbatim: - </Para> - <VerbatimFormatted start_line="34" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <head2 start_line="36"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </head2> - <Para start_line="38"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="40"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="42"> - As verbatim: - </Para> - <VerbatimFormatted start_line="44" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="46"> - 余命いくばくかある夜短し - </Para> - <Para start_line="48"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="50" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - <head1 start_line="52"> - AS A LIST - </head1> - <over-text indent="4" start_line="54"> - <item-text start_line="56"> - MATSUO BASHO (松尾芭蕉 1644 - 1694) - : - </item-text> - <Para start_line="58"> - 古池や蛙とび込む水の音 - </Para> - <Para start_line="60"> - (furuike ya / kawazu tobikomu / mizu no oto) - </Para> - <Para start_line="62"> - As verbatim: - </Para> - <VerbatimFormatted start_line="64" xml:space="preserve"> - 古池や蛙とび込む水の音 - </VerbatimFormatted> - <item-text start_line="68"> - YOSA BUSON (与謝蕪村1716 - 1783) - </item-text> - <Para start_line="70"> - 方八里雨雲よせぬ牡丹かな - </Para> - <Para start_line="72"> - (ho hachiri / amagumo yosenu / botan kana) - </Para> - <Para start_line="74"> - As verbatim: - </Para> - <VerbatimFormatted start_line="76" xml:space="preserve"> - 方八里雨雲よせぬ牡丹かな - </VerbatimFormatted> - <item-text start_line="78"> - MASAOKA SHIKI (正岡子規 1867 - 1902) - </item-text> - <Para start_line="80"> - いちはつの一輪白し春の暮 - </Para> - <Para start_line="82"> - (ichihatsu no / ichirin shiroshi / haruno kure) - </Para> - <Para start_line="84"> - As verbatim: - </Para> - <VerbatimFormatted start_line="86" xml:space="preserve"> - いちはつの一輪白し春の暮 - </VerbatimFormatted> - <Para start_line="88"> - 余命いくばくかある夜短し - </Para> - <Para start_line="90"> - (yomei / ikubakuka aru / yo mijikashi) - </Para> - <VerbatimFormatted start_line="92" xml:space="preserve"> - 余命いくばくかある夜短し - </VerbatimFormatted> - </over-text> - <Para start_line="96"> - "end" - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/2202jpz.txt b/lib/Pod/Simple/t/corpus/2202jpz.txt deleted file mode 100644 index 230fd2ba9d..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpz.txt +++ /dev/null @@ -1,14 +0,0 @@ -
-=head1 NAME
-
-haiku-iso2022jp -- a test Japanese document in iso-2022-jp
-
-=head1 DESCRIPTION
-
-=encoding iso-2022-jp
-
-This is a test Pod document in ISO-2202-JP.
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/2202jpz.xml b/lib/Pod/Simple/t/corpus/2202jpz.xml deleted file mode 100644 index 734ed6f5d8..0000000000 --- a/lib/Pod/Simple/t/corpus/2202jpz.xml +++ /dev/null @@ -1,14 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - haiku-iso2022jp -- a test Japanese document in iso-2022-jp - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in ISO-2202-JP. - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/8859_7.pod b/lib/Pod/Simple/t/corpus/8859_7.pod deleted file mode 100644 index 9596f8f69e..0000000000 --- a/lib/Pod/Simple/t/corpus/8859_7.pod +++ /dev/null @@ -1,33 +0,0 @@ - -=encoding iso-8859-7 - -=head1 NAME - -Ïëõìðéáêüò ¾ìíïò -- ÊùóôÞò ÐáëáìÜò - -=head1 DESCRIPTION - -Áñ÷áßï Ðíåýì' áèÜíáôïí, áãíÝ ðáôÝñá -ôïõ ùñáßïõ, ôïõ ìåãÜëïõ êáé ô' áëçèéíïý, - -êáôÝâá, öáíåñþóïõ êé Üóôñáø' åäþ ðÝñá -óôç äüîá ôçò äéêÞò óïõ ãçò êáé ô' ïõñáíïý. - -Óôï äñüìï êáé óôï ðÜëåìá êáé óôï ëéèÜñé, -óôùí åõãåíþí Áãþíùí ëÜìøå ôçí ïñìÞ, - -êáé ìå ô' áìÜñáíôï óôåöÜíùóå êëùíÜñé -êáé óéäåñÝíéï ðëÜóå êé Üîéï ôï êïñìß. - -ÊÜìðïé, âïõíÜ êáé ðÝëáãá öÝããïõí ìáæß óïõ -óáí Ýíáò ëåõêïðüñöõñïò ìÝãáò íáüò, - -êáé ôñÝ÷åé óôï íáü åäþ ðñïóêõíçôÞò óïõ. -Áñ÷áßï Ðíåýì' áèÜíáôï, êÜèå ëáüò. - -=cut - - -The above is the Olympic Hymn, by Kostis Palamas. -Yup, it's in Greek. - diff --git a/lib/Pod/Simple/t/corpus/8859_7.xml b/lib/Pod/Simple/t/corpus/8859_7.xml deleted file mode 100644 index ffbf0d0855..0000000000 --- a/lib/Pod/Simple/t/corpus/8859_7.xml +++ /dev/null @@ -1,59 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - Ολυμπιακός - Ύμνος -- Κωστής - Παλαμάς - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - Αρχαίο Πνεύμ' - αθάνατον, αγνέ - πατέρα του - ωραίου, του - μεγάλου και - τ' αληθινού, - </Para> - <Para start_line="13"> - κατέβα, φανερώσου - κι άστραψ' εδώ - πέρα στη δόξα - της δικής σου - γης και τ' ουρανού. - </Para> - <Para start_line="16"> - Στο δρόμο και - στο πάλεμα - και στο λιθάρι, - στων ευγενών - Αγώνων λάμψε - την ορμή, - </Para> - <Para start_line="19"> - και με τ' αμάραντο - στεφάνωσε κλωνάρι - και σιδερένιο - πλάσε κι άξιο - το κορμί. - </Para> - <Para start_line="22"> - Κάμποι, βουνά - και πέλαγα - φέγγουν μαζί - σου σαν ένας - λευκοπόρφυρος - μέγας ναός, - </Para> - <Para start_line="25"> - και τρέχει - στο ναό εδώ - προσκυνητής - σου. Αρχαίο - Πνεύμ' αθάνατο, - κάθε λαός. - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/cp1256.txt b/lib/Pod/Simple/t/corpus/cp1256.txt deleted file mode 100644 index 9a79bc0eda..0000000000 --- a/lib/Pod/Simple/t/corpus/cp1256.txt +++ /dev/null @@ -1,39 +0,0 @@ -
-=head1 NAME
-
-buniya1256 -- test document: a paragraph in Arabic as CP-1256
-
-=head1 DESCRIPTION
-
-This Pod document is a paragraph in Arabic from "The Five Pillars of Islam"
-as CP-1256.
-
-=encoding cp1256
-
-æÚä ÚãÇÑÉ Èä ÍÒã ÞÇá ÞÇá ÑÓæá Çááå Õáì Çááå Úáíå æÓáã:
-
-ÇÑÈÚ ÝÑÖåä Çááå ÚÒ æÌá Ýí ÇáÇÓáÇã Ýãä ÌÇÁ ÈËáÇË áã íÛäíä Úäå
-
-ÔíÆÇ ÍÊì íÃÊí Èåä ÌãíÚÇ ÇáÕáÇÉ æÇáÒßÇÉ æÕíÇã ÑãÖÇä æÍÌ
-
-ÇáÈíÊ. ÑæÇå ÇÍãÏ æÇáØÈÑÇäí Ýí ÇáßÈíÑ æÝí ÇÓäÇÏå ÇÈä áåíÚÉ.
-
-And now as a real single paragraph:
-
-æÚä ÚãÇÑÉ Èä ÍÒã ÞÇá ÞÇá ÑÓæá Çááå Õáì Çááå Úáíå æÓáã:
-ÇÑÈÚ ÝÑÖåä Çááå ÚÒ æÌá Ýí ÇáÇÓáÇã Ýãä ÌÇÁ ÈËáÇË áã íÛäíä Úäå
-ÔíÆÇ ÍÊì íÃÊí Èåä ÌãíÚÇ ÇáÕáÇÉ æÇáÒßÇÉ æÕíÇã ÑãÖÇä æÍÌ
-ÇáÈíÊ. ÑæÇå ÇÍãÏ æÇáØÈÑÇäí Ýí ÇáßÈíÑ æÝí ÇÓäÇÏå ÇÈä áåíÚÉ.
-
-And now as a verbatim paragraph:
-
- æÚä ÚãÇÑÉ Èä ÍÒã ÞÇá ÞÇá ÑÓæá Çááå Õáì Çááå Úáíå æÓáã:
- ÇÑÈÚ ÝÑÖåä Çááå ÚÒ æÌá Ýí ÇáÇÓáÇã Ýãä ÌÇÁ ÈËáÇË áã íÛäíä Úäå
- ÔíÆÇ ÍÊì íÃÊí Èåä ÌãíÚÇ ÇáÕáÇÉ æÇáÒßÇÉ æÕíÇã ÑãÖÇä æÍÌ
- ÇáÈíÊ. ÑæÇå ÇÍãÏ æÇáØÈÑÇäí Ýí ÇáßÈíÑ æÝí ÇÓäÇÏå ÇÈä áåíÚÉ.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/cp1256.xml b/lib/Pod/Simple/t/corpus/cp1256.xml deleted file mode 100644 index deacfd6c85..0000000000 --- a/lib/Pod/Simple/t/corpus/cp1256.xml +++ /dev/null @@ -1,98 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - buniya1256 -- test document: a paragraph in Arabic as CP-1256 - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="8"> - This Pod document is a paragraph in Arabic from "The - Five Pillars of Islam" as CP-1256. - </Para> - <Para start_line="13"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: - </Para> - <Para start_line="15"> - اربع فرضهن - الله عز وجل - في الاسلام - فمن جاء بثلاث - لم يغنين عنه - </Para> - <Para start_line="17"> - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج - </Para> - <Para start_line="19"> - البيت. رواه - احمد والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - </Para> - <Para start_line="21"> - And now as a real single paragraph: - </Para> - <Para start_line="23"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: اربع - فرضهن الله - عز وجل في الاسلام - فمن جاء بثلاث - لم يغنين عنه - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج البيت. - رواه احمد - والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - </Para> - <Para start_line="28"> - And now as a verbatim paragraph: - </Para> - <VerbatimFormatted start_line="30" xml:space="preserve"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: - - اربع فرضهن - الله عز وجل - في الاسلام - فمن جاء بثلاث - لم يغنين عنه - - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج - - البيت. رواه - احمد والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - </VerbatimFormatted> - <Para start_line="35"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/fet_cont.txt b/lib/Pod/Simple/t/corpus/fet_cont.txt deleted file mode 100644 index 51b83208ca..0000000000 --- a/lib/Pod/Simple/t/corpus/fet_cont.txt +++ /dev/null @@ -1,22 +0,0 @@ -
-We have deliberately contradictory =encoding statements here.
-This should generate errata.
-
-=encoding koi8-r
-
-=head1 NAME
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading"
-
-=head1 TEXT
-
-=encoding Shift-JIS
-
-(This is a test Pod pocument in KOI8-R.)
-
-15 ÆÅ×ÒÁÌÑ 1887
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/fet_cont.xml b/lib/Pod/Simple/t/corpus/fet_cont.xml deleted file mode 100644 index 4f4995f925..0000000000 --- a/lib/Pod/Simple/t/corpus/fet_cont.xml +++ /dev/null @@ -1,42 +0,0 @@ -<Document start_line="5"> - <head1 start_line="7"> - NAME - </head1> - <Para start_line="9"> - Когда читала - ты мучительные - строки -- Fet's - "When you were reading" - </Para> - <head1 start_line="11"> - TEXT - </head1> - <Para start_line="15"> - (This is a test Pod pocument in KOI8-R.) - </Para> - <Para start_line="17"> - 15 февраля 1887 - </Para> - <Para start_line="19"> - [end] - </Para> - <head1 errata="1" start_line="-321"> - POD ERRORS - </head1> - <Para errata="1" start_line="-321"> - Hey! - <B> - The above document had some coding errors, which are explained - below: - </B> - </Para> - <over-text errata="1" indent="4" start_line="-321"> - <item-text start_line="-321"> - Around line 13: - </item-text> - <Para start_line="-321"> - Couldn't do =encoding Shift-JIS: Encoding is already - set to koi8-r - </Para> - </over-text> -</Document> diff --git a/lib/Pod/Simple/t/corpus/fet_dup.txt b/lib/Pod/Simple/t/corpus/fet_dup.txt deleted file mode 100644 index 92e95eb264..0000000000 --- a/lib/Pod/Simple/t/corpus/fet_dup.txt +++ /dev/null @@ -1,56 +0,0 @@ -
-We have deliberately reduntant =encoding statements here.
-This should generate no errata.
-
-=encoding koi8-r
-
-=head1 NAME
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading"
-
-=head1 TEXT
-
-(This is a test Pod pocument in KOI8-R.)
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ, /
-çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ /
-é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,- /
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
-ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï, /
-÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ, /
-÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï /
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
-é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ, /
-÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,- /
-õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ: /
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
-15 ÆÅ×ÒÁÌÑ 1887
-
-And now, as a verbatim section:
-
- ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ,
- çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ
- é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,-
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
- ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï,
- ÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ,
- ÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
-=encoding koi8-r
-
- é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ,
- ÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,-
- õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ:
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
- 15 ÆÅ×ÒÁÌÑ 1887
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/fet_dup.xml b/lib/Pod/Simple/t/corpus/fet_dup.xml deleted file mode 100644 index c33277deb0..0000000000 --- a/lib/Pod/Simple/t/corpus/fet_dup.xml +++ /dev/null @@ -1,121 +0,0 @@ -<Document start_line="5"> - <head1 start_line="7"> - NAME - </head1> - <Para start_line="9"> - Когда читала - ты мучительные - строки -- Fet's - "When you were reading" - </Para> - <head1 start_line="11"> - TEXT - </head1> - <Para start_line="13"> - (This is a test Pod pocument in KOI8-R.) - </Para> - <Para start_line="15"> - Когда читала - ты мучительные - строки, / Где - сердца звучный - пыл сиянье - льет кругом - / И страсти - роковой вздымаются - потоки,- / Не - вспомнила - ль о чем? - </Para> - <Para start_line="20"> - Я верить не - хочу! Когда - в степи, как - диво, / В полночной - темноте безвременно - горя, / Вдали - перед тобой - прозрачно - и красиво - / Вставала - вдругзаря. - </Para> - <Para start_line="25"> - И в эту красоту - невольно - взор тянуло, - / В тот величавый - блеск за темный - весь предел,- - / Ужель ничто - тебе в то время - не шепнуло: - / Там человек - сгорел! - </Para> - <Para start_line="30"> - 15 февраля 1887 - </Para> - <Para start_line="32"> - And now, as a verbatim section: - </Para> - <VerbatimFormatted start_line="34" xml:space="preserve"> - Когда читала - ты мучительные - строки, - - Где сердца - звучный пыл - сиянье льет - кругом - - И страсти - роковой вздымаются - потоки,- - - Не вспомнила - ль о чем? - - - - Я верить не - хочу! Когда - в степи, как - диво, - - В полночной - темноте безвременно - горя, - - Вдали перед - тобой прозрачно - и красиво - - Вставала - вдругзаря. - </VerbatimFormatted> - <VerbatimFormatted start_line="46" xml:space="preserve"> - И в эту красоту - невольно - взор тянуло, - - В тот величавый - блеск за темный - весь предел,- - - Ужель ничто - тебе в то время - не шепнуло: - - Там человек - сгорел! - - - - 15 февраля - 1887 - </VerbatimFormatted> - <Para start_line="53"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/iso6.txt b/lib/Pod/Simple/t/corpus/iso6.txt deleted file mode 100644 index 0152bd3c00..0000000000 --- a/lib/Pod/Simple/t/corpus/iso6.txt +++ /dev/null @@ -1,39 +0,0 @@ -
-=head1 NAME
-
-buniya-iso-6 -- test document: a paragraph in Arabic as ISO-8859-6
-
-=head1 DESCRIPTION
-
-This document is a paragraph in Arabic from "The Five Pillars of Islam"
-as ISO-8859-6.
-
-=encoding iso-8859-6
-
-èÙæ ÙåÇÑÉ Èæ ÍÒå âÇä âÇä ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå:
-
-ÇÑÈÙ áÑÖçæ Çääç ÙÒ èÌä áê ÇäÇÓäÇå áåæ ÌÇÁ ÈËäÇË äå êÚæêæ Ùæç
-
-ÔêÆÇ ÍÊé êÃÊê Èçæ ÌåêÙÇ ÇäÕäÇÉ èÇäÒãÇÉ èÕêÇå ÑåÖÇæ èÍÌ
-
-ÇäÈêÊ. ÑèÇç ÇÍåÏ èÇä×ÈÑÇæê áê ÇäãÈêÑ èáê ÇÓæÇÏç ÇÈæ äçêÙÉ.
-
-And now as a real single paragraph:
-
-èÙæ ÙåÇÑÉ Èæ ÍÒå âÇä âÇä ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå:
-ÇÑÈÙ áÑÖçæ Çääç ÙÒ èÌä áê ÇäÇÓäÇå áåæ ÌÇÁ ÈËäÇË äå êÚæêæ Ùæç
-ÔêÆÇ ÍÊé êÃÊê Èçæ ÌåêÙÇ ÇäÕäÇÉ èÇäÒãÇÉ èÕêÇå ÑåÖÇæ èÍÌ
-ÇäÈêÊ. ÑèÇç ÇÍåÏ èÇä×ÈÑÇæê áê ÇäãÈêÑ èáê ÇÓæÇÏç ÇÈæ äçêÙÉ.
-
-And now as a verbatim paragraph:
-
- èÙæ ÙåÇÑÉ Èæ ÍÒå âÇä âÇä ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå:
- ÇÑÈÙ áÑÖçæ Çääç ÙÒ èÌä áê ÇäÇÓäÇå áåæ ÌÇÁ ÈËäÇË äå êÚæêæ Ùæç
- ÔêÆÇ ÍÊé êÃÊê Èçæ ÌåêÙÇ ÇäÕäÇÉ èÇäÒãÇÉ èÕêÇå ÑåÖÇæ èÍÌ
- ÇäÈêÊ. ÑèÇç ÇÍåÏ èÇä×ÈÑÇæê áê ÇäãÈêÑ èáê ÇÓæÇÏç ÇÈæ äçêÙÉ.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/iso6.xml b/lib/Pod/Simple/t/corpus/iso6.xml deleted file mode 100644 index b597324087..0000000000 --- a/lib/Pod/Simple/t/corpus/iso6.xml +++ /dev/null @@ -1,100 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - buniya-iso-6 -- test document: a paragraph in Arabic as - ISO-8859-6 - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="8"> - This document is a paragraph in Arabic from "The Five - Pillars of Islam" as ISO-8859-6. - </Para> - <Para start_line="13"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: - </Para> - <Para start_line="15"> - اربع فرضهن - الله عز وجل - في الاسلام - فمن جاء بثلاث - لم يغنين عنه - </Para> - <Para start_line="17"> - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج - </Para> - <Para start_line="19"> - البيت. رواه - احمد والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - </Para> - <Para start_line="21"> - And now as a real single paragraph: - </Para> - <Para start_line="23"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: اربع - فرضهن الله - عز وجل في الاسلام - فمن جاء بثلاث - لم يغنين عنه - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج البيت. - رواه احمد - والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - </Para> - <Para start_line="28"> - And now as a verbatim paragraph: - </Para> - <VerbatimFormatted start_line="30" xml:space="preserve"> - وعن عمارة - بن حزم قال - قال رسول الله - صلى الله عليه - وسلم: - - اربع فرضهن - الله عز وجل - في الاسلام - فمن جاء بثلاث - لم يغنين عنه - - شيئا حتى يأتي - بهن جميعا - الصلاة والزكاة - وصيام رمضان - وحج - - البيت. رواه - احمد والطبراني - في الكبير - وفي اسناده - ابن لهيعة. - - </VerbatimFormatted> - <Para start_line="35"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/koi8r.txt b/lib/Pod/Simple/t/corpus/koi8r.txt deleted file mode 100644 index ce314e46f7..0000000000 --- a/lib/Pod/Simple/t/corpus/koi8r.txt +++ /dev/null @@ -1,51 +0,0 @@ -
-=encoding koi8-r
-
-=head1 NAME
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading"
-
-=head1 TEXT
-
-(This is a test Pod pocument in KOI8-R.)
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ, /
-çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ /
-é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,- /
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
-ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï, /
-÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ, /
-÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï /
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
-é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ, /
-÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,- /
-õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ: /
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
-15 ÆÅ×ÒÁÌÑ 1887
-
-And now, as a verbatim section:
-
- ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ,
- çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ
- é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,-
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
- ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï,
- ÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ,
- ÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
- é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ,
- ÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,-
- õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ:
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
- 15 ÆÅ×ÒÁÌÑ 1887
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/koi8r.xml b/lib/Pod/Simple/t/corpus/koi8r.xml deleted file mode 100644 index 94331d7e4d..0000000000 --- a/lib/Pod/Simple/t/corpus/koi8r.xml +++ /dev/null @@ -1,122 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - Когда читала - ты мучительные - строки -- Fet's - "When you were reading" - </Para> - <head1 start_line="8"> - TEXT - </head1> - <Para start_line="10"> - (This is a test Pod pocument in KOI8-R.) - </Para> - <Para start_line="12"> - Когда читала - ты мучительные - строки, / Где - сердца звучный - пыл сиянье - льет кругом - / И страсти - роковой вздымаются - потоки,- / Не - вспомнила - ль о чем? - </Para> - <Para start_line="17"> - Я верить не - хочу! Когда - в степи, как - диво, / В полночной - темноте безвременно - горя, / Вдали - перед тобой - прозрачно - и красиво - / Вставала - вдругзаря. - </Para> - <Para start_line="22"> - И в эту красоту - невольно - взор тянуло, - / В тот величавый - блеск за темный - весь предел,- - / Ужель ничто - тебе в то время - не шепнуло: - / Там человек - сгорел! - </Para> - <Para start_line="27"> - 15 февраля 1887 - </Para> - <Para start_line="29"> - And now, as a verbatim section: - </Para> - <VerbatimFormatted start_line="31" xml:space="preserve"> - Когда читала - ты мучительные - строки, - - Где сердца - звучный пыл - сиянье льет - кругом - - И страсти - роковой вздымаются - потоки,- - - Не вспомнила - ль о чем? - - - - Я верить не - хочу! Когда - в степи, как - диво, - - В полночной - темноте безвременно - горя, - - Вдали перед - тобой прозрачно - и красиво - - Вставала - вдругзаря. - - - - И в эту красоту - невольно - взор тянуло, - - В тот величавый - блеск за темный - весь предел,- - - Ужель ничто - тебе в то время - не шепнуло: - - Там человек - сгорел! - - - - 15 февраля - 1887 - </VerbatimFormatted> - <Para start_line="48"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/laozi38.txt b/lib/Pod/Simple/t/corpus/laozi38.txt deleted file mode 100644 index efd01ee07d..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38.txt +++ /dev/null @@ -1,37 +0,0 @@ -=encoding big5
-
-=head1 ¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹ -- Big5 (Chinese) encoding test
-
-¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
-¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
-¤W¼wµL¬°¦ÓµL¥H¬°¡Q
-¤U¼wµL¬°¦Ó¦³¥H¬°¡C
-¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
-¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
-¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
-¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
-«eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
-¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
-¬G¥h©¼¨ú¦¹¡C
-
-And as a verbatim section:
-
- ¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
- ¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
- ¤W¼wµL¬°¦ÓµL¥H¬°¡Q
- ¤U¼wµL¬°¦Ó¦³¥H¬°¡C
- ¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
- ¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
- ¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
- ¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
- «eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
- ¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
- ¬G¥h©¼¨ú¦¹¡C
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/laozi38.xml b/lib/Pod/Simple/t/corpus/laozi38.xml deleted file mode 100644 index 5ff72513ab..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38.xml +++ /dev/null @@ -1,52 +0,0 @@ -<Document start_line="1"> - <head1 start_line="3"> - 老子道德經 三十八章 - -- Big5 (Chinese) encoding test - </head1> - <Para start_line="5"> - 上德不德，是以有德﹔ - 下德不失德，是以無德。 - 上德無為而無以為﹔ - 下德無為而有以為。 - 上仁為之而無以為﹔ - 上義為之而有以為。 - 上禮為之而莫之應，則攘臂而扔之。 - </Para> - <Para start_line="13"> - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - 前識者，道之華，而愚之始。 - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - 故去彼取此。 - </Para> - <Para start_line="18"> - And as a verbatim section: - </Para> - <VerbatimFormatted start_line="20" xml:space="preserve"> - 上德不德，是以有德﹔ - - 下德不失德，是以無德。 - - 上德無為而無以為﹔ - - 下德無為而有以為。 - - 上仁為之而無以為﹔ - - 上義為之而有以為。 - - 上禮為之而莫之應，則攘臂而扔之。 - - - - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - - 前識者，道之華，而愚之始。 - - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - - 故去彼取此。 - </VerbatimFormatted> - <Para start_line="33"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/laozi38b.txt b/lib/Pod/Simple/t/corpus/laozi38b.txt deleted file mode 100644 index 8193d21b50..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38b.txt +++ /dev/null @@ -1,37 +0,0 @@ -=encoding big5-eten
-
-=head1 ¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹ -- Big5 (Chinese) encoding test
-
-¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
-¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
-¤W¼wµL¬°¦ÓµL¥H¬°¡Q
-¤U¼wµL¬°¦Ó¦³¥H¬°¡C
-¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
-¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
-¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
-¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
-«eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
-¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
-¬G¥h©¼¨ú¦¹¡C
-
-And as a verbatim section:
-
- ¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
- ¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
- ¤W¼wµL¬°¦ÓµL¥H¬°¡Q
- ¤U¼wµL¬°¦Ó¦³¥H¬°¡C
- ¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
- ¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
- ¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
- ¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
- «eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
- ¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
- ¬G¥h©¼¨ú¦¹¡C
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/laozi38b.xml b/lib/Pod/Simple/t/corpus/laozi38b.xml deleted file mode 100644 index 5ff72513ab..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38b.xml +++ /dev/null @@ -1,52 +0,0 @@ -<Document start_line="1"> - <head1 start_line="3"> - 老子道德經 三十八章 - -- Big5 (Chinese) encoding test - </head1> - <Para start_line="5"> - 上德不德，是以有德﹔ - 下德不失德，是以無德。 - 上德無為而無以為﹔ - 下德無為而有以為。 - 上仁為之而無以為﹔ - 上義為之而有以為。 - 上禮為之而莫之應，則攘臂而扔之。 - </Para> - <Para start_line="13"> - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - 前識者，道之華，而愚之始。 - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - 故去彼取此。 - </Para> - <Para start_line="18"> - And as a verbatim section: - </Para> - <VerbatimFormatted start_line="20" xml:space="preserve"> - 上德不德，是以有德﹔ - - 下德不失德，是以無德。 - - 上德無為而無以為﹔ - - 下德無為而有以為。 - - 上仁為之而無以為﹔ - - 上義為之而有以為。 - - 上禮為之而莫之應，則攘臂而扔之。 - - - - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - - 前識者，道之華，而愚之始。 - - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - - 故去彼取此。 - </VerbatimFormatted> - <Para start_line="33"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/laozi38p.pod b/lib/Pod/Simple/t/corpus/laozi38p.pod deleted file mode 100644 index 477c785a3e..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38p.pod +++ /dev/null @@ -1,46 +0,0 @@ -
-=encoding big5
-
-=head1 NAME
-
-¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹ -- Big5 (Chinese) encoding test
-
-=head1 DESCRIPTION
-
-This is a test Pod document in the Big5 encoding. Its content is
-the 38th canto from the I<Dao De Jing>.
-
-=head2 ¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹
-
-¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
-¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
-¤W¼wµL¬°¦ÓµL¥H¬°¡Q
-¤U¼wµL¬°¦Ó¦³¥H¬°¡C
-¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
-¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
-¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
-¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
-«eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
-¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
-¬G¥h©¼¨ú¦¹¡C
-
-And as a verbatim section:
-
- ¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
- ¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
- ¤W¼wµL¬°¦ÓµL¥H¬°¡Q
- ¤U¼wµL¬°¦Ó¦³¥H¬°¡C
- ¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
- ¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
- ¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
- ¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
- «eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
- ¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
- ¬G¥h©¼¨ú¦¹¡C
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/laozi38p.xml b/lib/Pod/Simple/t/corpus/laozi38p.xml deleted file mode 100644 index bae00f25d4..0000000000 --- a/lib/Pod/Simple/t/corpus/laozi38p.xml +++ /dev/null @@ -1,69 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - 老子道德經 三十八章 - -- Big5 (Chinese) encoding test - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in the Big5 encoding. Its content - is the 38th canto from the - <I> - Dao De Jing - </I> - . - </Para> - <head2 start_line="13"> - 老子道德經 三十八章 - </head2> - <Para start_line="15"> - 上德不德，是以有德﹔ - 下德不失德，是以無德。 - 上德無為而無以為﹔ - 下德無為而有以為。 - 上仁為之而無以為﹔ - 上義為之而有以為。 - 上禮為之而莫之應，則攘臂而扔之。 - </Para> - <Para start_line="23"> - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - 前識者，道之華，而愚之始。 - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - 故去彼取此。 - </Para> - <Para start_line="28"> - And as a verbatim section: - </Para> - <VerbatimFormatted start_line="30" xml:space="preserve"> - 上德不德，是以有德﹔ - - 下德不失德，是以無德。 - - 上德無為而無以為﹔ - - 下德無為而有以為。 - - 上仁為之而無以為﹔ - - 上義為之而有以為。 - - 上禮為之而莫之應，則攘臂而扔之。 - - - - 故失道而后德，失德而后仁，失仁而后義，失義而后禮。夫禮者，忠信之薄，而亂之首。 - - 前識者，道之華，而愚之始。 - - 是以大丈夫居其厚，不居其薄﹔居其實，不居其華。 - - 故去彼取此。 - </VerbatimFormatted> - <Para start_line="43"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/lat1fr.txt b/lib/Pod/Simple/t/corpus/lat1fr.txt deleted file mode 100644 index 19f53e1a6f..0000000000 --- a/lib/Pod/Simple/t/corpus/lat1fr.txt +++ /dev/null @@ -1,38 +0,0 @@ -
-=encoding iso-8859-1
-
-=head1 NAME
-
-French-Latin-1 -- explicitly Latin-1 test document in French
-
-=head1 DESCRIPTION
-
-This is a test Pod document in Latin-1. Its content is the last two
-paragraphs of Baudelaire's I<Le Joujou du pauvre>.
-
-A travers ces barreaux symboliques séparant deux mondes, la grande route
-et le château, l'enfant pauvre montrait à l'enfant riche son propre
-joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
-Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
-une boîte grillée, c'était un rat vivantE<160>! Les parents, par économie
-sans doute, avaient tiré le joujou de la vie elle-même.
-
-Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
-dents d'une I<égale> blancheur.
-
-=head2 As Verbatim
-
- A travers ces barreaux symboliques séparant deux mondes, la grande route
- et le château, l'enfant pauvre montrait à l'enfant riche son propre
- joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
- Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
- une boîte grillée, c'était un rat vivant ! Les parents, par économie
- sans doute, avaient tiré le joujou de la vie elle-même.
-
- Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
- dents d'une égale blancheur.
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/lat1fr.xml b/lib/Pod/Simple/t/corpus/lat1fr.xml deleted file mode 100644 index 017ae6abf7..0000000000 --- a/lib/Pod/Simple/t/corpus/lat1fr.xml +++ /dev/null @@ -1,70 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - French-Latin-1 -- explicitly Latin-1 test document in French - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in Latin-1. Its content is the - last two paragraphs of Baudelaire's - <I> - Le Joujou du pauvre - </I> - . - </Para> - <Para start_line="13"> - A travers ces barreaux symboliques séparant deux mondes, - la grande route et le château, l'enfant pauvre - montrait à l'enfant riche son propre joujou, que - celui-ci examinait avidement comme un objet rare et inconnu. - Or, ce joujou, que le petit souillon agaçait, agitait - et secouait dans une boîte grillée, c'était - un rat vivant -   - ! Les parents, par économie sans doute, avaient tiré - le joujou de la vie elle-même. - </Para> - <Para start_line="20"> - Et les deux enfants se riaient l'un à l'autre - fraternellement, avec des dents d'une - <I> - égale - </I> - blancheur. - </Para> - <head2 start_line="23"> - As Verbatim - </head2> - <VerbatimFormatted start_line="25" xml:space="preserve"> - A travers ces barreaux symboliques séparant deux mondes, - la grande route - - et le château, l'enfant pauvre montrait à - l'enfant riche son propre - - joujou, que celui-ci examinait avidement comme un objet - rare et inconnu. - - Or, ce joujou, que le petit souillon agaçait, agitait - et secouait dans - - une boîte grillée, c'était un rat vivant ! - Les parents, par économie - - sans doute, avaient tiré le joujou de la vie elle-même. - - - - Et les deux enfants se riaient l'un à l'autre - fraternellement, avec des - - dents d'une égale blancheur. - </VerbatimFormatted> - <Para start_line="35"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/lat1frim.txt b/lib/Pod/Simple/t/corpus/lat1frim.txt deleted file mode 100644 index 470836890f..0000000000 --- a/lib/Pod/Simple/t/corpus/lat1frim.txt +++ /dev/null @@ -1,36 +0,0 @@ -
-=head1 NAME
-
-French-Latin-1 -- implicitly Latin-1 test document in French
-
-=head1 DESCRIPTION
-
-This is a test Pod document in Latin-1. Its content is the last two
-paragraphs of Baudelaire's I<Le Joujou du pauvre>.
-
-A travers ces barreaux symboliques séparant deux mondes, la grande route
-et le château, l'enfant pauvre montrait à l'enfant riche son propre
-joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
-Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
-une boîte grillée, c'était un rat vivantE<160>! Les parents, par économie
-sans doute, avaient tiré le joujou de la vie elle-même.
-
-Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
-dents d'une I<égale> blancheur.
-
-=head2 As Verbatim
-
- A travers ces barreaux symboliques séparant deux mondes, la grande route
- et le château, l'enfant pauvre montrait à l'enfant riche son propre
- joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
- Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
- une boîte grillée, c'était un rat vivant ! Les parents, par économie
- sans doute, avaient tiré le joujou de la vie elle-même.
-
- Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
- dents d'une égale blancheur.
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/lat1frim.xml b/lib/Pod/Simple/t/corpus/lat1frim.xml deleted file mode 100644 index ffbbdb05ac..0000000000 --- a/lib/Pod/Simple/t/corpus/lat1frim.xml +++ /dev/null @@ -1,70 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - French-Latin-1 -- implicitly Latin-1 test document in French - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="8"> - This is a test Pod document in Latin-1. Its content is the - last two paragraphs of Baudelaire's - <I> - Le Joujou du pauvre - </I> - . - </Para> - <Para start_line="11"> - A travers ces barreaux symboliques séparant deux mondes, - la grande route et le château, l'enfant pauvre - montrait à l'enfant riche son propre joujou, que - celui-ci examinait avidement comme un objet rare et inconnu. - Or, ce joujou, que le petit souillon agaçait, agitait - et secouait dans une boîte grillée, c'était - un rat vivant -   - ! Les parents, par économie sans doute, avaient tiré - le joujou de la vie elle-même. - </Para> - <Para start_line="18"> - Et les deux enfants se riaient l'un à l'autre - fraternellement, avec des dents d'une - <I> - égale - </I> - blancheur. - </Para> - <head2 start_line="21"> - As Verbatim - </head2> - <VerbatimFormatted start_line="23" xml:space="preserve"> - A travers ces barreaux symboliques séparant deux mondes, - la grande route - - et le château, l'enfant pauvre montrait à - l'enfant riche son propre - - joujou, que celui-ci examinait avidement comme un objet - rare et inconnu. - - Or, ce joujou, que le petit souillon agaçait, agitait - et secouait dans - - une boîte grillée, c'était un rat vivant ! - Les parents, par économie - - sans doute, avaient tiré le joujou de la vie elle-même. - - - - Et les deux enfants se riaient l'un à l'autre - fraternellement, avec des - - dents d'une égale blancheur. - </VerbatimFormatted> - <Para start_line="33"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/nonesuch.txt b/lib/Pod/Simple/t/corpus/nonesuch.txt deleted file mode 100644 index 7d6fc0a582..0000000000 --- a/lib/Pod/Simple/t/corpus/nonesuch.txt +++ /dev/null @@ -1,11 +0,0 @@ -=encoding blorpy
-
-=head1 nonesuch -- Document in an unknown encoding
-
-Blorp.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/nonesuch.xml b/lib/Pod/Simple/t/corpus/nonesuch.xml deleted file mode 100644 index c6d7efb6ee..0000000000 --- a/lib/Pod/Simple/t/corpus/nonesuch.xml +++ /dev/null @@ -1,49 +0,0 @@ -<Document start_line="1"> - <head1 start_line="3"> - nonesuch -- Document in an unknown encoding - </head1> - <Para start_line="5"> - Blorp. - </Para> - <Para start_line="7"> - [end] - </Para> - <head1 errata="1" start_line="-321"> - POD ERRORS - </head1> - <Para errata="1" start_line="-321"> - Hey! - <B> - The above document had some coding errors, which are explained - below: - </B> - </Para> - <over-text errata="1" indent="4" start_line="-321"> - <item-text start_line="-321"> - Around line 1: - </item-text> - <Para start_line="-321"> - This document probably does not appear as it should, because - its "=encoding blorpy" line calls for an unsupported - encoding. [Encode.pm v1.98's supported encodings are: - 7bit-jis AdobeStandardEncoding AdobeSymbol AdobeZdingbat - ascii ascii-ctrl big5-eten big5-hkscs cp1006 cp1026 cp1047 - cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 - cp1258 cp37 cp424 cp437 cp500 cp737 cp775 cp850 cp852 cp855 - cp856 cp857 cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 - cp874 cp875 cp932 cp936 cp949 cp950 dingbats euc-cn euc-jp - euc-kr gb12345-raw gb2312-raw gsm0338 hp-roman8 hz iso-2022-jp - iso-2022-jp-1 iso-2022-kr iso-8859-1 iso-8859-10 iso-8859-11 - iso-8859-13 iso-8859-14 iso-8859-15 iso-8859-16 iso-8859-2 - iso-8859-3 iso-8859-4 iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8 - iso-8859-9 iso-ir-165 jis0201-raw jis0208-raw jis0212-raw - johab koi8-f koi8-r koi8-u ksc5601-raw MacArabic MacCentralEurRoman - MacChineseSimp MacChineseTrad MacCroatian MacCyrillic MacDingbats - MacFarsi MacGreek MacHebrew MacIcelandic MacJapanese MacKorean - MacRoman MacRomanian MacRumanian MacSami MacSymbol MacThai - MacTurkish MacUkrainian MIME-B MIME-Header MIME-Q nextstep - null posix-bc shiftjis symbol UCS-2BE UCS-2LE UTF-16 UTF-16BE - UTF-16LE UTF-32 UTF-32BE UTF-32LE UTF-7 utf8 viscii] - </Para> - </over-text> -</Document> diff --git a/lib/Pod/Simple/t/corpus/pasternak_cp1251.txt b/lib/Pod/Simple/t/corpus/pasternak_cp1251.txt deleted file mode 100644 index 4d8f7a09a6..0000000000 --- a/lib/Pod/Simple/t/corpus/pasternak_cp1251.txt +++ /dev/null @@ -1,108 +0,0 @@ -
-=encoding cp1251
-
-=head1 NAME
-
-Çèìíÿÿ íî÷ü -- Pasternak Russian test file (cp1251)
-
-=head1 TEXT
-
-(This is a test Pod pocument in cp1251.)
-
-Çèìíÿÿ íî÷ü.
-
-Ìåëî, ìåëî ïî âñåé çåìëå /
-Âî âñå ïðåäåëû. /
-Ñâå÷à ãîðåëà íà ñòîëå, /
-Ñâå÷à ãîðåëà.
-
-Êàê ëåòîì ðîåì ìîøêîðà /
-Ëåòèò íà ïëàìÿ, /
-Ñëåòàëèñü õëîïüÿ ñî äâîðà /
-Ê îêîííîé ðàìå.
-
-Ìåòåëü ëåïèëà íà ñòîëå /
-Êðóæêè è ñòðåëû. /
-Ñâå÷à ãîðåëà íà ñòîëå, /
-Ñâå÷à ãîðåëà.
-
-Íà îçàðåííûé ïîòîëîê /
-Ëîæèëèñü òåíè, /
-Ñêðåùåíüÿ ðóê, ñêðêùåíüÿ íîã, /
-Ñóäüáû ñêðåùåíüÿ.
-
-È ïàäàëè äâà áàøìà÷êà /
-Ñî ñòóêîì íà ïîë, /
-È âîñê ñëåçàìè ñ íî÷íèêà /
-Íà ïëàòüå êàïàë.
-
-È âñå òåðÿëîñü â ñíåæíîé ìãëå /
-Ñåäîé è áåëîé. /
-Ñâå÷à ãîðåëà íà ñòîëå, /
-Ñâå÷à ãîðåëà.
-
-Íà ñâå÷êó äóëî èç óãëà, /
-È æàð ñîáëàçíà /
-Âçäûìàë, êàê àíãåë, äâà êðûëà /
-Êðåñòîîáðàçíî. /
-
-Ìåëî âåñü ìåñÿö â ôåâðàëå, /
-È òî è äåëî /
-Ñâå÷à ãîðåëà íà ñòîëå, /
-Ñâå÷à ãîðåëà.
-
--- Áîðèñ Ïàñòåðíàê, 1946
-
-
-=head2 As Preformatted
-
-And now as a preformatted section:
-
- Çèìíÿÿ íî÷ü.
-
- Ìåëî, ìåëî ïî âñåé çåìëå
- Âî âñå ïðåäåëû.
- Ñâå÷à ãîðåëà íà ñòîëå,
- Ñâå÷à ãîðåëà.
-
- Êàê ëåòîì ðîåì ìîøêîðà
- Ëåòèò íà ïëàìÿ,
- Ñëåòàëèñü õëîïüÿ ñî äâîðà
- Ê îêîííîé ðàìå.
-
- Ìåòåëü ëåïèëà íà ñòîëå
- Êðóæêè è ñòðåëû.
- Ñâå÷à ãîðåëà íà ñòîëå,
- Ñâå÷à ãîðåëà.
-
- Íà îçàðåííûé ïîòîëîê
- Ëîæèëèñü òåíè,
- Ñêðåùåíüÿ ðóê, ñêðêùåíüÿ íîã,
- Ñóäüáû ñêðåùåíüÿ.
-
- È ïàäàëè äâà áàøìà÷êà
- Ñî ñòóêîì íà ïîë,
- È âîñê ñëåçàìè ñ íî÷íèêà
- Íà ïëàòüå êàïàë.
-
- È âñå òåðÿëîñü â ñíåæíîé ìãëå
- Ñåäîé è áåëîé.
- Ñâå÷à ãîðåëà íà ñòîëå,
- Ñâå÷à ãîðåëà.
-
- Íà ñâå÷êó äóëî èç óãëà,
- È æàð ñîáëàçíà
- Âçäûìàë, êàê àíãåë, äâà êðûëà
- Êðåñòîîáðàçíî.
-
- Ìåëî âåñü ìåñÿö â ôåâðàëå,
- È òî è äåëî
- Ñâå÷à ãîðåëà íà ñòîëå,
- Ñâå÷à ãîðåëà.
-
- -- Áîðèñ Ïàñòåðíàê, 1946
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/pasternak_cp1251.xml b/lib/Pod/Simple/t/corpus/pasternak_cp1251.xml deleted file mode 100644 index 2276551b31..0000000000 --- a/lib/Pod/Simple/t/corpus/pasternak_cp1251.xml +++ /dev/null @@ -1,211 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - Зимняя ночь - -- Pasternak Russian test file (cp1251) - </Para> - <head1 start_line="8"> - TEXT - </head1> - <Para start_line="10"> - (This is a test Pod pocument in cp1251.) - </Para> - <Para start_line="12"> - Зимняя ночь. - </Para> - <Para start_line="14"> - Мело, мело - по всей земле - / Во все пределы. - / Свеча горела - на столе, / Свеча - горела. - </Para> - <Para start_line="19"> - Как летом - роем мошкора - / Летит на пламя, - / Слетались - хлопья со - двора / К оконной - раме. - </Para> - <Para start_line="24"> - Метель лепила - на столе / Кружки - и стрелы. / Свеча - горела на - столе, / Свеча - горела. - </Para> - <Para start_line="29"> - На озаренный - потолок / Ложились - тени, / Скрещенья - рук, скркщенья - ног, / Судьбы - скрещенья. - </Para> - <Para start_line="34"> - И падали два - башмачка - / Со стуком - на пол, / И воск - слезами с - ночника / На - платье капал. - </Para> - <Para start_line="39"> - И все терялось - в снежной - мгле / Седой - и белой. / Свеча - горела на - столе, / Свеча - горела. - </Para> - <Para start_line="44"> - На свечку - дуло из угла, - / И жар соблазна - / Вздымал, как - ангел, два - крыла / Крестообразно. - / - </Para> - <Para start_line="49"> - Мело весь - месяц в феврале, - / И то и дело - / Свеча горела - на столе, / Свеча - горела. - </Para> - <Para start_line="54"> - -- Борис Пастернак, - 1946 - </Para> - <head2 start_line="57"> - As Preformatted - </head2> - <Para start_line="59"> - And now as a preformatted section: - </Para> - <VerbatimFormatted start_line="61" xml:space="preserve"> - Зимняя ночь. - - - - Мело, мело - по всей земле - - Во все пределы. - - Свеча горела - на столе, - - Свеча горела. - - - - Как летом - роем мошкора - - Летит на пламя, - - Слетались - хлопья со - двора - - К оконной - раме. - - - - Метель лепила - на столе - - Кружки и стрелы. - - Свеча горела - на столе, - - Свеча горела. - - - - На озаренный - потолок - - Ложились - тени, - - Скрещенья - рук, скркщенья - ног, - - Судьбы скрещенья. - - - - И падали два - башмачка - - Со стуком - на пол, - - И воск слезами - с ночника - - На платье - капал. - - - - И все терялось - в снежной - мгле - - Седой и белой. - - Свеча горела - на столе, - - Свеча горела. - - - - На свечку - дуло из угла, - - И жар соблазна - - Вздымал, как - ангел, два - крыла - - Крестообразно. - - - - Мело весь - месяц в феврале, - - И то и дело - - Свеча горела - на столе, - - Свеча горела. - - - - -- Борис Пастернак, - 1946 - </VerbatimFormatted> - <Para start_line="105"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/plain.txt b/lib/Pod/Simple/t/corpus/plain.txt deleted file mode 100644 index 4b7d7d9296..0000000000 --- a/lib/Pod/Simple/t/corpus/plain.txt +++ /dev/null @@ -1,20 +0,0 @@ -
-=head1 NAME
-
-simple_text_document -- an implicitly US-ASCII test document.
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/plain.xml b/lib/Pod/Simple/t/corpus/plain.xml deleted file mode 100644 index 05dc732ee5..0000000000 --- a/lib/Pod/Simple/t/corpus/plain.xml +++ /dev/null @@ -1,26 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - simple_text_document -- an implicitly US-ASCII test document. - </Para> - <head1 start_line="6"> - TEXT - </head1> - <Para start_line="8"> - The quick brown fox jumps over the lazy dog. - </Para> - <Para start_line="10"> - Military Intelligence Yukon rhosts penrep Weekly World News - DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA - CCS DEVGRP - </Para> - <Para start_line="13"> - CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex - garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle - </Para> - <Para start_line="16"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/plain_explicit.txt b/lib/Pod/Simple/t/corpus/plain_explicit.txt deleted file mode 100644 index a465ac2ed7..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_explicit.txt +++ /dev/null @@ -1,22 +0,0 @@ -
-=encoding ascii
-
-=head1 NAME
-
-simple_text_document -- an explicitly US-ASCII test document.
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/plain_explicit.xml b/lib/Pod/Simple/t/corpus/plain_explicit.xml deleted file mode 100644 index 1db06b81f8..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_explicit.xml +++ /dev/null @@ -1,26 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - simple_text_document -- an explicitly US-ASCII test document. - </Para> - <head1 start_line="8"> - TEXT - </head1> - <Para start_line="10"> - The quick brown fox jumps over the lazy dog. - </Para> - <Para start_line="12"> - Military Intelligence Yukon rhosts penrep Weekly World News - DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA - CCS DEVGRP - </Para> - <Para start_line="15"> - CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex - garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle - </Para> - <Para start_line="18"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/plain_latin1.txt b/lib/Pod/Simple/t/corpus/plain_latin1.txt deleted file mode 100644 index 4d185bbb05..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_latin1.txt +++ /dev/null @@ -1,24 +0,0 @@ -
-#Doesn't actually use any of the Latin-1 bytes.
-
-=encoding iso-8859-1
-
-=head1 NAME
-
-simple_text_document -- an explicitly Latin-1 (ASCII subset) test document
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/plain_latin1.xml b/lib/Pod/Simple/t/corpus/plain_latin1.xml deleted file mode 100644 index 74f9baeb73..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_latin1.xml +++ /dev/null @@ -1,27 +0,0 @@ -<Document start_line="4"> - <head1 start_line="6"> - NAME - </head1> - <Para start_line="8"> - simple_text_document -- an explicitly Latin-1 (ASCII subset) - test document - </Para> - <head1 start_line="10"> - TEXT - </head1> - <Para start_line="12"> - The quick brown fox jumps over the lazy dog. - </Para> - <Para start_line="14"> - Military Intelligence Yukon rhosts penrep Weekly World News - DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA - CCS DEVGRP - </Para> - <Para start_line="17"> - CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex - garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle - </Para> - <Para start_line="20"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/plain_utf8.txt b/lib/Pod/Simple/t/corpus/plain_utf8.txt deleted file mode 100644 index f3e6932bb0..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_utf8.txt +++ /dev/null @@ -1,24 +0,0 @@ -
-#Doesn't actually use any of the utf8 bytes.
-
-=encoding utf8
-
-=head1 NAME
-
-simple_text_document -- an explicitly UTF8 (ASCII subset) test document
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/plain_utf8.xml b/lib/Pod/Simple/t/corpus/plain_utf8.xml deleted file mode 100644 index f78846b54a..0000000000 --- a/lib/Pod/Simple/t/corpus/plain_utf8.xml +++ /dev/null @@ -1,27 +0,0 @@ -<Document start_line="4"> - <head1 start_line="6"> - NAME - </head1> - <Para start_line="8"> - simple_text_document -- an explicitly UTF8 (ASCII subset) - test document - </Para> - <head1 start_line="10"> - TEXT - </head1> - <Para start_line="12"> - The quick brown fox jumps over the lazy dog. - </Para> - <Para start_line="14"> - Military Intelligence Yukon rhosts penrep Weekly World News - DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA - CCS DEVGRP - </Para> - <Para start_line="17"> - CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex - garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle - </Para> - <Para start_line="20"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/polish_utf8.txt b/lib/Pod/Simple/t/corpus/polish_utf8.txt deleted file mode 100644 index 969f8ba4a1..0000000000 --- a/lib/Pod/Simple/t/corpus/polish_utf8.txt +++ /dev/null @@ -1,69 +0,0 @@ -
-=encoding utf8
-
-=head1 NAME
-
-WŚRÓD NOCNEJ CISZY -- explicitly utf8 test document in Polish
-
-=head1 DESCRIPTION
-
-This is a test Pod document in UTF8. Its content is the lyrics to
-the Polish Christmas carol "Wśród nocnej ciszy".
-
-Wśród nocnej ciszy głos się rozchodzi: /
-Wstańcie, pasterze, Bóg się nam rodzi! /
-Czym prędzej się wybierajcie, /
-Do Betlejem pospieszajcie /
-Przywitać Pana.
-
-Poszli, znaleźli Dzieciątko w żłobie /
-Z wszystkimi znaki danymi sobie. /
-Jako Bogu cześć Mu dali, /
-A witając zawołali /
-Z wielkiej radości:
-
-Ach, witaj Zbawco z dawno żądany, /
-Wiele tysięcy lat wyglądany /
-Na Ciebie króle, prorocy /
-Czekali, a TyÅ› tej nocy /
-Nam się objawił.
-
-I my czekamy na Ciebie, Pana, /
-A skoro przyjdziesz na głos kapłana, /
-Padniemy na twarz przed TobÄ…, /
-Wierząc, żeś jest pod osłoną /
-Chleba i wina.
-
-=head2 As Verbatim
-
-And now as verbatim text:
-
- Wśród nocnej ciszy głos się rozchodzi:
- Wstańcie, pasterze, Bóg się nam rodzi!
- Czym prędzej się wybierajcie,
- Do Betlejem pospieszajcie
- Przywitać Pana.
-
- Poszli, znaleźli Dzieciątko w żłobie
- Z wszystkimi znaki danymi sobie.
- Jako Bogu cześć Mu dali,
- A witając zawołali
- Z wielkiej radości:
-
- Ach, witaj Zbawco z dawno żądany,
- Wiele tysięcy lat wyglądany
- Na Ciebie króle, prorocy
- Czekali, a TyÅ› tej nocy
- Nam się objawił.
-
- I my czekamy na Ciebie, Pana,
- A skoro przyjdziesz na głos kapłana,
- Padniemy na twarz przed TobÄ…,
- Wierząc, żeś jest pod osłoną
- Chleba i wina.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/polish_utf8.xml b/lib/Pod/Simple/t/corpus/polish_utf8.xml deleted file mode 100644 index 1aa77ec029..0000000000 --- a/lib/Pod/Simple/t/corpus/polish_utf8.xml +++ /dev/null @@ -1,94 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - WŚRÓD NOCNEJ CISZY -- explicitly utf8 test document - in Polish - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in UTF8. Its content is the - lyrics to the Polish Christmas carol "Wśród - nocnej ciszy". - </Para> - <Para start_line="13"> - Wśród nocnej ciszy głos się rozchodzi: - / Wstańcie, pasterze, Bóg się nam rodzi! - / Czym prędzej się wybierajcie, / Do Betlejem - pospieszajcie / Przywitać Pana. - </Para> - <Para start_line="19"> - Poszli, znaleźli Dzieciątko w żłobie - / Z wszystkimi znaki danymi sobie. / Jako Bogu cześć - Mu dali, / A witając zawołali / Z wielkiej radości: - </Para> - <Para start_line="25"> - Ach, witaj Zbawco z dawno żądany, / Wiele tysięcy - lat wyglądany / Na Ciebie króle, prorocy / Czekali, - a Tyś tej nocy / Nam się objawił. - </Para> - <Para start_line="31"> - I my czekamy na Ciebie, Pana, / A skoro przyjdziesz na głos - kapłana, / Padniemy na twarz przed Tobą, / Wierząc, - żeś jest pod osłoną / Chleba i wina. - </Para> - <head2 start_line="37"> - As Verbatim - </head2> - <Para start_line="39"> - And now as verbatim text: - </Para> - <VerbatimFormatted start_line="41" xml:space="preserve"> - Wśród nocnej ciszy głos się rozchodzi: - - Wstańcie, pasterze, Bóg się nam rodzi! - - Czym prędzej się wybierajcie, - - Do Betlejem pospieszajcie - - Przywitać Pana. - - - - Poszli, znaleźli Dzieciątko w żłobie - - Z wszystkimi znaki danymi sobie. - - Jako Bogu cześć Mu dali, - - A witając zawołali - - Z wielkiej radości: - - - - Ach, witaj Zbawco z dawno żądany, - - Wiele tysięcy lat wyglądany - - Na Ciebie króle, prorocy - - Czekali, a Tyś tej nocy - - Nam się objawił. - - - - I my czekamy na Ciebie, Pana, - - A skoro przyjdziesz na głos kapłana, - - Padniemy na twarz przed Tobą, - - Wierząc, żeś jest pod osłoną - - Chleba i wina. - </VerbatimFormatted> - <Para start_line="65"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/s2763_sjis.txt b/lib/Pod/Simple/t/corpus/s2763_sjis.txt deleted file mode 100644 index d495734922..0000000000 --- a/lib/Pod/Simple/t/corpus/s2763_sjis.txt +++ /dev/null @@ -1,48 +0,0 @@ -
-=encoding shiftjis
-
-=head1 NAME
-
-Œ^”ÔS2763 -- test document in Shift-JIS
-
-=head1 DESCRIPTION
-
-This is a test Pod document in Shift-JIS. Its content is
-some uninteresting product specs I found on the Net.
-
-It's an textitem list:
-
-=over
-
-=item Œ^”Ô
-
-S2763
-
-=item ŒõŒ¹
-
-GZ4 ƒ_ƒCƒNƒƒCƒbƒNƒ~ƒ‰[ƒ‰ƒ“ƒv 12V 10W~1
-
-=item ¡–@
-
-‚E295 •E365 ‰œE76mm
-
-=item Ž¿—Ê
-
-8.0kg
-
-=item ÞŽ¿
-
-Ž÷Ž‰@ƒAƒ‹ƒ~AƒAƒ‹ƒ}ƒCƒgŽdã@ƒKƒ‰ƒX
-
-=item ‰¿Ši
-
-76,000‰~iƒ‰ƒ“ƒvEƒgƒ‰ƒ“ƒXž‚Ýj
-
-=back
-
-2001”N10ŒŽ3“úi…j””„ŠJŽn
-
-[end]
-
-=cut
-
diff --git a/lib/Pod/Simple/t/corpus/s2763_sjis.xml b/lib/Pod/Simple/t/corpus/s2763_sjis.xml deleted file mode 100644 index 55a4fd0027..0000000000 --- a/lib/Pod/Simple/t/corpus/s2763_sjis.xml +++ /dev/null @@ -1,64 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - 型番S2763 -- test document in Shift-JIS - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in Shift-JIS. Its content is - some uninteresting product specs I found on the Net. - </Para> - <Para start_line="13"> - It's an textitem list: - </Para> - <over-text indent="4" start_line="15"> - <item-text start_line="17"> - 型番 - </item-text> - <Para start_line="19"> - S2763 - </Para> - <item-text start_line="21"> - 光源 - </item-text> - <Para start_line="23"> - GZ4 ダイクロイックミラーランプ - 12V 10W×1 - </Para> - <item-text start_line="25"> - 寸法 - </item-text> - <Para start_line="27"> - 高・295 幅・365 奥・76mm - </Para> - <item-text start_line="29"> - 質量 - </item-text> - <Para start_line="31"> - 8.0kg - </Para> - <item-text start_line="33"> - 材質 - </item-text> - <Para start_line="35"> - 樹脂 アルミ、アルマイト仕上 - ガラス - </Para> - <item-text start_line="37"> - 価格 - </item-text> - <Para start_line="39"> - 76,000円（ランプ・トランス込み） - </Para> - </over-text> - <Para start_line="43"> - 2001年10月3日（水）発売開始 - </Para> - <Para start_line="45"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus/thai_iso11.txt b/lib/Pod/Simple/t/corpus/thai_iso11.txt deleted file mode 100644 index 9fdcdab561..0000000000 --- a/lib/Pod/Simple/t/corpus/thai_iso11.txt +++ /dev/null @@ -1,64 +0,0 @@ -
-=head1 NAME
-
-Khun::Thong::Dang -- a test Thai document in ISO-8859-11
-
-=head1 DESCRIPTION
-
-=encoding iso-8859-11
-
-This is a test Pod document in ISO-8859-11. Its content is a poem to (by?)
-Khun Thong Dang (ÀÒ¾ÁÔè§Á§¤Å), the pet of Bhumibol, the King of
-Thailand.
-
-As four flowed paragraphs:
-
-ï ¾ÃÐàÁµµÒá¨èÁ¨Ñºã¨ä¼·ÊÂÒÁ /
-¾ÃзѧÒÁ...ÁͧÀÒ¾¶èÒÂÁÔ¶èÒ¶͹ /
-à¡ÅéÒÏ ¹éÍÁà¡ÅéÒÏ ¾¨¹ìàÃÕ§༴Õ§¡Å͹ /
-Ê×èÍÊзé͹¾ÃСÒÃسÂìÍØ蹴ǧÁÒ¹ú
-
-ï ·Ø¡ÀÒ¾ÁÔè§Á§¤ÅÂÅáÅéÇÂÔéÁ /
-àÍ×éÍÍ¡ÍÔèÁÅéÓ¤èÒÁËÒÈÒÅ /
-ÍÂÒ¡à»ç¹¤Ø³·Í§á´§¹Ñ¡¨Ñ¡ÍÂÙè§Ò¹ /
-à½éÒ¤ÅÍà¤ÅÕº·ÁÒÅÂì¾ÃÐÀÙÁÔ¾Åú
-
-ï ¾ÃÐËѵ¶ìºØ·Ã§àºÔ¡ËÅéÒ¾ÅÔ¡ËÅéÒà¢ÕÂÇ /
-¾ÃÐâÍÉ°ìàÃÕÂǵÃÑÊËéÒÁʧ¤ÃÒÁ©Å /
-¾ÃзÑ ¸ âÍÀÒʼèͧ¶èͧʡŠ/
-¾ÃÐÂؤźҷÂèÒ§Ê׺ÊÃéÒ§ä·Âú
-
-ï ¹éÍÁà¡ÅéÒà·Ô´Í§¤ìÃҪѹÈÃѹÂìÈÃÕ /
-ºÒÃÁÕËÁ×蹤Ù褧Íʧä¢Â /
-¡ÃôÔÃÒª¡ÄɮҡéͧËÅéÒä¡Å /
-»Å×éÁ»ÃзѺ¶éǹ·Ø¡ã¨áËè§ä·éàÍÂúÐû
-
-=head2 Verbatim Section
-
-And as a verbatim section:
-
- ï ¾ÃÐàÁµµÒá¨èÁ¨Ñºã¨ä¼·ÊÂÒÁ
- ¾ÃзѧÒÁ...ÁͧÀÒ¾¶èÒÂÁÔ¶èÒ¶͹
- à¡ÅéÒÏ ¹éÍÁà¡ÅéÒÏ ¾¨¹ìàÃÕ§༴Õ§¡Å͹
- Ê×èÍÊзé͹¾ÃСÒÃسÂìÍØ蹴ǧÁÒ¹ú
-
- ï ·Ø¡ÀÒ¾ÁÔè§Á§¤ÅÂÅáÅéÇÂÔéÁ
- àÍ×éÍÍ¡ÍÔèÁÅéÓ¤èÒÁËÒÈÒÅ
- ÍÂÒ¡à»ç¹¤Ø³·Í§á´§¹Ñ¡¨Ñ¡ÍÂÙè§Ò¹
- à½éÒ¤ÅÍà¤ÅÕº·ÁÒÅÂì¾ÃÐÀÙÁÔ¾Åú
-
- ï ¾ÃÐËѵ¶ìºØ·Ã§àºÔ¡ËÅéÒ¾ÅÔ¡ËÅéÒà¢ÕÂÇ
- ¾ÃÐâÍÉ°ìàÃÕÂǵÃÑÊËéÒÁʧ¤ÃÒÁ©Å
- ¾ÃзÑ ¸ âÍÀÒʼèͧ¶èͧʡÅ
- ¾ÃÐÂؤźҷÂèÒ§Ê׺ÊÃéÒ§ä·Âú
-
- ï ¹éÍÁà¡ÅéÒà·Ô´Í§¤ìÃҪѹÈÃѹÂìÈÃÕ
- ºÒÃÁÕËÁ×蹤Ù褧Íʧä¢Â
- ¡ÃôÔÃÒª¡ÄɮҡéͧËÅéÒä¡Å
- »Å×éÁ»ÃзѺ¶éǹ·Ø¡ã¨áËè§ä·éàÍÂúÐû
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus/thai_iso11.xml b/lib/Pod/Simple/t/corpus/thai_iso11.xml deleted file mode 100644 index a9f4bb7a6e..0000000000 --- a/lib/Pod/Simple/t/corpus/thai_iso11.xml +++ /dev/null @@ -1,93 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - Khun::Thong::Dang -- a test Thai document in ISO-8859-11 - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="10"> - This is a test Pod document in ISO-8859-11. Its content - is a poem to (by?) Khun Thong Dang (ภาพมิ่งมงคล), - the pet of Bhumibol, the King of Thailand. - </Para> - <Para start_line="14"> - As four flowed paragraphs: - </Para> - <Para start_line="16"> - ๏ พระเมตตาแจ่มจับใจไผทสยาม - / พระทัยงาม...มองภาพถ่ายมิถ่ายถอน - / เกล้าฯ น้อมเกล้าฯ - พจน์เรียงเผดียงกลอน - / สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚ - </Para> - <Para start_line="21"> - ๏ ทุกภาพมิ่งมงคลยลแล้วยิ้ม - / เอื้ออกอิ่มล้ำค่ามหาศาล - / อยากเป็นคุณทองแดงนักจักอยู่งาน - / เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚ - </Para> - <Para start_line="26"> - ๏ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว - / พระโอษฐ์เรียวตรัสห้ามสงครามฉล - / พระทัย ธ โอภาสผ่องถ่องสกล - / พระยุคลบาทย่างสืบสร้างไทย๚ - </Para> - <Para start_line="31"> - ๏ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี - / บารมีหมื่นคู่คงอสงไขย - / กรรดิราชกฤษฎาก้องหล้าไกล - / ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛ - </Para> - <head2 start_line="36"> - Verbatim Section - </head2> - <Para start_line="38"> - And as a verbatim section: - </Para> - <VerbatimFormatted start_line="40" xml:space="preserve"> - ๏ พระเมตตาแจ่มจับใจไผทสยาม - - พระทัยงาม...มองภาพถ่ายมิถ่ายถอน - - เกล้าฯ น้อมเกล้าฯ - พจน์เรียงเผดียงกลอน - - สื่อสะท้อนพระการุณย์อุ่นดวงมาน๚ - - - - ๏ ทุกภาพมิ่งมงคลยลแล้วยิ้ม - - เอื้ออกอิ่มล้ำค่ามหาศาล - - อยากเป็นคุณทองแดงนักจักอยู่งาน - - เฝ้าคลอเคลียบทมาลย์พระภูมิพล๚ - - - - ๏ พระหัตถ์บุญทรงเบิกหล้าพลิกหล้าเขียว - - พระโอษฐ์เรียวตรัสห้ามสงครามฉล - - พระทัย ธ โอภาสผ่องถ่องสกล - - พระยุคลบาทย่างสืบสร้างไทย๚ - - - - ๏ น้อมเกล้าเทิดองค์ราชันศรันย์ศรี - - บารมีหมื่นคู่คงอสงไขย - - กรรดิราชกฤษฎาก้องหล้าไกล - - ปลื้มประทับถ้วนทุกใจแห่งไท้เอย๚ะ๛ - </VerbatimFormatted> - <Para start_line="60"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.txt b/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.txt deleted file mode 100644 index db124abbee..0000000000 --- a/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.txt +++ /dev/null @@ -1,84 +0,0 @@ - -=encoding iso-8859-6 - -=head1 NAME - -åÊæ Çäáâç ÇäÇãÈÑ -- test document: "al-Fiqh al-Akbar" as ISO-8859-6 - -=head1 DESCRIPTION - -This document is Abu Hanifah's "al-Fiqh al-Akbar" as ISO-8859-6, presented -as an item-number list: - -åÊæ Çäáâç ÇäÇãÈÑ - -ÇäåæÓèÈ Çäé ÇÈê ÍæêáÉ ÇäæÙåÇæ Èæ ËÇÈÊ - -=over - -=item 1 - -äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ . - -=item 2 - -ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ . - -=item 3 - -èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã . - -=item 4 - -äÇ æÊÈÑà åæ ÃÍÏ åæ ÃÕÍÇÈ ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå èäÇ êÊèÇäé ÃÍÏ Ïèæ ÃÍÏ . - -=item 5 - -ÅæÇ æÑÏ ÃåÑ ÙËåÇæ èÙäê Çäé Çääç èçè ÙÇäå ÇäÓÑ èÇäÎáêÇÊ . - -=item 6 - -Çäáâç áê ÇäÏêæ ÃáÖä åæ Çäáâç áê ÇäÙäå . - -=item 7 - -èÇÎÊäÇá ÇäÇåÉ ÑÍåÉ . - -=item 8 - -åæ Âåæ ÈÌåêÙ åÇ êÄåÑ Èç ÇäÇ Ãæç âÇä äÇ ÃÙÑá åèÓé èÙêÓé ÙäêçåÇ ÇäÓäÇå Ãåæ ÇäåÑÓäêæ Ãå åæ ÚêÑ ÇäåÑÓäêæ áÅæç êãáÑ . - -=item 9 - -åæ âÇä äÇ ÃÙÑá Çääç Ãáê ÇäÓåÇÁ Ãå áê ÇäÇÑÖ áâÏ ãáÑ . - -=item 10 - -åæ âÇä äÇ ÃÙÑá ÙÐÇÈ ÇäâÈÑ áçè åæ Çä×ÈâÉ ÇäÌçåêÉ èÇäçÇäãêÉ . - -=back - -And now run together as a paragraph: - -äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ . -ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ . -èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã . -äÇ æÊÈÑà åæ ÃÍÏ åæ ÃÕÍÇÈ ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå èäÇ êÊèÇäé ÃÍÏ Ïèæ ÃÍÏ . -ÅæÇ æÑÏ ÃåÑ ÙËåÇæ èÙäê Çäé Çääç èçè ÙÇäå ÇäÓÑ èÇäÎáêÇÊ . -Çäáâç áê ÇäÏêæ ÃáÖä åæ Çäáâç áê ÇäÙäå . -èÇÎÊäÇá ÇäÇåÉ ÑÍåÉ . -åæ Âåæ ÈÌåêÙ åÇ êÄåÑ Èç ÇäÇ Ãæç âÇä äÇ ÃÙÑá åèÓé èÙêÓé ÙäêçåÇ ÇäÓäÇå Ãåæ ÇäåÑÓäêæ Ãå åæ ÚêÑ ÇäåÑÓäêæ áÅæç êãáÑ . -åæ âÇä äÇ ÃÙÑá Çääç Ãáê ÇäÓåÇÁ Ãå áê ÇäÇÑÖ áâÏ ãáÑ . -åæ âÇä äÇ ÃÙÑá ÙÐÇÈ ÇäâÈÑ áçè åæ Çä×ÈâÉ ÇäÌçåêÉ èÇäçÇäãêÉ . - -And now the first three as a verbatim section: - - äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ . - ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ . - èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã . - -[end] - -=cut - - diff --git a/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.xml b/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.xml deleted file mode 100644 index 1ff04978d2..0000000000 --- a/lib/Pod/Simple/t/corpus2/fiqhakbar_iso6.xml +++ /dev/null @@ -1,168 +0,0 @@ -<Document start_line="2"> - <head1 start_line="4"> - NAME - </head1> - <Para start_line="6"> - متن الفقه - الاكبر -- test document: - "al-Fiqh al-Akbar" as ISO-8859-6 - </Para> - <head1 start_line="8"> - DESCRIPTION - </head1> - <Para start_line="10"> - This document is Abu Hanifah's "al-Fiqh al-Akbar" - as ISO-8859-6, presented as an item-number list: - </Para> - <Para start_line="13"> - متن الفقه - الاكبر - </Para> - <Para start_line="15"> - المنسوب الى - ابي حنيفة - النعمان بن - ثابت - </Para> - <over-number indent="4" start_line="17"> - <item-number number="1" start_line="19"> - لا نكفر أحدا - بذنب ولا ننفي - أحدا من الايمان - . - </item-number> - <item-number number="2" start_line="23"> - إنا نأمر بالمعروف - وننهي عن المنكر - . - </item-number> - <item-number number="3" start_line="27"> - واعلم أن ما - أصابك لم يكن - ليخطئك ، وما - أخطأك لم يكن - ليصيبك . - </item-number> - <item-number number="4" start_line="31"> - لا نتبرأ من - أحد من أصحاب - رسول الله - صلى الله عليه - وسلم ولا يتوالى - أحد دون أحد - . - </item-number> - <item-number number="5" start_line="35"> - إنا نرد أمر - عثمان وعلي - الى الله وهو - عالم السر - والخفيات - . - </item-number> - <item-number number="6" start_line="39"> - الفقه في الدين - أفضل من الفقه - في العلم . - </item-number> - <item-number number="7" start_line="43"> - واختلاف الامة - رحمة . - </item-number> - <item-number number="8" start_line="47"> - من آمن بجميع - ما يؤمر به - الا أنه قال - لا أعرف موسى - وعيسى عليهما - السلام أمن - المرسلين - أم من غير المرسلين - فإنه يكفر - . - </item-number> - <item-number number="9" start_line="51"> - من قال لا أعرف - الله أفي السماء - أم في الارض - فقد كفر . - </item-number> - <item-number number="10" start_line="55"> - من قال لا أعرف - عذاب القبر - فهو من الطبقة - الجهمية والهالكية - . - </item-number> - </over-number> - <Para start_line="61"> - And now run together as a paragraph: - </Para> - <Para start_line="63"> - لا نكفر أحدا - بذنب ولا ننفي - أحدا من الايمان - . إنا نأمر بالمعروف - وننهي عن المنكر - . واعلم أن ما - أصابك لم يكن - ليخطئك ، وما - أخطأك لم يكن - ليصيبك . لا - نتبرأ من أحد - من أصحاب رسول - الله صلى الله - عليه وسلم - ولا يتوالى - أحد دون أحد - . إنا نرد أمر - عثمان وعلي - الى الله وهو - عالم السر - والخفيات - . الفقه في الدين - أفضل من الفقه - في العلم . واختلاف - الامة رحمة - . من آمن بجميع - ما يؤمر به - الا أنه قال - لا أعرف موسى - وعيسى عليهما - السلام أمن - المرسلين - أم من غير المرسلين - فإنه يكفر - . من قال لا أعرف - الله أفي السماء - أم في الارض - فقد كفر . من - قال لا أعرف - عذاب القبر - فهو من الطبقة - الجهمية والهالكية - . - </Para> - <Para start_line="74"> - And now the first three as a verbatim section: - </Para> - <VerbatimFormatted start_line="76" xml:space="preserve"> - لا نكفر أحدا - بذنب ولا ننفي - أحدا من الايمان - . - - إنا نأمر بالمعروف - وننهي عن المنكر - . - - واعلم أن ما - أصابك لم يكن - ليخطئك ، وما - أخطأك لم يكن - ليصيبك . - </VerbatimFormatted> - <Para start_line="80"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus2/polish_implicit_utf8.txt b/lib/Pod/Simple/t/corpus2/polish_implicit_utf8.txt deleted file mode 100644 index 54c41599ee..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_implicit_utf8.txt +++ /dev/null @@ -1,67 +0,0 @@ - -=head1 NAME - -WÅšRÓD NOCNEJ CISZY -- implicitly utf8 test document in Polish - -=head1 DESCRIPTION - -This is a test Pod document in UTF8. Its content is the lyrics to -the Polish Christmas carol "WÅ›ród nocnej ciszy". - -WÅ›ród nocnej ciszy gÅ‚os siÄ™ rozchodzi: / -WstaÅ„cie, pasterze, Bóg siÄ™ nam rodzi! / -Czym prÄ™dzej siÄ™ wybierajcie, / -Do Betlejem pospieszajcie / -Przywitać Pana. - -Poszli, znaleźli DzieciÄ…tko w żłobie / -Z wszystkimi znaki danymi sobie. / -Jako Bogu cześć Mu dali, / -A witajÄ…c zawoÅ‚ali / -Z wielkiej radoÅ›ci: - -Ach, witaj Zbawco z dawno żądany, / -Wiele tysiÄ™cy lat wyglÄ…dany / -Na Ciebie króle, prorocy / -Czekali, a TyÅ› tej nocy / -Nam siÄ™ objawiÅ‚. - -I my czekamy na Ciebie, Pana, / -A skoro przyjdziesz na gÅ‚os kapÅ‚ana, / -Padniemy na twarz przed TobÄ…, / -WierzÄ…c, żeÅ› jest pod osÅ‚onÄ… / -Chleba i wina. - -=head2 As Verbatim - -And now as verbatim text: - - WÅ›ród nocnej ciszy gÅ‚os siÄ™ rozchodzi: - WstaÅ„cie, pasterze, Bóg siÄ™ nam rodzi! - Czym prÄ™dzej siÄ™ wybierajcie, - Do Betlejem pospieszajcie - Przywitać Pana. - - Poszli, znaleźli DzieciÄ…tko w żłobie - Z wszystkimi znaki danymi sobie. - Jako Bogu cześć Mu dali, - A witajÄ…c zawoÅ‚ali - Z wielkiej radoÅ›ci: - - Ach, witaj Zbawco z dawno żądany, - Wiele tysiÄ™cy lat wyglÄ…dany - Na Ciebie króle, prorocy - Czekali, a TyÅ› tej nocy - Nam siÄ™ objawiÅ‚. - - I my czekamy na Ciebie, Pana, - A skoro przyjdziesz na gÅ‚os kapÅ‚ana, - Padniemy na twarz przed TobÄ…, - WierzÄ…c, żeÅ› jest pod osÅ‚onÄ… - Chleba i wina. - -[end] - -=cut - - diff --git a/lib/Pod/Simple/t/corpus2/polish_utf16be_bom.txt.packed b/lib/Pod/Simple/t/corpus2/polish_utf16be_bom.txt.packed deleted file mode 100644 index bf333c899b..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf16be_bom.txt.packed +++ /dev/null @@ -1,83 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u polish_utf16be_bom.txt.packed polish_utf16be_bom.txt - -To recreate it use the following command: - - uupacktool.pl -p polish_utf16be_bom.txt polish_utf16be_bom.txt.packed - -Created at Thu Mar 22 13:56:57 2007 -######################################################################### -__UU__ -M_O\`#0`*`#T`:`!E`&$`9``Q`"``3@!!`$T`10`-``H`#0`*`%<!6@!2`-,` -M1``@`$X`3P!#`$X`10!*`"``0P!)`%,`6@!9`"``+0`M`"``:0!M`'``;`!I -M`&,`:0!T`&P`>0`@`'4`=`!F`#@`(`!T`&4`<P!T`"``9`!O`&,`=0!M`&4` -M;@!T`"``:0!N`"``4`!O`&P`:0!S`&@`#0`*``T`"@`]`&@`90!A`&0`,0`@ -M`$0`10!3`$,`4@!)`%``5`!)`$\`3@`-``H`#0`*`%0`:`!I`',`(`!I`',` -M(`!A`"``=`!E`',`=``@`%``;P!D`"``9`!O`&,`=0!M`&4`;@!T`"``:0!N -M`"``50!4`$8`.``N`"``(`!)`'0`<P`@`&,`;P!N`'0`90!N`'0`(`!I`',` -M(`!T`&@`90`@`&P`>0!R`&D`8P!S`"``=`!O``T`"@!T`&@`90`@`%``;P!L -M`&D`<P!H`"``0P!H`'(`:0!S`'0`;0!A`',`(`!C`&$`<@!O`&P`(``B`%<! -M6P!R`/,`9``@`&X`;P!C`&X`90!J`"``8P!I`',`>@!Y`"(`+@`-``H`#0`* -M`%<!6P!R`/,`9``@`&X`;P!C`&X`90!J`"``8P!I`',`>@!Y`"``9P%"`&\` -M<P`@`',`:0$9`"``<@!O`'H`8P!H`&\`9`!Z`&D`.@`@`"\`#0`*`%<`<P!T -M`&$!1`!C`&D`90`L`"``<`!A`',`=`!E`'(`>@!E`"P`(`!"`/,`9P`@`',` -M:0$9`"``;@!A`&T`(`!R`&\`9`!Z`&D`(0`@`"\`#0`*`$,`>@!Y`&T`(`!P -M`'(!&0!D`'H`90!J`"``<P!I`1D`(`!W`'D`8@!I`&4`<@!A`&H`8P!I`&4` -M+``@`"\`#0`*`$0`;P`@`$(`90!T`&P`90!J`&4`;0`@`'``;P!S`'``:0!E -M`',`>@!A`&H`8P!I`&4`(``O``T`"@!0`'(`>@!Y`'<`:0!T`&$!!P`@`%`` -M80!N`&$`+@`-``H`#0`*`%``;P!S`'H`;`!I`"P`(`!Z`&X`80!L`&4!>@!L -M`&D`(`!$`'H`:0!E`&,`:0$%`'0`:P!O`"``=P`@`7P!0@!O`&(`:0!E`"`` -M+P`-``H`6@`@`'<`<P!Z`'D`<P!T`&L`:0!M`&D`(`!Z`&X`80!K`&D`(`!D -M`&$`;@!Y`&T`:0`@`',`;P!B`&D`90`N`"``+P`-``H`2@!A`&L`;P`@`$(` -M;P!G`'4`(`!C`'H`90%;`0<`(`!-`'4`(`!D`&$`;`!I`"P`(``O``T`"@!! -M`"``=P!I`'0`80!J`04`8P`@`'H`80!W`&\!0@!A`&P`:0`@`"\`#0`*`%H` -M(`!W`&D`90!L`&L`:0!E`&H`(`!R`&$`9`!O`5L`8P!I`#H`#0`*``T`"@!! -M`&,`:``L`"``=P!I`'0`80!J`"``6@!B`&$`=P!C`&\`(`!Z`"``9`!A`'<` -M;@!O`"`!?`$%`&0`80!N`'D`+``@`"\`#0`*`%<`:0!E`&P`90`@`'0`>0!S -M`&D!&0!C`'D`(`!L`&$`=``@`'<`>0!G`&P!!0!D`&$`;@!Y`"``+P`-``H` -M3@!A`"``0P!I`&4`8@!I`&4`(`!K`'(`\P!L`&4`+``@`'``<@!O`'(`;P!C -M`'D`(``O``T`"@!#`'H`90!K`&$`;`!I`"P`(`!A`"``5`!Y`5L`(`!T`&4` -M:@`@`&X`;P!C`'D`(``O``T`"@!.`&$`;0`@`',`:0$9`"``;P!B`&H`80!W -M`&D!0@`N``T`"@`-``H`20`@`&T`>0`@`&,`>@!E`&L`80!M`'D`(`!N`&$` -M(`!#`&D`90!B`&D`90`L`"``4`!A`&X`80`L`"``+P`-``H`00`@`',`:P!O -M`'(`;P`@`'``<@!Z`'D`:@!D`'H`:0!E`',`>@`@`&X`80`@`&<!0@!O`',` -M(`!K`&$`<`%"`&$`;@!A`"P`(``O``T`"@!0`&$`9`!N`&D`90!M`'D`(`!N -M`&$`(`!T`'<`80!R`'H`(`!P`'(`>@!E`&0`(`!4`&\`8@$%`"P`(``O``T` -M"@!7`&D`90!R`'H!!0!C`"P`(`%\`&4!6P`@`&H`90!S`'0`(`!P`&\`9``@ -M`&\`<P%"`&\`;@$%`"``+P`-``H`0P!H`&P`90!B`&$`(`!I`"``=P!I`&X` -M80`N``T`"@`-``H`/0!H`&4`80!D`#(`(`!!`',`(`!6`&4`<@!B`&$`=`!I -M`&T`#0`*``T`"@!!`&X`9``@`&X`;P!W`"``80!S`"``=@!E`'(`8@!A`'0` -M:0!M`"``=`!E`'@`=``Z``T`"@`-``H`(``@`%<!6P!R`/,`9``@`&X`;P!C -M`&X`90!J`"``8P!I`',`>@!Y`"``9P%"`&\`<P`@`',`:0$9`"``<@!O`'H` -M8P!H`&\`9`!Z`&D`.@`-``H`(``@`%<`<P!T`&$!1`!C`&D`90`L`"``<`!A -M`',`=`!E`'(`>@!E`"P`(`!"`/,`9P`@`',`:0$9`"``;@!A`&T`(`!R`&\` -M9`!Z`&D`(0`-``H`(``@`$,`>@!Y`&T`(`!P`'(!&0!D`'H`90!J`"``<P!I -M`1D`(`!W`'D`8@!I`&4`<@!A`&H`8P!I`&4`+``-``H`(``@`$0`;P`@`$(` -M90!T`&P`90!J`&4`;0`@`'``;P!S`'``:0!E`',`>@!A`&H`8P!I`&4`#0`* -M`"``(`!0`'(`>@!Y`'<`:0!T`&$!!P`@`%``80!N`&$`+@`-``H`#0`*`"`` -M(`!0`&\`<P!Z`&P`:0`L`"``>@!N`&$`;`!E`7H`;`!I`"``1`!Z`&D`90!C -M`&D!!0!T`&L`;P`@`'<`(`%\`4(`;P!B`&D`90`-``H`(``@`%H`(`!W`',` -M>@!Y`',`=`!K`&D`;0!I`"``>@!N`&$`:P!I`"``9`!A`&X`>0!M`&D`(`!S -M`&\`8@!I`&4`+@`-``H`(``@`$H`80!K`&\`(`!"`&\`9P!U`"``8P!Z`&4! -M6P$'`"``30!U`"``9`!A`&P`:0`L``T`"@`@`"``00`@`'<`:0!T`&$`:@$% -M`&,`(`!Z`&$`=P!O`4(`80!L`&D`#0`*`"``(`!:`"``=P!I`&4`;`!K`&D` -M90!J`"``<@!A`&0`;P%;`&,`:0`Z``T`"@`-``H`(``@`$$`8P!H`"P`(`!W -M`&D`=`!A`&H`(`!:`&(`80!W`&,`;P`@`'H`(`!D`&$`=P!N`&\`(`%\`04` -M9`!A`&X`>0`L``T`"@`@`"``5P!I`&4`;`!E`"``=`!Y`',`:0$9`&,`>0`@ -M`&P`80!T`"``=P!Y`&<`;`$%`&0`80!N`'D`#0`*`"``(`!.`&$`(`!#`&D` -M90!B`&D`90`@`&L`<@#S`&P`90`L`"``<`!R`&\`<@!O`&,`>0`-``H`(``@ -M`$,`>@!E`&L`80!L`&D`+``@`&$`(`!4`'D!6P`@`'0`90!J`"``;@!O`&,` -M>0`-``H`(``@`$X`80!M`"``<P!I`1D`(`!O`&(`:@!A`'<`:0%"`"X`#0`* -M``T`"@`@`"``20`@`&T`>0`@`&,`>@!E`&L`80!M`'D`(`!N`&$`(`!#`&D` -M90!B`&D`90`L`"``4`!A`&X`80`L``T`"@`@`"``00`@`',`:P!O`'(`;P`@ -M`'``<@!Z`'D`:@!D`'H`:0!E`',`>@`@`&X`80`@`&<!0@!O`',`(`!K`&$` -M<`%"`&$`;@!A`"P`#0`*`"``(`!0`&$`9`!N`&D`90!M`'D`(`!N`&$`(`!T -M`'<`80!R`'H`(`!P`'(`>@!E`&0`(`!4`&\`8@$%`"P`#0`*`"``(`!7`&D` -M90!R`'H!!0!C`"P`(`%\`&4!6P`@`&H`90!S`'0`(`!P`&\`9``@`&\`<P%" -M`&\`;@$%``T`"@`@`"``0P!H`&P`90!B`&$`(`!I`"``=P!I`&X`80`N``T` -K"@`-``H`6P!E`&X`9`!=``T`"@`-``H`/0!C`'4`=``-``H`#0`*``T`"@`` diff --git a/lib/Pod/Simple/t/corpus2/polish_utf16le_bom.txt.packed b/lib/Pod/Simple/t/corpus2/polish_utf16le_bom.txt.packed deleted file mode 100644 index d7d3a19eba..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf16le_bom.txt.packed +++ /dev/null @@ -1,83 +0,0 @@ -######################################################################### -This is a binary file that was packed with the 'uupacktool.pl' which -is included in the Perl distribution. - -To unpack this file use the following command: - - uupacktool.pl -u polish_utf16le_bom.txt.packed polish_utf16le_bom.txt - -To recreate it use the following command: - - uupacktool.pl -p polish_utf16le_bom.txt polish_utf16le_bom.txt.packed - -Created at Thu Mar 22 14:01:47 2007 -######################################################################### -__UU__ -M__X-``H`/0!H`&4`80!D`#$`(`!.`$$`30!%``T`"@`-``H`5P!:`5(`TP!$ -M`"``3@!/`$,`3@!%`$H`(`!#`$D`4P!:`%D`(``M`"T`(`!I`&T`<`!L`&D` -M8P!I`'0`;`!Y`"``=0!T`&8`.``@`'0`90!S`'0`(`!D`&\`8P!U`&T`90!N -M`'0`(`!I`&X`(`!0`&\`;`!I`',`:``-``H`#0`*`#T`:`!E`&$`9``Q`"`` -M1`!%`%,`0P!2`$D`4`!4`$D`3P!.``T`"@`-``H`5`!H`&D`<P`@`&D`<P`@ -M`&$`(`!T`&4`<P!T`"``4`!O`&0`(`!D`&\`8P!U`&T`90!N`'0`(`!I`&X` -M(`!5`%0`1@`X`"X`(``@`$D`=`!S`"``8P!O`&X`=`!E`&X`=``@`&D`<P`@ -M`'0`:`!E`"``;`!Y`'(`:0!C`',`(`!T`&\`#0`*`'0`:`!E`"``4`!O`&P` -M:0!S`&@`(`!#`&@`<@!I`',`=`!M`&$`<P`@`&,`80!R`&\`;``@`"(`5P!; -M`7(`\P!D`"``;@!O`&,`;@!E`&H`(`!C`&D`<P!Z`'D`(@`N``T`"@`-``H` -M5P!;`7(`\P!D`"``;@!O`&,`;@!E`&H`(`!C`&D`<P!Z`'D`(`!G`$(!;P!S -M`"``<P!I`!D!(`!R`&\`>@!C`&@`;P!D`'H`:0`Z`"``+P`-``H`5P!S`'0` -M80!$`6,`:0!E`"P`(`!P`&$`<P!T`&4`<@!Z`&4`+``@`$(`\P!G`"``<P!I -M`!D!(`!N`&$`;0`@`'(`;P!D`'H`:0`A`"``+P`-``H`0P!Z`'D`;0`@`'`` -M<@`9`60`>@!E`&H`(`!S`&D`&0$@`'<`>0!B`&D`90!R`&$`:@!C`&D`90`L -M`"``+P`-``H`1`!O`"``0@!E`'0`;`!E`&H`90!M`"``<`!O`',`<`!I`&4` -M<P!Z`&$`:@!C`&D`90`@`"\`#0`*`%``<@!Z`'D`=P!I`'0`80`'`2``4`!A -M`&X`80`N``T`"@`-``H`4`!O`',`>@!L`&D`+``@`'H`;@!A`&P`90!Z`6P` -M:0`@`$0`>@!I`&4`8P!I``4!=`!K`&\`(`!W`"``?`%"`6\`8@!I`&4`(``O -M``T`"@!:`"``=P!S`'H`>0!S`'0`:P!I`&T`:0`@`'H`;@!A`&L`:0`@`&0` -M80!N`'D`;0!I`"``<P!O`&(`:0!E`"X`(``O``T`"@!*`&$`:P!O`"``0@!O -M`&<`=0`@`&,`>@!E`%L!!P$@`$T`=0`@`&0`80!L`&D`+``@`"\`#0`*`$$` -M(`!W`&D`=`!A`&H`!0%C`"``>@!A`'<`;P!"`6$`;`!I`"``+P`-``H`6@`@ -M`'<`:0!E`&P`:P!I`&4`:@`@`'(`80!D`&\`6P%C`&D`.@`-``H`#0`*`$$` -M8P!H`"P`(`!W`&D`=`!A`&H`(`!:`&(`80!W`&,`;P`@`'H`(`!D`&$`=P!N -M`&\`(`!\`04!9`!A`&X`>0`L`"``+P`-``H`5P!I`&4`;`!E`"``=`!Y`',` -M:0`9`6,`>0`@`&P`80!T`"``=P!Y`&<`;``%`60`80!N`'D`(``O``T`"@!. -M`&$`(`!#`&D`90!B`&D`90`@`&L`<@#S`&P`90`L`"``<`!R`&\`<@!O`&,` -M>0`@`"\`#0`*`$,`>@!E`&L`80!L`&D`+``@`&$`(`!4`'D`6P$@`'0`90!J -M`"``;@!O`&,`>0`@`"\`#0`*`$X`80!M`"``<P!I`!D!(`!O`&(`:@!A`'<` -M:0!"`2X`#0`*``T`"@!)`"``;0!Y`"``8P!Z`&4`:P!A`&T`>0`@`&X`80`@ -M`$,`:0!E`&(`:0!E`"P`(`!0`&$`;@!A`"P`(``O``T`"@!!`"``<P!K`&\` -M<@!O`"``<`!R`'H`>0!J`&0`>@!I`&4`<P!Z`"``;@!A`"``9P!"`6\`<P`@ -M`&L`80!P`$(!80!N`&$`+``@`"\`#0`*`%``80!D`&X`:0!E`&T`>0`@`&X` -M80`@`'0`=P!A`'(`>@`@`'``<@!Z`&4`9``@`%0`;P!B``4!+``@`"\`#0`* -M`%<`:0!E`'(`>@`%`6,`+``@`'P!90!;`2``:@!E`',`=``@`'``;P!D`"`` -M;P!S`$(!;P!N``4!(``O``T`"@!#`&@`;`!E`&(`80`@`&D`(`!W`&D`;@!A -M`"X`#0`*``T`"@`]`&@`90!A`&0`,@`@`$$`<P`@`%8`90!R`&(`80!T`&D` -M;0`-``H`#0`*`$$`;@!D`"``;@!O`'<`(`!A`',`(`!V`&4`<@!B`&$`=`!I -M`&T`(`!T`&4`>`!T`#H`#0`*``T`"@`@`"``5P!;`7(`\P!D`"``;@!O`&,` -M;@!E`&H`(`!C`&D`<P!Z`'D`(`!G`$(!;P!S`"``<P!I`!D!(`!R`&\`>@!C -M`&@`;P!D`'H`:0`Z``T`"@`@`"``5P!S`'0`80!$`6,`:0!E`"P`(`!P`&$` -M<P!T`&4`<@!Z`&4`+``@`$(`\P!G`"``<P!I`!D!(`!N`&$`;0`@`'(`;P!D -M`'H`:0`A``T`"@`@`"``0P!Z`'D`;0`@`'``<@`9`60`>@!E`&H`(`!S`&D` -M&0$@`'<`>0!B`&D`90!R`&$`:@!C`&D`90`L``T`"@`@`"``1`!O`"``0@!E -M`'0`;`!E`&H`90!M`"``<`!O`',`<`!I`&4`<P!Z`&$`:@!C`&D`90`-``H` -M(``@`%``<@!Z`'D`=P!I`'0`80`'`2``4`!A`&X`80`N``T`"@`-``H`(``@ -M`%``;P!S`'H`;`!I`"P`(`!Z`&X`80!L`&4`>@%L`&D`(`!$`'H`:0!E`&,` -M:0`%`70`:P!O`"``=P`@`'P!0@%O`&(`:0!E``T`"@`@`"``6@`@`'<`<P!Z -M`'D`<P!T`&L`:0!M`&D`(`!Z`&X`80!K`&D`(`!D`&$`;@!Y`&T`:0`@`',` -M;P!B`&D`90`N``T`"@`@`"``2@!A`&L`;P`@`$(`;P!G`'4`(`!C`'H`90!; -M`0<!(`!-`'4`(`!D`&$`;`!I`"P`#0`*`"``(`!!`"``=P!I`'0`80!J``4! -M8P`@`'H`80!W`&\`0@%A`&P`:0`-``H`(``@`%H`(`!W`&D`90!L`&L`:0!E -M`&H`(`!R`&$`9`!O`%L!8P!I`#H`#0`*``T`"@`@`"``00!C`&@`+``@`'<` -M:0!T`&$`:@`@`%H`8@!A`'<`8P!O`"``>@`@`&0`80!W`&X`;P`@`'P!!0%D -M`&$`;@!Y`"P`#0`*`"``(`!7`&D`90!L`&4`(`!T`'D`<P!I`!D!8P!Y`"`` -M;`!A`'0`(`!W`'D`9P!L``4!9`!A`&X`>0`-``H`(``@`$X`80`@`$,`:0!E -M`&(`:0!E`"``:P!R`/,`;`!E`"P`(`!P`'(`;P!R`&\`8P!Y``T`"@`@`"`` -M0P!Z`&4`:P!A`&P`:0`L`"``80`@`%0`>0!;`2``=`!E`&H`(`!N`&\`8P!Y -M``T`"@`@`"``3@!A`&T`(`!S`&D`&0$@`&\`8@!J`&$`=P!I`$(!+@`-``H` -M#0`*`"``(`!)`"``;0!Y`"``8P!Z`&4`:P!A`&T`>0`@`&X`80`@`$,`:0!E -M`&(`:0!E`"P`(`!0`&$`;@!A`"P`#0`*`"``(`!!`"``<P!K`&\`<@!O`"`` -M<`!R`'H`>0!J`&0`>@!I`&4`<P!Z`"``;@!A`"``9P!"`6\`<P`@`&L`80!P -M`$(!80!N`&$`+``-``H`(``@`%``80!D`&X`:0!E`&T`>0`@`&X`80`@`'0` -M=P!A`'(`>@`@`'``<@!Z`&4`9``@`%0`;P!B``4!+``-``H`(``@`%<`:0!E -M`'(`>@`%`6,`+``@`'P!90!;`2``:@!E`',`=``@`'``;P!D`"``;P!S`$(! -M;P!N``4!#0`*`"``(`!#`&@`;`!E`&(`80`@`&D`(`!W`&D`;@!A`"X`#0`* -K``T`"@!;`&4`;@!D`%T`#0`*``T`"@`]`&,`=0!T``T`"@`-``H`#0`*```` diff --git a/lib/Pod/Simple/t/corpus2/polish_utf8_bom.txt b/lib/Pod/Simple/t/corpus2/polish_utf8_bom.txt deleted file mode 100644 index d15a122fe6..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf8_bom.txt +++ /dev/null @@ -1,67 +0,0 @@ -
-=head1 NAME
-
-WŚRÓD NOCNEJ CISZY -- implicitly utf8 test document in Polish
-
-=head1 DESCRIPTION
-
-This is a test Pod document in UTF8. Its content is the lyrics to
-the Polish Christmas carol "Wśród nocnej ciszy".
-
-Wśród nocnej ciszy głos się rozchodzi: /
-Wstańcie, pasterze, Bóg się nam rodzi! /
-Czym prędzej się wybierajcie, /
-Do Betlejem pospieszajcie /
-Przywitać Pana.
-
-Poszli, znaleźli Dzieciątko w żłobie /
-Z wszystkimi znaki danymi sobie. /
-Jako Bogu cześć Mu dali, /
-A witając zawołali /
-Z wielkiej radości:
-
-Ach, witaj Zbawco z dawno żądany, /
-Wiele tysięcy lat wyglądany /
-Na Ciebie króle, prorocy /
-Czekali, a TyÅ› tej nocy /
-Nam się objawił.
-
-I my czekamy na Ciebie, Pana, /
-A skoro przyjdziesz na głos kapłana, /
-Padniemy na twarz przed TobÄ…, /
-Wierząc, żeś jest pod osłoną /
-Chleba i wina.
-
-=head2 As Verbatim
-
-And now as verbatim text:
-
- Wśród nocnej ciszy głos się rozchodzi:
- Wstańcie, pasterze, Bóg się nam rodzi!
- Czym prędzej się wybierajcie,
- Do Betlejem pospieszajcie
- Przywitać Pana.
-
- Poszli, znaleźli Dzieciątko w żłobie
- Z wszystkimi znaki danymi sobie.
- Jako Bogu cześć Mu dali,
- A witając zawołali
- Z wielkiej radości:
-
- Ach, witaj Zbawco z dawno żądany,
- Wiele tysięcy lat wyglądany
- Na Ciebie króle, prorocy
- Czekali, a TyÅ› tej nocy
- Nam się objawił.
-
- I my czekamy na Ciebie, Pana,
- A skoro przyjdziesz na głos kapłana,
- Padniemy na twarz przed TobÄ…,
- Wierząc, żeś jest pod osłoną
- Chleba i wina.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus2/polish_utf8_bom.xml b/lib/Pod/Simple/t/corpus2/polish_utf8_bom.xml deleted file mode 100644 index 08a114555d..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf8_bom.xml +++ /dev/null @@ -1,101 +0,0 @@ -<Document start_line="2"> - <head1 start_line="2"> - NAME - </head1> - <Para start_line="4"> - WÅšRÓD NOCNEJ CISZY -- implicitly utf8 - test document in Polish - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="8"> - This is a test Pod document in UTF8. Its content is the - lyrics to the Polish Christmas carol "WÅ›ród - nocnej ciszy". - </Para> - <Para start_line="11"> - WÅ›ród nocnej ciszy gÅ‚os - siÄ™ rozchodzi: / WstaÅ„cie, pasterze, - Bóg siÄ™ nam rodzi! / Czym prÄ™dzej - siÄ™ wybierajcie, / Do Betlejem pospieszajcie - / Przywitać Pana. - </Para> - <Para start_line="17"> - Poszli, znaleźli DzieciÄ tko w żłobie - / Z wszystkimi znaki danymi sobie. / Jako Bogu cześć - Mu dali, / A witajÄ c zawoÅ‚ali / Z wielkiej - radoÅ›ci: - </Para> - <Para start_line="23"> - Ach, witaj Zbawco z dawno Å¼Ä dany, / Wiele - tysiÄ™cy lat wyglÄ dany / Na Ciebie króle, - prorocy / Czekali, a TyÅ› tej nocy / Nam siÄ™ - objawiÅ‚. - </Para> - <Para start_line="29"> - I my czekamy na Ciebie, Pana, / A skoro przyjdziesz na gÅ‚os - kapÅ‚ana, / Padniemy na twarz przed TobÄ - , / WierzÄ c, żeÅ› jest pod osÅ‚onÄ - / Chleba i wina. - </Para> - <head2 start_line="35"> - As Verbatim - </head2> - <Para start_line="37"> - And now as verbatim text: - </Para> - <VerbatimFormatted start_line="39" xml:space="preserve"> - WÅ›ród nocnej ciszy gÅ‚os - siÄ™ rozchodzi: - - WstaÅ„cie, pasterze, Bóg siÄ™ - nam rodzi! - - Czym prÄ™dzej siÄ™ wybierajcie, - - Do Betlejem pospieszajcie - - Przywitać Pana. - - - - Poszli, znaleźli DzieciÄ…tko w żłobie - - Z wszystkimi znaki danymi sobie. - - Jako Bogu cześć Mu dali, - - A witajÄ…c zawoÅ‚ali - - Z wielkiej radoÅ›ci: - - - - Ach, witaj Zbawco z dawno żądany, - - Wiele tysiÄ™cy lat wyglÄ…dany - - Na Ciebie króle, prorocy - - Czekali, a TyÅ› tej nocy - - Nam siÄ™ objawiÅ‚. - - - - I my czekamy na Ciebie, Pana, - - A skoro przyjdziesz na gÅ‚os kapÅ‚ana, - - Padniemy na twarz przed TobÄ…, - - WierzÄ…c, żeÅ› jest pod - osÅ‚onÄ… - - Chleba i wina. - </VerbatimFormatted> - <Para start_line="63"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.txt b/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.txt deleted file mode 100644 index 20b0410538..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.txt +++ /dev/null @@ -1,67 +0,0 @@ -=head1 NAME
-
-
-WŚRÓD NOCNEJ CISZY -- implicitly utf8 test document in Polish
-
-=head1 DESCRIPTION
-
-This is a test Pod document in UTF8. Its content is the lyrics to
-the Polish Christmas carol "Wśród nocnej ciszy".
-
-Wśród nocnej ciszy głos się rozchodzi: /
-Wstańcie, pasterze, Bóg się nam rodzi! /
-Czym prędzej się wybierajcie, /
-Do Betlejem pospieszajcie /
-Przywitać Pana.
-
-Poszli, znaleźli Dzieciątko w żłobie /
-Z wszystkimi znaki danymi sobie. /
-Jako Bogu cześć Mu dali, /
-A witając zawołali /
-Z wielkiej radości:
-
-Ach, witaj Zbawco z dawno żądany, /
-Wiele tysięcy lat wyglądany /
-Na Ciebie króle, prorocy /
-Czekali, a TyÅ› tej nocy /
-Nam się objawił.
-
-I my czekamy na Ciebie, Pana, /
-A skoro przyjdziesz na głos kapłana, /
-Padniemy na twarz przed TobÄ…, /
-Wierząc, żeś jest pod osłoną /
-Chleba i wina.
-
-=head2 As Verbatim
-
-And now as verbatim text:
-
- Wśród nocnej ciszy głos się rozchodzi:
- Wstańcie, pasterze, Bóg się nam rodzi!
- Czym prędzej się wybierajcie,
- Do Betlejem pospieszajcie
- Przywitać Pana.
-
- Poszli, znaleźli Dzieciątko w żłobie
- Z wszystkimi znaki danymi sobie.
- Jako Bogu cześć Mu dali,
- A witając zawołali
- Z wielkiej radości:
-
- Ach, witaj Zbawco z dawno żądany,
- Wiele tysięcy lat wyglądany
- Na Ciebie króle, prorocy
- Czekali, a TyÅ› tej nocy
- Nam się objawił.
-
- I my czekamy na Ciebie, Pana,
- A skoro przyjdziesz na głos kapłana,
- Padniemy na twarz przed TobÄ…,
- Wierząc, żeś jest pod osłoną
- Chleba i wina.
-
-[end]
-
-=cut
-
-
diff --git a/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.xml b/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.xml deleted file mode 100644 index 8439ea1590..0000000000 --- a/lib/Pod/Simple/t/corpus2/polish_utf8_bom2.xml +++ /dev/null @@ -1,101 +0,0 @@ -<Document start_line="1"> - <head1 start_line="1"> - NAME - </head1> - <Para start_line="4"> - WÅšRÓD NOCNEJ CISZY -- implicitly utf8 - test document in Polish - </Para> - <head1 start_line="6"> - DESCRIPTION - </head1> - <Para start_line="8"> - This is a test Pod document in UTF8. Its content is the - lyrics to the Polish Christmas carol "WÅ›ród - nocnej ciszy". - </Para> - <Para start_line="11"> - WÅ›ród nocnej ciszy gÅ‚os - siÄ™ rozchodzi: / WstaÅ„cie, pasterze, - Bóg siÄ™ nam rodzi! / Czym prÄ™dzej - siÄ™ wybierajcie, / Do Betlejem pospieszajcie - / Przywitać Pana. - </Para> - <Para start_line="17"> - Poszli, znaleźli DzieciÄ tko w żłobie - / Z wszystkimi znaki danymi sobie. / Jako Bogu cześć - Mu dali, / A witajÄ c zawoÅ‚ali / Z wielkiej - radoÅ›ci: - </Para> - <Para start_line="23"> - Ach, witaj Zbawco z dawno Å¼Ä dany, / Wiele - tysiÄ™cy lat wyglÄ dany / Na Ciebie króle, - prorocy / Czekali, a TyÅ› tej nocy / Nam siÄ™ - objawiÅ‚. - </Para> - <Para start_line="29"> - I my czekamy na Ciebie, Pana, / A skoro przyjdziesz na gÅ‚os - kapÅ‚ana, / Padniemy na twarz przed TobÄ - , / WierzÄ c, żeÅ› jest pod osÅ‚onÄ - / Chleba i wina. - </Para> - <head2 start_line="35"> - As Verbatim - </head2> - <Para start_line="37"> - And now as verbatim text: - </Para> - <VerbatimFormatted start_line="39" xml:space="preserve"> - WÅ›ród nocnej ciszy gÅ‚os - siÄ™ rozchodzi: - - WstaÅ„cie, pasterze, Bóg siÄ™ - nam rodzi! - - Czym prÄ™dzej siÄ™ wybierajcie, - - Do Betlejem pospieszajcie - - Przywitać Pana. - - - - Poszli, znaleźli DzieciÄ…tko w żłobie - - Z wszystkimi znaki danymi sobie. - - Jako Bogu cześć Mu dali, - - A witajÄ…c zawoÅ‚ali - - Z wielkiej radoÅ›ci: - - - - Ach, witaj Zbawco z dawno żądany, - - Wiele tysiÄ™cy lat wyglÄ…dany - - Na Ciebie króle, prorocy - - Czekali, a TyÅ› tej nocy - - Nam siÄ™ objawiÅ‚. - - - - I my czekamy na Ciebie, Pana, - - A skoro przyjdziesz na gÅ‚os kapÅ‚ana, - - Padniemy na twarz przed TobÄ…, - - WierzÄ…c, żeÅ› jest pod - osÅ‚onÄ… - - Chleba i wina. - </VerbatimFormatted> - <Para start_line="63"> - [end] - </Para> -</Document> diff --git a/lib/Pod/Simple/t/encod01.t b/lib/Pod/Simple/t/encod01.t deleted file mode 100644 index 4fe9b9f238..0000000000 --- a/lib/Pod/Simple/t/encod01.t +++ /dev/null @@ -1,74 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -#use Pod::Simple::Debug (10); -use Test; -use File::Spec; -#use utf8; -use strict; -#use Pod::Simple::Debug (10); - -BEGIN { plan tests => 6 } - -use Pod::Simple; -use Pod::Simple::DumpAsXML; - -my $thefile; - - -BEGIN { - - # Find the path to the test source files. This requires some fiddling when -# these tests are run as part of Perl core. -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir ($updir, 'lib', 'Pod', 'Simple', 't', 'corpus'); - return File::Spec->catfile ($dir, $file); - } else { - return $file; - } -} - if( -e - ($thefile = source_path('nonesuch.txt')) - #or (print("# Nope, not $thefile\n"), 0) - ) { - # okay, - - } elsif( -e - ($thefile = File::Spec::->catfile( File::Spec::->curdir, 'corpus', 'nonesuch.txt' )) - #or (print("# Nope, not $thefile\n"), 0) - ) { - # okay, - } elsif (-e - ($thefile = File::Spec::->catfile( File::Spec::->curdir, 't', 'corpus', 'nonesuch.txt' )) - #or (print("# Nope, not $thefile\n"), 0) - ) { - # okay, - } else { - die "Can't find the corpus directory\n Aborting"; - } - -} - -print "# Testing that $thefile parses right.\n"; -my $outstring; -{ - my $p = Pod::Simple::DumpAsXML->new; - $p->output_string( \$outstring ); - $p->parse_file( $thefile ); - undef $p; -} -ok 1 ; # make sure it parsed at all -ok( $outstring && length($outstring) ); # make sure it parsed to something. -#print $outstring; -ok( $outstring =~ m/Blorp/ ); -ok( $outstring =~ m/errata/ ); -ok( $outstring =~ m/unsupported/ ); -ok 1; diff --git a/lib/Pod/Simple/t/encod02.t b/lib/Pod/Simple/t/encod02.t deleted file mode 100644 index de75ef0fa2..0000000000 --- a/lib/Pod/Simple/t/encod02.t +++ /dev/null @@ -1,76 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 4 }; - -#use Pod::Simple::Debug (5); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -{ -my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ - -=encoding koi8-r - -=head1 NAME - -ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading" - -=cut - -} ); - - -if(grep m/Unknown directive/i, @output_lines ) { - ok 0; - print "# I saw an Unknown directive warning here! :\n", - map("#==> $_\n", @output_lines), "#\n#\n"; -} else { - ok 1; -} - -} - -# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -print "# Now a control group, to make sure that =fishbladder DOES\n", - "# cause an 'unknown directive' error...\n"; - -{ -my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ - -=fishbladder - -=head1 NAME - -Fet's "When you were reading" - -=cut - -} ); - - -if(grep m/Unknown directive/i, @output_lines ) { - ok 1; -} else { - ok 0; - print "# But I didn't see an Unknows directive warning here! :\n", - map("#==> $_\n", @output_lines), "#\n#\n"; -} - -} - - - -print "#\n# And one for the road...\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/encod03.t b/lib/Pod/Simple/t/encod03.t deleted file mode 100644 index a058ce7b84..0000000000 --- a/lib/Pod/Simple/t/encod03.t +++ /dev/null @@ -1,76 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 4 }; - -#use Pod::Simple::Debug (5); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -{ -my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ - -=encoding koi8-r - -=head1 NAME - -Bippitty Boppity Boo -- Yormp - -=cut - -} ); - - -if(grep m/Unknown directive/i, @output_lines ) { - ok 0; - print "# I saw an Unknown directive warning here! :\n", - map("#==> $_\n", @output_lines), "#\n#\n"; -} else { - ok 1; -} - -} - -# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -print "# Now a control group, to make sure that =fishbladder DOES\n", - "# cause an 'unknown directive' error...\n"; - -{ -my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{ - -=fishbladder - -=head1 NAME - -Fet's "When you were reading" - -=cut - -} ); - - -if(grep m/Unknown directive/i, @output_lines ) { - ok 1; -} else { - ok 0; - print "# But I didn't see an Unknows directive warning here! :\n", - map("#==> $_\n", @output_lines), "#\n#\n"; -} - -} - - - -print "#\n# And one for the road...\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/end_over.t b/lib/Pod/Simple/t/end_over.t deleted file mode 100644 index ca61b03013..0000000000 --- a/lib/Pod/Simple/t/end_over.t +++ /dev/null @@ -1,49 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 5 }; - -my $d; -#use Pod::Simple::Debug (\$d,0); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) } - -sub nowhine { - $_[0]->{'no_whining'} = 1; -} - -&ok(e( -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head1 SVUP\n\nMyup.", -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head1 SVUP\n\nMyup.", -)); - -&ok(e( -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head2 SVUP\n\nMyup.", -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head2 SVUP\n\nMyup.", -)); - -&ok(e( -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head3 SVUP\n\nMyup.", -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head3 SVUP\n\nMyup.", -)); - -&ok(e( -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head4 SVUP\n\nMyup.", -"=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head4 SVUP\n\nMyup.", -)); - - -__END__ - - diff --git a/lib/Pod/Simple/t/fcodes.t b/lib/Pod/Simple/t/fcodes.t deleted file mode 100644 index 02e2a27ee1..0000000000 --- a/lib/Pod/Simple/t/fcodes.t +++ /dev/null @@ -1,112 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 18 }; - -#use Pod::Simple::Debug (5); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -print "# With weird leading whitespace...\n"; -# With weird whitespace -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>\n"), - '<Document><Para><I>foo</I></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB< foo>\n"), - '<Document><Para><B> foo</B></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\tfoo>\n"), - '<Document><Para><B> foo</B></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\nfoo>\n"), - '<Document><Para><B> foo</B></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo>\n"), - '<Document><Para><B>foo</B></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\t>\n"), - '<Document><Para><B>foo </B></Para></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\n>\n"), - '<Document><Para><B>foo </B></Para></Document>' -); - - -print "#\n# Tests for wedges outside of formatting codes...\n"; -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\nX < 3 and N > 19\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\nX E<lt> 3 and N E<gt> 19\n") -); - - -print "# A complex test with internal whitespace...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>B< bar>C<baz >F< quux\t?>\n"), - '<Document><Para><I>foo</I><B> bar</B><C>baz </C><F> quux ?</F></Para></Document>' -); - - -print "# Without any nesting...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<a>C<b>I<c>B<d>X<e>\n"), - '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' -); - -print "# Without any nesting, but with Z's...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<a>C<b>I<c>B<d>X<e>\n"), - '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' -); - - -print "# With lots of nesting, and Z's...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>foo> I<bar>> B<X<thingZ<>>baz>\n"), - '<Document><Para><F><C>foo</C> <I>bar</I></F> <B><X>thing</X>baz</B></Para></Document>' -); - - - -print "#\n# *** Now testing different numbers of wedges ***\n"; -print "# Without any nesting...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< a >>C<<< b >>>I<<<< c >>>>B<< d >>X<< e >>\n"), - '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' -); - -print "# Without any nesting, but with Z's, and odder whitespace...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c >>>>B<< d \t >>X<<\ne >>\n"), - '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' -); - -print "# With nesting and Z's, and odder whitespace...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c >>>>\n"), - '<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>' -); - - -print "# Misc...\n"; -ok( Pod::Simple::XMLOutStream->_out( - "=pod\n\nI like I<PIE> with B<cream> and Stuff and N < 3 and X<< things >> hoohah\n" -."And I<pie is B<also> a happy time>.\n" -."And B<I<<< I like pie >>>.>\n" -) => -"<Document><Para>I like <I>PIE</I> with <B>cream</B> and Stuff and N < 3 and <X>things</X> hoohah " -."And <I>pie is <B>also</B> a happy time</I>. " -."And <B><I>I like pie</I>.</B></Para></Document>" -); - - - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/fcodes_e.t b/lib/Pod/Simple/t/fcodes_e.t deleted file mode 100644 index 80b71b326e..0000000000 --- a/lib/Pod/Simple/t/fcodes_e.t +++ /dev/null @@ -1,98 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 20 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; - -print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -print "# Pod::Escapes version $Pod::Escapes::VERSION\n", - if $Pod::Escapes::VERSION; -# Presumably that's the library being used - - -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -&ok( e "", "" ); -&ok( e "\n", "", ); - - -print "# Testing some basic mnemonic E sequences...\n"; - -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<lt>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1<2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<gt>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1>2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<verbar>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1|2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<sol>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1/2\n") -); - - -print "# Testing some more mnemonic E sequences...\n"; - -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<apos>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1'2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<quot>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1\"2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1&2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<amp>2\n") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<eacute>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<233>2\n") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<infin>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<8734>2\n") -); - -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<lchevron>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<171>2\n") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<rchevron>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<187>2\n") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<laquo>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<171>2\n") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<raquo>2"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1E<187>2\n") -); - - - -print "# Testing numeric E sequences...\n"; -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<0101>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1A2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<65>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1A2") -); -&ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<0x41>2\n"), - Pod::Simple::XMLOutStream->_out("=pod\n\n1A2") -); - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/fcodes_l.t b/lib/Pod/Simple/t/fcodes_l.t deleted file mode 100644 index 7865a08e9d..0000000000 --- a/lib/Pod/Simple/t/fcodes_l.t +++ /dev/null @@ -1,433 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 99 }; - -#use Pod::Simple::Debug (10); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } -my $x = 'Pod::Simple::XMLOutStream'; - -print "##### Testing L codes via x class $x...\n"; - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - -print "# Simple/moderate L<stuff> tests...\n"; - -ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); - -ok($x->_out(qq{=pod\n\nL<crontab(5)>\n}), - '<Document><Para><L content-implicit="yes" to="crontab(5)" type="man">crontab(5)</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-pong">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"Object Methods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</Object Methods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"Object Methods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); - - -print "# Complex L<stuff> tests...\n"; -print "# Ents in the middle...\n"; - -ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); - - - -print "# Ents in the middle and at the start...\n"; - -ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-E<112>ong">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); - - -print "# Ents in the middle and at the start and at the end...\n"; - -ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-E<112>onE<103>>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-E<112>onE<103>">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethodE<115>">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethodE<115>>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethodE<115>">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); - - -print "# Even more complex L<stuff> tests...\n"; - - -print "# Ents in the middle...\n"; - -ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' -); - - -########################################################################### - -print "# VERY complex L sequences...\n"; -print "# Ents in the middle and at the start...\n"; - - -ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-B<E<112>ong>>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-B<E<112>ong>">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"B<Object> E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</B<Object> E<77>ethods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"B<Object> E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); - - - -print "# Ents in the middle and at the start...\n"; - -ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-B<E<112>ong>>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-B<E<112>ong>">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethods>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethods">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); - - -print "# Ents in the middle and at the start and at the end...\n"; - -ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}), - '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-B<E<112>onE<103>>>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-B<E<112>onE<103>>">\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethodE<115>">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethodE<115>>\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethodE<115>">\n}), - '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' -); - - -########################################################################### - -print "#\n# L<url> tests...\n"; - -ok( $x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}), - '<Document><Para><L content-implicit="yes" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<http://www.perl.com>\n}), - '<Document><Para><L content-implicit="yes" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}), - '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' -); - -print "# L<url> tests with entities...\n"; - -ok( $x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}), - '<Document><Para><L content-implicit="yes" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com>\n}), - '<Document><Para><L content-implicit="yes" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}), - '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKEE<47>>\n}), - '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' -); - - -########################################################################### - - -print "# L<text|stuff> tests...\n"; - -ok($x->_out(qq{=pod\n\nL<things|crontab(5)>\n}), - '<Document><Para><L to="crontab(5)" type="man">things</L></Para></Document>' -); -ok($x->_out(qq{=pod\n\nL<things|crontab(5)/ENVIRONMENT>\n}), - '<Document><Para><L section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>' -); -ok($x->_out(qq{=pod\n\nL<things|crontab(5)/"ENVIRONMENT">\n}), - '<Document><Para><L section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>' -); - -ok( $x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements">\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/Basic BLOCKs and Switch Statements>\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<the various attributes|/"Member Data">\n}), - '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<the various attributes|/Member Data>\n}), - '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<the various attributes|"Member Data">\n}), - '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>' -); - - -print "#\n# Now some very complex L<text|stuff> tests...\n"; - - -ok( $x->_out(qq{=pod\n\nL<Perl B<Error E<77>essages>|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\nE<77>essages>|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\t E<77>essages>|perldiag>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/"Basic I<BLOCKs> and Switch StatementE<115>">\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/Basic I<BLOCKs> and Switch StatementE<115>>\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/"Member Data">\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/Member Data>\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|"Member Data">\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); - - -print "#\n# Now some very complex L<text|stuff> tests with variant syntax...\n"; - - -ok( $x->_out(qq{=pod\n\nL<< Perl B<<< Error E<77>essages >>>|perldiag >>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>\n}), - '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>\n}), - '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/"Member Data" >>>\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/Member Data >>>\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); -ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|"Member Data" >>>\n}), - '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' -); - -########################################################################### - -print "#\n# Now some very complex L<text|stuff> tests with variant syntax and text around it...\n"; - - -ok( $x->_out(qq{=pod\n\nI like L<< Perl B<<< Error E<77>essages >>>|perldiag >>.\n}), - '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' -); -ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>.\n}), - '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' -); -ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>.\n}), - '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>.\n}), - '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' -); -ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>.\n}), - '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' -); - - -ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/"Member Data" >>>.\n}), - '<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<<< the F<< various >> attributes|/Member Data >>>.\n}), - '<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<<< the F<< various >> attributes|"Member Data" >>>.\n}), - '<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@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. -# - -########################################################################### - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/fcodes_s.t b/lib/Pod/Simple/t/fcodes_s.t deleted file mode 100644 index 14866873d1..0000000000 --- a/lib/Pod/Simple/t/fcodes_s.t +++ /dev/null @@ -1,107 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 14 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -my $x = 'Pod::Simple::XMLOutStream'; -sub e ($$) { $x->_duo(@_) } - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -print "# S as such...\n"; - -ok( $x->_out("=pod\n\nI like S<bric-a-brac>.\n"), - => '<Document><Para>I like <S>bric-a-brac</S>.</Para></Document>' ); -ok( $x->_out("=pod\n\nI like S<bric-a-brac a gogo >.\n"), - => '<Document><Para>I like <S>bric-a-brac a gogo </S>.</Para></Document>' ); -ok( $x->_out("=pod\n\nI like S<< bric-a-brac a gogo >>.\n"), - => '<Document><Para>I like <S>bric-a-brac a gogo</S>.</Para></Document>' ); - -my $unless_ascii = (chr(65) eq 'A') ? '' : - "Skip because not in ASCIIland"; - -skip( $unless_ascii, - $x->_out( sub { $_[0]->nbsp_for_S(1) }, - "=pod\n\nI like S<bric-a-brac a gogo>.\n"), -'<Document><Para>I like bric-a-brac a gogo.</Para></Document>' -); -skip( $unless_ascii, - $x->_out( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}), -'<Document><Para>I like <L content-implicit="yes" section="bric-a-brac a gogo" type="pod">"bric-a-brac a gogo"</L>.</Para></Document>' -); -skip( $unless_ascii, - $x->_out( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}), -'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff like that</L>.</Para></Document>' -); -skip( $unless_ascii, - $x->_out( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}), -'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff <I>like that</I></L>.</Para></Document>' -); - -&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) }, - "=pod\n\nI like S<bric-a-brac a gogo>.\n", - "=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n", -)); -&ok( - map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z } - $x->_duo( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}, - qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n}, -)); -&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n}, - qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n}, -)); -&ok( - map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z } - $x->_duo( sub { $_[0]->nbsp_for_S(1) }, - qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n}, - 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; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/for.t b/lib/Pod/Simple/t/for.t deleted file mode 100644 index 158cdc2b58..0000000000 --- a/lib/Pod/Simple/t/for.t +++ /dev/null @@ -1,107 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 21 }; - -#use Pod::Simple::Debug (5); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -sub moj {shift->accept_target('mojojojo')} -sub mojtext {shift->accept_target_as_text('mojojojo')} -sub any {shift->accept_target('*')} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -ok( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo stuff\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk stuff\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target ...\n"; - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for crunk stuff\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target_as_text ...\n"; - -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - - - -print "# Testing accept_target(*) ...\n"; - -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="*"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="*"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/fornot.t b/lib/Pod/Simple/t/fornot.t deleted file mode 100644 index 863b00aa6e..0000000000 --- a/lib/Pod/Simple/t/fornot.t +++ /dev/null @@ -1,109 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 21 }; - -#use Pod::Simple::Debug (5); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -sub moj {shift->accept_target( 'mojojojo')} -sub mojtext {shift->accept_target_as_text('mojojojo')} -sub any {shift->accept_target( '*' )} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -ok( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo stuff\n\n=for !mojojojo bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">bzarcho</Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk stuff\n\n=for !psketti,mojojojo,crunk bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!psketti,mojojojo,crunk" target_matching="!"><Data xml:space="preserve">bzarcho</Data></for><Para>Yup.</Para></Document>' -); - -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :mojojojo stuff\n\n=for :!mojojojo bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":!mojojojo" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk stuff\n\n=for :!psketti,mojojojo,crunk bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":!psketti,mojojojo,crunk" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :mojojojo stuff\n\n=for :!mojojojo I<bzarcho>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":!mojojojo" target_matching="!"><Para><I>bzarcho</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk stuff\n\n=for :!psketti,mojojojo,crunk I<bzarcho>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target=":!psketti,mojojojo,crunk" target_matching="!"><Para><I>bzarcho</I></Para></for><Para>Yup.</Para></Document>' -); - - -print "# ( Now just swapping '!' and ':' )\n"; -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :mojojojo stuff\n\n=for !:mojojojo bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:mojojojo" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk stuff\n\n=for !:psketti,mojojojo,crunk bzarcho\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:psketti,mojojojo,crunk" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>' -); - - -print "# Testing accept_target ...\n"; - -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for !mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for !psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for :!mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - -print "# Testing accept_target_as_text ...\n"; - -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for !mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for !psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for :!mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' -); - - -print "# Testing accept_target(*) ...\n"; - -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for !mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for !mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for !psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!psketti,mojojojo,crunk" target_matching="!"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for !:mojojojo I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:mojojojo" target_matching="!"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); -ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for !:psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), - '<Document><Para>I like pie.</Para><for target="!:psketti,mojojojo,crunk" target_matching="!"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' -); - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/fullstop.t b/lib/Pod/Simple/t/fullstop.t deleted file mode 100644 index 0f021744c0..0000000000 --- a/lib/Pod/Simple/t/fullstop.t +++ /dev/null @@ -1,57 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 11 }; - -#use Pod::Simple::Debug (6); - -print "# Hi, I'm ", __FILE__, "\n"; -ok 1; - -use Pod::Simple; -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -&ok( e "", "" ); -&ok( e "\n", "", ); - -die unless ok !! Pod::Simple::XMLOutStream->can('fullstop_space_harden'); -sub harden { $_[0]->fullstop_space_harden(1) } - -print "# Test that \". \" always compacts without the hardening on...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\nShe set me a message about the M.D. I\ncalled back!\n"), - qq{<Document><Para>She set me a message about the M.D. I called back!</Para></Document>} -); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\nShe set me a message about the M.D. I called back!\n"), - qq{<Document><Para>She set me a message about the M.D. I called back!</Para></Document>} -); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\nShe set me a message about the M.D.\nI called back!\n"), - qq{<Document><Para>She set me a message about the M.D. I called back!</Para></Document>} -); - - -print "# Now testing with the hardening on...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&harden, "\n=pod\n\nShe set me a message about the M.D. I\ncalled back!\n"), - qq{<Document><Para>She set me a message about the M.D.  I called back!</Para></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&harden, "\n=pod\n\nShe set me a message about the M.D. I called back!\n"), - qq{<Document><Para>She set me a message about the M.D. I called back!</Para></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&harden, "\n=pod\n\nShe set me a message about the M.D.\nI called back!\n"), - qq{<Document><Para>She set me a message about the M.D. I called back!</Para></Document>} -); - - -print "# Byebye\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/heads.t b/lib/Pod/Simple/t/heads.t deleted file mode 100644 index bd04ce3ba2..0000000000 --- a/lib/Pod/Simple/t/heads.t +++ /dev/null @@ -1,92 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 19 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - - -print "# Simple tests for head1 - head4...\n"; -ok( Pod::Simple::XMLOutStream->_out("\n=head1 Chacha\n\n"), - '<Document><head1>Chacha</head1></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("\n=head2 Chacha\n\n"), - '<Document><head2>Chacha</head2></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("\n=head3 Chacha\n\n"), - '<Document><head3>Chacha</head3></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("\n=head4 Chacha\n\n"), - '<Document><head4>Chacha</head4></Document>' -); - -print "# Testing whitespace equivalence...\n"; - -&ok(e "\n=head1 Chacha\n\n", "\n=head1 Chacha\n\n"); -&ok(e "\n=head1 Chacha\n\n", "\n=head1\tChacha\n\n"); -&ok(e "\n=head1 Chacha\n\n", "\n=head1\tChacha \n\n"); - - - -ok( Pod::Simple::XMLOutStream->_out("=head1 Chachacha"), - '<Document><head1>Chachacha</head1></Document>' -); - - -print "# Testing whitespace variance ...\n"; -ok( Pod::Simple::XMLOutStream->_out("=head1 Cha cha cha \n"), - '<Document><head1>Cha cha cha</head1></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=head1 Cha cha\tcha \n"), - '<Document><head1>Cha cha cha</head1></Document>' -); - - - - -print "# Testing head2, head3, head4 more...\n"; - -ok( Pod::Simple::XMLOutStream->_out("=head2 Cha cha\tcha \n"), - '<Document><head2>Cha cha cha</head2></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=head3 Cha cha\tcha \n"), - '<Document><head3>Cha cha cha</head3></Document>' -); -ok( Pod::Simple::XMLOutStream->_out("=head4 Cha cha\tcha \n"), - '<Document><head4>Cha cha cha</head4></Document>' -); - -print "# Testing entity expansion...\n"; - -ok( Pod::Simple::XMLOutStream->_out("=head4 fooE<64>bar!\n"), - Pod::Simple::XMLOutStream->_out("\n=head4 foo\@bar!\n\n"), -); - -# TODO: a mode so that DumpAsXML can ask for all contiguous string -# sequences to be fused? -# &ok( e "=head4 fooE<64>bar!\n", "\n=head4 foo\@bar!\n\n"); - -print "# Testing formatting sequences...\n"; - -# True only if the sequences resolve, as they should... -&ok( e "=head4 C<foobar!>\n", "\n=head4 C<< foobar! >>\n\n"); -&ok( e "=head4 C<foobar!>\n", "\n\n=head4 C<<< foobar! >>>\n"); -&ok( e "=head4 C<foobar!>\n", "\n=head4 C<< foobar!\n\t>>\n\n"); - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/html01.t b/lib/Pod/Simple/t/html01.t deleted file mode 100644 index 9d1afe5cde..0000000000 --- a/lib/Pod/Simple/t/html01.t +++ /dev/null @@ -1,77 +0,0 @@ -# t/html-para.t - -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 8 }; - -#use Pod::Simple::Debug (10); - -use Pod::Simple::HTML; - -sub x ($) { Pod::Simple::HTML->_out( - sub{ $_[0]->bare_output(1) }, - "=pod\n\n$_[0]", -) } - -ok( x( -q{ -=pod - -This is a paragraph - -=cut -}), - qq{\n<p>This is a paragraph</p>\n}, - "paragraph building" -); - - -ok( x(qq{=pod\n\nThis is a paragraph}), - qq{\n<p>This is a paragraph</p>\n}, - "paragraph building" -); - - -ok( x(qq{This is a paragraph}), - qq{\n<p>This is a paragraph</p>\n}, - "paragraph building" -); - - - -ok(x( -'=head1 This is a heading') - => q{/\s*<h1><a[^<>]+>This\s+is\s+a\s+heading</a></h1>\s*$/}, - "heading building" -); - -ok(x( -'=head2 This is a heading too') - => q{/\s*<h2><a[^<>]+>This\s+is\s+a\s+heading\s+too</a></h2>\s*$/}, - "heading building" -); - -ok(x( -'=head3 Also, this is a heading') - => q{/\s*<h3><a[^<>]+>Also,\s+this\s+is\s+a\s+heading</a></h3>\s*$/}, - "heading building" -); - - -ok(x( -'=head4 This, too, is a heading') - => q{/\s*<h4><a[^<>]+>This,\s+too,\s+is\s+a\s+heading</a></h4>\s*$/}, - "heading building" -); - - -print "# And one for the road...\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/html02.t b/lib/Pod/Simple/t/html02.t deleted file mode 100644 index f00507c931..0000000000 --- a/lib/Pod/Simple/t/html02.t +++ /dev/null @@ -1,40 +0,0 @@ -# t/html-styles.t - -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -#use Pod::Simple::Debug (10); - -use strict; -use Test; -BEGIN { plan tests => 7}; -use Pod::Simple::HTML; - -sub x ($) { Pod::Simple::HTML->_out( - sub{ $_[0]->bare_output(1) }, - "=pod\n\n$_[0]", -) } - -ok 1; - -my @pairs = ( -[ "I<italicized>" => qq{\n<p><i>italicized</i></p>\n} ], -[ 'B<bolded>' => qq{\n<p><b>bolded</b></p>\n} ], -[ 'C<code>' => qq{\n<p><code>code</code></p>\n} ], -[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ], -[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ], -); - - -foreach( @pairs ) { - print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/; - ok( x($_->[0]), $_->[1] ) -} -print "# And one for the road...\n"; -ok 1; - - diff --git a/lib/Pod/Simple/t/html03.t b/lib/Pod/Simple/t/html03.t deleted file mode 100644 index 43b3718389..0000000000 --- a/lib/Pod/Simple/t/html03.t +++ /dev/null @@ -1,35 +0,0 @@ -# t/html-para.t - -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 7 }; - -#use Pod::Simple::Debug (10); - -use Pod::Simple::HTML; - -sub x ($) { Pod::Simple::HTML->_out( - #sub{ $_[0]->bare_output(1) }, - "=pod\n\n$_[0]", -) } - - -# make sure empty file => empty output - -ok 1; -ok( x(''),'', "Contentlessness" ); -ok( x(qq{=pod\n\nThis is a paragraph}) =~ m{<title></title>}i ); -ok( x(qq{This is a paragraph}) =~ m{<title></title>}i ); -ok( x(qq{=head1 Prok\n\nThis is a paragraph}) =~ m{<title>Prok</title>}i ); -ok( x(qq{=head1 NAME\n\nProk -- stuff\n\nThis}), q{/<title>Prok</title>/} ); - -print "# And one for the road...\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/htmlbat.t b/lib/Pod/Simple/t/htmlbat.t deleted file mode 100644 index 497f0e57d5..0000000000 --- a/lib/Pod/Simple/t/htmlbat.t +++ /dev/null @@ -1,97 +0,0 @@ -# Testing HTMLBatch -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -# Time-stamp: "2004-05-24 02:07:47 ADT" -use strict; - -#sub Pod::Simple::HTMLBatch::DEBUG () {5}; - -use Test; -BEGIN { plan tests => 8 } - -require Pod::Simple::HTMLBatch;; - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -my $t_dir; -my $corpus_dir; - -foreach my $t_maybe ( - File::Spec->catdir( File::Spec->updir(), 'lib','Pod','Simple','t'), - File::Spec->catdir( $cwd ), - File::Spec->catdir( $cwd, 't' ), - 'OHSNAP' -) { - die "Can't find the test corpus" if $t_maybe eq 'OHSNAP'; - next unless -e $t_maybe; - - $t_dir = $t_maybe; - $corpus_dir = File::Spec->catdir( $t_maybe, 'testlib1' ); - next unless -e $corpus_dir; - last; -} -print "# OK, found the test corpus as $corpus_dir\n"; -ok 1; - -my $outdir; -while(1) { - my $rand = sprintf "%05x", rand( 0x100000 ); - $outdir = File::Spec->catdir( $t_dir, "delme-$rand-out" ); - last unless -e $outdir; -} - -END { - use File::Path; - rmtree $outdir, 0, 0; -} - -ok 1; -print "# Output dir: $outdir\n"; - -mkdir $outdir, 0777 or die "Can't mkdir $outdir: $!"; - -print "# Converting $corpus_dir => $outdir\n"; -my $conv = Pod::Simple::HTMLBatch->new; -$conv->verbose(0); -$conv->batch_convert( [$corpus_dir], $outdir ); -ok 1; -print "# OK, back from converting.\n"; - -my @files; -use File::Find; -find( sub { push @files, $File::Find::name; return }, $outdir ); - -{ - my $long = ( grep m/zikzik\./i, @files )[0]; - ok($long) or print "# How odd, no zikzik file in $outdir!?\n"; - if($long) { - $long =~ s{zikzik\.html?$}{}s; - for(@files) { substr($_, 0, length($long)) = '' } - @files = grep length($_), @files; - } -} - -print "#Produced in $outdir ...\n"; -foreach my $f (sort @files) { - print "# $f\n"; -} -print "# (", scalar(@files), " items total)\n"; - -# Some minimal sanity checks: -ok scalar(grep m/\.css/i, @files) > 5; -ok scalar(grep m/\.html?/i, @files) > 5; -ok scalar grep m{squaa\W+Glunk.html?}i, @files; - -# use Pod::Simple; -# *pretty = \&Pod::Simple::BlackBox::pretty; - -print "# Bye from ", __FILE__, "\n"; -ok 1; diff --git a/lib/Pod/Simple/t/items.t b/lib/Pod/Simple/t/items.t deleted file mode 100644 index dcb695f3dd..0000000000 --- a/lib/Pod/Simple/t/items.t +++ /dev/null @@ -1,226 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 24 }; - -my $d; -#use Pod::Simple::Debug (\$d,0); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; - -print "##### Tests for =item directives via class $x\n"; - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -print "#\n# Tests for simple =item *'s\n"; -ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over 10\n\n=item *\n\nStuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="10"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over\n\n=item *\n\nStuff\n=cut\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back"), - '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); - - - - -print "#\n# Tests for simple =item 1.'s\n"; -ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>' -); -ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=cut\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>' -); -# Now without a dot -ok( $x->_out("\n=over\n\n=item 1\n\nStuff\n\n=cut\n\nStuff\n\n=item 2\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>' -); -ok( $x->_out("\n=over\n\n=item 1\n\nStuff\n=cut\nStuff\n\n=item 2\n\nBar I<baz>!\n\n=back"), - '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>' -); - - - -print "#\n# Tests for =over blocks (without =items)\n"; -ok( $x->_out("\n=over\n\nStuff\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-block indent="4"><Para>Stuff</Para><Para>Bar <I>baz</I>!</Para></over-block></Document>' -); -ok( $x->_out("\n=over\n\n Stuff\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-block indent="4"><Verbatim xml:space="preserve"> Stuff</Verbatim><Para>Bar <I>baz</I>!</Para></over-block></Document>' -); -ok( $x->_out("\n=over\n\nBar I<baz>!\n\n Stuff\n\n=back\n\n"), - '<Document><over-block indent="4"><Para>Bar <I>baz</I>!</Para><Verbatim xml:space="preserve"> Stuff</Verbatim></over-block></Document>' -); - - - - -print "#\n# Tests for =item Text blocks...\n"; -ok( $x->_out("\n=over\n\n=item Foo\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"), - '<Document><over-text indent="4"><item-text>Foo</item-text><Para>Stuff</Para><item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>' -); -ok( $x->_out("\n=over\n\n=item Foo\n\n Stuff\n\tSnork\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"), - qq{<Document><over-text indent="4"><item-text>Foo</item-text><Verbatim xml:space="preserve"> Stuff\n Snork</Verbatim>} - . qq{<item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>} -); -ok( $x->_out("\n=over\n\n=item Foo\n\n Stuff\n\tSnork\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"), - qq{<Document><over-text indent="4"><item-text>Foo</item-text><Verbatim xml:space="preserve"> Stuff\n Snork</Verbatim>} - . qq{<item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>} -); - - - -print "#\n# Test for mixed =item blocks...\n"; -ok( $x->_out("\n=over\n\n=item Foo\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"), - qq{<Document><over-text indent="4"><item-text>Foo</item-text><Para>Stuff</Para>} - . qq{<item-text>2.</item-text><Para>Bar <I>baz</I>!</Para><Para>Quux</Para>} - . qq{<item-text>*</item-text><Para>Thwoong</Para></over-text></Document>} -); - -# ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"), -# ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"), - -print "#\n# Tests for indenting\n"; -ok( $x->_out("\n=over 19\n\n=item *\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="19"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over 19\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-number indent="19"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>' -); -ok( $x->_out("\n=over 19\n\nStuff\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-block indent="19"><Para>Stuff</Para><Para>Bar <I>baz</I>!</Para></over-block></Document>' -); -ok( $x->_out("\n=over 19\n\n=item Foo\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"), - '<Document><over-text indent="19"><item-text>Foo</item-text><Para>Stuff</Para><item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# Now testing nesting...\n"; -ok( $x->_out(join "\n\n", '', - '=over', - '=item *', - 'Stuff', - '=cut', - 'Stuff', - '=over', - '=item 1.', - '=item 2.', - 'Bar I<baz>!', - '=back', - '=item *', - 'Bar I<baz>!', - '=back', '' - ), join '', - '<Document>', - '<over-bullet indent="4">', - '<item-bullet>Stuff</item-bullet>', - '<over-number indent="4">', - '<item-number number="1"></item-number>', - '<item-number number="2">Bar <I>baz</I>!</item-number>', - '</over-number>', - '<item-bullet>Bar <I>baz</I>!</item-bullet>', - '</over-bullet></Document>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -ok( $x->_out( join "\n\n", '', '', - '=over', - '=item *', - 'Stuff', - '=cut', - 'Stuff', - '=over', - '=item 1.', - '=over 19', - 'Gleiven', - 'Squim F<.thingrc>!', - '=back', - '=item 2.', - 'Bar I<baz>!', - '=back', - '=item *', - 'Bar I<baz>!', - '=back', - '', '' - ), join '', - '<Document>', - '<over-bullet indent="4">', - '<item-bullet>Stuff</item-bullet>', - '<over-number indent="4">', - '<item-number number="1"></item-number>', - - '<over-block indent="19">', - '<Para>Gleiven</Para>', - '<Para>Squim <F>.thingrc</F>!</Para>', - '</over-block>', - - '<item-number number="2">Bar <I>baz</I>!</item-number>', - '</over-number>', - '<item-bullet>Bar <I>baz</I>!</item-bullet>', - '</over-bullet></Document>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -$d = 11; -print "# Now checking that document-end closes things right...\n"; - -ok( $x->_out( join "\n\n", '', '', - '=over', - '=item *', - 'Stuff', - '=cut', - 'Stuff', - '=over', - '=item 1.', - '=over 19', - 'Gleiven', - 'Squim F<.thingrc>!', - '', '' - ), join '', - '<Document>', - '<over-bullet indent="4">', - '<item-bullet>Stuff</item-bullet>', - '<over-number indent="4">', - '<item-number number="1"></item-number>', - - '<over-block indent="19">', - '<Para>Gleiven</Para>', - '<Para>Squim <F>.thingrc</F>!</Para>', - '</over-block>', - '</over-number>', - '</over-bullet></Document>' -); - - - -# TODO: more checking of coercion in nesting? - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/items02.t b/lib/Pod/Simple/t/items02.t deleted file mode 100644 index 125241f762..0000000000 --- a/lib/Pod/Simple/t/items02.t +++ /dev/null @@ -1,44 +0,0 @@ -#!perl -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 4 }; - -my $d; -#use Pod::Simple::Debug (\$d,0); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; - -print "##### Tests for =item directives via class $x\n"; - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -print "#\n# Tests for =item [number] that are icky...\n"; -ok( $x->_out("\n=over\n\n=item 5\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4\n\nQuux\n\n=back\n\n"), - '<Document><over-text indent="4"><item-text>5</item-text><Para>Stuff</Para><item-text>4</item-text><Para>Quux</Para></over-text></Document>' -); - -ok( $x->_out("\n=over\n\n=item 5.\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4.\n\nQuux\n\n=back\n\n"), - '<Document><over-text indent="4"><item-text>5.</item-text><Para>Stuff</Para><item-text>4.</item-text><Para>Quux</Para></over-text></Document>' -); - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/itemstar.t b/lib/Pod/Simple/t/itemstar.t deleted file mode 100644 index 4e6ac41b66..0000000000 --- a/lib/Pod/Simple/t/itemstar.t +++ /dev/null @@ -1,51 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 6 }; - -#my $d; -#use Pod::Simple::Debug (3); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -my $x = 'Pod::Simple::XMLOutStream'; - -print "##### Tests for '=item * Foo' tolerance via class $x\n"; - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -print "#\n# Tests for simple =item *'s\n"; -ok( $x->_out("\n=over\n\n=item * Stuff\n\n=item * Bar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over\n\n=item * Stuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over 10\n\n=item * Stuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"), - '<Document><over-bullet indent="10"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); -ok( $x->_out("\n=over\n\n=item * Stuff I<things\num> hoo!\n=cut\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back"), - '<Document><over-bullet indent="4"><item-bullet>Stuff <I>things um</I> hoo!</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>' -); - - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/junk1.pod b/lib/Pod/Simple/t/junk1.pod deleted file mode 100644 index 402880109e..0000000000 --- a/lib/Pod/Simple/t/junk1.pod +++ /dev/null @@ -1,8 +0,0 @@ - -=cut - -=head9 I like pie - -B<pie is nice - -E<puppies> diff --git a/lib/Pod/Simple/t/junk1o.txt b/lib/Pod/Simple/t/junk1o.txt deleted file mode 100644 index 1b4559ac0f..0000000000 --- a/lib/Pod/Simple/t/junk1o.txt +++ /dev/null @@ -1,13 +0,0 @@ -pie is nice E<puppies> - -POD ERRORS -Hey! The above document had some coding errors, which are explained below: - -Around line 2: - =cut found outside a pod block. Skipping to next block. -Around line 4: - Unknown directive: =head9 -Around line 6: - Unterminated B<...> sequence -Around line 8: - Unknown E content in E<puppies> diff --git a/lib/Pod/Simple/t/junk2.pod b/lib/Pod/Simple/t/junk2.pod deleted file mode 100644 index 696aabfbfa..0000000000 --- a/lib/Pod/Simple/t/junk2.pod +++ /dev/null @@ -1,6 +0,0 @@ - -=head9 I like pie - -B<pie is nice - -E<puppies> diff --git a/lib/Pod/Simple/t/junk2o.txt b/lib/Pod/Simple/t/junk2o.txt deleted file mode 100644 index 5612c7d3a1..0000000000 --- a/lib/Pod/Simple/t/junk2o.txt +++ /dev/null @@ -1,13 +0,0 @@ -pie is nice - -E<puppies> - -POD ERRORS -Hey! The above document had some coding errors, which are explained below: -Around line 2: - Unknown directive: =head9 -Around line 4: - Unterminated B<...> sequence -Around line 6: - Unknown E content in E<puppies> - diff --git a/lib/Pod/Simple/t/linkclas.t b/lib/Pod/Simple/t/linkclas.t deleted file mode 100644 index 5df3799b91..0000000000 --- a/lib/Pod/Simple/t/linkclas.t +++ /dev/null @@ -1,70 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -### Test the basic sanity of the link-section treelet class - -use strict; -use Test; -BEGIN { plan tests => 8 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::LinkSection; -use Pod::Simple::BlackBox; # for its pretty() - -my $bare_treelet = - ['B', {'pie' => 'no'}, - 'a', - ['C', {'bzrok' => 'plip'}, - 'b' - ], - 'c' - ] -; -my $treelet = Pod::Simple::LinkSection->new($bare_treelet); - -# Make sure they're not the same - -ok ref($bare_treelet), 'ARRAY'; -ok ref($treelet), 'Pod::Simple::LinkSection'; - -print "# Testing stringification...\n"; - -ok $treelet->stringify, 'abc'; # explicit -ok join('', $treelet), 'abc'; # implicit - - -print "# Testing non-coreferentiality...\n"; -{ - my @stack = ($bare_treelet); - my $this; - while(@stack) { - $this = shift @stack; - if(ref($this || '') eq 'ARRAY') { - push @stack, splice @$this; - push @$this, ("BAD!") x 3; - } elsif(ref($this || '') eq 'Pod::Simple::LinkSection') { - push @stack, splice @$this; - push @$this, ("BAD!") x 3; - } elsif(ref($this || '') eq 'HASH') { - %$this = (); - } - } - # These will fail if $treelet and $bare_treelet are coreferential, - # since we just conspicuously nuked $bare_treelet - - ok $treelet->stringify, 'abc'; # explicit - ok join('', $treelet), 'abc'; # implicit -} - - -print "# Byebye...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/perlcyg.pod b/lib/Pod/Simple/t/perlcyg.pod deleted file mode 100644 index 6264a15788..0000000000 --- a/lib/Pod/Simple/t/perlcyg.pod +++ /dev/null @@ -1,592 +0,0 @@ -If you read this file _as_is_, just ignore the funny characters you -see. It is written in the POD format (see pod/perlpod.pod) which is -specially designed to be readable as is. - -=head1 NAME - -README.cygwin - Perl for Cygwin - -=head1 SYNOPSIS - -This document will help you configure, make, test and install Perl -on Cygwin. This document also describes features of Cygwin that will -affect how Perl behaves at runtime. - -B<NOTE:> There are pre-built Perl packages available for Cygwin and a -version of Perl is provided on the Cygwin CD. If you do not need to -customize the configuration, consider using one of these packages: - - http://cygutils.netpedia.net/ - -=head1 PREREQUISITES - -=head2 Cygwin = GNU+Cygnus+Windows (Don't leave UNIX without it) - -The Cygwin tools are ports of the popular GNU development tools for Win32 -platforms. They run thanks to the Cygwin library which provides the UNIX -system calls and environment these programs expect. More information -about this project can be found at: - - http://www.cygwin.com/ - -A recent net or commercial release of Cygwin is required. - -At the time this document was last updated, Cygwin 1.1.5 was current. - -B<NOTE:> At this point, minimal effort has been made to provide -compatibility with old (beta) Cygwin releases. The focus has been to -provide a high quality release and not worry about working around old -bugs. If you wish to use Perl with Cygwin B20.1 or earlier, consider -using perl5.005_03, which is available in source and binary form at -C<http://cygutils.netpedia.net/>. If there is significant demand, -a patch kit can be developed to port back to earlier Cygwin versions. - -=head2 Cygwin Configuration - -While building Perl some changes may be necessary to your Cygwin setup so -that Perl builds cleanly. These changes are B<not> required for normal -Perl usage. - -B<NOTE:> The binaries that are built will run on all Win32 versions. -They do not depend on your host system (Win9x/WinME, WinNT/Win2K) -or your Cygwin configuration (I<ntea>, I<ntsec>, binary/text mounts). -The only dependencies come from hard-coded pathnames like C</usr/local>. -However, your host system and Cygwin configuration will affect Perl's -runtime behavior (see L</"TEST">). - -=over 4 - -=item * C<PATH> - -Set the C<PATH> environment variable so that Configure finds the Cygwin -versions of programs. Any Windows directories should be removed or -moved to the end of your C<PATH>. - -=item * I<nroff> - -If you do not have I<nroff> (which is part of the I<groff> package), -Configure will B<not> prompt you to install I<man> pages. - -=item * Permissions - -On WinNT with either the I<ntea> or I<ntsec> C<CYGWIN> settings, directory -and file permissions may not be set correctly. Since the build process -creates directories and files, to be safe you may want to run a `C<chmod --R +w *>' on the entire Perl source tree. - -Also, it is a well known WinNT "feature" that files created by a login -that is a member of the I<Administrators> group will be owned by the -I<Administrators> group. Depending on your umask, you may find that you -can not write to files that you just created (because you are no longer -the owner). When using the I<ntsec> C<CYGWIN> setting, this is not an -issue because it "corrects" the ownership to what you would expect on -a UNIX system. - -=back - -=head1 CONFIGURE - -The default options gathered by Configure with the assistance of -F<hints/cygwin.sh> will build a Perl that supports dynamic loading -(which requires a shared F<libperl.dll>). - -This will run Configure and keep a record: - - ./Configure 2>&1 | tee log.configure - -If you are willing to accept all the defaults run Configure with B<-de>. -However, several useful customizations are available. - -=head2 Strip Binaries - -It is possible to strip the EXEs and DLLs created by the build process. -The resulting binaries will be significantly smaller. If you want the -binaries to be stripped, you can either add a B<-s> option when Configure -prompts you, - - Any additional ld flags (NOT including libraries)? [none] -s - Any special flags to pass to gcc to use dynamic linking? [none] -s - Any special flags to pass to ld2 to create a dynamically loaded library? - [none] -s - -or you can edit F<hints/cygwin.sh> and uncomment the relevant variables -near the end of the file. - -=head2 Optional Libraries - -Several Perl functions and modules depend on the existence of -some optional libraries. Configure will find them if they are -installed in one of the directories listed as being used for library -searches. Pre-built packages for most of these are available at -C<http://cygutils.netpedia.net/>. - -=over 4 - -=item * C<-lcrypt> - -The crypt package distributed with Cygwin is a Linux compatible 56-bit -DES crypt port by Corinna Vinschen. - -Alternatively, the crypt libraries in GNU libc have been ported to Cygwin. - -The DES based Ultra Fast Crypt port was done by Alexey Truhan: - - ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/cw32crypt-dist-0.tgz - -NOTE: There are various export restrictions on DES implementations, -see the glibc README for more details. - -The MD5 port was done by Andy Piper: - - ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/libcrypt.tgz - -=item * C<-lgdbm> (C<use GDBM_File>) - -GDBM is available for Cygwin. GDBM's ndbm/dbm compatibility feature -also makes C<NDBM_File> and C<ODBM_File> possible (although they add -little extra value). - -NOTE: The ndbm/dbm emulations only completely work on NTFS partitions. - -=item * C<-ldb> (C<use DB_File>) - -BerkeleyDB is available for Cygwin. Some details can be found in -F<ext/DB_File/DB_File.pm>. - -NOTE: The BerkeleyDB library only completely works on NTFS partitions. - -=item * C<-lcygipc> (C<use IPC::SysV>) - -A port of SysV IPC is available for Cygwin. - -NOTE: This has B<not> been extensively tested. In particular, -C<d_semctl_semun> is undefined because it fails a Configure test -and on Win9x the I<shm*()> functions seem to hang. It also creates -a compile time dependency because F<perl.h> includes F<<sys/ipc.h>> -and F<<sys/sem.h>> (which will be required in the future when compiling -CPAN modules). - -=back - -=head2 Configure-time Options - -The F<INSTALL> document describes several Configure-time options. Some of -these will work with Cygwin, others are not yet possible. Also, some of -these are experimental. You can either select an option when Configure -prompts you or you can define (undefine) symbols on the command line. - -=over 4 - -=item * C<-Uusedl> - -Undefining this symbol forces Perl to be compiled statically. - -=item * C<-Uusemymalloc> - -By default Perl uses the malloc() included with the Perl source. If you -want to force Perl to build with the system malloc() undefine this symbol. - -=item * C<-Dusemultiplicity> - -Multiplicity is required when embedding Perl in a C program and using -more than one interpreter instance. This works with the Cygwin port. - -=item * C<-Duseperlio> - -The PerlIO abstraction works with the Cygwin port. - -=item * C<-Duse64bitint> - -I<gcc> supports 64-bit integers. However, several additional long long -functions are necessary to use them within Perl (I<{strtol,strtoul}l>). -These are B<not> yet available with Cygwin. - -=item * C<-Duselongdouble> - -I<gcc> supports long doubles (12 bytes). However, several additional -long double math functions are necessary to use them within Perl -(I<{atan2,cos,exp,floor,fmod,frexp,isnan,log,modf,pow,sin,sqrt}l,strtold>). -These are B<not> yet available with Cygwin. - -=item * C<-Dusethreads> - -POSIX threads are B<not> yet implemented in Cygwin. - -=item * C<-Duselargefiles> - -Although Win32 supports large files, Cygwin currently uses 32-bit integers -for internal size and position calculations. - -=back - -=head2 Suspicious Warnings - -You may see some messages during Configure that seem suspicious. - -=over 4 - -=item * I<dlsym()> - -I<ld2> is needed to build dynamic libraries, but it does not exist -when dlsym() checking occurs (it is not created until `C<make>' runs). -You will see the following message: - - Checking whether your dlsym() needs a leading underscore ... - ld2: not found - I can't compile and run the test program. - I'm guessing that dlsym doesn't need a leading underscore. - -Since the guess is correct, this is not a problem. - -=item * Win9x and C<d_eofnblk> - -Win9x does not correctly report C<EOF> with a non-blocking read on a -closed pipe. You will see the following messages: - - But it also returns -1 to signal EOF, so be careful! - WARNING: you can't distinguish between EOF and no data! - - *** WHOA THERE!!! *** - The recommended value for $d_eofnblk on this machine was "define"! - Keep the recommended value? [y] - -At least for consistency with WinNT, you should keep the recommended -value. - -=item * Compiler/Preprocessor defines - -The following error occurs because of the Cygwin C<#define> of -C<_LONG_DOUBLE>: - - Guessing which symbols your C compiler and preprocessor define... - try.c:<line#>: parse error - -This failure does not seem to cause any problems. - -=back - -=head1 MAKE - -Simply run I<make> and wait: - - make 2>&1 | tee log.make - -=head2 Warnings - -Warnings like these are normal: - - warning: overriding commands for target <file> - warning: ignoring old commands for target <file> - - dllwrap: no export definition file provided - dllwrap: creating one, but that may not be what you want - -=head2 ld2 - -During `C<make>', I<ld2> will be created and installed in your $installbin -directory (where you said to put public executables). It does not -wait until the `C<make install>' process to install the I<ld2> script, -this is because the remainder of the `C<make>' refers to I<ld2> without -fully specifying its path and does this from multiple subdirectories. -The assumption is that $installbin is in your current C<PATH>. If this -is not the case `C<make>' will fail at some point. If this happens, -just manually copy I<ld2> from the source directory to somewhere in -your C<PATH>. - -=head1 TEST - -There are two steps to running the test suite: - - make test 2>&1 | tee log.make-test - - cd t;./perl harness 2>&1 | tee ../log.harness - -The same tests are run both times, but more information is provided when -running as `C<./perl harness>'. - -Test results vary depending on your host system and your Cygwin -configuration. If a test can pass in some Cygwin setup, it is always -attempted and explainable test failures are documented. It is possible -for Perl to pass all the tests, but it is more likely that some tests -will fail for one of the reasons listed below. - -=head2 File Permissions - -UNIX file permissions are based on sets of mode bits for -{read,write,execute} for each {user,group,other}. By default Cygwin -only tracks the Win32 read-only attribute represented as the UNIX file -user write bit (files are always readable, files are executable if they -have a F<.{com,bat,exe}> extension or begin with C<#!>, directories are -always readable and executable). On WinNT with the I<ntea> C<CYGWIN> -setting, the additional mode bits are stored as extended file attributes. -On WinNT with the I<ntsec> C<CYGWIN> setting, permissions use the standard -WinNT security descriptors and access control lists. Without one of -these options, these tests will fail: - - Failed Test List of failed - ------------------------------------ - io/fs.t 5, 7, 9-10 - lib/anydbm.t 2 - lib/db-btree.t 20 - lib/db-hash.t 16 - lib/db-recno.t 18 - lib/gdbm.t 2 - lib/ndbm.t 2 - lib/odbm.t 2 - lib/sdbm.t 2 - op/stat.t 9, 20 (.tmp not an executable extension) - -=head2 Hard Links - -FAT partitions do not support hard links (whereas NTFS does), in which -case Cygwin implements link() by copying the file. On remote (network) -drives Cygwin's stat() always sets C<st_nlink> to 1, so the link count -for remote directories and files is not available. In either case, -these tests will fail: - - Failed Test List of failed - ------------------------------------ - io/fs.t 4 - op/stat.t 3 - -=head2 Filetime Granularity - -On FAT partitions the filetime granularity is 2 seconds. The following -test will fail: - - Failed Test List of failed - ------------------------------------ - io/fs.t 18 - -=head2 Tainting Checks - -When Perl is running in taint mode, C<$ENV{PATH}> is considered tainted -and not used, so DLLs not in the default system directories will not -be found. While the tests are running you will see warnings popup from -the system with messages like: - - Win9x - Error Starting Program - A required .DLL file, CYGWIN1.DLL, was not found - - WinNT - perl.exe - Unable to Locate DLL - The dynamic link library cygwin1.dll could not be found in the - specified path ... - -Just click OK and ignore them. When running `C<make test>', 2 popups -occur. During `C<./perl harness>', 4 popups occur. Also, these tests -will fail: - - Failed Test List of failed - ------------------------------------ - op/taint.t 1, 3, 31, 37 - -Alternatively, you can copy F<cygwin1.dll> into the directory where the -tests run: - - cp /bin/cygwin1.dll t - -or one of the Windows system directories (although, this is B<not> -recommended). - -=head2 /etc/group - -Cygwin does not require F</etc/group>, in which case the F<op/grent.t> -test will be skipped. The check performed by F<op/grent.t> expects to -see entries that use the members field, otherwise this test will fail: - - Failed Test List of failed - ------------------------------------ - op/grent.t 1 - -=head2 Script Portability - -Cygwin does an outstanding job of providing UNIX-like semantics on top of -Win32 systems. However, in addition to the items noted above, there are -some differences that you should know about. This is a very brief guide -to portability, more information can be found in the Cygwin documentation. - -=over 4 - -=item * Pathnames - -Cygwin pathnames can be separated by forward (F</>) or backward (F<\>) -slashes. They may also begin with drive letters (F<C:>) or Universal -Naming Codes (F<//UNC>). DOS device names (F<aux>, F<con>, F<prn>, -F<com*>, F<lpt?>, F<nul>) are invalid as base filenames. However, they -can be used in extensions (e.g., F<hello.aux>). Names may contain all -printable characters except these: - - : * ? " < > | - -File names are case insensitive, but case preserving. A pathname that -contains a backslash or drive letter is a Win32 pathname (and not subject -to the translations applied to POSIX style pathnames). - -=item * Text/Binary - -When a file is opened it is in either text or binary mode. In text mode -a file is subject to CR/LF/Ctrl-Z translations. With Cygwin, the default -mode for an open() is determined by the mode of the mount that underlies -the file. Perl provides a binmode() function to set binary mode on files -that otherwise would be treated as text. sysopen() with the C<O_TEXT> -flag sets text mode on files that otherwise would be treated as binary: - - sysopen(FOO, "bar", O_WRONLY|O_CREAT|O_TEXT) - -lseek(), tell() and sysseek() only work with files opened in binary mode. - -The text/binary issue is covered at length in the Cygwin documentation. - -=item * F<.exe> - -The Cygwin stat(), lstat() and readlink() functions make the F<.exe> -extension transparent by looking for F<foo.exe> when you ask for F<foo> -(unless a F<foo> also exists). Cygwin does not require a F<.exe> -extension, but I<gcc> adds it automatically when building a program. -However, when accessing an executable as a normal file (e.g., I<cp> -in a makefile) the F<.exe> is not transparent. The I<install> included -with Cygwin automatically appends a F<.exe> when necessary. - -=item * chown() - -On WinNT chown() can change a file's user and group IDs. On Win9x chown() -is a no-op, although this is appropriate since there is no security model. - -=item * Miscellaneous - -File locking using the C<F_GETLK> command to fcntl() is a stub that -returns C<ENOSYS>. - -Win9x can not rename() an open file (although WinNT can). - -The Cygwin chroot() implementation has holes (it can not restrict file -access by native Win32 programs). - -=back - -=head1 INSTALL - -This will install Perl, including I<man> pages. - - make install | tee log.make-install - -NOTE: If C<STDERR> is redirected `C<make install>' will B<not> prompt -you to install I<perl> into F</usr/bin>. - -You may need to be I<Administrator> to run `C<make install>'. If you -are not, you must have write access to the directories in question. - -Information on installing the Perl documentation in HTML format can be -found in the F<INSTALL> document. - -=head1 MANIFEST - -These are the files in the Perl release that contain references to Cygwin. -These very brief notes attempt to explain the reason for all conditional -code. Hopefully, keeping this up to date will allow the Cygwin port to -be kept as clean as possible. - -=over 4 - -=item Documentation - - INSTALL README.cygwin README.win32 MANIFEST - Changes Changes5.005 Changes5.004 Changes5.6 - pod/perl.pod pod/perlport.pod pod/perlfaq3.pod - pod/perldelta.pod pod/perl5004delta.pod pod/perl56delta.pod - pod/perlhist.pod pod/perlmodlib.pod pod/buildtoc.PL pod/perltoc.pod - -=item Build, Configure, Make, Install - - cygwin/Makefile.SHs - cygwin/ld2.in - cygwin/perlld.in - ext/IPC/SysV/hints/cygwin.pl - ext/NDBM_File/hints/cygwin.pl - ext/ODBM_File/hints/cygwin.pl - hints/cygwin.sh - Configure - help finding hints from uname, - shared libperl required for dynamic loading - Makefile.SH - linklibperl - Porting/patchls - cygwin in port list - installman - man pages with :: translated to . - installperl - install dll/ld2/perlld, install to pods - makedepend.SH - uwinfix - -=item Tests - - t/io/tell.t - binmode - t/lib/b.t - ignore Cwd from os_extras - t/lib/glob-basic.t - Win32 directory list access differs from read mode - t/op/magic.t - $^X/symlink WORKAROUND, s/.exe// - t/op/stat.t - no /dev, skip Win32 ftCreationTime quirk - (cache manager sometimes preserves ctime of file - previously created and deleted), no -u (setuid) - -=item Compiled Perl Source - - EXTERN.h - __declspec(dllimport) - XSUB.h - __declspec(dllexport) - cygwin/cygwin.c - os_extras (getcwd, spawn) - perl.c - os_extras - perl.h - binmode - doio.c - win9x can not rename a file when it is open - pp_sys.c - do not define h_errno, pp_system with spawn - util.c - use setenv - -=item Compiled Module Source - - ext/POSIX/POSIX.xs - tzname defined externally - ext/SDBM_File/sdbm/pair.c - - EXTCONST needs to be redefined from EXTERN.h - ext/SDBM_File/sdbm/sdbm.c - - binary open - -=item Perl Modules/Scripts - - lib/Cwd.pm - hook to internal Cwd::cwd - lib/ExtUtils/MakeMaker.pm - - require MM_Cygwin.pm - lib/ExtUtils/MM_Cygwin.pm - - canonpath, cflags, manifypods, perl_archive - lib/File/Find.pm - on remote drives stat() always sets st_nlink to 1 - lib/File/Spec/Unix.pm - preserve //unc - lib/File/Temp.pm - no directory sticky bit - lib/perl5db.pl - use stdin not /dev/tty - utils/perldoc.PL - version comment - -=back - -=head1 BUGS - -When I<make> starts, it warns about overriding commands for F<perlmain.o>. - -`C<make clean>' does not remove library F<.def> or F<.exe.stackdump> -files. - -The I<ld2> script contains references to the source directory. You should -change these to $installbin after `C<make install>'. - -Support for swapping real and effective user and group IDs is incomplete. -On WinNT Cygwin provides setuid(), seteuid(), setgid() and setegid(). -However, additional Cygwin calls for manipulating WinNT access tokens -and security contexts are required. - -When building DLLs, `C<dllwrap --export-all-symbols>' is used to export -global symbols. It might be better to generate an explicit F<.def> file -(see F<makedef.pl>). Also, DLLs can now be build with `C<gcc -shared>'. - -=head1 AUTHORS - -Charles Wilson <cwilson@ece.gatech.edu>, -Eric Fifer <egf7@columbia.edu>, -alexander smishlajev <als@turnhere.com>, -Steven Morlock <newspost@morlock.net>, -Sebastien Barre <Sebastien.Barre@utc.fr>, -Teun Burgers <burgers@ecn.nl>. - -=head1 HISTORY - -Last updated: 9 November 2000 diff --git a/lib/Pod/Simple/t/perlcygo.txt b/lib/Pod/Simple/t/perlcygo.txt deleted file mode 100644 index d834344d6f..0000000000 --- a/lib/Pod/Simple/t/perlcygo.txt +++ /dev/null @@ -1,249 +0,0 @@ -NAME -README.cygwin - Perl for Cygwin -SYNOPSIS -This document will help you configure, make, test and install Perl on Cygwin. This document also describes features of Cygwin that will affect how Perl behaves at runtime. -NOTE: There are pre-built Perl packages available for Cygwin and a version of Perl is provided on the Cygwin CD. If you do not need to customize the configuration, consider using one of these packages: - http://cygutils.netpedia.net/ -PREREQUISITES -Cygwin = GNU+Cygnus+Windows (Don't leave UNIX without it) -The Cygwin tools are ports of the popular GNU development tools for Win32 platforms. They run thanks to the Cygwin library which provides the UNIX system calls and environment these programs expect. More information about this project can be found at: - http://www.cygwin.com/ -A recent net or commercial release of Cygwin is required. -At the time this document was last updated, Cygwin 1.1.5 was current. -NOTE: At this point, minimal effort has been made to provide compatibility with old (beta) Cygwin releases. The focus has been to provide a high quality release and not worry about working around old bugs. If you wish to use Perl with Cygwin B20.1 or earlier, consider using perl5.005_03, which is available in source and binary form at http://cygutils.netpedia.net/. If there is significant demand, a patch kit can be developed to port back to earlier Cygwin versions. -Cygwin Configuration -While building Perl some changes may be necessary to your Cygwin setup so that Perl builds cleanly. These changes are not required for normal Perl usage. -NOTE: The binaries that are built will run on all Win32 versions. They do not depend on your host system (Win9x/WinME, WinNT/Win2K) or your Cygwin configuration (ntea, ntsec, binary/text mounts). The only dependencies come from hard-coded pathnames like /usr/local. However, your host system and Cygwin configuration will affect Perl's runtime behavior (see "TEST"). -PATH -Set the PATH environment variable so that Configure finds the Cygwin versions of programs. Any Windows directories should be removed or moved to the end of your PATH. -nroff -If you do not have nroff (which is part of the groff package), Configure will not prompt you to install man pages. -Permissions -On WinNT with either the ntea or ntsec CYGWIN settings, directory and file permissions may not be set correctly. Since the build process creates directories and files, to be safe you may want to run a `chmod -R +w *' on the entire Perl source tree. -Also, it is a well known WinNT "feature" that files created by a login that is a member of the Administrators group will be owned by the Administrators group. Depending on your umask, you may find that you can not write to files that you just created (because you are no longer the owner). When using the ntsec CYGWIN setting, this is not an issue because it "corrects" the ownership to what you would expect on a UNIX system. -CONFIGURE -The default options gathered by Configure with the assistance of hints/cygwin.sh will build a Perl that supports dynamic loading (which requires a shared libperl.dll). -This will run Configure and keep a record: - ./Configure 2>&1 | tee log.configure -If you are willing to accept all the defaults run Configure with -de. However, several useful customizations are available. -Strip Binaries -It is possible to strip the EXEs and DLLs created by the build process. The resulting binaries will be significantly smaller. If you want the binaries to be stripped, you can either add a -s option when Configure prompts you, - Any additional ld flags (NOT including libraries)? [none] -s - Any special flags to pass to gcc to use dynamic linking? [none] -s - Any special flags to pass to ld2 to create a dynamically loaded library? - [none] -s -or you can edit hints/cygwin.sh and uncomment the relevant variables near the end of the file. -Optional Libraries -Several Perl functions and modules depend on the existence of some optional libraries. Configure will find them if they are installed in one of the directories listed as being used for library searches. Pre-built packages for most of these are available at http://cygutils.netpedia.net/. --lcrypt -The crypt package distributed with Cygwin is a Linux compatible 56-bit DES crypt port by Corinna Vinschen. -Alternatively, the crypt libraries in GNU libc have been ported to Cygwin. -The DES based Ultra Fast Crypt port was done by Alexey Truhan: - ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/cw32crypt-dist-0.tgz -NOTE: There are various export restrictions on DES implementations, see the glibc README for more details. -The MD5 port was done by Andy Piper: - ftp://ftp.franken.de/pub/win32/develop/gnuwin32/cygwin/porters/Okhapkin_Sergey/libcrypt.tgz --lgdbm (use GDBM_File) -GDBM is available for Cygwin. GDBM's ndbm/dbm compatibility feature also makes NDBM_File and ODBM_File possible (although they add little extra value). -NOTE: The ndbm/dbm emulations only completely work on NTFS partitions. --ldb (use DB_File) -BerkeleyDB is available for Cygwin. Some details can be found in ext/DB_File/DB_File.pm. -NOTE: The BerkeleyDB library only completely works on NTFS partitions. --lcygipc (use IPC::SysV) -A port of SysV IPC is available for Cygwin. -NOTE: This has not been extensively tested. In particular, d_semctl_semun is undefined because it fails a Configure test and on Win9x the shm*() functions seem to hang. It also creates a compile time dependency because perl.h includes <sys/ipc.h> and <sys/sem.h> (which will be required in the future when compiling CPAN modules). -Configure-time Options -The INSTALL document describes several Configure-time options. Some of these will work with Cygwin, others are not yet possible. Also, some of these are experimental. You can either select an option when Configure prompts you or you can define (undefine) symbols on the command line. --Uusedl -Undefining this symbol forces Perl to be compiled statically. --Uusemymalloc -By default Perl uses the malloc() included with the Perl source. If you want to force Perl to build with the system malloc() undefine this symbol. --Dusemultiplicity -Multiplicity is required when embedding Perl in a C program and using more than one interpreter instance. This works with the Cygwin port. --Duseperlio -The PerlIO abstraction works with the Cygwin port. --Duse64bitint -gcc supports 64-bit integers. However, several additional long long functions are necessary to use them within Perl ({strtol,strtoul}l). These are not yet available with Cygwin. --Duselongdouble -gcc supports long doubles (12 bytes). However, several additional long double math functions are necessary to use them within Perl ({atan2,cos,exp,floor,fmod,frexp,isnan,log,modf,pow,sin,sqrt}l,strtold). These are not yet available with Cygwin. --Dusethreads -POSIX threads are not yet implemented in Cygwin. --Duselargefiles -Although Win32 supports large files, Cygwin currently uses 32-bit integers for internal size and position calculations. -Suspicious Warnings -You may see some messages during Configure that seem suspicious. -dlsym() -ld2 is needed to build dynamic libraries, but it does not exist when dlsym() checking occurs (it is not created until `make' runs). You will see the following message: - Checking whether your dlsym() needs a leading underscore ... - ld2: not found - I can't compile and run the test program. - I'm guessing that dlsym doesn't need a leading underscore. -Since the guess is correct, this is not a problem. -Win9x and d_eofnblk -Win9x does not correctly report EOF with a non-blocking read on a closed pipe. You will see the following messages: - But it also returns -1 to signal EOF, so be careful! - WARNING: you can't distinguish between EOF and no data! - *** WHOA THERE!!! *** - The recommended value for $d_eofnblk on this machine was "define"! - Keep the recommended value? [y] -At least for consistency with WinNT, you should keep the recommended value. -Compiler/Preprocessor defines -The following error occurs because of the Cygwin #define of _LONG_DOUBLE: - Guessing which symbols your C compiler and preprocessor define... - try.c:<line#>: parse error -This failure does not seem to cause any problems. -MAKE -Simply run make and wait: - make 2>&1 | tee log.make -Warnings -Warnings like these are normal: - warning: overriding commands for target <file> - warning: ignoring old commands for target <file> - dllwrap: no export definition file provided - dllwrap: creating one, but that may not be what you want -ld2 -During `make', ld2 will be created and installed in your $installbin directory (where you said to put public executables). It does not wait until the `make install' process to install the ld2 script, this is because the remainder of the `make' refers to ld2 without fully specifying its path and does this from multiple subdirectories. The assumption is that $installbin is in your current PATH. If this is not the case `make' will fail at some point. If this happens, just manually copy ld2 from the source directory to somewhere in your PATH. -TEST -There are two steps to running the test suite: - make test 2>&1 | tee log.make-test - cd t;./perl harness 2>&1 | tee ../log.harness -The same tests are run both times, but more information is provided when running as `./perl harness'. -Test results vary depending on your host system and your Cygwin configuration. If a test can pass in some Cygwin setup, it is always attempted and explainable test failures are documented. It is possible for Perl to pass all the tests, but it is more likely that some tests will fail for one of the reasons listed below. -File Permissions -UNIX file permissions are based on sets of mode bits for {read,write,execute} for each {user,group,other}. By default Cygwin only tracks the Win32 read-only attribute represented as the UNIX file user write bit (files are always readable, files are executable if they have a .{com,bat,exe} extension or begin with #!, directories are always readable and executable). On WinNT with the ntea CYGWIN setting, the additional mode bits are stored as extended file attributes. On WinNT with the ntsec CYGWIN setting, permissions use the standard WinNT security descriptors and access control lists. Without one of these options, these tests will fail: - Failed Test List of failed - ------------------------------------ - io/fs.t 5, 7, 9-10 - lib/anydbm.t 2 - lib/db-btree.t 20 - lib/db-hash.t 16 - lib/db-recno.t 18 - lib/gdbm.t 2 - lib/ndbm.t 2 - lib/odbm.t 2 - lib/sdbm.t 2 - op/stat.t 9, 20 (.tmp not an executable extension) -Hard Links -FAT partitions do not support hard links (whereas NTFS does), in which case Cygwin implements link() by copying the file. On remote (network) drives Cygwin's stat() always sets st_nlink to 1, so the link count for remote directories and files is not available. In either case, these tests will fail: - Failed Test List of failed - ------------------------------------ - io/fs.t 4 - op/stat.t 3 -Filetime Granularity -On FAT partitions the filetime granularity is 2 seconds. The following test will fail: - Failed Test List of failed - ------------------------------------ - io/fs.t 18 -Tainting Checks -When Perl is running in taint mode, $ENV{PATH} is considered tainted and not used, so DLLs not in the default system directories will not be found. While the tests are running you will see warnings popup from the system with messages like: - Win9x - Error Starting Program - A required .DLL file, CYGWIN1.DLL, was not found - WinNT - perl.exe - Unable to Locate DLL - The dynamic link library cygwin1.dll could not be found in the - specified path ... -Just click OK and ignore them. When running `make test', 2 popups occur. During `./perl harness', 4 popups occur. Also, these tests will fail: - Failed Test List of failed - ------------------------------------ - op/taint.t 1, 3, 31, 37 -Alternatively, you can copy cygwin1.dll into the directory where the tests run: - cp /bin/cygwin1.dll t -or one of the Windows system directories (although, this is not recommended). -/etc/group -Cygwin does not require /etc/group, in which case the op/grent.t test will be skipped. The check performed by op/grent.t expects to see entries that use the members field, otherwise this test will fail: - Failed Test List of failed - ------------------------------------ - op/grent.t 1 -Script Portability -Cygwin does an outstanding job of providing UNIX-like semantics on top of Win32 systems. However, in addition to the items noted above, there are some differences that you should know about. This is a very brief guide to portability, more information can be found in the Cygwin documentation. -Pathnames -Cygwin pathnames can be separated by forward (/) or backward (\) slashes. They may also begin with drive letters (C:) or Universal Naming Codes (//UNC). DOS device names (aux, con, prn, com*, lpt?, nul) are invalid as base filenames. However, they can be used in extensions (e.g., hello.aux). Names may contain all printable characters except these: - : * ? " < > | -File names are case insensitive, but case preserving. A pathname that contains a backslash or drive letter is a Win32 pathname (and not subject to the translations applied to POSIX style pathnames). -Text/Binary -When a file is opened it is in either text or binary mode. In text mode a file is subject to CR/LF/Ctrl-Z translations. With Cygwin, the default mode for an open() is determined by the mode of the mount that underlies the file. Perl provides a binmode() function to set binary mode on files that otherwise would be treated as text. sysopen() with the O_TEXT flag sets text mode on files that otherwise would be treated as binary: - sysopen(FOO, "bar", O_WRONLY|O_CREAT|O_TEXT) -lseek(), tell() and sysseek() only work with files opened in binary mode. -The text/binary issue is covered at length in the Cygwin documentation. -.exe -The Cygwin stat(), lstat() and readlink() functions make the .exe extension transparent by looking for foo.exe when you ask for foo (unless a foo also exists). Cygwin does not require a .exe extension, but gcc adds it automatically when building a program. However, when accessing an executable as a normal file (e.g., cp in a makefile) the .exe is not transparent. The install included with Cygwin automatically appends a .exe when necessary. -chown() -On WinNT chown() can change a file's user and group IDs. On Win9x chown() is a no-op, although this is appropriate since there is no security model. -Miscellaneous -File locking using the F_GETLK command to fcntl() is a stub that returns ENOSYS. -Win9x can not rename() an open file (although WinNT can). -The Cygwin chroot() implementation has holes (it can not restrict file access by native Win32 programs). -INSTALL -This will install Perl, including man pages. - make install | tee log.make-install -NOTE: If STDERR is redirected `make install' will not prompt you to install perl into /usr/bin. -You may need to be Administrator to run `make install'. If you are not, you must have write access to the directories in question. -Information on installing the Perl documentation in HTML format can be found in the INSTALL document. -MANIFEST -These are the files in the Perl release that contain references to Cygwin. These very brief notes attempt to explain the reason for all conditional code. Hopefully, keeping this up to date will allow the Cygwin port to be kept as clean as possible. -Documentation - INSTALL README.cygwin README.win32 MANIFEST - Changes Changes5.005 Changes5.004 Changes5.6 - pod/perl.pod pod/perlport.pod pod/perlfaq3.pod - pod/perldelta.pod pod/perl5004delta.pod pod/perl56delta.pod - pod/perlhist.pod pod/perlmodlib.pod pod/buildtoc.PL pod/perltoc.pod -Build, Configure, Make, Install - cygwin/Makefile.SHs - cygwin/ld2.in - cygwin/perlld.in - ext/IPC/SysV/hints/cygwin.pl - ext/NDBM_File/hints/cygwin.pl - ext/ODBM_File/hints/cygwin.pl - hints/cygwin.sh - Configure - help finding hints from uname, - shared libperl required for dynamic loading - Makefile.SH - linklibperl - Porting/patchls - cygwin in port list - installman - man pages with :: translated to . - installperl - install dll/ld2/perlld, install to pods - makedepend.SH - uwinfix -Tests - t/io/tell.t - binmode - t/lib/b.t - ignore Cwd from os_extras - t/lib/glob-basic.t - Win32 directory list access differs from read mode - t/op/magic.t - $^X/symlink WORKAROUND, s/.exe// - t/op/stat.t - no /dev, skip Win32 ftCreationTime quirk - (cache manager sometimes preserves ctime of file - previously created and deleted), no -u (setuid) -Compiled Perl Source - EXTERN.h - __declspec(dllimport) - XSUB.h - __declspec(dllexport) - cygwin/cygwin.c - os_extras (getcwd, spawn) - perl.c - os_extras - perl.h - binmode - doio.c - win9x can not rename a file when it is open - pp_sys.c - do not define h_errno, pp_system with spawn - util.c - use setenv -Compiled Module Source - ext/POSIX/POSIX.xs - tzname defined externally - ext/SDBM_File/sdbm/pair.c - - EXTCONST needs to be redefined from EXTERN.h - ext/SDBM_File/sdbm/sdbm.c - - binary open -Perl Modules/Scripts - lib/Cwd.pm - hook to internal Cwd::cwd - lib/ExtUtils/MakeMaker.pm - - require MM_Cygwin.pm - lib/ExtUtils/MM_Cygwin.pm - - canonpath, cflags, manifypods, perl_archive - lib/File/Find.pm - on remote drives stat() always sets st_nlink to 1 - lib/File/Spec/Unix.pm - preserve //unc - lib/File/Temp.pm - no directory sticky bit - lib/perl5db.pl - use stdin not /dev/tty - utils/perldoc.PL - version comment -BUGS -When make starts, it warns about overriding commands for perlmain.o. -`make clean' does not remove library .def or .exe.stackdump files. -The ld2 script contains references to the source directory. You should change these to $installbin after `make install'. -Support for swapping real and effective user and group IDs is incomplete. On WinNT Cygwin provides setuid(), seteuid(), setgid() and setegid(). However, additional Cygwin calls for manipulating WinNT access tokens and security contexts are required. -When building DLLs, `dllwrap --export-all-symbols' is used to export global symbols. It might be better to generate an explicit .def file (see makedef.pl). Also, DLLs can now be build with `gcc -shared'. -AUTHORS -Charles Wilson <cwilson@ece.gatech.edu>, Eric Fifer <egf7@columbia.edu>, alexander smishlajev <als@turnhere.com>, Steven Morlock <newspost@morlock.net>, Sebastien Barre <Sebastien.Barre@utc.fr>, Teun Burgers <burgers@ecn.nl>. -HISTORY -Last updated: 9 November 2000 diff --git a/lib/Pod/Simple/t/perlfaq.pod b/lib/Pod/Simple/t/perlfaq.pod deleted file mode 100644 index 49cae1a209..0000000000 --- a/lib/Pod/Simple/t/perlfaq.pod +++ /dev/null @@ -1,814 +0,0 @@ -=head1 NAME - -perlfaq3 - Programming Tools ($Revision: 1.38 $, $Date: 1999/05/23 16:08:30 $) - -=head1 DESCRIPTION - -This section of the FAQ answers questions related to programmer tools -and programming support. - -=head2 How do I do (anything)? - -Have you looked at CPAN (see L<perlfaq2>)? The chances are that -someone has already written a module that can solve your problem. -Have you read the appropriate man pages? Here's a brief index: - - Basics perldata, perlvar, perlsyn, perlop, perlsub - Execution perlrun, perldebug - Functions perlfunc - Objects perlref, perlmod, perlobj, perltie - Data Structures perlref, perllol, perldsc - Modules perlmod, perlmodlib, perlsub - Regexes perlre, perlfunc, perlop, perllocale - Moving to perl5 perltrap, perl - Linking w/C perlxstut, perlxs, perlcall, perlguts, perlembed - Various http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html - (not a man-page but still useful) - -A crude table of contents for the Perl man page set is found in L<perltoc>. - -=head2 How can I use Perl interactively? - -The typical approach uses the Perl debugger, described in the -perldebug(1) man page, on an ``empty'' program, like this: - - perl -de 42 - -Now just type in any legal Perl code, and it will be immediately -evaluated. You can also examine the symbol table, get stack -backtraces, check variable values, set breakpoints, and other -operations typically found in symbolic debuggers. - -=head2 Is there a Perl shell? - -In general, no. The Shell.pm module (distributed with Perl) makes -Perl try commands which aren't part of the Perl language as shell -commands. perlsh from the source distribution is simplistic and -uninteresting, but may still be what you want. - -=head2 How do I debug my Perl programs? - -Have you tried C<use warnings> or used C<-w>? They enable warnings -to detect dubious practices. - -Have you tried C<use strict>? It prevents you from using symbolic -references, makes you predeclare any subroutines that you call as bare -words, and (probably most importantly) forces you to predeclare your -variables with C<my>, C<our>, or C<use vars>. - -Did you check the return values of each and every system call? The operating -system (and thus Perl) tells you whether they worked, and if not -why. - - open(FH, "> /etc/cantwrite") - or die "Couldn't write to /etc/cantwrite: $!\n"; - -Did you read L<perltrap>? It's full of gotchas for old and new Perl -programmers and even has sections for those of you who are upgrading -from languages like I<awk> and I<C>. - -Have you tried the Perl debugger, described in L<perldebug>? You can -step through your program and see what it's doing and thus work out -why what it's doing isn't what it should be doing. - -=head2 How do I profile my Perl programs? - -You should get the Devel::DProf module from the standard distribution -(or separately on CPAN) and also use Benchmark.pm from the standard -distribution. The Benchmark module lets you time specific portions of -your code, while Devel::DProf gives detailed breakdowns of where your -code spends its time. - -Here's a sample use of Benchmark: - - use Benchmark; - - @junk = `cat /etc/motd`; - $count = 10_000; - - timethese($count, { - 'map' => sub { my @a = @junk; - map { s/a/b/ } @a; - return @a - }, - 'for' => sub { my @a = @junk; - local $_; - for (@a) { s/a/b/ }; - return @a }, - }); - -This is what it prints (on one machine--your results will be dependent -on your hardware, operating system, and the load on your machine): - - Benchmark: timing 10000 iterations of for, map... - for: 4 secs ( 3.97 usr 0.01 sys = 3.98 cpu) - map: 6 secs ( 4.97 usr 0.00 sys = 4.97 cpu) - -Be aware that a good benchmark is very hard to write. It only tests the -data you give it and proves little about the differing complexities -of contrasting algorithms. - -=head2 How do I cross-reference my Perl programs? - -The B::Xref module, shipped with the new, alpha-release Perl compiler -(not the general distribution prior to the 5.005 release), can be used -to generate cross-reference reports for Perl programs. - - perl -MO=Xref[,OPTIONS] scriptname.plx - -=head2 Is there a pretty-printer (formatter) for Perl? - -There is no program that will reformat Perl as much as indent(1) does -for C. The complex feedback between the scanner and the parser (this -feedback is what confuses the vgrind and emacs programs) makes it -challenging at best to write a stand-alone Perl parser. - -Of course, if you simply follow the guidelines in L<perlstyle>, you -shouldn't need to reformat. The habit of formatting your code as you -write it will help prevent bugs. Your editor can and should help you -with this. The perl-mode or newer cperl-mode for emacs can provide -remarkable amounts of help with most (but not all) code, and even less -programmable editors can provide significant assistance. Tom swears -by the following settings in vi and its clones: - - set ai sw=4 - map! ^O {^M}^[O^T - -Now put that in your F<.exrc> file (replacing the caret characters -with control characters) and away you go. In insert mode, ^T is -for indenting, ^D is for undenting, and ^O is for blockdenting-- -as it were. If you haven't used the last one, you're missing -a lot. A more complete example, with comments, can be found at -http://www.perl.com/CPAN-local/authors/id/TOMC/scripts/toms.exrc.gz - -If you are used to using the I<vgrind> program for printing out nice code -to a laser printer, you can take a stab at this using -http://www.perl.com/CPAN/doc/misc/tips/working.vgrind.entry, but the -results are not particularly satisfying for sophisticated code. - -The a2ps at http://www.infres.enst.fr/%7Edemaille/a2ps/ does lots of things -related to generating nicely printed output of documents. - -=head2 Is there a ctags for Perl? - -There's a simple one at -http://www.perl.com/CPAN/authors/id/TOMC/scripts/ptags.gz which may do -the trick. And if not, it's easy to hack into what you want. - -=head2 Is there an IDE or Windows Perl Editor? - -Perl programs are just plain text, so any editor will do. - -If you're on Unix, you already have an IDE--Unix itself. The UNIX -philosophy is the philosophy of several small tools that each do one -thing and do it well. It's like a carpenter's toolbox. - -If you want a Windows IDE, check the following: - -=over 4 - -=item CodeMagicCD - -http://www.codemagiccd.com/ - -=item Komodo - -ActiveState's cross-platform, multi-language IDE has Perl support, -including a regular expression debugger and remote debugging -(http://www.ActiveState.com/Products/Komodo/index.html). -(Visual Perl, a Visual Studio.NET plug-in is currently (early 2001) -in beta (http://www.ActiveState.com/Products/VisualPerl/index.html)). - -=item The Object System - -(http://www.castlelink.co.uk/object_system/) is a Perl web -applications development IDE. - -=item PerlBuilder - -(http://www.solutionsoft.com/perl.htm) is an integrated development -environment for Windows that supports Perl development. - -=item Perl code magic - -(http://www.petes-place.com/codemagic.html). - -=item visiPerl+ - -http://helpconsulting.net/visiperl/, from Help Consulting. - -=back - -For editors: if you're on Unix you probably have vi or a vi clone already, -and possibly an emacs too, so you may not need to download anything. -In any emacs the cperl-mode (M-x cperl-mode) gives you perhaps the -best available Perl editing mode in any editor. - -For Windows editors: you can download an Emacs - -=over 4 - -=item GNU Emacs - -http://www.gnu.org/software/emacs/windows/ntemacs.html - -=item MicroEMACS - -http://members.nbci.com/uemacs/ - -=item XEmacs - -http://www.xemacs.org/Download/index.html - -=back - -or a vi clone such as - -=over 4 - -=item Elvis - -ftp://ftp.cs.pdx.edu/pub/elvis/ http://www.fh-wedel.de/elvis/ - -=item Vile - -http://vile.cx/ - -=item Vim - -http://www.vim.org/ - -win32: http://www.cs.vu.nl/%7Etmgil/vi.html - -=back - -For vi lovers in general, Windows or elsewhere: -http://www.thomer.com/thomer/vi/vi.html. - -nvi (http://www.bostic.com/vi/, available from CPAN in src/misc/) is -yet another vi clone, unfortunately not available for Windows, but in -UNIX platforms you might be interested in trying it out, firstly because -strictly speaking it is not a vi clone, it is the real vi, or the new -incarnation of it, and secondly because you can embed Perl inside it -to use Perl as the scripting language. nvi is not alone in this, -though: at least also vim and vile offer an embedded Perl. - -The following are Win32 multilanguage editor/IDESs that support Perl: - -=over 4 - -=item Codewright - -http://www.starbase.com/ - -=item MultiEdit - -http://www.MultiEdit.com/ - -=item SlickEdit - -http://www.slickedit.com/ - -=back - -There is also a toyedit Text widget based editor written in Perl -that is distributed with the Tk module on CPAN. The ptkdb -(http://world.std.com/~aep/ptkdb/) is a Perl/tk based debugger that -acts as a development environment of sorts. Perl Composer -(http://perlcomposer.sourceforge.net/vperl.html) is an IDE for Perl/Tk -GUI creation. - -In addition to an editor/IDE you might be interested in a more -powerful shell environment for Win32. Your options include - -=over 4 - -=item Bash - -from the Cygwin package (http://sources.redhat.com/cygwin/) - -=item Ksh - -from the MKS Toolkit (http://www.mks.com/), or the Bourne shell of -the U/WIN environment (http://www.research.att.com/sw/tools/uwin/) - -=item Tcsh - -ftp://ftp.astron.com/pub/tcsh/, see also -http://www.primate.wisc.edu/software/csh-tcsh-book/ - -=item Zsh - -ftp://ftp.blarg.net/users/amol/zsh/, see also http://www.zsh.org/ - -=back - -MKS and U/WIN are commercial (U/WIN is free for educational and -research purposes), Cygwin is covered by the GNU Public License (but -that shouldn't matter for Perl use). The Cygwin, MKS, and U/WIN all -contain (in addition to the shells) a comprehensive set of standard -UNIX toolkit utilities. - -If you're transferring text files between Unix and Windows using FTP -be sure to transfer them in ASCII mode so the ends of lines are -appropriately converted. - -On Mac OS the MacPerl Application comes with a simple 32k text editor -that behaves like a rudimentary IDE. In contrast to the MacPerl Application -the MPW Perl tool can make use of the MPW Shell itself as an editor (with -no 32k limit). - -=over 4 - -=item BBEdit and BBEdit Lite - -are text editors for Mac OS that have a Perl sensitivity mode -(http://web.barebones.com/). - -=item Alpha - -is an editor, written and extensible in Tcl, that nonetheless has -built in support for several popular markup and programming languages -including Perl and HTML (http://alpha.olm.net/). - -=back - -Pepper and Pe are programming language sensitive text editors for Mac -OS X and BeOS respectively (http://www.hekkelman.com/). - -=head2 Where can I get Perl macros for vi? - -For a complete version of Tom Christiansen's vi configuration file, -see http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/toms.exrc.gz , -the standard benchmark file for vi emulators. The file runs best with nvi, -the current version of vi out of Berkeley, which incidentally can be built -with an embedded Perl interpreter--see http://www.perl.com/CPAN/src/misc. - -=head2 Where can I get perl-mode for emacs? - -Since Emacs version 19 patchlevel 22 or so, there have been both a -perl-mode.el and support for the Perl debugger built in. These should -come with the standard Emacs 19 distribution. - -In the Perl source directory, you'll find a directory called "emacs", -which contains a cperl-mode that color-codes keywords, provides -context-sensitive help, and other nifty things. - -Note that the perl-mode of emacs will have fits with C<"main'foo"> -(single quote), and mess up the indentation and highlighting. You -are probably using C<"main::foo"> in new Perl code anyway, so this -shouldn't be an issue. - -=head2 How can I use curses with Perl? - -The Curses module from CPAN provides a dynamically loadable object -module interface to a curses library. A small demo can be found at the -directory http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/rep; -this program repeats a command and updates the screen as needed, rendering -B<rep ps axu> similar to B<top>. - -=head2 How can I use X or Tk with Perl? - -Tk is a completely Perl-based, object-oriented interface to the Tk toolkit -that doesn't force you to use Tcl just to get at Tk. Sx is an interface -to the Athena Widget set. Both are available from CPAN. See the -directory http://www.perl.com/CPAN/modules/by-category/08_User_Interfaces/ - -Invaluable for Perl/Tk programming are the Perl/Tk FAQ at -http://w4.lns.cornell.edu/%7Epvhp/ptk/ptkTOC.html , the Perl/Tk Reference -Guide available at -http://www.perl.com/CPAN-local/authors/Stephen_O_Lidie/ , and the -online manpages at -http://www-users.cs.umn.edu/%7Eamundson/perl/perltk/toc.html . - -=head2 How can I generate simple menus without using CGI or Tk? - -The http://www.perl.com/CPAN/authors/id/SKUNZ/perlmenu.v4.0.tar.gz -module, which is curses-based, can help with this. - -=head2 What is undump? - -See the next question on ``How can I make my Perl program run faster?'' - -=head2 How can I make my Perl program run faster? - -The best way to do this is to come up with a better algorithm. This -can often make a dramatic difference. Jon Bentley's book -``Programming Pearls'' (that's not a misspelling!) has some good tips -on optimization, too. Advice on benchmarking boils down to: benchmark -and profile to make sure you're optimizing the right part, look for -better algorithms instead of microtuning your code, and when all else -fails consider just buying faster hardware. - -A different approach is to autoload seldom-used Perl code. See the -AutoSplit and AutoLoader modules in the standard distribution for -that. Or you could locate the bottleneck and think about writing just -that part in C, the way we used to take bottlenecks in C code and -write them in assembler. Similar to rewriting in C, -modules that have critical sections can be written in C (for instance, the -PDL module from CPAN). - -In some cases, it may be worth it to use the backend compiler to -produce byte code (saving compilation time) or compile into C, which -will certainly save compilation time and sometimes a small amount (but -not much) execution time. See the question about compiling your Perl -programs for more on the compiler--the wins aren't as obvious as you'd -hope. - -If you're currently linking your perl executable to a shared I<libc.so>, -you can often gain a 10-25% performance benefit by rebuilding it to -link with a static libc.a instead. This will make a bigger perl -executable, but your Perl programs (and programmers) may thank you for -it. See the F<INSTALL> file in the source distribution for more -information. - -Unsubstantiated reports allege that Perl interpreters that use sfio -outperform those that don't (for I/O intensive applications). To try -this, see the F<INSTALL> file in the source distribution, especially -the ``Selecting File I/O mechanisms'' section. - -The undump program was an old attempt to speed up your Perl program -by storing the already-compiled form to disk. This is no longer -a viable option, as it only worked on a few architectures, and -wasn't a good solution anyway. - -=head2 How can I make my Perl program take less memory? - -When it comes to time-space tradeoffs, Perl nearly always prefers to -throw memory at a problem. Scalars in Perl use more memory than -strings in C, arrays take more than that, and hashes use even more. While -there's still a lot to be done, recent releases have been addressing -these issues. For example, as of 5.004, duplicate hash keys are -shared amongst all hashes using them, so require no reallocation. - -In some cases, using substr() or vec() to simulate arrays can be -highly beneficial. For example, an array of a thousand booleans will -take at least 20,000 bytes of space, but it can be turned into one -125-byte bit vector--a considerable memory savings. The standard -Tie::SubstrHash module can also help for certain types of data -structure. If you're working with specialist data structures -(matrices, for instance) modules that implement these in C may use -less memory than equivalent Perl modules. - -Another thing to try is learning whether your Perl was compiled with -the system malloc or with Perl's builtin malloc. Whichever one it -is, try using the other one and see whether this makes a difference. -Information about malloc is in the F<INSTALL> file in the source -distribution. You can find out whether you are using perl's malloc by -typing C<perl -V:usemymalloc>. - -=head2 Is it unsafe to return a pointer to local data? - -No, Perl's garbage collection system takes care of this. - - sub makeone { - my @a = ( 1 .. 10 ); - return \@a; - } - - for $i ( 1 .. 10 ) { - push @many, makeone(); - } - - print $many[4][5], "\n"; - - print "@many\n"; - -=head2 How can I free an array or hash so my program shrinks? - -You can't. On most operating systems, memory allocated to a program -can never be returned to the system. That's why long-running programs -sometimes re-exec themselves. Some operating systems (notably, -FreeBSD and Linux) allegedly reclaim large chunks of memory that is no -longer used, but it doesn't appear to happen with Perl (yet). The Mac -appears to be the only platform that will reliably (albeit, slowly) -return memory to the OS. - -We've had reports that on Linux (Redhat 5.1) on Intel, C<undef -$scalar> will return memory to the system, while on Solaris 2.6 it -won't. In general, try it yourself and see. - -However, judicious use of my() on your variables will help make sure -that they go out of scope so that Perl can free up that space for -use in other parts of your program. A global variable, of course, never -goes out of scope, so you can't get its space automatically reclaimed, -although undef()ing and/or delete()ing it will achieve the same effect. -In general, memory allocation and de-allocation isn't something you can -or should be worrying about much in Perl, but even this capability -(preallocation of data types) is in the works. - -=head2 How can I make my CGI script more efficient? - -Beyond the normal measures described to make general Perl programs -faster or smaller, a CGI program has additional issues. It may be run -several times per second. Given that each time it runs it will need -to be re-compiled and will often allocate a megabyte or more of system -memory, this can be a killer. Compiling into C B<isn't going to help -you> because the process start-up overhead is where the bottleneck is. - -There are two popular ways to avoid this overhead. One solution -involves running the Apache HTTP server (available from -http://www.apache.org/) with either of the mod_perl or mod_fastcgi -plugin modules. - -With mod_perl and the Apache::Registry module (distributed with -mod_perl), httpd will run with an embedded Perl interpreter which -pre-compiles your script and then executes it within the same address -space without forking. The Apache extension also gives Perl access to -the internal server API, so modules written in Perl can do just about -anything a module written in C can. For more on mod_perl, see -http://perl.apache.org/ - -With the FCGI module (from CPAN) and the mod_fastcgi -module (available from http://www.fastcgi.com/) each of your Perl -programs becomes a permanent CGI daemon process. - -Both of these solutions can have far-reaching effects on your system -and on the way you write your CGI programs, so investigate them with -care. - -See http://www.perl.com/CPAN/modules/by-category/15_World_Wide_Web_HTML_HTTP_CGI/ . - -A non-free, commercial product, ``The Velocity Engine for Perl'', -(http://www.binevolve.com/ or http://www.binevolve.com/velocigen/ ) -might also be worth looking at. It will allow you to increase the -performance of your Perl programs, running programs up to 25 times -faster than normal CGI Perl when running in persistent Perl mode or 4 -to 5 times faster without any modification to your existing CGI -programs. Fully functional evaluation copies are available from the -web site. - -=head2 How can I hide the source for my Perl program? - -Delete it. :-) Seriously, there are a number of (mostly -unsatisfactory) solutions with varying levels of ``security''. - -First of all, however, you I<can't> take away read permission, because -the source code has to be readable in order to be compiled and -interpreted. (That doesn't mean that a CGI script's source is -readable by people on the web, though--only by people with access to -the filesystem.) So you have to leave the permissions at the socially -friendly 0755 level. - -Some people regard this as a security problem. If your program does -insecure things and relies on people not knowing how to exploit those -insecurities, it is not secure. It is often possible for someone to -determine the insecure things and exploit them without viewing the -source. Security through obscurity, the name for hiding your bugs -instead of fixing them, is little security indeed. - -You can try using encryption via source filters (Filter::* from CPAN), -but any decent programmer will be able to decrypt it. You can try using -the byte code compiler and interpreter described below, but the curious -might still be able to de-compile it. You can try using the native-code -compiler described below, but crackers might be able to disassemble it. -These pose varying degrees of difficulty to people wanting to get at -your code, but none can definitively conceal it (true of every -language, not just Perl). - -If you're concerned about people profiting from your code, then the -bottom line is that nothing but a restrictive license will give you -legal security. License your software and pepper it with threatening -statements like ``This is unpublished proprietary software of XYZ Corp. -Your access to it does not give you permission to use it blah blah -blah.'' We are not lawyers, of course, so you should see a lawyer if -you want to be sure your license's wording will stand up in court. - -=head2 How can I compile my Perl program into byte code or C? - -Malcolm Beattie has written a multifunction backend compiler, -available from CPAN, that can do both these things. It is included -in the perl5.005 release, but is still considered experimental. -This means it's fun to play with if you're a programmer but not -really for people looking for turn-key solutions. - -Merely compiling into C does not in and of itself guarantee that your -code will run very much faster. That's because except for lucky cases -where a lot of native type inferencing is possible, the normal Perl -run-time system is still present and so your program will take just as -long to run and be just as big. Most programs save little more than -compilation time, leaving execution no more than 10-30% faster. A few -rare programs actually benefit significantly (even running several times -faster), but this takes some tweaking of your code. - -You'll probably be astonished to learn that the current version of the -compiler generates a compiled form of your script whose executable is -just as big as the original perl executable, and then some. That's -because as currently written, all programs are prepared for a full -eval() statement. You can tremendously reduce this cost by building a -shared I<libperl.so> library and linking against that. See the -F<INSTALL> podfile in the Perl source distribution for details. If -you link your main perl binary with this, it will make it minuscule. -For example, on one author's system, F</usr/bin/perl> is only 11k in -size! - -In general, the compiler will do nothing to make a Perl program smaller, -faster, more portable, or more secure. In fact, it can make your -situation worse. The executable will be bigger, your VM system may take -longer to load the whole thing, the binary is fragile and hard to fix, -and compilation never stopped software piracy in the form of crackers, -viruses, or bootleggers. The real advantage of the compiler is merely -packaging, and once you see the size of what it makes (well, unless -you use a shared I<libperl.so>), you'll probably want a complete -Perl install anyway. - -=head2 How can I compile Perl into Java? - -You can also integrate Java and Perl with the -Perl Resource Kit from O'Reilly and Associates. See -http://www.oreilly.com/catalog/prkunix/ . - -Perl 5.6 comes with Java Perl Lingo, or JPL. JPL, still in -development, allows Perl code to be called from Java. See jpl/README -in the Perl source tree. - -=head2 How can I get C<#!perl> to work on [MS-DOS,NT,...]? - -For OS/2 just use - - extproc perl -S -your_switches - -as the first line in C<*.cmd> file (C<-S> due to a bug in cmd.exe's -`extproc' handling). For DOS one should first invent a corresponding -batch file and codify it in C<ALTERNATIVE_SHEBANG> (see the -F<INSTALL> file in the source distribution for more information). - -The Win95/NT installation, when using the ActiveState port of Perl, -will modify the Registry to associate the C<.pl> extension with the -perl interpreter. If you install another port, perhaps even building -your own Win95/NT Perl from the standard sources by using a Windows port -of gcc (e.g., with cygwin or mingw32), then you'll have to modify -the Registry yourself. In addition to associating C<.pl> with the -interpreter, NT people can use: C<SET PATHEXT=%PATHEXT%;.PL> to let them -run the program C<install-linux.pl> merely by typing C<install-linux>. - -Macintosh Perl programs will have the appropriate Creator and -Type, so that double-clicking them will invoke the Perl application. - -I<IMPORTANT!>: Whatever you do, PLEASE don't get frustrated, and just -throw the perl interpreter into your cgi-bin directory, in order to -get your programs working for a web server. This is an EXTREMELY big -security risk. Take the time to figure out how to do it correctly. - -=head2 Can I write useful Perl programs on the command line? - -Yes. Read L<perlrun> for more information. Some examples follow. -(These assume standard Unix shell quoting rules.) - - # sum first and last fields - perl -lane 'print $F[0] + $F[-1]' * - - # identify text files - perl -le 'for(@ARGV) {print if -f && -T _}' * - - # remove (most) comments from C program - perl -0777 -pe 's{/\*.*?\*/}{}gs' foo.c - - # make file a month younger than today, defeating reaper daemons - perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' * - - # find first unused uid - perl -le '$i++ while getpwuid($i); print $i' - - # display reasonable manpath - echo $PATH | perl -nl -072 -e ' - s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}' - -OK, the last one was actually an Obfuscated Perl Contest entry. :-) - -=head2 Why don't Perl one-liners work on my DOS/Mac/VMS system? - -The problem is usually that the command interpreters on those systems -have rather different ideas about quoting than the Unix shells under -which the one-liners were created. On some systems, you may have to -change single-quotes to double ones, which you must I<NOT> do on Unix -or Plan9 systems. You might also have to change a single % to a %%. - -For example: - - # Unix - perl -e 'print "Hello world\n"' - - # DOS, etc. - perl -e "print \"Hello world\n\"" - - # Mac - print "Hello world\n" - (then Run "Myscript" or Shift-Command-R) - - # VMS - perl -e "print ""Hello world\n""" - -The problem is that none of these examples are reliable: they depend on the -command interpreter. Under Unix, the first two often work. Under DOS, -it's entirely possible that neither works. If 4DOS was the command shell, -you'd probably have better luck like this: - - perl -e "print <Ctrl-x>"Hello world\n<Ctrl-x>"" - -Under the Mac, it depends which environment you are using. The MacPerl -shell, or MPW, is much like Unix shells in its support for several -quoting variants, except that it makes free use of the Mac's non-ASCII -characters as control characters. - -Using qq(), q(), and qx(), instead of "double quotes", 'single -quotes', and `backticks`, may make one-liners easier to write. - -There is no general solution to all of this. It is a mess, pure and -simple. Sucks to be away from Unix, huh? :-) - -[Some of this answer was contributed by Kenneth Albanowski.] - -=head2 Where can I learn about CGI or Web programming in Perl? - -For modules, get the CGI or LWP modules from CPAN. For textbooks, -see the two especially dedicated to web stuff in the question on -books. For problems and questions related to the web, like ``Why -do I get 500 Errors'' or ``Why doesn't it run from the browser right -when it runs fine on the command line'', see these sources: - - WWW Security FAQ - http://www.w3.org/Security/Faq/ - - Web FAQ - http://www.boutell.com/faq/ - - CGI FAQ - http://www.webthing.com/tutorials/cgifaq.html - - HTTP Spec - http://www.w3.org/pub/WWW/Protocols/HTTP/ - - HTML Spec - http://www.w3.org/TR/REC-html40/ - http://www.w3.org/pub/WWW/MarkUp/ - - CGI Spec - http://www.w3.org/CGI/ - - CGI Security FAQ - http://www.go2net.com/people/paulp/cgi-security/safe-cgi.txt - -=head2 Where can I learn about object-oriented Perl programming? - -A good place to start is L<perltoot>, and you can use L<perlobj>, -L<perlboot>, and L<perlbot> for reference. Perltoot didn't come out -until the 5.004 release; you can get a copy (in pod, html, or -postscript) from http://www.perl.com/CPAN/doc/FMTEYEWTK/ . - -=head2 Where can I learn about linking C with Perl? [h2xs, xsubpp] - -If you want to call C from Perl, start with L<perlxstut>, -moving on to L<perlxs>, L<xsubpp>, and L<perlguts>. If you want to -call Perl from C, then read L<perlembed>, L<perlcall>, and -L<perlguts>. Don't forget that you can learn a lot from looking at -how the authors of existing extension modules wrote their code and -solved their problems. - -=head2 I've read perlembed, perlguts, etc., but I can't embed perl in -my C program; what am I doing wrong? - -Download the ExtUtils::Embed kit from CPAN and run `make test'. If -the tests pass, read the pods again and again and again. If they -fail, see L<perlbug> and send a bug report with the output of -C<make test TEST_VERBOSE=1> along with C<perl -V>. - -=head2 When I tried to run my script, I got this message. What does it -mean? - -A complete list of Perl's error messages and warnings with explanatory -text can be found in L<perldiag>. You can also use the splain program -(distributed with Perl) to explain the error messages: - - perl program 2>diag.out - splain [-v] [-p] diag.out - -or change your program to explain the messages for you: - - use diagnostics; - -or - - use diagnostics -verbose; - -=head2 What's MakeMaker? - -This module (part of the standard Perl distribution) is designed to -write a Makefile for an extension module from a Makefile.PL. For more -information, see L<ExtUtils::MakeMaker>. - -=head1 AUTHOR AND COPYRIGHT - -Copyright (c) 1997-1999 Tom Christiansen and Nathan Torkington. -All rights reserved. - -When included as an integrated part of the Standard Distribution -of Perl or of its documentation (printed or otherwise), this works is -covered under Perl's Artistic License. For separate distributions of -all or part of this FAQ outside of that, see L<perlfaq>. - -Irrespective of its distribution, all code examples here are in the public -domain. You are permitted and encouraged to use this code and any -derivatives thereof in your own programs for fun or for profit as you -see fit. A simple comment in the code giving credit to the FAQ would -be courteous but is not required. diff --git a/lib/Pod/Simple/t/perlfaqo.txt b/lib/Pod/Simple/t/perlfaqo.txt deleted file mode 100644 index 11d73fc9b8..0000000000 --- a/lib/Pod/Simple/t/perlfaqo.txt +++ /dev/null @@ -1,266 +0,0 @@ -NAME -perlfaq3 - Programming Tools ($Revision: 1.38 $, $Date: 1999/05/23 16:08:30 $) -DESCRIPTION -This section of the FAQ answers questions related to programmer tools and programming support. -How do I do (anything)? -Have you looked at CPAN (see perlfaq2)? The chances are that someone has already written a module that can solve your problem. Have you read the appropriate man pages? Here's a brief index: - Basics perldata, perlvar, perlsyn, perlop, perlsub - Execution perlrun, perldebug - Functions perlfunc - Objects perlref, perlmod, perlobj, perltie - Data Structures perlref, perllol, perldsc - Modules perlmod, perlmodlib, perlsub - Regexes perlre, perlfunc, perlop, perllocale - Moving to perl5 perltrap, perl - Linking w/C perlxstut, perlxs, perlcall, perlguts, perlembed - Various http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html - (not a man-page but still useful) -A crude table of contents for the Perl man page set is found in perltoc. -How can I use Perl interactively? -The typical approach uses the Perl debugger, described in the perldebug(1) man page, on an ``empty'' program, like this: - perl -de 42 -Now just type in any legal Perl code, and it will be immediately evaluated. You can also examine the symbol table, get stack backtraces, check variable values, set breakpoints, and other operations typically found in symbolic debuggers. -Is there a Perl shell? -In general, no. The Shell.pm module (distributed with Perl) makes Perl try commands which aren't part of the Perl language as shell commands. perlsh from the source distribution is simplistic and uninteresting, but may still be what you want. -How do I debug my Perl programs? -Have you tried use warnings or used -w? They enable warnings to detect dubious practices. -Have you tried use strict? It prevents you from using symbolic references, makes you predeclare any subroutines that you call as bare words, and (probably most importantly) forces you to predeclare your variables with my, our, or use vars. -Did you check the return values of each and every system call? The operating system (and thus Perl) tells you whether they worked, and if not why. - open(FH, "> /etc/cantwrite") - or die "Couldn't write to /etc/cantwrite: $!\n"; -Did you read perltrap? It's full of gotchas for old and new Perl programmers and even has sections for those of you who are upgrading from languages like awk and C. -Have you tried the Perl debugger, described in perldebug? You can step through your program and see what it's doing and thus work out why what it's doing isn't what it should be doing. -How do I profile my Perl programs? -You should get the Devel::DProf module from the standard distribution (or separately on CPAN) and also use Benchmark.pm from the standard distribution. The Benchmark module lets you time specific portions of your code, while Devel::DProf gives detailed breakdowns of where your code spends its time. -Here's a sample use of Benchmark: - use Benchmark; - @junk = `cat /etc/motd`; - $count = 10_000; - timethese($count, { - 'map' => sub { my @a = @junk; - map { s/a/b/ } @a; - return @a - }, - 'for' => sub { my @a = @junk; - local $_; - for (@a) { s/a/b/ }; - return @a }, - }); -This is what it prints (on one machine--your results will be dependent on your hardware, operating system, and the load on your machine): - Benchmark: timing 10000 iterations of for, map... - for: 4 secs ( 3.97 usr 0.01 sys = 3.98 cpu) - map: 6 secs ( 4.97 usr 0.00 sys = 4.97 cpu) -Be aware that a good benchmark is very hard to write. It only tests the data you give it and proves little about the differing complexities of contrasting algorithms. -How do I cross-reference my Perl programs? -The B::Xref module, shipped with the new, alpha-release Perl compiler (not the general distribution prior to the 5.005 release), can be used to generate cross-reference reports for Perl programs. - perl -MO=Xref[,OPTIONS] scriptname.plx -Is there a pretty-printer (formatter) for Perl? -There is no program that will reformat Perl as much as indent(1) does for C. The complex feedback between the scanner and the parser (this feedback is what confuses the vgrind and emacs programs) makes it challenging at best to write a stand-alone Perl parser. -Of course, if you simply follow the guidelines in perlstyle, you shouldn't need to reformat. The habit of formatting your code as you write it will help prevent bugs. Your editor can and should help you with this. The perl-mode or newer cperl-mode for emacs can provide remarkable amounts of help with most (but not all) code, and even less programmable editors can provide significant assistance. Tom swears by the following settings in vi and its clones: - set ai sw=4 - map! ^O {^M}^[O^T -Now put that in your .exrc file (replacing the caret characters with control characters) and away you go. In insert mode, ^T is for indenting, ^D is for undenting, and ^O is for blockdenting-- as it were. If you haven't used the last one, you're missing a lot. A more complete example, with comments, can be found at http://www.perl.com/CPAN-local/authors/id/TOMC/scripts/toms.exrc.gz -If you are used to using the vgrind program for printing out nice code to a laser printer, you can take a stab at this using http://www.perl.com/CPAN/doc/misc/tips/working.vgrind.entry, but the results are not particularly satisfying for sophisticated code. -The a2ps at http://www.infres.enst.fr/%7Edemaille/a2ps/ does lots of things related to generating nicely printed output of documents. -Is there a ctags for Perl? -There's a simple one at http://www.perl.com/CPAN/authors/id/TOMC/scripts/ptags.gz which may do the trick. And if not, it's easy to hack into what you want. -Is there an IDE or Windows Perl Editor? -Perl programs are just plain text, so any editor will do. -If you're on Unix, you already have an IDE--Unix itself. The UNIX philosophy is the philosophy of several small tools that each do one thing and do it well. It's like a carpenter's toolbox. -If you want a Windows IDE, check the following: -CodeMagicCD -http://www.codemagiccd.com/ -Komodo -ActiveState's cross-platform, multi-language IDE has Perl support, including a regular expression debugger and remote debugging (http://www.ActiveState.com/Products/Komodo/index.html). (Visual Perl, a Visual Studio.NET plug-in is currently (early 2001) in beta (http://www.ActiveState.com/Products/VisualPerl/index.html)). -The Object System -(http://www.castlelink.co.uk/object_system/) is a Perl web applications development IDE. -PerlBuilder -(http://www.solutionsoft.com/perl.htm) is an integrated development environment for Windows that supports Perl development. -Perl code magic -(http://www.petes-place.com/codemagic.html). -visiPerl+ -http://helpconsulting.net/visiperl/, from Help Consulting. -For editors: if you're on Unix you probably have vi or a vi clone already, and possibly an emacs too, so you may not need to download anything. In any emacs the cperl-mode (M-x cperl-mode) gives you perhaps the best available Perl editing mode in any editor. -For Windows editors: you can download an Emacs -GNU Emacs -http://www.gnu.org/software/emacs/windows/ntemacs.html -MicroEMACS -http://members.nbci.com/uemacs/ -XEmacs -http://www.xemacs.org/Download/index.html -or a vi clone such as -Elvis -ftp://ftp.cs.pdx.edu/pub/elvis/ http://www.fh-wedel.de/elvis/ -Vile -http://vile.cx/ -Vim -http://www.vim.org/ -win32: http://www.cs.vu.nl/%7Etmgil/vi.html -For vi lovers in general, Windows or elsewhere: http://www.thomer.com/thomer/vi/vi.html. -nvi (http://www.bostic.com/vi/, available from CPAN in src/misc/) is yet another vi clone, unfortunately not available for Windows, but in UNIX platforms you might be interested in trying it out, firstly because strictly speaking it is not a vi clone, it is the real vi, or the new incarnation of it, and secondly because you can embed Perl inside it to use Perl as the scripting language. nvi is not alone in this, though: at least also vim and vile offer an embedded Perl. -The following are Win32 multilanguage editor/IDESs that support Perl: -Codewright -http://www.starbase.com/ -MultiEdit -http://www.MultiEdit.com/ -SlickEdit -http://www.slickedit.com/ -There is also a toyedit Text widget based editor written in Perl that is distributed with the Tk module on CPAN. The ptkdb (http://world.std.com/~aep/ptkdb/) is a Perl/tk based debugger that acts as a development environment of sorts. Perl Composer (http://perlcomposer.sourceforge.net/vperl.html) is an IDE for Perl/Tk GUI creation. -In addition to an editor/IDE you might be interested in a more powerful shell environment for Win32. Your options include -Bash -from the Cygwin package (http://sources.redhat.com/cygwin/) -Ksh -from the MKS Toolkit (http://www.mks.com/), or the Bourne shell of the U/WIN environment (http://www.research.att.com/sw/tools/uwin/) -Tcsh -ftp://ftp.astron.com/pub/tcsh/, see also http://www.primate.wisc.edu/software/csh-tcsh-book/ -Zsh -ftp://ftp.blarg.net/users/amol/zsh/, see also http://www.zsh.org/ -MKS and U/WIN are commercial (U/WIN is free for educational and research purposes), Cygwin is covered by the GNU Public License (but that shouldn't matter for Perl use). The Cygwin, MKS, and U/WIN all contain (in addition to the shells) a comprehensive set of standard UNIX toolkit utilities. -If you're transferring text files between Unix and Windows using FTP be sure to transfer them in ASCII mode so the ends of lines are appropriately converted. -On Mac OS the MacPerl Application comes with a simple 32k text editor that behaves like a rudimentary IDE. In contrast to the MacPerl Application the MPW Perl tool can make use of the MPW Shell itself as an editor (with no 32k limit). -BBEdit and BBEdit Lite -are text editors for Mac OS that have a Perl sensitivity mode (http://web.barebones.com/). -Alpha -is an editor, written and extensible in Tcl, that nonetheless has built in support for several popular markup and programming languages including Perl and HTML (http://alpha.olm.net/). -Pepper and Pe are programming language sensitive text editors for Mac OS X and BeOS respectively (http://www.hekkelman.com/). -Where can I get Perl macros for vi? -For a complete version of Tom Christiansen's vi configuration file, see http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/toms.exrc.gz , the standard benchmark file for vi emulators. The file runs best with nvi, the current version of vi out of Berkeley, which incidentally can be built with an embedded Perl interpreter--see http://www.perl.com/CPAN/src/misc. -Where can I get perl-mode for emacs? -Since Emacs version 19 patchlevel 22 or so, there have been both a perl-mode.el and support for the Perl debugger built in. These should come with the standard Emacs 19 distribution. -In the Perl source directory, you'll find a directory called "emacs", which contains a cperl-mode that color-codes keywords, provides context-sensitive help, and other nifty things. -Note that the perl-mode of emacs will have fits with "main'foo" (single quote), and mess up the indentation and highlighting. You are probably using "main::foo" in new Perl code anyway, so this shouldn't be an issue. -How can I use curses with Perl? -The Curses module from CPAN provides a dynamically loadable object module interface to a curses library. A small demo can be found at the directory http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/rep; this program repeats a command and updates the screen as needed, rendering rep ps axu similar to top. -How can I use X or Tk with Perl? -Tk is a completely Perl-based, object-oriented interface to the Tk toolkit that doesn't force you to use Tcl just to get at Tk. Sx is an interface to the Athena Widget set. Both are available from CPAN. See the directory http://www.perl.com/CPAN/modules/by-category/08_User_Interfaces/ -Invaluable for Perl/Tk programming are the Perl/Tk FAQ at http://w4.lns.cornell.edu/%7Epvhp/ptk/ptkTOC.html , the Perl/Tk Reference Guide available at http://www.perl.com/CPAN-local/authors/Stephen_O_Lidie/ , and the online manpages at http://www-users.cs.umn.edu/%7Eamundson/perl/perltk/toc.html . -How can I generate simple menus without using CGI or Tk? -The http://www.perl.com/CPAN/authors/id/SKUNZ/perlmenu.v4.0.tar.gz module, which is curses-based, can help with this. -What is undump? -See the next question on ``How can I make my Perl program run faster?'' -How can I make my Perl program run faster? -The best way to do this is to come up with a better algorithm. This can often make a dramatic difference. Jon Bentley's book ``Programming Pearls'' (that's not a misspelling!) has some good tips on optimization, too. Advice on benchmarking boils down to: benchmark and profile to make sure you're optimizing the right part, look for better algorithms instead of microtuning your code, and when all else fails consider just buying faster hardware. -A different approach is to autoload seldom-used Perl code. See the AutoSplit and AutoLoader modules in the standard distribution for that. Or you could locate the bottleneck and think about writing just that part in C, the way we used to take bottlenecks in C code and write them in assembler. Similar to rewriting in C, modules that have critical sections can be written in C (for instance, the PDL module from CPAN). -In some cases, it may be worth it to use the backend compiler to produce byte code (saving compilation time) or compile into C, which will certainly save compilation time and sometimes a small amount (but not much) execution time. See the question about compiling your Perl programs for more on the compiler--the wins aren't as obvious as you'd hope. -If you're currently linking your perl executable to a shared libc.so, you can often gain a 10-25% performance benefit by rebuilding it to link with a static libc.a instead. This will make a bigger perl executable, but your Perl programs (and programmers) may thank you for it. See the INSTALL file in the source distribution for more information. -Unsubstantiated reports allege that Perl interpreters that use sfio outperform those that don't (for I/O intensive applications). To try this, see the INSTALL file in the source distribution, especially the ``Selecting File I/O mechanisms'' section. -The undump program was an old attempt to speed up your Perl program by storing the already-compiled form to disk. This is no longer a viable option, as it only worked on a few architectures, and wasn't a good solution anyway. -How can I make my Perl program take less memory? -When it comes to time-space tradeoffs, Perl nearly always prefers to throw memory at a problem. Scalars in Perl use more memory than strings in C, arrays take more than that, and hashes use even more. While there's still a lot to be done, recent releases have been addressing these issues. For example, as of 5.004, duplicate hash keys are shared amongst all hashes using them, so require no reallocation. -In some cases, using substr() or vec() to simulate arrays can be highly beneficial. For example, an array of a thousand booleans will take at least 20,000 bytes of space, but it can be turned into one 125-byte bit vector--a considerable memory savings. The standard Tie::SubstrHash module can also help for certain types of data structure. If you're working with specialist data structures (matrices, for instance) modules that implement these in C may use less memory than equivalent Perl modules. -Another thing to try is learning whether your Perl was compiled with the system malloc or with Perl's builtin malloc. Whichever one it is, try using the other one and see whether this makes a difference. Information about malloc is in the INSTALL file in the source distribution. You can find out whether you are using perl's malloc by typing perl -V:usemymalloc. -Is it unsafe to return a pointer to local data? -No, Perl's garbage collection system takes care of this. - sub makeone { - my @a = ( 1 .. 10 ); - return \@a; - } - for $i ( 1 .. 10 ) { - push @many, makeone(); - } - print $many[4][5], "\n"; - print "@many\n"; -How can I free an array or hash so my program shrinks? -You can't. On most operating systems, memory allocated to a program can never be returned to the system. That's why long-running programs sometimes re-exec themselves. Some operating systems (notably, FreeBSD and Linux) allegedly reclaim large chunks of memory that is no longer used, but it doesn't appear to happen with Perl (yet). The Mac appears to be the only platform that will reliably (albeit, slowly) return memory to the OS. -We've had reports that on Linux (Redhat 5.1) on Intel, undef $scalar will return memory to the system, while on Solaris 2.6 it won't. In general, try it yourself and see. -However, judicious use of my() on your variables will help make sure that they go out of scope so that Perl can free up that space for use in other parts of your program. A global variable, of course, never goes out of scope, so you can't get its space automatically reclaimed, although undef()ing and/or delete()ing it will achieve the same effect. In general, memory allocation and de-allocation isn't something you can or should be worrying about much in Perl, but even this capability (preallocation of data types) is in the works. -How can I make my CGI script more efficient? -Beyond the normal measures described to make general Perl programs faster or smaller, a CGI program has additional issues. It may be run several times per second. Given that each time it runs it will need to be re-compiled and will often allocate a megabyte or more of system memory, this can be a killer. Compiling into C isn't going to help you because the process start-up overhead is where the bottleneck is. -There are two popular ways to avoid this overhead. One solution involves running the Apache HTTP server (available from http://www.apache.org/) with either of the mod_perl or mod_fastcgi plugin modules. -With mod_perl and the Apache::Registry module (distributed with mod_perl), httpd will run with an embedded Perl interpreter which pre-compiles your script and then executes it within the same address space without forking. The Apache extension also gives Perl access to the internal server API, so modules written in Perl can do just about anything a module written in C can. For more on mod_perl, see http://perl.apache.org/ -With the FCGI module (from CPAN) and the mod_fastcgi module (available from http://www.fastcgi.com/) each of your Perl programs becomes a permanent CGI daemon process. -Both of these solutions can have far-reaching effects on your system and on the way you write your CGI programs, so investigate them with care. -See http://www.perl.com/CPAN/modules/by-category/15_World_Wide_Web_HTML_HTTP_CGI/ . -A non-free, commercial product, ``The Velocity Engine for Perl'', (http://www.binevolve.com/ or http://www.binevolve.com/velocigen/ ) might also be worth looking at. It will allow you to increase the performance of your Perl programs, running programs up to 25 times faster than normal CGI Perl when running in persistent Perl mode or 4 to 5 times faster without any modification to your existing CGI programs. Fully functional evaluation copies are available from the web site. -How can I hide the source for my Perl program? -Delete it. :-) Seriously, there are a number of (mostly unsatisfactory) solutions with varying levels of ``security''. -First of all, however, you can't take away read permission, because the source code has to be readable in order to be compiled and interpreted. (That doesn't mean that a CGI script's source is readable by people on the web, though--only by people with access to the filesystem.) So you have to leave the permissions at the socially friendly 0755 level. -Some people regard this as a security problem. If your program does insecure things and relies on people not knowing how to exploit those insecurities, it is not secure. It is often possible for someone to determine the insecure things and exploit them without viewing the source. Security through obscurity, the name for hiding your bugs instead of fixing them, is little security indeed. -You can try using encryption via source filters (Filter::* from CPAN), but any decent programmer will be able to decrypt it. You can try using the byte code compiler and interpreter described below, but the curious might still be able to de-compile it. You can try using the native-code compiler described below, but crackers might be able to disassemble it. These pose varying degrees of difficulty to people wanting to get at your code, but none can definitively conceal it (true of every language, not just Perl). -If you're concerned about people profiting from your code, then the bottom line is that nothing but a restrictive license will give you legal security. License your software and pepper it with threatening statements like ``This is unpublished proprietary software of XYZ Corp. Your access to it does not give you permission to use it blah blah blah.'' We are not lawyers, of course, so you should see a lawyer if you want to be sure your license's wording will stand up in court. -How can I compile my Perl program into byte code or C? -Malcolm Beattie has written a multifunction backend compiler, available from CPAN, that can do both these things. It is included in the perl5.005 release, but is still considered experimental. This means it's fun to play with if you're a programmer but not really for people looking for turn-key solutions. -Merely compiling into C does not in and of itself guarantee that your code will run very much faster. That's because except for lucky cases where a lot of native type inferencing is possible, the normal Perl run-time system is still present and so your program will take just as long to run and be just as big. Most programs save little more than compilation time, leaving execution no more than 10-30% faster. A few rare programs actually benefit significantly (even running several times faster), but this takes some tweaking of your code. -You'll probably be astonished to learn that the current version of the compiler generates a compiled form of your script whose executable is just as big as the original perl executable, and then some. That's because as currently written, all programs are prepared for a full eval() statement. You can tremendously reduce this cost by building a shared libperl.so library and linking against that. See the INSTALL podfile in the Perl source distribution for details. If you link your main perl binary with this, it will make it minuscule. For example, on one author's system, /usr/bin/perl is only 11k in size! -In general, the compiler will do nothing to make a Perl program smaller, faster, more portable, or more secure. In fact, it can make your situation worse. The executable will be bigger, your VM system may take longer to load the whole thing, the binary is fragile and hard to fix, and compilation never stopped software piracy in the form of crackers, viruses, or bootleggers. The real advantage of the compiler is merely packaging, and once you see the size of what it makes (well, unless you use a shared libperl.so), you'll probably want a complete Perl install anyway. -How can I compile Perl into Java? -You can also integrate Java and Perl with the Perl Resource Kit from O'Reilly and Associates. See http://www.oreilly.com/catalog/prkunix/ . -Perl 5.6 comes with Java Perl Lingo, or JPL. JPL, still in development, allows Perl code to be called from Java. See jpl/README in the Perl source tree. -How can I get #!perl to work on [MS-DOS,NT,...]? -For OS/2 just use - extproc perl -S -your_switches -as the first line in *.cmd file (-S due to a bug in cmd.exe's `extproc' handling). For DOS one should first invent a corresponding batch file and codify it in ALTERNATIVE_SHEBANG (see the INSTALL file in the source distribution for more information). -The Win95/NT installation, when using the ActiveState port of Perl, will modify the Registry to associate the .pl extension with the perl interpreter. If you install another port, perhaps even building your own Win95/NT Perl from the standard sources by using a Windows port of gcc (e.g., with cygwin or mingw32), then you'll have to modify the Registry yourself. In addition to associating .pl with the interpreter, NT people can use: SET PATHEXT=%PATHEXT%;.PL to let them run the program install-linux.pl merely by typing install-linux. -Macintosh Perl programs will have the appropriate Creator and Type, so that double-clicking them will invoke the Perl application. -IMPORTANT!: Whatever you do, PLEASE don't get frustrated, and just throw the perl interpreter into your cgi-bin directory, in order to get your programs working for a web server. This is an EXTREMELY big security risk. Take the time to figure out how to do it correctly. -Can I write useful Perl programs on the command line? -Yes. Read perlrun for more information. Some examples follow. (These assume standard Unix shell quoting rules.) - # sum first and last fields - perl -lane 'print $F[0] + $F[-1]' * - # identify text files - perl -le 'for(@ARGV) {print if -f && -T _}' * - # remove (most) comments from C program - perl -0777 -pe 's{/\*.*?\*/}{}gs' foo.c - # make file a month younger than today, defeating reaper daemons - perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' * - # find first unused uid - perl -le '$i++ while getpwuid($i); print $i' - # display reasonable manpath - echo $PATH | perl -nl -072 -e ' - s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}' -OK, the last one was actually an Obfuscated Perl Contest entry. :-) -Why don't Perl one-liners work on my DOS/Mac/VMS system? -The problem is usually that the command interpreters on those systems have rather different ideas about quoting than the Unix shells under which the one-liners were created. On some systems, you may have to change single-quotes to double ones, which you must NOT do on Unix or Plan9 systems. You might also have to change a single % to a %%. -For example: - # Unix - perl -e 'print "Hello world\n"' - # DOS, etc. - perl -e "print \"Hello world\n\"" - # Mac - print "Hello world\n" - (then Run "Myscript" or Shift-Command-R) - # VMS - perl -e "print ""Hello world\n""" -The problem is that none of these examples are reliable: they depend on the command interpreter. Under Unix, the first two often work. Under DOS, it's entirely possible that neither works. If 4DOS was the command shell, you'd probably have better luck like this: - perl -e "print <Ctrl-x>"Hello world\n<Ctrl-x>"" -Under the Mac, it depends which environment you are using. The MacPerl shell, or MPW, is much like Unix shells in its support for several quoting variants, except that it makes free use of the Mac's non-ASCII characters as control characters. -Using qq(), q(), and qx(), instead of "double quotes", 'single quotes', and `backticks`, may make one-liners easier to write. -There is no general solution to all of this. It is a mess, pure and simple. Sucks to be away from Unix, huh? :-) -[Some of this answer was contributed by Kenneth Albanowski.] -Where can I learn about CGI or Web programming in Perl? -For modules, get the CGI or LWP modules from CPAN. For textbooks, see the two especially dedicated to web stuff in the question on books. For problems and questions related to the web, like ``Why do I get 500 Errors'' or ``Why doesn't it run from the browser right when it runs fine on the command line'', see these sources: - WWW Security FAQ - http://www.w3.org/Security/Faq/ - Web FAQ - http://www.boutell.com/faq/ - CGI FAQ - http://www.webthing.com/tutorials/cgifaq.html - HTTP Spec - http://www.w3.org/pub/WWW/Protocols/HTTP/ - HTML Spec - http://www.w3.org/TR/REC-html40/ - http://www.w3.org/pub/WWW/MarkUp/ - CGI Spec - http://www.w3.org/CGI/ - CGI Security FAQ - http://www.go2net.com/people/paulp/cgi-security/safe-cgi.txt -Where can I learn about object-oriented Perl programming? -A good place to start is perltoot, and you can use perlobj, perlboot, and perlbot for reference. Perltoot didn't come out until the 5.004 release; you can get a copy (in pod, html, or postscript) from http://www.perl.com/CPAN/doc/FMTEYEWTK/ . -Where can I learn about linking C with Perl? [h2xs, xsubpp] -If you want to call C from Perl, start with perlxstut, moving on to perlxs, xsubpp, and perlguts. If you want to call Perl from C, then read perlembed, perlcall, and perlguts. Don't forget that you can learn a lot from looking at how the authors of existing extension modules wrote their code and solved their problems. -I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong? -Download the ExtUtils::Embed kit from CPAN and run `make test'. If the tests pass, read the pods again and again and again. If they fail, see perlbug and send a bug report with the output of make test TEST_VERBOSE=1 along with perl -V. -When I tried to run my script, I got this message. What does it mean? -A complete list of Perl's error messages and warnings with explanatory text can be found in perldiag. You can also use the splain program (distributed with Perl) to explain the error messages: - perl program 2>diag.out - splain [-v] [-p] diag.out -or change your program to explain the messages for you: - use diagnostics; -or - use diagnostics -verbose; -What's MakeMaker? -This module (part of the standard Perl distribution) is designed to write a Makefile for an extension module from a Makefile.PL. For more information, see ExtUtils::MakeMaker. -AUTHOR AND COPYRIGHT -Copyright (c) 1997-1999 Tom Christiansen and Nathan Torkington. All rights reserved. -When included as an integrated part of the Standard Distribution of Perl or of its documentation (printed or otherwise), this works is covered under Perl's Artistic License. For separate distributions of all or part of this FAQ outside of that, see perlfaq. -Irrespective of its distribution, all code examples here are in the public domain. You are permitted and encouraged to use this code and any derivatives thereof in your own programs for fun or for profit as you see fit. A simple comment in the code giving credit to the FAQ would be courteous but is not required.
\ No newline at end of file diff --git a/lib/Pod/Simple/t/perlvar.pod b/lib/Pod/Simple/t/perlvar.pod deleted file mode 100644 index 765ff04825..0000000000 --- a/lib/Pod/Simple/t/perlvar.pod +++ /dev/null @@ -1,1234 +0,0 @@ -=head1 NAME - -perlvar - Perl predefined variables - -=head1 DESCRIPTION - -=head2 Predefined Names - -The following names have special meaning to Perl. Most -punctuation names have reasonable mnemonics, or analogs in the -shells. Nevertheless, if you wish to use long variable names, -you need only say - - use English; - -at the top of your program. This will alias all the short names to the -long names in the current package. Some even have medium names, -generally borrowed from B<awk>. - -If you don't mind the performance hit, variables that depend on the -currently selected filehandle may instead be set by calling an -appropriate object method on the IO::Handle object. (Summary lines -below for this contain the word HANDLE.) First you must say - - use IO::Handle; - -after which you may use either - - method HANDLE EXPR - -or more safely, - - HANDLE->method(EXPR) - -Each method returns the old value of the IO::Handle attribute. -The methods each take an optional EXPR, which if supplied specifies the -new value for the IO::Handle attribute in question. If not supplied, -most methods do nothing to the current value--except for -autoflush(), which will assume a 1 for you, just to be different. -Because loading in the IO::Handle class is an expensive operation, you should -learn how to use the regular built-in variables. - -A few of these variables are considered "read-only". This means that if -you try to assign to this variable, either directly or indirectly through -a reference, you'll raise a run-time exception. - -The following list is ordered by scalar variables first, then the -arrays, then the hashes. - -=over 8 - -=item $ARG - -=item $_ - -The default input and pattern-searching space. The following pairs are -equivalent: - - while (<>) {...} # equivalent only in while! - while (defined($_ = <>)) {...} - - /^Subject:/ - $_ =~ /^Subject:/ - - tr/a-z/A-Z/ - $_ =~ tr/a-z/A-Z/ - - chomp - chomp($_) - -Here are the places where Perl will assume $_ even if you -don't use it: - -=over 3 - -=item * - -Various unary functions, including functions like ord() and int(), as well -as the all file tests (C<-f>, C<-d>) except for C<-t>, which defaults to -STDIN. - -=item * - -Various list functions like print() and unlink(). - -=item * - -The pattern matching operations C<m//>, C<s///>, and C<tr///> when used -without an C<=~> operator. - -=item * - -The default iterator variable in a C<foreach> loop if no other -variable is supplied. - -=item * - -The implicit iterator variable in the grep() and map() functions. - -=item * - -The default place to put an input record when a C<< <FH> >> -operation's result is tested by itself as the sole criterion of a C<while> -test. Outside a C<while> test, this will not happen. - -=back - -(Mnemonic: underline is understood in certain operations.) - -=back - -=over 8 - -=item $<I<digits>> - -Contains the subpattern from the corresponding set of capturing -parentheses from the last pattern match, not counting patterns -matched in nested blocks that have been exited already. (Mnemonic: -like \digits.) These variables are all read-only and dynamically -scoped to the current BLOCK. - -=item $MATCH - -=item $& - -The string matched by the last successful pattern match (not counting -any matches hidden within a BLOCK or eval() enclosed by the current -BLOCK). (Mnemonic: like & in some editors.) This variable is read-only -and dynamically scoped to the current BLOCK. - -The use of this variable anywhere in a program imposes a considerable -performance penalty on all regular expression matches. See L<BUGS>. - -=item $PREMATCH - -=item $` - -The string preceding whatever was matched by the last successful -pattern match (not counting any matches hidden within a BLOCK or eval -enclosed by the current BLOCK). (Mnemonic: C<`> often precedes a quoted -string.) This variable is read-only. - -The use of this variable anywhere in a program imposes a considerable -performance penalty on all regular expression matches. See L<BUGS>. - -=item $POSTMATCH - -=item $' - -The string following whatever was matched by the last successful -pattern match (not counting any matches hidden within a BLOCK or eval() -enclosed by the current BLOCK). (Mnemonic: C<'> often follows a quoted -string.) Example: - - $_ = 'abcdefghi'; - /def/; - print "$`:$&:$'\n"; # prints abc:def:ghi - -This variable is read-only and dynamically scoped to the current BLOCK. - -The use of this variable anywhere in a program imposes a considerable -performance penalty on all regular expression matches. See L<BUGS>. - -=item $LAST_PAREN_MATCH - -=item $+ - -The last bracket matched by the last search pattern. This is useful if -you don't know which one of a set of alternative patterns matched. For -example: - - /Version: (.*)|Revision: (.*)/ && ($rev = $+); - -(Mnemonic: be positive and forward looking.) -This variable is read-only and dynamically scoped to the current BLOCK. - -=item @LAST_MATCH_END - -=item @+ - -This array holds the offsets of the ends of the last successful -submatches in the currently active dynamic scope. C<$+[0]> is -the offset into the string of the end of the entire match. This -is the same value as what the C<pos> function returns when called -on the variable that was matched against. The I<n>th element -of this array holds the offset of the I<n>th submatch, so -C<$+[1]> is the offset past where $1 ends, C<$+[2]> the offset -past where $2 ends, and so on. You can use C<$#+> to determine -how many subgroups were in the last successful match. See the -examples given for the C<@-> variable. - -=item $MULTILINE_MATCHING - -=item $* - -Set to a non-zero integer value to do multi-line matching within a -string, 0 (or undefined) to tell Perl that it can assume that strings -contain a single line, for the purpose of optimizing pattern matches. -Pattern matches on strings containing multiple newlines can produce -confusing results when C<$*> is 0 or undefined. Default is undefined. -(Mnemonic: * matches multiple things.) This variable influences the -interpretation of only C<^> and C<$>. A literal newline can be searched -for even when C<$* == 0>. - -Use of C<$*> is deprecated in modern Perl, supplanted by -the C</s> and C</m> modifiers on pattern matching. - -Assigning a non-numerical value to C<$*> triggers a warning (and makes -C<$*> act if C<$* == 0>), while assigning a numerical value to C<$*> -makes that an implicit C<int> is applied on the value. - -=item input_line_number HANDLE EXPR - -=item $INPUT_LINE_NUMBER - -=item $NR - -=item $. - -The current input record number for the last file handle from which -you just read() (or called a C<seek> or C<tell> on). The value -may be different from the actual physical line number in the file, -depending on what notion of "line" is in effect--see C<$/> on how -to change that. An explicit close on a filehandle resets the line -number. Because C<< <> >> never does an explicit close, line -numbers increase across ARGV files (but see examples in L<perlfunc/eof>). -Consider this variable read-only: setting it does not reposition -the seek pointer; you'll have to do that on your own. Localizing C<$.> -has the effect of also localizing Perl's notion of "the last read -filehandle". (Mnemonic: many programs use "." to mean the current line -number.) - -=item input_record_separator HANDLE EXPR - -=item $INPUT_RECORD_SEPARATOR - -=item $RS - -=item $/ - -The input record separator, newline by default. This -influences Perl's idea of what a "line" is. Works like B<awk>'s RS -variable, including treating empty lines as a terminator if set to -the null string. (An empty line cannot contain any spaces -or tabs.) You may set it to a multi-character string to match a -multi-character terminator, or to C<undef> to read through the end -of file. Setting it to C<"\n\n"> means something slightly -different than setting to C<"">, if the file contains consecutive -empty lines. Setting to C<""> will treat two or more consecutive -empty lines as a single empty line. Setting to C<"\n\n"> will -blindly assume that the next input character belongs to the next -paragraph, even if it's a newline. (Mnemonic: / delimits -line boundaries when quoting poetry.) - - undef $/; # enable "slurp" mode - $_ = <FH>; # whole file now here - s/\n[ \t]+/ /g; - -Remember: the value of C<$/> is a string, not a regex. B<awk> has to be -better for something. :-) - -Setting C<$/> to a reference to an integer, scalar containing an integer, or -scalar that's convertible to an integer will attempt to read records -instead of lines, with the maximum record size being the referenced -integer. So this: - - $/ = \32768; # or \"32768", or \$var_containing_32768 - open(FILE, $myfile); - $_ = <FILE>; - -will read a record of no more than 32768 bytes from FILE. If you're -not reading from a record-oriented file (or your OS doesn't have -record-oriented files), then you'll likely get a full chunk of data -with every read. If a record is larger than the record size you've -set, you'll get the record back in pieces. - -On VMS, record reads are done with the equivalent of C<sysread>, -so it's best not to mix record and non-record reads on the same -file. (This is unlikely to be a problem, because any file you'd -want to read in record mode is probably unusable in line mode.) -Non-VMS systems do normal I/O, so it's safe to mix record and -non-record reads of a file. - -See also L<perlport/"Newlines">. Also see C<$.>. - -=item autoflush HANDLE EXPR - -=item $OUTPUT_AUTOFLUSH - -=item $| - -If set to nonzero, forces a flush right away and after every write -or print on the currently selected output channel. Default is 0 -(regardless of whether the channel is really buffered by the -system or not; C<$|> tells you only whether you've asked Perl -explicitly to flush after each write). STDOUT will -typically be line buffered if output is to the terminal and block -buffered otherwise. Setting this variable is useful primarily when -you are outputting to a pipe or socket, such as when you are running -a Perl program under B<rsh> and want to see the output as it's -happening. This has no effect on input buffering. See L<perlfunc/getc> -for that. (Mnemonic: when you want your pipes to be piping hot.) - -=item output_field_separator HANDLE EXPR - -=item $OUTPUT_FIELD_SEPARATOR - -=item $OFS - -=item $, - -The output field separator for the print operator. Ordinarily the -print operator simply prints out its arguments without further -adornment. To get behavior more like B<awk>, set this variable as -you would set B<awk>'s OFS variable to specify what is printed -between fields. (Mnemonic: what is printed when there is a "," in -your print statement.) - -=item output_record_separator HANDLE EXPR - -=item $OUTPUT_RECORD_SEPARATOR - -=item $ORS - -=item $\ - -The output record separator for the print operator. Ordinarily the -print operator simply prints out its arguments as is, with no -trailing newline or other end-of-record string added. To get -behavior more like B<awk>, set this variable as you would set -B<awk>'s ORS variable to specify what is printed at the end of the -print. (Mnemonic: you set C<$\> instead of adding "\n" at the -end of the print. Also, it's just like C<$/>, but it's what you -get "back" from Perl.) - -=item $LIST_SEPARATOR - -=item $" - -This is like C<$,> except that it applies to array and slice values -interpolated into a double-quoted string (or similar interpreted -string). Default is a space. (Mnemonic: obvious, I think.) - -=item $SUBSCRIPT_SEPARATOR - -=item $SUBSEP - -=item $; - -The subscript separator for multidimensional array emulation. If you -refer to a hash element as - - $foo{$a,$b,$c} - -it really means - - $foo{join($;, $a, $b, $c)} - -But don't put - - @foo{$a,$b,$c} # a slice--note the @ - -which means - - ($foo{$a},$foo{$b},$foo{$c}) - -Default is "\034", the same as SUBSEP in B<awk>. If your -keys contain binary data there might not be any safe value for C<$;>. -(Mnemonic: comma (the syntactic subscript separator) is a -semi-semicolon. Yeah, I know, it's pretty lame, but C<$,> is already -taken for something more important.) - -Consider using "real" multidimensional arrays as described -in L<perllol>. - -=item $OFMT - -=item $# - -The output format for printed numbers. This variable is a half-hearted -attempt to emulate B<awk>'s OFMT variable. There are times, however, -when B<awk> and Perl have differing notions of what counts as -numeric. The initial value is "%.I<n>g", where I<n> is the value -of the macro DBL_DIG from your system's F<float.h>. This is different from -B<awk>'s default OFMT setting of "%.6g", so you need to set C<$#> -explicitly to get B<awk>'s value. (Mnemonic: # is the number sign.) - -Use of C<$#> is deprecated. - -=item format_page_number HANDLE EXPR - -=item $FORMAT_PAGE_NUMBER - -=item $% - -The current page number of the currently selected output channel. -Used with formats. -(Mnemonic: % is page number in B<nroff>.) - -=item format_lines_per_page HANDLE EXPR - -=item $FORMAT_LINES_PER_PAGE - -=item $= - -The current page length (printable lines) of the currently selected -output channel. Default is 60. -Used with formats. -(Mnemonic: = has horizontal lines.) - -=item format_lines_left HANDLE EXPR - -=item $FORMAT_LINES_LEFT - -=item $- - -The number of lines left on the page of the currently selected output -channel. -Used with formats. -(Mnemonic: lines_on_page - lines_printed.) - -=item @LAST_MATCH_START - -=item @- - -$-[0] is the offset of the start of the last successful match. -C<$-[>I<n>C<]> is the offset of the start of the substring matched by -I<n>-th subpattern, or undef if the subpattern did not match. - -Thus after a match against $_, $& coincides with C<substr $_, $-[0], -$+[0] - $-[0]>. Similarly, C<$>I<n> coincides with C<substr $_, $-[>I<n>C<], -$+[>I<n>C<] - $-[>I<n>C<]> if C<$-[>I<n>C<]> is defined, and $+ coincides with -C<substr $_, $-[$#-], $+[$#-]>. One can use C<$#-> to find the last -matched subgroup in the last successful match. Contrast with -C<$#+>, the number of subgroups in the regular expression. Compare -with C<@+>. - -This array holds the offsets of the beginnings of the last -successful submatches in the currently active dynamic scope. -C<$-[0]> is the offset into the string of the beginning of the -entire match. The I<n>th element of this array holds the offset -of the I<n>th submatch, so C<$+[1]> is the offset where $1 -begins, C<$+[2]> the offset where $2 begins, and so on. -You can use C<$#-> to determine how many subgroups were in the -last successful match. Compare with the C<@+> variable. - -After a match against some variable $var: - -=over 5 - -=item C<$`> is the same as C<substr($var, 0, $-[0])> - -=item C<$&> is the same as C<substr($var, $-[0], $+[0] - $-[0])> - -=item C<$'> is the same as C<substr($var, $+[0])> - -=item C<$1> is the same as C<substr($var, $-[1], $+[1] - $-[1])> - -=item C<$2> is the same as C<substr($var, $-[2], $+[2] - $-[2])> - -=item C<$3> is the same as C<substr $var, $-[3], $+[3] - $-[3])> - -=back - -=item format_name HANDLE EXPR - -=item $FORMAT_NAME - -=item $~ - -The name of the current report format for the currently selected output -channel. Default is the name of the filehandle. (Mnemonic: brother to -C<$^>.) - -=item format_top_name HANDLE EXPR - -=item $FORMAT_TOP_NAME - -=item $^ - -The name of the current top-of-page format for the currently selected -output channel. Default is the name of the filehandle with _TOP -appended. (Mnemonic: points to top of page.) - -=item format_line_break_characters HANDLE EXPR - -=item $FORMAT_LINE_BREAK_CHARACTERS - -=item $: - -The current set of characters after which a string may be broken to -fill continuation fields (starting with ^) in a format. Default is -S<" \n-">, to break on whitespace or hyphens. (Mnemonic: a "colon" in -poetry is a part of a line.) - -=item format_formfeed HANDLE EXPR - -=item $FORMAT_FORMFEED - -=item $^L - -What formats output as a form feed. Default is \f. - -=item $ACCUMULATOR - -=item $^A - -The current value of the write() accumulator for format() lines. A format -contains formline() calls that put their result into C<$^A>. After -calling its format, write() prints out the contents of C<$^A> and empties. -So you never really see the contents of C<$^A> unless you call -formline() yourself and then look at it. See L<perlform> and -L<perlfunc/formline()>. - -=item $CHILD_ERROR - -=item $? - -The status returned by the last pipe close, backtick (C<``>) command, -successful call to wait() or waitpid(), or from the system() -operator. This is just the 16-bit status word returned by the -wait() system call (or else is made up to look like it). Thus, the -exit value of the subprocess is really (C<<< $? >> 8 >>>), and -C<$? & 127> gives which signal, if any, the process died from, and -C<$? & 128> reports whether there was a core dump. (Mnemonic: -similar to B<sh> and B<ksh>.) - -Additionally, if the C<h_errno> variable is supported in C, its value -is returned via $? if any C<gethost*()> function fails. - -If you have installed a signal handler for C<SIGCHLD>, the -value of C<$?> will usually be wrong outside that handler. - -Inside an C<END> subroutine C<$?> contains the value that is going to be -given to C<exit()>. You can modify C<$?> in an C<END> subroutine to -change the exit status of your program. For example: - - END { - $? = 1 if $? == 255; # die would make it 255 - } - -Under VMS, the pragma C<use vmsish 'status'> makes C<$?> reflect the -actual VMS exit status, instead of the default emulation of POSIX -status. - -Also see L<Error Indicators>. - -=item $OS_ERROR - -=item $ERRNO - -=item $! - -If used numerically, yields the current value of the C C<errno> -variable, with all the usual caveats. (This means that you shouldn't -depend on the value of C<$!> to be anything in particular unless -you've gotten a specific error return indicating a system error.) -If used an a string, yields the corresponding system error string. -You can assign a number to C<$!> to set I<errno> if, for instance, -you want C<"$!"> to return the string for error I<n>, or you want -to set the exit value for the die() operator. (Mnemonic: What just -went bang?) - -Also see L<Error Indicators>. - -=item $EXTENDED_OS_ERROR - -=item $^E - -Error information specific to the current operating system. At -the moment, this differs from C<$!> under only VMS, OS/2, and Win32 -(and for MacPerl). On all other platforms, C<$^E> is always just -the same as C<$!>. - -Under VMS, C<$^E> provides the VMS status value from the last -system error. This is more specific information about the last -system error than that provided by C<$!>. This is particularly -important when C<$!> is set to B<EVMSERR>. - -Under OS/2, C<$^E> is set to the error code of the last call to -OS/2 API either via CRT, or directly from perl. - -Under Win32, C<$^E> always returns the last error information -reported by the Win32 call C<GetLastError()> which describes -the last error from within the Win32 API. Most Win32-specific -code will report errors via C<$^E>. ANSI C and Unix-like calls -set C<errno> and so most portable Perl code will report errors -via C<$!>. - -Caveats mentioned in the description of C<$!> generally apply to -C<$^E>, also. (Mnemonic: Extra error explanation.) - -Also see L<Error Indicators>. - -=item $EVAL_ERROR - -=item $@ - -The Perl syntax error message from the last eval() operator. If null, the -last eval() parsed and executed correctly (although the operations you -invoked may have failed in the normal fashion). (Mnemonic: Where was -the syntax error "at"?) - -Warning messages are not collected in this variable. You can, -however, set up a routine to process warnings by setting C<$SIG{__WARN__}> -as described below. - -Also see L<Error Indicators>. - -=item $PROCESS_ID - -=item $PID - -=item $$ - -The process number of the Perl running this script. You should -consider this variable read-only, although it will be altered -across fork() calls. (Mnemonic: same as shells.) - -=item $REAL_USER_ID - -=item $UID - -=item $< - -The real uid of this process. (Mnemonic: it's the uid you came I<from>, -if you're running setuid.) - -=item $EFFECTIVE_USER_ID - -=item $EUID - -=item $> - -The effective uid of this process. Example: - - $< = $>; # set real to effective uid - ($<,$>) = ($>,$<); # swap real and effective uid - -(Mnemonic: it's the uid you went I<to>, if you're running setuid.) -C<< $< >> and C<< $> >> can be swapped only on machines -supporting setreuid(). - -=item $REAL_GROUP_ID - -=item $GID - -=item $( - -The real gid of this process. If you are on a machine that supports -membership in multiple groups simultaneously, gives a space separated -list of groups you are in. The first number is the one returned by -getgid(), and the subsequent ones by getgroups(), one of which may be -the same as the first number. - -However, a value assigned to C<$(> must be a single number used to -set the real gid. So the value given by C<$(> should I<not> be assigned -back to C<$(> without being forced numeric, such as by adding zero. - -(Mnemonic: parentheses are used to I<group> things. The real gid is the -group you I<left>, if you're running setgid.) - -=item $EFFECTIVE_GROUP_ID - -=item $EGID - -=item $) - -The effective gid of this process. If you are on a machine that -supports membership in multiple groups simultaneously, gives a space -separated list of groups you are in. The first number is the one -returned by getegid(), and the subsequent ones by getgroups(), one of -which may be the same as the first number. - -Similarly, a value assigned to C<$)> must also be a space-separated -list of numbers. The first number sets the effective gid, and -the rest (if any) are passed to setgroups(). To get the effect of an -empty list for setgroups(), just repeat the new effective gid; that is, -to force an effective gid of 5 and an effectively empty setgroups() -list, say C< $) = "5 5" >. - -(Mnemonic: parentheses are used to I<group> things. The effective gid -is the group that's I<right> for you, if you're running setgid.) - -C<< $< >>, C<< $> >>, C<$(> and C<$)> can be set only on -machines that support the corresponding I<set[re][ug]id()> routine. C<$(> -and C<$)> can be swapped only on machines supporting setregid(). - -=item $PROGRAM_NAME - -=item $0 - -Contains the name of the program being executed. On some operating -systems assigning to C<$0> modifies the argument area that the B<ps> -program sees. This is more useful as a way of indicating the current -program state than it is for hiding the program you're running. -(Mnemonic: same as B<sh> and B<ksh>.) - -Note for BSD users: setting C<$0> does not completely remove "perl" -from the ps(1) output. For example, setting C<$0> to C<"foobar"> will -result in C<"perl: foobar (perl)">. This is an operating system -feature. - -=item $[ - -The index of the first element in an array, and of the first character -in a substring. Default is 0, but you could theoretically set it -to 1 to make Perl behave more like B<awk> (or Fortran) when -subscripting and when evaluating the index() and substr() functions. -(Mnemonic: [ begins subscripts.) - -As of release 5 of Perl, assignment to C<$[> is treated as a compiler -directive, and cannot influence the behavior of any other file. -Its use is highly discouraged. - -=item $] - -The version + patchlevel / 1000 of the Perl interpreter. This variable -can be used to determine whether the Perl interpreter executing a -script is in the right range of versions. (Mnemonic: Is this version -of perl in the right bracket?) Example: - - warn "No checksumming!\n" if $] < 3.019; - -See also the documentation of C<use VERSION> and C<require VERSION> -for a convenient way to fail if the running Perl interpreter is too old. - -The use of this variable is deprecated. The floating point representation -can sometimes lead to inaccurate numeric comparisons. See C<$^V> for a -more modern representation of the Perl version that allows accurate string -comparisons. - -=item $COMPILING - -=item $^C - -The current value of the flag associated with the B<-c> switch. -Mainly of use with B<-MO=...> to allow code to alter its behavior -when being compiled, such as for example to AUTOLOAD at compile -time rather than normal, deferred loading. See L<perlcc>. Setting -C<$^C = 1> is similar to calling C<B::minus_c>. - -=item $DEBUGGING - -=item $^D - -The current value of the debugging flags. (Mnemonic: value of B<-D> -switch.) - -=item $SYSTEM_FD_MAX - -=item $^F - -The maximum system file descriptor, ordinarily 2. System file -descriptors are passed to exec()ed processes, while higher file -descriptors are not. Also, during an open(), system file descriptors are -preserved even if the open() fails. (Ordinary file descriptors are -closed before the open() is attempted.) The close-on-exec -status of a file descriptor will be decided according to the value of -C<$^F> when the corresponding file, pipe, or socket was opened, not the -time of the exec(). - -=item $^H - -WARNING: This variable is strictly for internal use only. Its availability, -behavior, and contents are subject to change without notice. - -This variable contains compile-time hints for the Perl interpreter. At the -end of compilation of a BLOCK the value of this variable is restored to the -value when the interpreter started to compile the BLOCK. - -When perl begins to parse any block construct that provides a lexical scope -(e.g., eval body, required file, subroutine body, loop body, or conditional -block), the existing value of $^H is saved, but its value is left unchanged. -When the compilation of the block is completed, it regains the saved value. -Between the points where its value is saved and restored, code that -executes within BEGIN blocks is free to change the value of $^H. - -This behavior provides the semantic of lexical scoping, and is used in, -for instance, the C<use strict> pragma. - -The contents should be an integer; different bits of it are used for -different pragmatic flags. Here's an example: - - sub add_100 { $^H |= 0x100 } - - sub foo { - BEGIN { add_100() } - bar->baz($boon); - } - -Consider what happens during execution of the BEGIN block. At this point -the BEGIN block has already been compiled, but the body of foo() is still -being compiled. The new value of $^H will therefore be visible only while -the body of foo() is being compiled. - -Substitution of the above BEGIN block with: - - BEGIN { require strict; strict->import('vars') } - -demonstrates how C<use strict 'vars'> is implemented. Here's a conditional -version of the same lexical pragma: - - BEGIN { require strict; strict->import('vars') if $condition } - -=item %^H - -WARNING: This variable is strictly for internal use only. Its availability, -behavior, and contents are subject to change without notice. - -The %^H hash provides the same scoping semantic as $^H. This makes it -useful for implementation of lexically scoped pragmas. - -=item $INPLACE_EDIT - -=item $^I - -The current value of the inplace-edit extension. Use C<undef> to disable -inplace editing. (Mnemonic: value of B<-i> switch.) - -=item $^M - -By default, running out of memory is an untrappable, fatal error. -However, if suitably built, Perl can use the contents of C<$^M> -as an emergency memory pool after die()ing. Suppose that your Perl -were compiled with -DPERL_EMERGENCY_SBRK and used Perl's malloc. -Then - - $^M = 'a' x (1 << 16); - -would allocate a 64K buffer for use in an emergency. See the -F<INSTALL> file in the Perl distribution for information on how to -enable this option. To discourage casual use of this advanced -feature, there is no L<English|English> long name for this variable. - -=item $OSNAME - -=item $^O - -The name of the operating system under which this copy of Perl was -built, as determined during the configuration process. The value -is identical to C<$Config{'osname'}>. See also L<Config> and the -B<-V> command-line switch documented in L<perlrun>. - -=item $PERLDB - -=item $^P - -The internal variable for debugging support. The meanings of the -various bits are subject to change, but currently indicate: - -=over 6 - -=item 0x01 - -Debug subroutine enter/exit. - -=item 0x02 - -Line-by-line debugging. - -=item 0x04 - -Switch off optimizations. - -=item 0x08 - -Preserve more data for future interactive inspections. - -=item 0x10 - -Keep info about source lines on which a subroutine is defined. - -=item 0x20 - -Start with single-step on. - -=item 0x40 - -Use subroutine address instead of name when reporting. - -=item 0x80 - -Report C<goto &subroutine> as well. - -=item 0x100 - -Provide informative "file" names for evals based on the place they were compiled. - -=item 0x200 - -Provide informative names to anonymous subroutines based on the place they -were compiled. - -=back - -Some bits may be relevant at compile-time only, some at -run-time only. This is a new mechanism and the details may change. - -=item $LAST_REGEXP_CODE_RESULT - -=item $^R - -The result of evaluation of the last successful C<(?{ code })> -regular expression assertion (see L<perlre>). May be written to. - -=item $EXCEPTIONS_BEING_CAUGHT - -=item $^S - -Current state of the interpreter. Undefined if parsing of the current -module/eval is not finished (may happen in $SIG{__DIE__} and -$SIG{__WARN__} handlers). True if inside an eval(), otherwise false. - -=item $BASETIME - -=item $^T - -The time at which the program began running, in seconds since the -epoch (beginning of 1970). The values returned by the B<-M>, B<-A>, -and B<-C> filetests are based on this value. - -=item $PERL_VERSION - -=item $^V - -The revision, version, and subversion of the Perl interpreter, represented -as a string composed of characters with those ordinals. Thus in Perl v5.6.0 -it equals C<chr(5) . chr(6) . chr(0)> and will return true for -C<$^V eq v5.6.0>. Note that the characters in this string value can -potentially be in Unicode range. - -This can be used to determine whether the Perl interpreter executing a -script is in the right range of versions. (Mnemonic: use ^V for Version -Control.) Example: - - warn "No \"our\" declarations!\n" if $^V and $^V lt v5.6.0; - -See the documentation of C<use VERSION> and C<require VERSION> -for a convenient way to fail if the running Perl interpreter is too old. - -See also C<$]> for an older representation of the Perl version. - -=item $WARNING - -=item $^W - -The current value of the warning switch, initially true if B<-w> -was used, false otherwise, but directly modifiable. (Mnemonic: -related to the B<-w> switch.) See also L<warnings>. - -=item ${^WARNING_BITS} - -The current set of warning checks enabled by the C<use warnings> pragma. -See the documentation of C<warnings> for more details. - -=item ${^WIDE_SYSTEM_CALLS} - -Global flag that enables system calls made by Perl to use wide character -APIs native to the system, if available. This is currently only implemented -on the Windows platform. - -This can also be enabled from the command line using the C<-C> switch. - -The initial value is typically C<0> for compatibility with Perl versions -earlier than 5.6, but may be automatically set to C<1> by Perl if the system -provides a user-settable default (e.g., C<$ENV{LC_CTYPE}>). - -The C<bytes> pragma always overrides the effect of this flag in the current -lexical scope. See L<bytes>. - -=item $EXECUTABLE_NAME - -=item $^X - -The name that the Perl binary itself was executed as, from C's C<argv[0]>. -This may not be a full pathname, nor even necessarily in your path. - -=item $ARGV - -contains the name of the current file when reading from <>. - -=item @ARGV - -The array @ARGV contains the command-line arguments intended for -the script. C<$#ARGV> is generally the number of arguments minus -one, because C<$ARGV[0]> is the first argument, I<not> the program's -command name itself. See C<$0> for the command name. - -=item @INC - -The array @INC contains the list of places that the C<do EXPR>, -C<require>, or C<use> constructs look for their library files. It -initially consists of the arguments to any B<-I> command-line -switches, followed by the default Perl library, probably -F</usr/local/lib/perl>, followed by ".", to represent the current -directory. If you need to modify this at runtime, you should use -the C<use lib> pragma to get the machine-dependent library properly -loaded also: - - use lib '/mypath/libdir/'; - use SomeMod; - -=item @_ - -Within a subroutine the array @_ contains the parameters passed to that -subroutine. See L<perlsub>. - -=item %INC - -The hash %INC contains entries for each filename included via the -C<do>, C<require>, or C<use> operators. The key is the filename -you specified (with module names converted to pathnames), and the -value is the location of the file found. The C<require> -operator uses this hash to determine whether a particular file has -already been included. - -=item %ENV - -=item $ENV{expr} - -The hash %ENV contains your current environment. Setting a -value in C<ENV> changes the environment for any child processes -you subsequently fork() off. - -=item %SIG - -=item $SIG{expr} - -The hash %SIG contains signal handlers for signals. For example: - - sub handler { # 1st argument is signal name - my($sig) = @_; - print "Caught a SIG$sig--shutting down\n"; - close(LOG); - exit(0); - } - - $SIG{'INT'} = \&handler; - $SIG{'QUIT'} = \&handler; - ... - $SIG{'INT'} = 'DEFAULT'; # restore default action - $SIG{'QUIT'} = 'IGNORE'; # ignore SIGQUIT - -Using a value of C<'IGNORE'> usually has the effect of ignoring the -signal, except for the C<CHLD> signal. See L<perlipc> for more about -this special case. - -Here are some other examples: - - $SIG{"PIPE"} = "Plumber"; # assumes main::Plumber (not recommended) - $SIG{"PIPE"} = \&Plumber; # just fine; assume current Plumber - $SIG{"PIPE"} = *Plumber; # somewhat esoteric - $SIG{"PIPE"} = Plumber(); # oops, what did Plumber() return?? - -Be sure not to use a bareword as the name of a signal handler, -lest you inadvertently call it. - -If your system has the sigaction() function then signal handlers are -installed using it. This means you get reliable signal handling. If -your system has the SA_RESTART flag it is used when signals handlers are -installed. This means that system calls for which restarting is supported -continue rather than returning when a signal arrives. If you want your -system calls to be interrupted by signal delivery then do something like -this: - - use POSIX ':signal_h'; - - my $alarm = 0; - sigaction SIGALRM, new POSIX::SigAction sub { $alarm = 1 } - or die "Error setting SIGALRM handler: $!\n"; - -See L<POSIX>. - -Certain internal hooks can be also set using the %SIG hash. The -routine indicated by C<$SIG{__WARN__}> is called when a warning message is -about to be printed. The warning message is passed as the first -argument. The presence of a __WARN__ hook causes the ordinary printing -of warnings to STDERR to be suppressed. You can use this to save warnings -in a variable, or turn warnings into fatal errors, like this: - - local $SIG{__WARN__} = sub { die $_[0] }; - eval $proggie; - -The routine indicated by C<$SIG{__DIE__}> is called when a fatal exception -is about to be thrown. The error message is passed as the first -argument. When a __DIE__ hook routine returns, the exception -processing continues as it would have in the absence of the hook, -unless the hook routine itself exits via a C<goto>, a loop exit, or a die(). -The C<__DIE__> handler is explicitly disabled during the call, so that you -can die from a C<__DIE__> handler. Similarly for C<__WARN__>. - -Due to an implementation glitch, the C<$SIG{__DIE__}> hook is called -even inside an eval(). Do not use this to rewrite a pending exception -in C<$@>, or as a bizarre substitute for overriding CORE::GLOBAL::die(). -This strange action at a distance may be fixed in a future release -so that C<$SIG{__DIE__}> is only called if your program is about -to exit, as was the original intent. Any other use is deprecated. - -C<__DIE__>/C<__WARN__> handlers are very special in one respect: -they may be called to report (probable) errors found by the parser. -In such a case the parser may be in inconsistent state, so any -attempt to evaluate Perl code from such a handler will probably -result in a segfault. This means that warnings or errors that -result from parsing Perl should be used with extreme caution, like -this: - - require Carp if defined $^S; - Carp::confess("Something wrong") if defined &Carp::confess; - die "Something wrong, but could not load Carp to give backtrace... - To see backtrace try starting Perl with -MCarp switch"; - -Here the first line will load Carp I<unless> it is the parser who -called the handler. The second line will print backtrace and die if -Carp was available. The third line will be executed only if Carp was -not available. - -See L<perlfunc/die>, L<perlfunc/warn>, L<perlfunc/eval>, and -L<warnings> for additional information. - -=back - -=head2 Error Indicators - -The variables C<$@>, C<$!>, C<$^E>, and C<$?> contain information -about different types of error conditions that may appear during -execution of a Perl program. The variables are shown ordered by -the "distance" between the subsystem which reported the error and -the Perl process. They correspond to errors detected by the Perl -interpreter, C library, operating system, or an external program, -respectively. - -To illustrate the differences between these variables, consider the -following Perl expression, which uses a single-quoted string: - - eval q{ - open PIPE, "/cdrom/install |"; - @res = <PIPE>; - close PIPE or die "bad pipe: $?, $!"; - }; - -After execution of this statement all 4 variables may have been set. - -C<$@> is set if the string to be C<eval>-ed did not compile (this -may happen if C<open> or C<close> were imported with bad prototypes), -or if Perl code executed during evaluation die()d . In these cases -the value of $@ is the compile error, or the argument to C<die> -(which will interpolate C<$!> and C<$?>!). (See also L<Fatal>, -though.) - -When the eval() expression above is executed, open(), C<< <PIPE> >>, -and C<close> are translated to calls in the C run-time library and -thence to the operating system kernel. C<$!> is set to the C library's -C<errno> if one of these calls fails. - -Under a few operating systems, C<$^E> may contain a more verbose -error indicator, such as in this case, "CDROM tray not closed." -Systems that do not support extended error messages leave C<$^E> -the same as C<$!>. - -Finally, C<$?> may be set to non-0 value if the external program -F</cdrom/install> fails. The upper eight bits reflect specific -error conditions encountered by the program (the program's exit() -value). The lower eight bits reflect mode of failure, like signal -death and core dump information See wait(2) for details. In -contrast to C<$!> and C<$^E>, which are set only if error condition -is detected, the variable C<$?> is set on each C<wait> or pipe -C<close>, overwriting the old value. This is more like C<$@>, which -on every eval() is always set on failure and cleared on success. - -For more details, see the individual descriptions at C<$@>, C<$!>, C<$^E>, -and C<$?>. - -=head2 Technical Note on the Syntax of Variable Names - -Variable names in Perl can have several formats. Usually, they -must begin with a letter or underscore, in which case they can be -arbitrarily long (up to an internal limit of 251 characters) and -may contain letters, digits, underscores, or the special sequence -C<::> or C<'>. In this case, the part before the last C<::> or -C<'> is taken to be a I<package qualifier>; see L<perlmod>. - -Perl variable names may also be a sequence of digits or a single -punctuation or control character. These names are all reserved for -special uses by Perl; for example, the all-digits names are used -to hold data captured by backreferences after a regular expression -match. Perl has a special syntax for the single-control-character -names: It understands C<^X> (caret C<X>) to mean the control-C<X> -character. For example, the notation C<$^W> (dollar-sign caret -C<W>) is the scalar variable whose name is the single character -control-C<W>. This is better than typing a literal control-C<W> -into your program. - -Finally, new in Perl 5.6, Perl variable names may be alphanumeric -strings that begin with control characters (or better yet, a caret). -These variables must be written in the form C<${^Foo}>; the braces -are not optional. C<${^Foo}> denotes the scalar variable whose -name is a control-C<F> followed by two C<o>'s. These variables are -reserved for future special uses by Perl, except for the ones that -begin with C<^_> (control-underscore or caret-underscore). No -control-character name that begins with C<^_> will acquire a special -meaning in any future version of Perl; such names may therefore be -used safely in programs. C<$^_> itself, however, I<is> reserved. - -Perl identifiers that begin with digits, control characters, or -punctuation characters are exempt from the effects of the C<package> -declaration and are always forced to be in package C<main>. A few -other names are also exempt: - - ENV STDIN - INC STDOUT - ARGV STDERR - ARGVOUT - SIG - -In particular, the new special C<${^_XYZ}> variables are always taken -to be in package C<main>, regardless of any C<package> declarations -presently in scope. - -=head1 BUGS - -Due to an unfortunate accident of Perl's implementation, C<use -English> imposes a considerable performance penalty on all regular -expression matches in a program, regardless of whether they occur -in the scope of C<use English>. For that reason, saying C<use -English> in libraries is strongly discouraged. See the -Devel::SawAmpersand module documentation from CPAN -(http://www.perl.com/CPAN/modules/by-module/Devel/) -for more information. - -Having to even think about the C<$^S> variable in your exception -handlers is simply wrong. C<$SIG{__DIE__}> as currently implemented -invites grievous and difficult to track down errors. Avoid it -and use an C<END{}> or CORE::GLOBAL::die override instead. diff --git a/lib/Pod/Simple/t/perlvaro.txt b/lib/Pod/Simple/t/perlvaro.txt deleted file mode 100644 index 0a67979962..0000000000 --- a/lib/Pod/Simple/t/perlvaro.txt +++ /dev/null @@ -1,406 +0,0 @@ -NAME -perlvar - Perl predefined variables -DESCRIPTION -Predefined Names -The following names have special meaning to Perl. Most punctuation names have reasonable mnemonics, or analogs in the shells. Nevertheless, if you wish to use long variable names, you need only say - use English; -at the top of your program. This will alias all the short names to the long names in the current package. Some even have medium names, generally borrowed from awk. -If you don't mind the performance hit, variables that depend on the currently selected filehandle may instead be set by calling an appropriate object method on the IO::Handle object. (Summary lines below for this contain the word HANDLE.) First you must say - use IO::Handle; -after which you may use either - method HANDLE EXPR -or more safely, - HANDLE->method(EXPR) -Each method returns the old value of the IO::Handle attribute. The methods each take an optional EXPR, which if supplied specifies the new value for the IO::Handle attribute in question. If not supplied, most methods do nothing to the current value--except for autoflush(), which will assume a 1 for you, just to be different. Because loading in the IO::Handle class is an expensive operation, you should learn how to use the regular built-in variables. -A few of these variables are considered "read-only". This means that if you try to assign to this variable, either directly or indirectly through a reference, you'll raise a run-time exception. -The following list is ordered by scalar variables first, then the arrays, then the hashes. -$ARG -$_ -The default input and pattern-searching space. The following pairs are equivalent: - while (<>) {...} # equivalent only in while! - while (defined($_ = <>)) {...} - /^Subject:/ - $_ =~ /^Subject:/ - tr/a-z/A-Z/ - $_ =~ tr/a-z/A-Z/ - chomp - chomp($_) -Here are the places where Perl will assume $_ even if you don't use it: - Various unary functions, including functions like ord() and int(), as well as the all file tests (-f, -d) except for -t, which defaults to STDIN. - Various list functions like print() and unlink(). - The pattern matching operations m//, s///, and tr/// when used without an =~ operator. - The default iterator variable in a foreach loop if no other variable is supplied. - The implicit iterator variable in the grep() and map() functions. - The default place to put an input record when a <FH> operation's result is tested by itself as the sole criterion of a while test. Outside a while test, this will not happen. -(Mnemonic: underline is understood in certain operations.) -$<digits> -Contains the subpattern from the corresponding set of capturing parentheses from the last pattern match, not counting patterns matched in nested blocks that have been exited already. (Mnemonic: like \digits.) These variables are all read-only and dynamically scoped to the current BLOCK. -$MATCH -$& -The string matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval() enclosed by the current BLOCK). (Mnemonic: like & in some editors.) This variable is read-only and dynamically scoped to the current BLOCK. -The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS. -$PREMATCH -$` -The string preceding whatever was matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval enclosed by the current BLOCK). (Mnemonic: ` often precedes a quoted string.) This variable is read-only. -The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS. -$POSTMATCH -$' -The string following whatever was matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval() enclosed by the current BLOCK). (Mnemonic: ' often follows a quoted string.) Example: - $_ = 'abcdefghi'; - /def/; - print "$`:$&:$'\n"; # prints abc:def:ghi -This variable is read-only and dynamically scoped to the current BLOCK. -The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS. -$LAST_PAREN_MATCH -$+ -The last bracket matched by the last search pattern. This is useful if you don't know which one of a set of alternative patterns matched. For example: - /Version: (.*)|Revision: (.*)/ && ($rev = $+); -(Mnemonic: be positive and forward looking.) This variable is read-only and dynamically scoped to the current BLOCK. -@LAST_MATCH_END -@+ -This array holds the offsets of the ends of the last successful submatches in the currently active dynamic scope. $+[0] is the offset into the string of the end of the entire match. This is the same value as what the pos function returns when called on the variable that was matched against. The nth element of this array holds the offset of the nth submatch, so $+[1] is the offset past where $1 ends, $+[2] the offset past where $2 ends, and so on. You can use $#+ to determine how many subgroups were in the last successful match. See the examples given for the @- variable. -$MULTILINE_MATCHING -$* -Set to a non-zero integer value to do multi-line matching within a string, 0 (or undefined) to tell Perl that it can assume that strings contain a single line, for the purpose of optimizing pattern matches. Pattern matches on strings containing multiple newlines can produce confusing results when $* is 0 or undefined. Default is undefined. (Mnemonic: * matches multiple things.) This variable influences the interpretation of only ^ and $. A literal newline can be searched for even when $* == 0. -Use of $* is deprecated in modern Perl, supplanted by the /s and /m modifiers on pattern matching. -Assigning a non-numerical value to $* triggers a warning (and makes $* act if $* == 0), while assigning a numerical value to $* makes that an implicit int is applied on the value. -input_line_number HANDLE EXPR -$INPUT_LINE_NUMBER -$NR -$. -The current input record number for the last file handle from which you just read() (or called a seek or tell on). The value may be different from the actual physical line number in the file, depending on what notion of "line" is in effect--see $/ on how to change that. An explicit close on a filehandle resets the line number. Because <> never does an explicit close, line numbers increase across ARGV files (but see examples in "eof" in perlfunc). Consider this variable read-only: setting it does not reposition the seek pointer; you'll have to do that on your own. Localizing $. has the effect of also localizing Perl's notion of "the last read filehandle". (Mnemonic: many programs use "." to mean the current line number.) -input_record_separator HANDLE EXPR -$INPUT_RECORD_SEPARATOR -$RS -$/ -The input record separator, newline by default. This influences Perl's idea of what a "line" is. Works like awk's RS variable, including treating empty lines as a terminator if set to the null string. (An empty line cannot contain any spaces or tabs.) You may set it to a multi-character string to match a multi-character terminator, or to undef to read through the end of file. Setting it to "\n\n" means something slightly different than setting to "", if the file contains consecutive empty lines. Setting to "" will treat two or more consecutive empty lines as a single empty line. Setting to "\n\n" will blindly assume that the next input character belongs to the next paragraph, even if it's a newline. (Mnemonic: / delimits line boundaries when quoting poetry.) - undef $/; # enable "slurp" mode - $_ = <FH>; # whole file now here - s/\n[ \t]+/ /g; -Remember: the value of $/ is a string, not a regex. awk has to be better for something. :-) -Setting $/ to a reference to an integer, scalar containing an integer, or scalar that's convertible to an integer will attempt to read records instead of lines, with the maximum record size being the referenced integer. So this: - $/ = \32768; # or \"32768", or \$var_containing_32768 - open(FILE, $myfile); - $_ = <FILE>; -will read a record of no more than 32768 bytes from FILE. If you're not reading from a record-oriented file (or your OS doesn't have record-oriented files), then you'll likely get a full chunk of data with every read. If a record is larger than the record size you've set, you'll get the record back in pieces. -On VMS, record reads are done with the equivalent of sysread, so it's best not to mix record and non-record reads on the same file. (This is unlikely to be a problem, because any file you'd want to read in record mode is probably unusable in line mode.) Non-VMS systems do normal I/O, so it's safe to mix record and non-record reads of a file. -See also "Newlines" in perlport. Also see $.. -autoflush HANDLE EXPR -$OUTPUT_AUTOFLUSH -$| -If set to nonzero, forces a flush right away and after every write or print on the currently selected output channel. Default is 0 (regardless of whether the channel is really buffered by the system or not; $| tells you only whether you've asked Perl explicitly to flush after each write). STDOUT will typically be line buffered if output is to the terminal and block buffered otherwise. Setting this variable is useful primarily when you are outputting to a pipe or socket, such as when you are running a Perl program under rsh and want to see the output as it's happening. This has no effect on input buffering. See "getc" in perlfunc for that. (Mnemonic: when you want your pipes to be piping hot.) -output_field_separator HANDLE EXPR -$OUTPUT_FIELD_SEPARATOR -$OFS -$, -The output field separator for the print operator. Ordinarily the print operator simply prints out its arguments without further adornment. To get behavior more like awk, set this variable as you would set awk's OFS variable to specify what is printed between fields. (Mnemonic: what is printed when there is a "," in your print statement.) -output_record_separator HANDLE EXPR -$OUTPUT_RECORD_SEPARATOR -$ORS -$\ -The output record separator for the print operator. Ordinarily the print operator simply prints out its arguments as is, with no trailing newline or other end-of-record string added. To get behavior more like awk, set this variable as you would set awk's ORS variable to specify what is printed at the end of the print. (Mnemonic: you set $\ instead of adding "\n" at the end of the print. Also, it's just like $/, but it's what you get "back" from Perl.) -$LIST_SEPARATOR -$" -This is like $, except that it applies to array and slice values interpolated into a double-quoted string (or similar interpreted string). Default is a space. (Mnemonic: obvious, I think.) -$SUBSCRIPT_SEPARATOR -$SUBSEP -$; -The subscript separator for multidimensional array emulation. If you refer to a hash element as - $foo{$a,$b,$c} -it really means - $foo{join($;, $a, $b, $c)} -But don't put - @foo{$a,$b,$c} # a slice--note the @ -which means - ($foo{$a},$foo{$b},$foo{$c}) -Default is "\034", the same as SUBSEP in awk. If your keys contain binary data there might not be any safe value for $;. (Mnemonic: comma (the syntactic subscript separator) is a semi-semicolon. Yeah, I know, it's pretty lame, but $, is already taken for something more important.) -Consider using "real" multidimensional arrays as described in perllol. -$OFMT -$# -The output format for printed numbers. This variable is a half-hearted attempt to emulate awk's OFMT variable. There are times, however, when awk and Perl have differing notions of what counts as numeric. The initial value is "%.ng", where n is the value of the macro DBL_DIG from your system's float.h. This is different from awk's default OFMT setting of "%.6g", so you need to set $# explicitly to get awk's value. (Mnemonic: # is the number sign.) -Use of $# is deprecated. -format_page_number HANDLE EXPR -$FORMAT_PAGE_NUMBER -$% -The current page number of the currently selected output channel. Used with formats. (Mnemonic: % is page number in nroff.) -format_lines_per_page HANDLE EXPR -$FORMAT_LINES_PER_PAGE -$= -The current page length (printable lines) of the currently selected output channel. Default is 60. Used with formats. (Mnemonic: = has horizontal lines.) -format_lines_left HANDLE EXPR -$FORMAT_LINES_LEFT -$- -The number of lines left on the page of the currently selected output channel. Used with formats. (Mnemonic: lines_on_page - lines_printed.) -@LAST_MATCH_START -@- -$-[0] is the offset of the start of the last successful match. $-[n] is the offset of the start of the substring matched by n-th subpattern, or undef if the subpattern did not match. -Thus after a match against $_, $& coincides with substr $_, $-[0], $+[0] - $-[0]. Similarly, $n coincides with substr $_, $-[n], $+[n] - $-[n] if $-[n] is defined, and $+ coincides with substr $_, $-[$#-], $+[$#-]. One can use $#- to find the last matched subgroup in the last successful match. Contrast with $#+, the number of subgroups in the regular expression. Compare with @+. -This array holds the offsets of the beginnings of the last successful submatches in the currently active dynamic scope. $-[0] is the offset into the string of the beginning of the entire match. The nth element of this array holds the offset of the nth submatch, so $+[1] is the offset where $1 begins, $+[2] the offset where $2 begins, and so on. You can use $#- to determine how many subgroups were in the last successful match. Compare with the @+ variable. -After a match against some variable $var: -$` is the same as substr($var, 0, $-[0]) -$& is the same as substr($var, $-[0], $+[0] - $-[0]) -$' is the same as substr($var, $+[0]) -$1 is the same as substr($var, $-[1], $+[1] - $-[1]) -$2 is the same as substr($var, $-[2], $+[2] - $-[2]) -$3 is the same as substr $var, $-[3], $+[3] - $-[3]) -format_name HANDLE EXPR -$FORMAT_NAME -$~ -The name of the current report format for the currently selected output channel. Default is the name of the filehandle. (Mnemonic: brother to $^.) -format_top_name HANDLE EXPR -$FORMAT_TOP_NAME -$^ -The name of the current top-of-page format for the currently selected output channel. Default is the name of the filehandle with _TOP appended. (Mnemonic: points to top of page.) -format_line_break_characters HANDLE EXPR -$FORMAT_LINE_BREAK_CHARACTERS -$: -The current set of characters after which a string may be broken to fill continuation fields (starting with ^) in a format. Default is " \n-", to break on whitespace or hyphens. (Mnemonic: a "colon" in poetry is a part of a line.) -format_formfeed HANDLE EXPR -$FORMAT_FORMFEED -$^L -What formats output as a form feed. Default is \f. -$ACCUMULATOR -$^A -The current value of the write() accumulator for format() lines. A format contains formline() calls that put their result into $^A. After calling its format, write() prints out the contents of $^A and empties. So you never really see the contents of $^A unless you call formline() yourself and then look at it. See perlform and "formline()" in perlfunc. -$CHILD_ERROR -$? -The status returned by the last pipe close, backtick (``) command, successful call to wait() or waitpid(), or from the system() operator. This is just the 16-bit status word returned by the wait() system call (or else is made up to look like it). Thus, the exit value of the subprocess is really ($? >> 8), and $? & 127 gives which signal, if any, the process died from, and $? & 128 reports whether there was a core dump. (Mnemonic: similar to sh and ksh.) -Additionally, if the h_errno variable is supported in C, its value is returned via $? if any gethost*() function fails. -If you have installed a signal handler for SIGCHLD, the value of $? will usually be wrong outside that handler. -Inside an END subroutine $? contains the value that is going to be given to exit(). You can modify $? in an END subroutine to change the exit status of your program. For example: - END { - $? = 1 if $? == 255; # die would make it 255 - } -Under VMS, the pragma use vmsish 'status' makes $? reflect the actual VMS exit status, instead of the default emulation of POSIX status. -Also see "Error Indicators". -$OS_ERROR -$ERRNO -$! -If used numerically, yields the current value of the C errno variable, with all the usual caveats. (This means that you shouldn't depend on the value of $! to be anything in particular unless you've gotten a specific error return indicating a system error.) If used an a string, yields the corresponding system error string. You can assign a number to $! to set errno if, for instance, you want "$!" to return the string for error n, or you want to set the exit value for the die() operator. (Mnemonic: What just went bang?) -Also see "Error Indicators". -$EXTENDED_OS_ERROR -$^E -Error information specific to the current operating system. At the moment, this differs from $! under only VMS, OS/2, and Win32 (and for MacPerl). On all other platforms, $^E is always just the same as $!. -Under VMS, $^E provides the VMS status value from the last system error. This is more specific information about the last system error than that provided by $!. This is particularly important when $! is set to EVMSERR. -Under OS/2, $^E is set to the error code of the last call to OS/2 API either via CRT, or directly from perl. -Under Win32, $^E always returns the last error information reported by the Win32 call GetLastError() which describes the last error from within the Win32 API. Most Win32-specific code will report errors via $^E. ANSI C and Unix-like calls set errno and so most portable Perl code will report errors via $!. -Caveats mentioned in the description of $! generally apply to $^E, also. (Mnemonic: Extra error explanation.) -Also see "Error Indicators". -$EVAL_ERROR -$@ -The Perl syntax error message from the last eval() operator. If null, the last eval() parsed and executed correctly (although the operations you invoked may have failed in the normal fashion). (Mnemonic: Where was the syntax error "at"?) -Warning messages are not collected in this variable. You can, however, set up a routine to process warnings by setting $SIG{__WARN__} as described below. -Also see "Error Indicators". -$PROCESS_ID -$PID -$$ -The process number of the Perl running this script. You should consider this variable read-only, although it will be altered across fork() calls. (Mnemonic: same as shells.) -$REAL_USER_ID -$UID -$< -The real uid of this process. (Mnemonic: it's the uid you came from, if you're running setuid.) -$EFFECTIVE_USER_ID -$EUID -$> -The effective uid of this process. Example: - $< = $>; # set real to effective uid - ($<,$>) = ($>,$<); # swap real and effective uid -(Mnemonic: it's the uid you went to, if you're running setuid.) $< and $> can be swapped only on machines supporting setreuid(). -$REAL_GROUP_ID -$GID -$( -The real gid of this process. If you are on a machine that supports membership in multiple groups simultaneously, gives a space separated list of groups you are in. The first number is the one returned by getgid(), and the subsequent ones by getgroups(), one of which may be the same as the first number. -However, a value assigned to $( must be a single number used to set the real gid. So the value given by $( should not be assigned back to $( without being forced numeric, such as by adding zero. -(Mnemonic: parentheses are used to group things. The real gid is the group you left, if you're running setgid.) -$EFFECTIVE_GROUP_ID -$EGID -$) -The effective gid of this process. If you are on a machine that supports membership in multiple groups simultaneously, gives a space separated list of groups you are in. The first number is the one returned by getegid(), and the subsequent ones by getgroups(), one of which may be the same as the first number. -Similarly, a value assigned to $) must also be a space-separated list of numbers. The first number sets the effective gid, and the rest (if any) are passed to setgroups(). To get the effect of an empty list for setgroups(), just repeat the new effective gid; that is, to force an effective gid of 5 and an effectively empty setgroups() list, say $) = "5 5" . -(Mnemonic: parentheses are used to group things. The effective gid is the group that's right for you, if you're running setgid.) -$<, $>, $( and $) can be set only on machines that support the corresponding set[re][ug]id() routine. $( and $) can be swapped only on machines supporting setregid(). -$PROGRAM_NAME -$0 -Contains the name of the program being executed. On some operating systems assigning to $0 modifies the argument area that the ps program sees. This is more useful as a way of indicating the current program state than it is for hiding the program you're running. (Mnemonic: same as sh and ksh.) -Note for BSD users: setting $0 does not completely remove "perl" from the ps(1) output. For example, setting $0 to "foobar" will result in "perl: foobar (perl)". This is an operating system feature. -$[ -The index of the first element in an array, and of the first character in a substring. Default is 0, but you could theoretically set it to 1 to make Perl behave more like awk (or Fortran) when subscripting and when evaluating the index() and substr() functions. (Mnemonic: [ begins subscripts.) -As of release 5 of Perl, assignment to $[ is treated as a compiler directive, and cannot influence the behavior of any other file. Its use is highly discouraged. -$] -The version + patchlevel / 1000 of the Perl interpreter. This variable can be used to determine whether the Perl interpreter executing a script is in the right range of versions. (Mnemonic: Is this version of perl in the right bracket?) Example: - warn "No checksumming!\n" if $] < 3.019; -See also the documentation of use VERSION and require VERSION for a convenient way to fail if the running Perl interpreter is too old. -The use of this variable is deprecated. The floating point representation can sometimes lead to inaccurate numeric comparisons. See $^V for a more modern representation of the Perl version that allows accurate string comparisons. -$COMPILING -$^C -The current value of the flag associated with the -c switch. Mainly of use with -MO=... to allow code to alter its behavior when being compiled, such as for example to AUTOLOAD at compile time rather than normal, deferred loading. See perlcc. Setting $^C = 1 is similar to calling B::minus_c. -$DEBUGGING -$^D -The current value of the debugging flags. (Mnemonic: value of -D switch.) -$SYSTEM_FD_MAX -$^F -The maximum system file descriptor, ordinarily 2. System file descriptors are passed to exec()ed processes, while higher file descriptors are not. Also, during an open(), system file descriptors are preserved even if the open() fails. (Ordinary file descriptors are closed before the open() is attempted.) The close-on-exec status of a file descriptor will be decided according to the value of $^F when the corresponding file, pipe, or socket was opened, not the time of the exec(). -$^H -WARNING: This variable is strictly for internal use only. Its availability, behavior, and contents are subject to change without notice. -This variable contains compile-time hints for the Perl interpreter. At the end of compilation of a BLOCK the value of this variable is restored to the value when the interpreter started to compile the BLOCK. -When perl begins to parse any block construct that provides a lexical scope (e.g., eval body, required file, subroutine body, loop body, or conditional block), the existing value of $^H is saved, but its value is left unchanged. When the compilation of the block is completed, it regains the saved value. Between the points where its value is saved and restored, code that executes within BEGIN blocks is free to change the value of $^H. -This behavior provides the semantic of lexical scoping, and is used in, for instance, the use strict pragma. -The contents should be an integer; different bits of it are used for different pragmatic flags. Here's an example: - sub add_100 { $^H |= 0x100 } - sub foo { - BEGIN { add_100() } - bar->baz($boon); - } -Consider what happens during execution of the BEGIN block. At this point the BEGIN block has already been compiled, but the body of foo() is still being compiled. The new value of $^H will therefore be visible only while the body of foo() is being compiled. -Substitution of the above BEGIN block with: - BEGIN { require strict; strict->import('vars') } -demonstrates how use strict 'vars' is implemented. Here's a conditional version of the same lexical pragma: - BEGIN { require strict; strict->import('vars') if $condition } -%^H -WARNING: This variable is strictly for internal use only. Its availability, behavior, and contents are subject to change without notice. -The %^H hash provides the same scoping semantic as $^H. This makes it useful for implementation of lexically scoped pragmas. -$INPLACE_EDIT -$^I -The current value of the inplace-edit extension. Use undef to disable inplace editing. (Mnemonic: value of -i switch.) -$^M -By default, running out of memory is an untrappable, fatal error. However, if suitably built, Perl can use the contents of $^M as an emergency memory pool after die()ing. Suppose that your Perl were compiled with -DPERL_EMERGENCY_SBRK and used Perl's malloc. Then - $^M = 'a' x (1 << 16); -would allocate a 64K buffer for use in an emergency. See the INSTALL file in the Perl distribution for information on how to enable this option. To discourage casual use of this advanced feature, there is no English long name for this variable. -$OSNAME -$^O -The name of the operating system under which this copy of Perl was built, as determined during the configuration process. The value is identical to $Config{'osname'}. See also Config and the -V command-line switch documented in perlrun. -$PERLDB -$^P -The internal variable for debugging support. The meanings of the various bits are subject to change, but currently indicate: -0x01 -Debug subroutine enter/exit. -0x02 -Line-by-line debugging. -0x04 -Switch off optimizations. -0x08 -Preserve more data for future interactive inspections. -0x10 -Keep info about source lines on which a subroutine is defined. -0x20 -Start with single-step on. -0x40 -Use subroutine address instead of name when reporting. -0x80 -Report goto &subroutine as well. -0x100 -Provide informative "file" names for evals based on the place they were compiled. -0x200 -Provide informative names to anonymous subroutines based on the place they were compiled. -Some bits may be relevant at compile-time only, some at run-time only. This is a new mechanism and the details may change. -$LAST_REGEXP_CODE_RESULT -$^R -The result of evaluation of the last successful (?{ code }) regular expression assertion (see perlre). May be written to. -$EXCEPTIONS_BEING_CAUGHT -$^S -Current state of the interpreter. Undefined if parsing of the current module/eval is not finished (may happen in $SIG{__DIE__} and $SIG{__WARN__} handlers). True if inside an eval(), otherwise false. -$BASETIME -$^T -The time at which the program began running, in seconds since the epoch (beginning of 1970). The values returned by the -M, -A, and -C filetests are based on this value. -$PERL_VERSION -$^V -The revision, version, and subversion of the Perl interpreter, represented as a string composed of characters with those ordinals. Thus in Perl v5.6.0 it equals chr(5) . chr(6) . chr(0) and will return true for $^V eq v5.6.0. Note that the characters in this string value can potentially be in Unicode range. -This can be used to determine whether the Perl interpreter executing a script is in the right range of versions. (Mnemonic: use ^V for Version Control.) Example: - warn "No \"our\" declarations!\n" if $^V and $^V lt v5.6.0; -See the documentation of use VERSION and require VERSION for a convenient way to fail if the running Perl interpreter is too old. -See also $] for an older representation of the Perl version. -$WARNING -$^W -The current value of the warning switch, initially true if -w was used, false otherwise, but directly modifiable. (Mnemonic: related to the -w switch.) See also warnings. -${^WARNING_BITS} -The current set of warning checks enabled by the use warnings pragma. See the documentation of warnings for more details. -${^WIDE_SYSTEM_CALLS} -Global flag that enables system calls made by Perl to use wide character APIs native to the system, if available. This is currently only implemented on the Windows platform. -This can also be enabled from the command line using the -C switch. -The initial value is typically 0 for compatibility with Perl versions earlier than 5.6, but may be automatically set to 1 by Perl if the system provides a user-settable default (e.g., $ENV{LC_CTYPE}). -The bytes pragma always overrides the effect of this flag in the current lexical scope. See bytes. -$EXECUTABLE_NAME -$^X -The name that the Perl binary itself was executed as, from C's argv[0]. This may not be a full pathname, nor even necessarily in your path. -$ARGV -contains the name of the current file when reading from <>. -@ARGV -The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the number of arguments minus one, because $ARGV[0] is the first argument, not the program's command name itself. See $0 for the command name. -@INC -The array @INC contains the list of places that the do EXPR, require, or use constructs look for their library files. It initially consists of the arguments to any -I command-line switches, followed by the default Perl library, probably /usr/local/lib/perl, followed by ".", to represent the current directory. If you need to modify this at runtime, you should use the use lib pragma to get the machine-dependent library properly loaded also: - use lib '/mypath/libdir/'; - use SomeMod; -@_ -Within a subroutine the array @_ contains the parameters passed to that subroutine. See perlsub. -%INC -The hash %INC contains entries for each filename included via the do, require, or use operators. The key is the filename you specified (with module names converted to pathnames), and the value is the location of the file found. The require operator uses this hash to determine whether a particular file has already been included. -%ENV -$ENV{expr} -The hash %ENV contains your current environment. Setting a value in ENV changes the environment for any child processes you subsequently fork() off. -%SIG -$SIG{expr} -The hash %SIG contains signal handlers for signals. For example: - sub handler { # 1st argument is signal name - my($sig) = @_; - print "Caught a SIG$sig--shutting down\n"; - close(LOG); - exit(0); - } - $SIG{'INT'} = \&handler; - $SIG{'QUIT'} = \&handler; - ... - $SIG{'INT'} = 'DEFAULT'; # restore default action - $SIG{'QUIT'} = 'IGNORE'; # ignore SIGQUIT -Using a value of 'IGNORE' usually has the effect of ignoring the signal, except for the CHLD signal. See perlipc for more about this special case. -Here are some other examples: - $SIG{"PIPE"} = "Plumber"; # assumes main::Plumber (not recommended) - $SIG{"PIPE"} = \&Plumber; # just fine; assume current Plumber - $SIG{"PIPE"} = *Plumber; # somewhat esoteric - $SIG{"PIPE"} = Plumber(); # oops, what did Plumber() return?? -Be sure not to use a bareword as the name of a signal handler, lest you inadvertently call it. -If your system has the sigaction() function then signal handlers are installed using it. This means you get reliable signal handling. If your system has the SA_RESTART flag it is used when signals handlers are installed. This means that system calls for which restarting is supported continue rather than returning when a signal arrives. If you want your system calls to be interrupted by signal delivery then do something like this: - use POSIX ':signal_h'; - my $alarm = 0; - sigaction SIGALRM, new POSIX::SigAction sub { $alarm = 1 } - or die "Error setting SIGALRM handler: $!\n"; -See POSIX. -Certain internal hooks can be also set using the %SIG hash. The routine indicated by $SIG{__WARN__} is called when a warning message is about to be printed. The warning message is passed as the first argument. The presence of a __WARN__ hook causes the ordinary printing of warnings to STDERR to be suppressed. You can use this to save warnings in a variable, or turn warnings into fatal errors, like this: - local $SIG{__WARN__} = sub { die $_[0] }; - eval $proggie; -The routine indicated by $SIG{__DIE__} is called when a fatal exception is about to be thrown. The error message is passed as the first argument. When a __DIE__ hook routine returns, the exception processing continues as it would have in the absence of the hook, unless the hook routine itself exits via a goto, a loop exit, or a die(). The __DIE__ handler is explicitly disabled during the call, so that you can die from a __DIE__ handler. Similarly for __WARN__. -Due to an implementation glitch, the $SIG{__DIE__} hook is called even inside an eval(). Do not use this to rewrite a pending exception in $@, or as a bizarre substitute for overriding CORE::GLOBAL::die(). This strange action at a distance may be fixed in a future release so that $SIG{__DIE__} is only called if your program is about to exit, as was the original intent. Any other use is deprecated. -__DIE__/__WARN__ handlers are very special in one respect: they may be called to report (probable) errors found by the parser. In such a case the parser may be in inconsistent state, so any attempt to evaluate Perl code from such a handler will probably result in a segfault. This means that warnings or errors that result from parsing Perl should be used with extreme caution, like this: - require Carp if defined $^S; - Carp::confess("Something wrong") if defined &Carp::confess; - die "Something wrong, but could not load Carp to give backtrace... - To see backtrace try starting Perl with -MCarp switch"; -Here the first line will load Carp unless it is the parser who called the handler. The second line will print backtrace and die if Carp was available. The third line will be executed only if Carp was not available. -See "die" in perlfunc, "warn" in perlfunc, "eval" in perlfunc, and warnings for additional information. -Error Indicators -The variables $@, $!, $^E, and $? contain information about different types of error conditions that may appear during execution of a Perl program. The variables are shown ordered by the "distance" between the subsystem which reported the error and the Perl process. They correspond to errors detected by the Perl interpreter, C library, operating system, or an external program, respectively. -To illustrate the differences between these variables, consider the following Perl expression, which uses a single-quoted string: - eval q{ - open PIPE, "/cdrom/install |"; - @res = <PIPE>; - close PIPE or die "bad pipe: $?, $!"; - }; -After execution of this statement all 4 variables may have been set. -$@ is set if the string to be eval-ed did not compile (this may happen if open or close were imported with bad prototypes), or if Perl code executed during evaluation die()d . In these cases the value of $@ is the compile error, or the argument to die (which will interpolate $! and $?!). (See also Fatal, though.) -When the eval() expression above is executed, open(), <PIPE>, and close are translated to calls in the C run-time library and thence to the operating system kernel. $! is set to the C library's errno if one of these calls fails. -Under a few operating systems, $^E may contain a more verbose error indicator, such as in this case, "CDROM tray not closed." Systems that do not support extended error messages leave $^E the same as $!. -Finally, $? may be set to non-0 value if the external program /cdrom/install fails. The upper eight bits reflect specific error conditions encountered by the program (the program's exit() value). The lower eight bits reflect mode of failure, like signal death and core dump information See wait(2) for details. In contrast to $! and $^E, which are set only if error condition is detected, the variable $? is set on each wait or pipe close, overwriting the old value. This is more like $@, which on every eval() is always set on failure and cleared on success. -For more details, see the individual descriptions at $@, $!, $^E, and $?. -Technical Note on the Syntax of Variable Names -Variable names in Perl can have several formats. Usually, they must begin with a letter or underscore, in which case they can be arbitrarily long (up to an internal limit of 251 characters) and may contain letters, digits, underscores, or the special sequence :: or '. In this case, the part before the last :: or ' is taken to be a package qualifier; see perlmod. -Perl variable names may also be a sequence of digits or a single punctuation or control character. These names are all reserved for special uses by Perl; for example, the all-digits names are used to hold data captured by backreferences after a regular expression match. Perl has a special syntax for the single-control-character names: It understands ^X (caret X) to mean the control-X character. For example, the notation $^W (dollar-sign caret W) is the scalar variable whose name is the single character control-W. This is better than typing a literal control-W into your program. -Finally, new in Perl 5.6, Perl variable names may be alphanumeric strings that begin with control characters (or better yet, a caret). These variables must be written in the form ${^Foo}; the braces are not optional. ${^Foo} denotes the scalar variable whose name is a control-F followed by two o's. These variables are reserved for future special uses by Perl, except for the ones that begin with ^_ (control-underscore or caret-underscore). No control-character name that begins with ^_ will acquire a special meaning in any future version of Perl; such names may therefore be used safely in programs. $^_ itself, however, is reserved. -Perl identifiers that begin with digits, control characters, or punctuation characters are exempt from the effects of the package declaration and are always forced to be in package main. A few other names are also exempt: - ENV STDIN - INC STDOUT - ARGV STDERR - ARGVOUT - SIG -In particular, the new special ${^_XYZ} variables are always taken to be in package main, regardless of any package declarations presently in scope. -BUGS -Due to an unfortunate accident of Perl's implementation, use English imposes a considerable performance penalty on all regular expression matches in a program, regardless of whether they occur in the scope of use English. For that reason, saying use English in libraries is strongly discouraged. See the Devel::SawAmpersand module documentation from CPAN (http://www.perl.com/CPAN/modules/by-module/Devel/) for more information. -Having to even think about the $^S variable in your exception handlers is simply wrong. $SIG{__DIE__} as currently implemented invites grievous and difficult to track down errors. Avoid it and use an END{} or CORE::GLOBAL::die override instead. diff --git a/lib/Pod/Simple/t/puller.t b/lib/Pod/Simple/t/puller.t deleted file mode 100644 index df0e00ef69..0000000000 --- a/lib/Pod/Simple/t/puller.t +++ /dev/null @@ -1,358 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 136 }; - -#use Pod::Simple::Debug (5); - -#sub Pod::Simple::MANY_LINES () {1} -#sub Pod::Simple::PullParser::DEBUG () {1} - - -use Pod::Simple::PullParser; - -sub pump_it_up { - my $p = Pod::Simple::PullParser->new; - $p->set_source( \( $_[0] ) ); - my(@t, $t); - while($t = $p->get_token) { push @t, $t } - print "# Count of tokens: ", scalar(@t), "\n"; - print "# I.e., {", join("\n# + ", - map ref($_) . ": " . $_->dump, @t), "} \n"; - return @t; -} - -my @t; - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -@t = pump_it_up(qq{\n\nProk\n\n=head1 Things\n\n=cut\n\nBzorch\n\n}); - -if(not( - ok scalar( grep { ref $_ and $_->can('type') } @t), 5 -)) { - ok 0,1, "Wrong token count. Failing subsequent tests.\n"; - for ( 1 .. 12 ) {ok 0} -} else { - ok $t[0]->type, 'start'; - ok $t[1]->type, 'start'; - ok $t[2]->type, 'text'; - ok $t[3]->type, 'end'; - ok $t[4]->type, 'end'; - - ok $t[0]->tagname, 'Document'; - ok $t[1]->tagname, 'head1'; - ok $t[2]->text, 'Things'; - ok $t[3]->tagname, 'head1'; - ok $t[4]->tagname, 'Document'; - - ok $t[0]->attr('start_line'), '5'; - ok $t[1]->attr('start_line'), '5'; -} - - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -@t = pump_it_up( - qq{Woowoo\n\n=over\n\n=item *\n\nStuff L<HTML::TokeParser>\n\n} - . qq{=item *\n\nThings I<like that>\n\n=back\n\n=cut\n\n} -); - -if( - not( ok scalar( grep { ref $_ and $_->can('type') } @t) => 16 ) -) { - ok 0,1, "Wrong token count. Failing subsequent tests.\n"; - for ( 1 .. 32 ) {ok 0} -} else { - ok $t[ 0]->type, 'start'; - ok $t[ 1]->type, 'start'; - ok $t[ 2]->type, 'start'; - ok $t[ 3]->type, 'text'; - ok $t[ 4]->type, 'start'; - ok $t[ 5]->type, 'text'; - ok $t[ 6]->type, 'end'; - ok $t[ 7]->type, 'end'; - - ok $t[ 8]->type, 'start'; - ok $t[ 9]->type, 'text'; - ok $t[10]->type, 'start'; - ok $t[11]->type, 'text'; - ok $t[12]->type, 'end'; - ok $t[13]->type, 'end'; - ok $t[14]->type, 'end'; - ok $t[15]->type, 'end'; - - - - ok $t[ 0]->tagname, 'Document'; - ok $t[ 1]->tagname, 'over-bullet'; - ok $t[ 2]->tagname, 'item-bullet'; - ok $t[ 3]->text, 'Stuff '; - ok $t[ 4]->tagname, 'L'; - ok $t[ 5]->text, 'HTML::TokeParser'; - ok $t[ 6]->tagname, 'L'; - ok $t[ 7]->tagname, 'item-bullet'; - - ok $t[ 8]->tagname, 'item-bullet'; - ok $t[ 9]->text, 'Things '; - ok $t[10]->tagname, 'I'; - ok $t[11]->text, 'like that'; - ok $t[12]->tagname, 'I'; - ok $t[13]->tagname, 'item-bullet'; - ok $t[14]->tagname, 'over-bullet'; - ok $t[15]->tagname, 'Document'; - - ok $t[4]->attr("type"), "pod"; -} - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -{ -print "# Testing unget_token\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} ); - -ok 1; -my $t; -$t = $p->get_token; -ok $t && $t->type, 'start'; -ok $t && $t->tagname, 'Document'; -print "# ungetting ($t).\n"; -$p->unget_token($t); -ok 1; - -$t = $p->get_token; -ok $t && $t->type, 'start'; -ok $t && $t->tagname, 'Document'; -my @to_save = ($t); - -$t = $p->get_token; -ok $t && $t->type, 'start'; -ok $t && $t->tagname, 'Para'; -push @to_save, $t; - -print "# ungetting (@to_save).\n"; -$p->unget_token(@to_save); -splice @to_save; - - -$t = $p->get_token; -ok $t && $t->type, 'start'; -ok $t && $t->tagname, 'Document'; - -$t = $p->get_token; -ok $t && $t->type, 'start'; -ok $t && $t->tagname, 'Para'; - -ok 1; - -} - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -{ -print "# Testing pullparsing from an arrayref\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -$p->set_source( ['','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut'] ); -ok 1; -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; - -} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -{ -print "# Testing pullparsing from an arrayref with terminal newlines\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -$p->set_source( [ map "$_\n", - '','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut'] ); -ok 1; -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; - -} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END { unlink "temp.pod" } -{ -print "# Testing pullparsing from a file\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -open(OUT, ">temp.pod") || die "Can't write-open temp.pod: $!"; -print OUT - map "$_\n", - '','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut' -; -close(OUT); -ok 1; -sleep 1; - -$p->set_source("temp.pod"); - -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; - print "# That's token number ", scalar(@t), "\n"; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; - -} - -# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ - -{ -print "# Testing pullparsing from a glob\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!"; -$p->set_source(*IN); - -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; - print "# That's token number ", scalar(@t), "\n"; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; -close(IN); - -} - -# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ - -{ -print "# Testing pullparsing from a globref\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!"; -$p->set_source(\*IN); - -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; - print "# That's token number ", scalar(@t), "\n"; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; -close(IN); - -} - -# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ - -{ -print "# Testing pullparsing from a filehandle\n"; -my $p = Pod::Simple::PullParser->new; -ok 1; -open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!"; -$p->set_source(*IN{IO}); - -my( @t, $t ); -while($t = $p->get_token) { - print "# Got a token: ", $t->dump, "\n#\n"; - push @t, $t; - print "# That's token number ", scalar(@t), "\n"; -} -ok scalar(@t), 5; # count of tokens -ok $t[0]->type, 'start'; -ok $t[1]->type, 'start'; -ok $t[2]->type, 'text'; -ok $t[3]->type, 'end'; -ok $t[4]->type, 'end'; - -ok $t[0]->tagname, 'Document'; -ok $t[1]->tagname, 'Para'; -ok $t[2]->text, 'Lala zaza'; -ok $t[3]->tagname, 'Para'; -ok $t[4]->tagname, 'Document'; -close(IN); - -} - - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - -__END__ - diff --git a/lib/Pod/Simple/t/pulltitl.t b/lib/Pod/Simple/t/pulltitl.t deleted file mode 100644 index abaf83f7b7..0000000000 --- a/lib/Pod/Simple/t/pulltitl.t +++ /dev/null @@ -1,388 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 104 }; - -#use Pod::Simple::Debug (5); - -#sub Pod::Simple::MANY_LINES () {1} -#sub Pod::Simple::PullParser::DEBUG () {3} - - -use Pod::Simple::PullParser; - -ok 1; - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NAME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} ); - -ok $p->get_title(), 'Bzorch'; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'head1' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'text'); -ok( $t && $t->type eq 'text' && $t->text, 'NAME' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NE<65>ME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} ); - -ok $p->get_title(), 'Bzorch'; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'head1' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'text'); - -} - - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -{ -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} ); -ok $p->get_title(), 'Bzorch - thing lala'; -} - - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} ); -ok $p->get_title(), 'Bzorch - thing lala'; - -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'head1' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'text'); -ok( $t && $t->type eq 'text' && $t->text, 'NAME' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 Bzorch lala\n\n=pod\n\nLala\n\n\=cut\n} ); - -ok $p->get_title(), 'Bzorch lala'; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'head1' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'text'); -ok( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 Bzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} ); - -ok $p->get_title(), 'Bzorch - thing lala'; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'head1' ); - -ok( $t = $p->get_token); -ok( $t && $t->type, 'text'); -ok( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' ); - -} -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 Nombre (NAME)\n\nBzorch - I<thing> lala\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_version || '', ''; -ok $p->get_author || '', ''; - -ok $p->get_title(), 'Bzorch - thing lala'; - -my $t; -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 ëÏÇÄÁ ÞÉÔÁÌÁ (NAME)\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 (NAME) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_title() || '', ''; -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -ok $p->get_title() || '', ''; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -ok $p->get_title(), "Thingy"; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_title(), "Thingy"; -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \qq{\n=head1 (NAME) ÷ÄÁÌÉ ÐÅÒÅÄ\n\nThingy\n\n=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ\n\nëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} ); - -ok $p->get_title(), "Thingy"; -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \q{ - -=head1 (NAME) ÷ÄÁÌÉ ÐÅÒÅÄ - -Thingy - -=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ - -ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading - -=pod - -Grunk - -=cut -} ); - -ok $p->get_title(), "Thingy"; -ok $p->get_version() || '', ''; -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -my $t; - -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### - -{ -print "# Testing another set, at line ", __LINE__, "\n"; - -my $p = Pod::Simple::PullParser->new; -$p->set_source( \q{ - -=head1 (NAME) ÷ÄÁÌÉ ÐÅÒÅÄ - -Thingy - -=head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ - -ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading - -=head1 VERSION - - Stuff: Thing - Whatever: Um. - -=head1 AUTHOR - -Jojoj E<65>arzarz - -=pod - -Grunk - -=cut -} ); - -ok $p->get_title(), "Thingy"; -my $v = $p->get_version || ''; -$v =~ s/^ +//m; -$v =~ s/^\s+//s; -$v =~ s/\s+$//s; -ok $v, "Stuff: Thing\nWhatever: Um."; -ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading}; -ok $p->get_author() || '', 'Jojoj Aarzarz'; - - -my $t; -ok( $t = $p->get_token); -ok( $t && $t->type, 'start'); -ok( $t && $t->type eq 'start' && $t->tagname, 'Document' ); - -} - -########################################################################### -########################################################################### - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - -__END__ - diff --git a/lib/Pod/Simple/t/reinit.t b/lib/Pod/Simple/t/reinit.t deleted file mode 100644 index c10c65eb17..0000000000 --- a/lib/Pod/Simple/t/reinit.t +++ /dev/null @@ -1,91 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - if($ENV{PERL_CORE}) { - @INC = '../lib'; - } -} - -use lib '../lib'; - -use strict; -use Test; -BEGIN { plan tests => 5 }; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir ($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catfile ($dir, $file); - } else { - return $file; - } -} - -use Pod::Simple::Text; -$Pod::Simple::Text::FREAKYMODE = 1; - -my $parser = Pod::Simple::Text->new(); - -foreach my $file ( - "junk1.pod", - "junk2.pod", - "perlcyg.pod", - "perlfaq.pod", - "perlvar.pod", -) { - - unless(-e source_path($file)) { - ok 0; - print "# But $file doesn't exist!!\n"; - next; - } - - my $precooked = source_path($file); - my $outstring; - my $compstring; - $precooked =~ s<\.pod><o.txt>s; - $parser->reinit; - $parser->output_string(\$outstring); - $parser->parse_file(source_path($file)); - - open(IN, $precooked) or die "Can't read-open $precooked: $!"; - { - local $/; - $compstring = <IN>; - } - close(IN); - - for ($outstring,$compstring) { s/\s+/ /g; s/^\s+//s; s/\s+$//s; } - - if($outstring eq $compstring) { - ok 1; - next; - } elsif( do{ - for ($outstring, $compstring) { tr/ //d; }; - $outstring eq $compstring; - }){ - print "# Differ only in whitespace.\n"; - ok 1; - next; - } else { - - my $x = $outstring ^ $compstring; - $x =~ m/^(\x00*)/s or die; - my $at = length($1); - print "# Difference at byte $at...\n"; - if($at > 10) { - $at -= 5; - } - { - print "# ", substr($outstring,$at,20), "\n"; - print "# ", substr($compstring,$at,20), "\n"; - print "# ^..."; - } - - ok 0; - printf "# Unequal lengths %s and %s\n", length($outstring), length($compstring); - next; - } - } diff --git a/lib/Pod/Simple/t/render.t b/lib/Pod/Simple/t/render.t deleted file mode 100644 index ae7b8f401d..0000000000 --- a/lib/Pod/Simple/t/render.t +++ /dev/null @@ -1,164 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } else { - push @INC, '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 26 }; -use Pod::Simple::TextContent; -use Pod::Simple::Text; - -BEGIN { - *mytime = defined(&Win32::GetTickCount) - ? sub () {Win32::GetTickCount() / 1000} - : sub () {time()} -} - -$Pod::Simple::Text::FREAKYMODE = 1; -use Pod::Simple::TiedOutFH (); - -chdir 't' unless $ENV{PERL_CORE}; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir ($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catfile ($dir, $file); - } else { - return $file; - } -} - -my $outfile = '10000'; - -foreach my $file ( - "junk1.pod", - "junk2.pod", - "perlcyg.pod", - "perlfaq.pod", - "perlvar.pod", -) { - - unless(-e source_path($file)) { - ok 0; - print "# But $file doesn't exist!!\n"; - exit 1; - } - - my @out; - my $precooked = source_path($file); - $precooked =~ s<\.pod><o.txt>s; - unless(-e $precooked) { - ok 0; - print "# But $precooked doesn't exist!!\n"; - exit 1; - } - - print "#\n#\n#\n###################\n# $file\n"; - foreach my $class ('Pod::Simple::TextContent', 'Pod::Simple::Text') { - my $p = $class->new; - push @out, ''; - $p->output_string(\$out[-1]); - my $t = mytime(); - $p->parse_file(source_path($file)); - printf "# %s %s %sb, %.03fs\n", - ref($p), source_path($file), length($out[-1]), mytime() - $t ; - ok 1; - } - - print "# Reading $precooked...\n"; - open(IN, $precooked) or die "Can't read-open $precooked: $!"; - { - local $/; - push @out, <IN>; - } - close(IN); - print "# ", length($out[-1]), " bytes pulled in.\n"; - - - for (@out) { s/\s+/ /g; s/^\s+//s; s/\s+$//s; } - - my $faily = 0; - print "#\n#Now comparing 1 and 2...\n"; - $faily += compare2($out[0], $out[1]); - print "#\n#Now comparing 2 and 3...\n"; - $faily += compare2($out[1], $out[2]); - print "#\n#Now comparing 1 and 3...\n"; - $faily += compare2($out[0], $out[2]); - - if($faily) { - ++$outfile; - - my @outnames = map $outfile . $_ , qw(0 1); - open(OUT2, ">$outnames[0].~out.txt") || die "Can't write-open $outnames[0].txt: $!"; - - foreach my $out (@out) { push @outnames, $outnames[-1]; ++$outnames[-1] }; - pop @outnames; - printf "# Writing to %s.txt .. %s.txt\n", $outnames[0], $outnames[-1]; - shift @outnames; - - binmode(OUT2); - foreach my $out (@out) { - my $outname = shift @outnames; - open(OUT, ">$outname.txt") || die "Can't write-open $outname.txt: $!"; - binmode(OUT); - print OUT $out, "\n"; - print OUT2 $out, "\n"; - close(OUT); - } - close(OUT2); - } -} - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; -exit; - - -sub compare2 { - my @out = @_; - if($out[0] eq $out[1]) { - ok 1; - return 0; - } elsif( do{ - for ($out[0], $out[1]) { tr/ //d; }; - $out[0] eq $out[1]; - }){ - print "# Differ only in whitespace.\n"; - ok 1; - return 0; - } else { - #ok $out[0], $out[1]; - - my $x = $out[0] ^ $out[1]; - $x =~ m/^(\x00*)/s or die; - my $at = length($1); - print "# Difference at byte $at...\n"; - if($at > 10) { - $at -= 5; - } - { - print "# ", substr($out[0],$at,20), "\n"; - print "# ", substr($out[1],$at,20), "\n"; - print "# ^..."; - } - - - - ok 0; - printf "# Unequal lengths %s and %s\n", length($out[0]), length($out[1]); - return 1; - } -} - - -__END__ - diff --git a/lib/Pod/Simple/t/search05.t b/lib/Pod/Simple/t/search05.t deleted file mode 100644 index a55ca72ce1..0000000000 --- a/lib/Pod/Simple/t/search05.t +++ /dev/null @@ -1,40 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 15 } - -print "# Some basic sanity tests...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; -print "# New object: $x\n"; -print "# Version: ", $x->VERSION, "\n"; -ok defined $x->can('callback'); -ok defined $x->can('dir_prefix'); -ok defined $x->can('inc'); -ok defined $x->can('laborious'); -ok defined $x->can('limit_glob'); -ok defined $x->can('limit_re'); -ok defined $x->can('shadows'); -ok defined $x->can('verbose'); -ok defined $x->can('survey'); -ok defined $x->can('_state_as_string'); -ok defined $x->can('contains_pod'); -ok defined $x->can('find'); -ok defined $x->can('simplify_name'); - -print "# Testing state dumping...\n"; -print $x->_state_as_string; -$x->inc("I\nLike Pie!\t!!"); -print $x->_state_as_string; - -print "# bye\n"; -ok 1; - diff --git a/lib/Pod/Simple/t/search10.t b/lib/Pod/Simple/t/search10.t deleted file mode 100644 index c69334b1f6..0000000000 --- a/lib/Pod/Simple/t/search10.t +++ /dev/null @@ -1,86 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -# Time-stamp: "2004-05-23 22:38:58 ADT" - -use strict; - -#sub Pod::Simple::Search::DEBUG () {5}; - -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 7 } - -print "# ", __FILE__, - ": Testing the surveying of a single specified docroot...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -print "# Testing the surveying of the current directory...\n"; - -$x->inc(0); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my $here; -if( -e ($here = source_path('testlib1'))) { - # -} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'testlib1'))) { - # -} else { - die "Can't find the test corpus"; -} -print "# OK, found the test corpus as $here\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my($name2where, $where2name) = $x->survey($here); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort values %$where2name; -ok $names, "Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik"; -} - -{ -my $names = join "|", sort keys %$name2where; -ok $names, "Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik"; -} - -ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); - -ok grep( m/squaa\.pm/, keys %$where2name ), 1; - -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search12.t b/lib/Pod/Simple/t/search12.t deleted file mode 100644 index 4f620c0cf9..0000000000 --- a/lib/Pod/Simple/t/search12.t +++ /dev/null @@ -1,79 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 7 } - -print "# ", __FILE__, - ": Testing the surveying of the current directory...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - require File::Spec; - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my $here; -if( -e ($here = source_path('testlib1'))) { - chdir $here; -} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'testlib1'))) { - chdir $here; -} else { - die "Can't find the test corpus"; -} -print "# OK, found the test corpus as $here\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my($name2where, $where2name) = $x->survey('.'); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort values %$where2name; -ok $names, "Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik"; -} - -{ -my $names = join "|", sort keys %$name2where; -ok $names, "Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik"; -} - -ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); - -ok grep( m/squaa\.pm/, keys %$where2name ), 1; - -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search20.t b/lib/Pod/Simple/t/search20.t deleted file mode 100644 index 3022b3653b..0000000000 --- a/lib/Pod/Simple/t/search20.t +++ /dev/null @@ -1,91 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 7 } - -print "# ", __FILE__, - ": Testing the scanning of several (well, two) docroots...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); - -$x->callback(sub { - print "# ", join(" ", map "{$_}", @_), "\n"; - return; -}); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2); -if( -e ($here1 = source_path('testlib1'))) { - die "But where's $here2?" - unless -e ($here2 = source_path('testlib2')); -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -print "# OK, starting run...\n# [[\n"; -my($name2where, $where2name) = $x->survey($here1, $here2); -print "# ]]\n#OK, run done.\n"; - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort values %$where2name; -skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, - $names, - "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; -} - -{ -my $names = join "|", sort keys %$name2where; -skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, - $names, - "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; -} - -ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); - -ok grep( m/squaa\.pm/, keys %$where2name ), 1; - -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search22.t b/lib/Pod/Simple/t/search22.t deleted file mode 100644 index 6e6d662a1b..0000000000 --- a/lib/Pod/Simple/t/search22.t +++ /dev/null @@ -1,119 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 13 } - -print "# ", __FILE__, - ": Testing the scanning of several docroots...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path('testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path('testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path('testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -print "# won't show any shadows, since we're just looking at the name2where keys\n"; -my $names = join "|", sort keys %$name2where; -skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, - $names, - "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; -} - -{ -print "# but here we'll see shadowing:\n"; -my $names = join "|", sort values %$where2name; -skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, - $names, - "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik"; - -my %count; -for(values %$where2name) { ++$count{$_} }; -#print pretty(\%count), "\n\n"; -delete @count{ grep $count{$_} < 2, keys %count }; -my $shadowed = join "|", sort keys %count; -ok $shadowed, "hinkhonk::Glunk|hinkhonk::Vliff|perlthng|squaa::Vliff"; - -sub thar { print "# Seen $_[0] :\n", map "# {$_}\n", sort grep $where2name->{$_} eq $_[0],keys %$where2name; return; } - -ok $count{'perlthng'}, 2; -thar 'perlthng'; -ok $count{'squaa::Vliff'}, 3; -thar 'squaa::Vliff'; -} - - -ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); - -ok grep( m/squaa\.pm/, keys %$where2name ), 1; - -ok( ($name2where->{'perlthng'} || 'huh???'), '/[^\^]testlib1/' ); -ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); - -# Some sanity: -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); - - - - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search25.t b/lib/Pod/Simple/t/search25.t deleted file mode 100644 index 77045033b9..0000000000 --- a/lib/Pod/Simple/t/search25.t +++ /dev/null @@ -1,112 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; - -#sub Pod::Simple::Search::DEBUG () {5}; - -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 10 } - -print "# ", __FILE__, - ": Testing limit_glob ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; -my $dir; -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path( 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path( 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path( 'testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora: $dir"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $glob = 'squaa::*'; -print "# Limiting to $glob\n"; -$x->limit_glob($glob); - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort keys %$name2where; -ok $names, "squaa::Glunk|squaa::Vliff|squaa::Wowo"; -} - -{ -my $names = join "|", sort values %$where2name; -ok $names, "squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; - -my %count; -for(values %$where2name) { ++$count{$_} }; -#print pretty(\%count), "\n\n"; -delete @count{ grep $count{$_} < 2, keys %count }; -my $shadowed = join "|", sort keys %count; -ok $shadowed, "squaa::Vliff"; - -sub thar { print "# Seen $_[0] :\n", map "# {$_}\n", sort grep $where2name->{$_} eq $_[0],keys %$where2name; return; } - -ok $count{'squaa::Vliff'}, 3; -thar 'squaa::Vliff'; -} - - -ok ! $name2where->{'squaa'}; # because squaa.pm isn't squaa::* - -ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); - -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); - - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search26.t b/lib/Pod/Simple/t/search26.t deleted file mode 100644 index fb9d322c76..0000000000 --- a/lib/Pod/Simple/t/search26.t +++ /dev/null @@ -1,95 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 5 } - - -# -# "kleene" rhymes with "zany". It's a fact! -# - - -print "# ", __FILE__, - ": Testing limit_glob ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path( 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path ( 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path( 'testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $glob = '*k'; -print "# Limiting to $glob\n"; -$x->limit_glob($glob); - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort keys %$name2where; -ok $names, "Zonk::Pronk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik"; -} - -{ -my $names = join "|", sort values %$where2name; -ok $names, "Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik"; -} - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search27.t b/lib/Pod/Simple/t/search27.t deleted file mode 100644 index 22cf32d107..0000000000 --- a/lib/Pod/Simple/t/search27.t +++ /dev/null @@ -1,109 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 10 } - -print "# ", __FILE__, - ": Testing limit_glob ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path( 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path( 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path( 'testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $glob = 'squaa*'; -print "# Limiting to $glob\n"; -$x->limit_glob($glob); - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort keys %$name2where; -ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo"; -} - -{ -my $names = join "|", sort values %$where2name; -ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; - -my %count; -for(values %$where2name) { ++$count{$_} }; -#print pretty(\%count), "\n\n"; -delete @count{ grep $count{$_} < 2, keys %count }; -my $shadowed = join "|", sort keys %count; -ok $shadowed, "squaa::Vliff"; - -sub thar { print "# Seen $_[0] :\n", map "# {$_}\n", sort grep $where2name->{$_} eq $_[0],keys %$where2name; return; } - -ok $count{'squaa::Vliff'}, 3; -thar 'squaa::Vliff'; -} - - -ok $name2where->{'squaa'}; # because squaa.pm IS squaa* - -ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); - -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); - - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search28.t b/lib/Pod/Simple/t/search28.t deleted file mode 100644 index 9301232317..0000000000 --- a/lib/Pod/Simple/t/search28.t +++ /dev/null @@ -1,85 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 4 } - -print "# ", __FILE__, - ": Testing limit_glob ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path( 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path( 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path( 'testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $glob = '*z*k*'; -print "# Limiting to $glob\n"; -$x->limit_glob($glob); - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort values %$where2name; -ok $names, "Zonk::Pronk|perlzuk|zikzik"; -} - - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search29.t b/lib/Pod/Simple/t/search29.t deleted file mode 100644 index c62befbbf8..0000000000 --- a/lib/Pod/Simple/t/search29.t +++ /dev/null @@ -1,85 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 4 } - -print "# ", __FILE__, - ": Testing limit_glob ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; - -$x->inc(0); -$x->shadows(1); - -use File::Spec; -use Cwd; -my $cwd = cwd(); -print "# CWD: $cwd\n"; - -sub source_path { - my $file = shift; - if ($ENV{PERL_CORE}) { - my $updir = File::Spec->updir; - my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't'); - return File::Spec->catdir ($dir, $file); - } else { - return $file; - } -} - -my($here1, $here2, $here3); - -if( -e ($here1 = source_path( 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = source_path( 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = source_path( 'testlib3')); - -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { - die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); - die "But where's $here3?" - unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3')); - -} else { - die "Can't find the test corpora"; -} -print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n"; -ok 1; - -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $glob = '*z?k*'; -print "# Limiting to $glob\n"; -$x->limit_glob($glob); - -my($name2where, $where2name) = $x->survey($here1, $here2, $here3); - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -{ -my $names = join "|", sort values %$where2name; -ok $names, "perlzuk|zikzik"; -} - - -print "# OK, bye from ", __FILE__, "\n"; -ok 1; - -__END__ - diff --git a/lib/Pod/Simple/t/search50.t b/lib/Pod/Simple/t/search50.t deleted file mode 100644 index d207276857..0000000000 --- a/lib/Pod/Simple/t/search50.t +++ /dev/null @@ -1,67 +0,0 @@ -BEGIN { - if( $ENV{PERL_CORE} ) { - chdir 't'; - use File::Spec; - @INC = (File::Spec->rel2abs('../lib') ); - } -} -use strict; - -#sub Pod::Simple::Search::DEBUG () {5}; - -use Pod::Simple::Search; -use Test; -BEGIN { plan tests => 7 } - -print "# Test the scanning of the whole of \@INC ...\n"; - -my $x = Pod::Simple::Search->new; -die "Couldn't make an object!?" unless ok defined $x; -ok $x->inc; # make sure inc=1 is the default -print $x->_state_as_string; -#$x->verbose(12); - -use Pod::Simple; -*pretty = \&Pod::Simple::BlackBox::pretty; - -my $found = 0; -$x->callback(sub { - print "# ", join(" ", map "{$_}", @_), "\n"; - ++$found; - return; -}); - -print "# \@INC == @INC\n"; - -my $t = time(); my($name2where, $where2name) = $x->survey(); -$t = time() - $t; -ok $found; - -print "# Found $found items in $t seconds!\n# See...\n"; - -my $p = pretty( $where2name, $name2where )."\n"; -$p =~ s/, +/,\n/g; -$p =~ s/^/# /mg; -print $p; - -print "# OK, making sure strict and strict.pm were in there...\n"; -ok( ($name2where->{'strict'} || 'huh???'), '/strict\.(pod|pm)$/'); - -ok grep( m/strict\.(pod|pm)/, keys %$where2name ); - -my $strictpath = $name2where->{'strict'}; -if( $strictpath ) { - my @x = ($x->find('strict')||'(nil)', $strictpath); - print "# Comparing \"$x[0]\" to \"$x[1]\"\n"; - for(@x) { s{[/\\]}{/}g; } - print "# => \"$x[0]\" to \"$x[1]\"\n"; - ok $x[0], $x[1], " find('strict') should match survey's name2where{strict}"; -} else { - ok 0; # no 'thatpath/strict.pm' means can't test find() -} - -ok 1; -print "# Byebye from ", __FILE__, "\n"; -print "# @INC\n"; -__END__ - diff --git a/lib/Pod/Simple/t/stree.t b/lib/Pod/Simple/t/stree.t deleted file mode 100644 index efdf8097fa..0000000000 --- a/lib/Pod/Simple/t/stree.t +++ /dev/null @@ -1,151 +0,0 @@ - - -use strict; -use Test; -BEGIN { plan tests => 33 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::SimpleTree; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; - -my $hashes_dont_matter = 0; - - -my $x = 'Pod::Simple::SimpleTree'; -sub x { - my $p = $x->new; - $p->merge_text(1); - $p->parse_string_document( shift )->root; -} - -ok 1; - -print "# a bit of meta-testing...\n"; -&ok( deq( 1, 1 )); -&ok(!deq( 2, 1 )); - -&ok( deq( undef, undef )); -&ok(!deq( undef, 1 )); -&ok(!deq( 1, undef )); - -&ok( deq( [ ], [ ] )); -&ok(!deq( [ ], 1 )); -&ok(!deq( 1, [ ] )); - -&ok( deq( [1], [1] )); -&ok(!deq( [1], 1 )); -&ok(!deq( 1, [1] )); -&ok(!deq( [1], [ ] )); -&ok(!deq( [ ], [1] )); -&ok(!deq( [1], [2] )); -&ok(!deq( [2], [1] )); - -&ok( deq( [ ], [ ] )); -&ok(!deq( [ ], 1 )); -&ok(!deq( 1, [ ] )); - -&ok( deq( {}, {} )); -&ok(!deq( {}, 1 )); -&ok(!deq( 1, {} )); -&ok(!deq( {1,2}, {} )); -&ok(!deq( {}, {1,2} )); -&ok( deq( {1,2}, {1,2} )); -&ok(!deq( {2,1}, {1,2} )); - - - - -print '# ', Pod::Simple::pretty(x( "=pod\n\nI like pie.\n" )), "\n"; -print "# Making sure we get a tree at all...\n"; -ok x( "=pod\n\nI like pie.\n" ); - - -print "# Some real tests...\n"; -&ok( deq( x( "=pod\n\nI like pie.\n"), - [ "Document", {"start_line"=>1}, - [ "Para", {"start_line"=>3}, - "I like pie." - ] - ] -)); - -$hashes_dont_matter = 1; - -&ok( deq( x("=pod\n\nB<foo\t>\n"), - [ "Document", {}, - [ "Para", {}, - ["B", {}, - "foo " - ] - ] - ] -)); - - -&ok( deq( x("=pod\n\nB<pieF<zorch>X<foo>I<pling>>\n"), - [ "Document", {}, - [ "Para", {}, - ["B", {}, - "pie", - ['F',{}, 'zorch'], - ['X',{}, 'foo' ], - ['I',{}, 'pling'], - ] - ] - ] -)); - -&ok( deq( x("=over\n\n=item B<pieF<zorch>X<foo>I<pling>>!\n\n=back"), - [ "Document", {}, - [ "over-text", {}, - [ "item-text", {}, - ["B", {}, - "pie", - ['F',{}, 'zorch'], - ['X',{}, 'foo' ], - ['I',{}, 'pling'], - ], - '!' - ] - ] - ] -)); - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - -sub deq { # deep-equals - #print "# deq ", Pod::Simple::pretty($_[0], $_[1]), "\n"; - return 1 unless defined $_[0] or defined $_[1]; # two undefs = same - return '' if defined $_[0] xor defined $_[1]; - return '' if ref($_[0]) ne ref($_[1]); # unequal referentiality - return $_[0] eq $_[1] unless ref $_[0]; - # So it's a ref: - use UNIVERSAL; - if(UNIVERSAL::isa($_[0], 'ARRAY')) { - return '' unless @{$_[0]} == @{$_[1]}; - for(my $i = 0; $i < @{$_[0]}; $i++) { - print("# NEQ ", Pod::Simple::pretty($_[0]), - "\n# != ", Pod::Simple::pretty($_[1]), "\n"), - return '' unless deq($_[0][$i], $_[1][$i]); # recurse! - } - return 1; - } elsif(UNIVERSAL::isa($_[0], 'HASH')) { - return 1 if $hashes_dont_matter; - return '' unless keys %{$_[0]} == keys %{$_[1]}; - foreach my $k (keys %{$_[0]}) { - return '' unless exists $_[1]{$k}; - return '' unless deq($_[0]{$k}, $_[1]{$k}); - } - return 1; - } else { - print "# I don't know how to deque $_[0] & $_[1]\n"; - return 1; - } -} - - diff --git a/lib/Pod/Simple/t/testlib1/Blorm.pm b/lib/Pod/Simple/t/testlib1/Blorm.pm deleted file mode 100644 index 13499fadc9..0000000000 --- a/lib/Pod/Simple/t/testlib1/Blorm.pm +++ /dev/null @@ -1,10 +0,0 @@ -=head1 NAME - -Blorm -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/Zonk/Fiddle.txt b/lib/Pod/Simple/t/testlib1/Zonk/Fiddle.txt deleted file mode 100644 index 656827cf74..0000000000 --- a/lib/Pod/Simple/t/testlib1/Zonk/Fiddle.txt +++ /dev/null @@ -1,4 +0,0 @@ - -This is just a dummy file. It's podless and shouldn't even be scanned for pod. - - diff --git a/lib/Pod/Simple/t/testlib1/Zonk/Pronk.pm b/lib/Pod/Simple/t/testlib1/Zonk/Pronk.pm deleted file mode 100644 index 559af82920..0000000000 --- a/lib/Pod/Simple/t/testlib1/Zonk/Pronk.pm +++ /dev/null @@ -1,43 +0,0 @@ - -=head1 NAME - -Zonk::Pronk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -This is a test Pod document in Latin-1. Its content is the last two -paragraphs of Baudelaire's I<Le Joujou du pauvre>. - -A travers ces barreaux symboliques séparant deux mondes, la grande route -et le château, l'enfant pauvre montrait à l'enfant riche son propre -joujou, que celui-ci examinait avidement comme un objet rare et inconnu. -Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans -une boîte grillée, c'était un rat vivantE<160>! Les parents, par économie -sans doute, avaient tiré le joujou de la vie elle-même. - -Et les deux enfants se riaient l'un à l'autre fraternellement, avec des -dents d'une I<égale> blancheur. - -=head2 As Verbatim - - A travers ces barreaux symboliques séparant deux mondes, la grande route - et le château, l'enfant pauvre montrait à l'enfant riche son propre - joujou, que celui-ci examinait avidement comme un objet rare et inconnu. - Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans - une boîte grillée, c'était un rat vivant ! Les parents, par économie - sans doute, avaient tiré le joujou de la vie elle-même. - - Et les deux enfants se riaient l'un à l'autre fraternellement, avec des - dents d'une égale blancheur. - -[end] - -=cut - - - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/testlib1/Zonk/Veng.pm b/lib/Pod/Simple/t/testlib1/Zonk/Veng.pm deleted file mode 100644 index 078119534d..0000000000 --- a/lib/Pod/Simple/t/testlib1/Zonk/Veng.pm +++ /dev/null @@ -1,4 +0,0 @@ - -# This is just a podless test file. -1; - diff --git a/lib/Pod/Simple/t/testlib1/hinkhonk/Glunk.pod b/lib/Pod/Simple/t/testlib1/hinkhonk/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/testlib1/hinkhonk/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/hinkhonk/Vliff.pm b/lib/Pod/Simple/t/testlib1/hinkhonk/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/testlib1/hinkhonk/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/testlib1/hinkhonk/readme.txt b/lib/Pod/Simple/t/testlib1/hinkhonk/readme.txt deleted file mode 100644 index 96ae070ee8..0000000000 --- a/lib/Pod/Simple/t/testlib1/hinkhonk/readme.txt +++ /dev/null @@ -1 +0,0 @@ -This directory should never be scanned. diff --git a/lib/Pod/Simple/t/testlib1/pod/perlflif.pod b/lib/Pod/Simple/t/testlib1/pod/perlflif.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/testlib1/pod/perlflif.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/pod/perlthng.pod b/lib/Pod/Simple/t/testlib1/pod/perlthng.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/testlib1/pod/perlthng.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/squaa.pm b/lib/Pod/Simple/t/testlib1/squaa.pm deleted file mode 100644 index 43228fd174..0000000000 --- a/lib/Pod/Simple/t/testlib1/squaa.pm +++ /dev/null @@ -1,12 +0,0 @@ -package squaa; - -=head1 NAME - -squaa -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/squaa/Glunk.pod b/lib/Pod/Simple/t/testlib1/squaa/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/testlib1/squaa/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib1/squaa/Vliff.pm b/lib/Pod/Simple/t/testlib1/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/testlib1/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/testlib1/zikzik.pod b/lib/Pod/Simple/t/testlib1/zikzik.pod deleted file mode 100644 index 50f86dec6a..0000000000 --- a/lib/Pod/Simple/t/testlib1/zikzik.pod +++ /dev/null @@ -1,10 +0,0 @@ -=head1 NAME - -zikzik -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib2/Suzzle.pm b/lib/Pod/Simple/t/testlib2/Suzzle.pm deleted file mode 100644 index b96722c13b..0000000000 --- a/lib/Pod/Simple/t/testlib2/Suzzle.pm +++ /dev/null @@ -1,10 +0,0 @@ - -1; -__END__ - -=head1 NAME - -Sizzlesuzzle -- hooboy, this is a test file too. - -=cut - diff --git a/lib/Pod/Simple/t/testlib2/hinkhonk/Glunk.pod b/lib/Pod/Simple/t/testlib2/hinkhonk/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/testlib2/hinkhonk/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib2/hinkhonk/Vliff.pm b/lib/Pod/Simple/t/testlib2/hinkhonk/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/testlib2/hinkhonk/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/testlib2/hinkhonk/readme.txt b/lib/Pod/Simple/t/testlib2/hinkhonk/readme.txt deleted file mode 100644 index 96ae070ee8..0000000000 --- a/lib/Pod/Simple/t/testlib2/hinkhonk/readme.txt +++ /dev/null @@ -1 +0,0 @@ -This directory should never be scanned. diff --git a/lib/Pod/Simple/t/testlib2/pod/perlthng.pod b/lib/Pod/Simple/t/testlib2/pod/perlthng.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/testlib2/pod/perlthng.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/testlib2/pod/perlzuk.pod b/lib/Pod/Simple/t/testlib2/pod/perlzuk.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/testlib2/pod/perlzuk.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/testlib2/squaa/Vliff.pm b/lib/Pod/Simple/t/testlib2/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/testlib2/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/testlib2/squaa/Wowo.pod b/lib/Pod/Simple/t/testlib2/squaa/Wowo.pod deleted file mode 100644 index e2c9d5d90d..0000000000 --- a/lib/Pod/Simple/t/testlib2/squaa/Wowo.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Wowo -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/testlib3/squaa/Vliff.pm b/lib/Pod/Simple/t/testlib3/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/testlib3/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/tiedfh.t b/lib/Pod/Simple/t/tiedfh.t deleted file mode 100644 index 74da0c6373..0000000000 --- a/lib/Pod/Simple/t/tiedfh.t +++ /dev/null @@ -1,57 +0,0 @@ -BEGIN { - if($ENV{PERL_CORE}) { - chdir 't'; - @INC = '../lib'; - } -} - -use strict; -use Test; -BEGIN { plan tests => 8 }; - -use Pod::Simple::TiedOutFH; -ok 1; - -print "# Sanity test of Perl and Pod::Simple::TiedOutFH\n"; - -{ - my $x = 'abc'; - my $out = Pod::Simple::TiedOutFH->handle_on($x); - print $out "Puppies\n"; - print $out "rrrrr"; - print $out "uffuff!"; - ok $x, "abcPuppies\nrrrrruffuff!"; - undef $out; - ok $x, "abcPuppies\nrrrrruffuff!"; -} - -# Now test that we can have two different strings. -{ - my $x1 = 'abc'; - my $x2 = 'xyz'; - my $out1 = Pod::Simple::TiedOutFH->handle_on($x1); - my $out2 = Pod::Simple::TiedOutFH->handle_on($x2); - - print $out1 "Puppies\n"; - print $out2 "Kitties\n"; - print $out2 "mmmmm"; - print $out1 "rrrrr"; - print $out2 "iaooowwlllllllrrr!\n"; - print $out1 "uffuff!"; - - ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test"; - ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test"; - - undef $out1; - undef $out2; - - ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test"; - ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test"; -} - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/verb_fmt.t b/lib/Pod/Simple/t/verb_fmt.t deleted file mode 100644 index a3f422fde6..0000000000 --- a/lib/Pod/Simple/t/verb_fmt.t +++ /dev/null @@ -1,308 +0,0 @@ - -use strict; -use Test; -BEGIN { plan tests => 62 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; - -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(\&without_vf, @_) } -sub ev ($$) { Pod::Simple::DumpAsXML->_duo(\&with_vf, @_) } - -sub with_vf { $_[0]-> accept_codes('VerbatimFormatted') } -sub without_vf { $_[0]->unaccept_codes('VerbatimFormatted') } - -# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ - -print "# Testing VerbatimFormatted...\n"; - # A formatty line has to have #: in the first two columns, and uses - # "^" to mean bold, "/" to mean underline, and "%" to mean bold italic. - # Example: - # What do you want? i like pie. [or whatever] - # #:^^^^^^^^^^^^^^^^^ ///////////// - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ ///////////// - Hooboy. - -=cut - -}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI>\n Hooboy.</VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ ///////////// - Hooboy. - -=cut - -}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI>\n Hooboy.</VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ ///////////// - -=cut - -}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ /////////////} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ //////////////////} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ ///} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]</VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ /// -#:^^^^^^^^^^^^^^^^^ ///} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]\n#:^^^^^^^^^^^^^^^^^ ///</VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -# with a tab: -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ /// } -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]</VerbatimFormatted></Document>} -); - - - -# Now testing the % too: -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - What do you want? i like pie. [or whatever] -#:^^^^^^^^^^^^^^^^^ %%%% //////////////////} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i <VerbatimBI>like</VerbatimBI> pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>} -); - - -&ok( Pod::Simple::XMLOutStream->_out(\&with_vf, -q{=pod - - Hooboy! - What do you want? i like pie. [or whatever] -#: ^^^^^ %%%% //////////////////} -) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> Hooboy!\n What do you <VerbatimB>want?</VerbatimB> i <VerbatimBI>like</VerbatimBI> pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>} -); - - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - - - -# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ - -print "# Now running some tests adapted from verbatims.t...\n#\n#\n"; - -print "# Without VerbatimFormatted...\n"; -&ok( e "", "" ); -&ok( e "\n", "", ); -&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" ); -&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" ); -print "# With VerbatimFormatted...\n"; -&ok( ev "", "" ); -&ok( ev "\n", "", ); -&ok( ev "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" ); -&ok( ev "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" ); - - -print "# Now testing via XMLOutStream without VerbatimFormatted...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n quux</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\nquux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\nquux</Verbatim></Document>} -); - -print "# Contiguous verbatims...\n"; -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n quux</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n\n quux</Verbatim></Document>} -); - -print "# Testing =cut...\n"; -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>} -); - - - - -print "#\n# Now retesting with VerbatimFormatted...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n quux\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n quux</VerbatimFormatted></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\nquux\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\nquux</VerbatimFormatted></Document>} -); - -print "# Contiguous verbatims...\n"; -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n quux\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n\n quux</VerbatimFormatted></Document>} -); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n quux\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n\n\n quux</VerbatimFormatted></Document>} -); - -print "# Testing =cut...\n"; -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n quux\n"), - qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted></Document>} -); - - - - -# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . - -{ -my $it = -qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim><head1>Foo</head1><Verbatim\nxml:space="preserve"> quux\nquum</Verbatim></Document>} -; - - -print "# Various \\n-(in)significance sanity checks...\n"; - -print "# verbatim/cut/head/verbatim sanity zero...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity one...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity two...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity three...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity four...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -} - - -# : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : - -print "#\n# Now retesting with VerbatimFormatted...\n"; - -{ -my $it = -qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted><head1>Foo</head1><VerbatimFormatted\nxml:space="preserve"> quux\nquum</VerbatimFormatted></Document>} -; - - -print "# Various \\n-(in)significance sanity checks...\n"; - -print "# verbatim/cut/head/verbatim sanity zero...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity one...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity two...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity three...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity four...\n"; - -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -} - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/verbatim.t b/lib/Pod/Simple/t/verbatim.t deleted file mode 100644 index 35d419e372..0000000000 --- a/lib/Pod/Simple/t/verbatim.t +++ /dev/null @@ -1,363 +0,0 @@ - -use strict; -use Test; -BEGIN { plan tests => 31 }; - -#use Pod::Simple::Debug (6); - -ok 1; - -use Pod::Simple::DumpAsXML; -use Pod::Simple::XMLOutStream; -print "# Pod::Simple version $Pod::Simple::VERSION\n"; -sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } - -&ok( e "", "" ); -&ok( e "\n", "", ); - - - - -&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" ); -&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" ); - - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n quux</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\nquux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\nquux</Verbatim></Document>} -); - -print "# Contiguous verbatims...\n"; -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n quux</Verbatim></Document>} -); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n\n quux</Verbatim></Document>} -); - -print "# Testing =cut...\n"; -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n quux\n"), - qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>} -); - - -# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . - -{ -my $it = -qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim><head1>Foo</head1><Verbatim\nxml:space="preserve"> quux\nquum</Verbatim></Document>} -; - - -print "# Various \\n-(in)significance sanity checks...\n"; - -print "# verbatim/cut/head/verbatim sanity zero...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity one...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity two...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity three...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -print "# verbatim/cut/head/verbatim sanity four...\n"; - -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); -ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it); - -} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# Testing tab expansion...\n"; - -&ok( e -q{=pod - - here we go now -a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - z -}, -q{=pod - - here we go now -a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - z -}, -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -&ok( e -q{=pod - - here we go now -a -.b -. c -. d -. e -. f -. g -. h -. i -. j -. k -. l -. m -. n -. o -. p -. q -. r -. s -. t -. u -. v -. w -. x -. y -. z -}, -q{=pod - - here we go now -a -.b -. c -. d -. e -. f -. g -. h -. i -. j -. k -. l -. m -. n -. o -. p -. q -. r -. s -. t -. u -. v -. w -. x -. y -. z -}, -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -&ok( e -q{=pod - - here we go now -a -.b -..c -.. d -.. e -.. f -.. g -.. h -.. i -.. j -.. k -.. l -.. m -.. n -.. o -.. p -.. q -.. r -.. s -.. t -.. u -.. v -.. w -.. x -.. y -.. z -}, -q{=pod - - here we go now -a -.b -..c -.. d -.. e -.. f -.. g -.. h -.. i -.. j -.. k -.. l -.. m -.. n -.. o -.. p -.. q -.. r -.. s -.. t -.. u -.. v -.. w -.. x -.. y -.. z -}, -); - - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -&ok( e -q{=pod - - here we go now -a -.b -..c -.. d -.. e -.. f -.. g -.. h -.. i -.. .j -.. . k -.. . l -.. . m -.. . n -.. . o -.. . p -.. . q -.. . r -.. . s -.. . t -.. . u -.. . v -.. . w -.. . x -.. . y -.. . z -}, -q{=pod - - here we go now -a -.b -..c -.. d -.. e -.. f -.. g -.. h -.. i -.. .j -.. . k -.. . l -.. . m -.. . n -.. . o -.. . p -.. . q -.. . r -.. . s -.. . t -.. . u -.. . v -.. . w -.. . x -.. . y -.. . z -}, -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -# TODO: long-line splitting? - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - - diff --git a/lib/Pod/Simple/t/x_nixer.t b/lib/Pod/Simple/t/x_nixer.t deleted file mode 100644 index 488b72cd62..0000000000 --- a/lib/Pod/Simple/t/x_nixer.t +++ /dev/null @@ -1,218 +0,0 @@ - - -use strict; -use Test; -BEGIN { plan tests => 11 }; - -my $d; -#use Pod::Simple::Debug (\$d, 0); - -ok 1; - -use Pod::Simple::XMLOutStream; -use Pod::Simple::DumpAsXML; - - -$Pod::Simple::XMLOutStream::ATTR_PAD = ' '; -$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output - - -print "# A simple sanity test...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>' -); - -print "# With lots of nesting, and Z's...\n"; -ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>' -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -sub mergy {$_[0]->merge_text(1)} -sub nixy {$_[0]->nix_X_codes(1)} -sub nixy_mergy {$_[0]->merge_text(1); $_[0]->nix_X_codes(1);} - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# With no F/X\n"; - -ok( Pod::Simple::DumpAsXML->_out( "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - join "\n", - - '<Document>', - ' <Para>', - ' <F>', - ' <C>', - ' f', - ' o', - ' o', - ' </C>', - ' ', - ' <I>', - ' bar', - ' </I>', - ' </F>', - ' ', - ' <B>', - ' stuff ', - ' <X>', - ' thing', - ' </X>', - ' baz', - ' </B>', - ' </Para>', - '</Document>', - '', -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# with just X-nixing...\n"; - -ok( Pod::Simple::DumpAsXML->_out( \&nixy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - join "\n", - - '<Document>', - ' <Para>', - ' <F>', - ' <C>', - ' f', - ' o', - ' o', - ' </C>', - ' ', - ' <I>', - ' bar', - ' </I>', - ' </F>', - ' ', - ' <B>', - ' stuff ', - ' baz', - ' </B>', - ' </Para>', - '</Document>', - '', -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# With merging...\n"; - -ok( Pod::Simple::DumpAsXML->_out( \&mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - join "\n", - - '<Document>', - ' <Para>', - ' <F>', - ' <C>', - ' foo', - ' </C>', - ' ', - ' <I>', - ' bar', - ' </I>', - ' </F>', - ' ', - ' <B>', - ' stuff ', - ' <X>', - ' thing', - ' </X>', - ' baz', - ' </B>', - ' </Para>', - '</Document>', - '', -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -print "# With nixing and merging...\n"; -#$d = 10; -ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - join "\n", - - '<Document>', - ' <Para>', - ' <F>', - ' <C>', - ' foo', - ' </C>', - ' ', - ' <I>', - ' bar', - ' </I>', - ' </F>', - ' ', - ' <B>', - ' stuff baz', - ' </B>', - ' </Para>', - '</Document>', - '', -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -# Now the scary bits... with L's! -print "# A wee L<...> sanity test...\n"; -ok( Pod::Simple::XMLOutStream->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}), - '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' -); -print "# Now a wee L<...> with mergy...\n"; - -$d = 10; - -ok( Pod::Simple::DumpAsXML->_out(\&mergy, qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}), - join "\n", - - '<Document>', - ' <Para>', - ' <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">', - ' "Ping-pong" in Net::Ping', - ' </L>', - ' </Para>', - '</Document>', - '' -); - - -print "# Now a complex tree with L's, with nixy+mergy...\n"; - -ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>L<E<78>et::Ping/Ping-E<112>ong>o> I<bar>> B<stuff X<thingZ<>>baz>\n"), - join "\n", - - '<Document>', - ' <Para>', - ' <F>', - ' <C>', - ' fo', - ' <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">', - ' "Ping-pong" in Net::Ping', - ' </L>', - ' o', - ' </C>', - ' ', - ' <I>', - ' bar', - ' </I>', - ' </F>', - ' ', - ' <B>', - ' stuff baz', - ' </B>', - ' </Para>', - '</Document>', - '', -); - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -print "# Wrapping up... one for the road...\n"; -ok 1; -print "# --- Done with ", __FILE__, " --- \n"; - diff --git a/lib/Pod/Simple/t/xhtml01.t b/lib/Pod/Simple/t/xhtml01.t deleted file mode 100644 index d75605a1ea..0000000000 --- a/lib/Pod/Simple/t/xhtml01.t +++ /dev/null @@ -1,351 +0,0 @@ -#!/usr/bin/perl -w - -# t/xhtml01.t - check basic output from Pod::Simple::XHTML - -BEGIN { - chdir 't' if -d 't'; -} - -use strict; -use lib '../lib'; -use Test::More tests => 26; - -use_ok('Pod::Simple::XHTML') or exit; - -my $parser = Pod::Simple::XHTML->new (); -isa_ok ($parser, 'Pod::Simple::XHTML'); - -my $results; - -my $PERLDOC = "http://search.cpan.org/perldoc?"; - -initialize($parser, $results); -$parser->parse_string_document( "=head1 Poit!" ); -is($results, "<h1>Poit!</h1>\n\n", "head1 level output"); - -initialize($parser, $results); -$parser->parse_string_document( "=head2 I think so Brain." ); -is($results, "<h2>I think so Brain.</h2>\n\n", "head2 level output"); - -initialize($parser, $results); -$parser->parse_string_document( "=head3 I say, Brain..." ); -is($results, "<h3>I say, Brain...</h3>\n\n", "head3 level output"); - -initialize($parser, $results); -$parser->parse_string_document( "=head4 Zort!" ); -is($results, "<h4>Zort!</h4>\n\n", "head4 level output"); - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -Gee, Brain, what do you want to do tonight? -EOPOD - -is($results, <<'EOHTML', "simple paragraph"); -<p>Gee, Brain, what do you want to do tonight?</p> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -B: Now, Pinky, if by any chance you are captured during this mission, -remember you are Gunther Heindriksen from Appenzell. You moved to -Grindelwald to drive the cog train to Murren. Can you repeat that? - -P: Mmmm, no, Brain, don't think I can. -EOPOD - -is($results, <<'EOHTML', "multiple paragraphs"); -<p>B: Now, Pinky, if by any chance you are captured during this mission, remember you are Gunther Heindriksen from Appenzell. You moved to Grindelwald to drive the cog train to Murren. Can you repeat that?</p> - -<p>P: Mmmm, no, Brain, don't think I can.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=over - -=item * - -P: Gee, Brain, what do you want to do tonight? - -=item * - -B: The same thing we do every night, Pinky. Try to take over the world! - -=back - -EOPOD - -is($results, <<'EOHTML', "simple bulleted list"); -<ul> - -<li>P: Gee, Brain, what do you want to do tonight?</li> - -<li>B: The same thing we do every night, Pinky. Try to take over the world!</li> - -</ul> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=over - -=item 1 - -P: Gee, Brain, what do you want to do tonight? - -=item 2 - -B: The same thing we do every night, Pinky. Try to take over the world! - -=back - -EOPOD - -is($results, <<'EOHTML', "numbered list"); -<ol> - -<li>1. P: Gee, Brain, what do you want to do tonight?</li> - -<li>2. B: The same thing we do every night, Pinky. Try to take over the world!</li> - -</ol> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=over - -=item Pinky - -Gee, Brain, what do you want to do tonight? - -=item Brain - -The same thing we do every night, Pinky. Try to take over the world! - -=back - -EOPOD - -is($results, <<'EOHTML', "list with text headings"); -<ul> - -<li>Pinky - -<p>Gee, Brain, what do you want to do tonight?</p> - -<li>Brain - -<p>The same thing we do every night, Pinky. Try to take over the world!</p> - -</ul> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - - 1 + 1 = 2; - 2 + 2 = 4; - -EOPOD - -is($results, <<'EOHTML', "code block"); -<pre><code> 1 + 1 = 2; - 2 + 2 = 4;</code></pre> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a C<functionname>. -EOPOD -is($results, <<"EOHTML", "code entity in a paragraph"); -<p>A plain paragraph with a <code>functionname</code>.</p> - -EOHTML - - -initialize($parser, $results); -$parser->html_header("<html>\n<body>"); -$parser->html_footer("</body>\n</html>"); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with body tags turned on. -EOPOD -is($results, <<"EOHTML", "adding html body tags"); -<html> -<body> - -<p>A plain paragraph with body tags turned on.</p> - -</body> -</html> - -EOHTML - - -initialize($parser, $results); -$parser->html_css('style.css'); -$parser->html_header(undef); -$parser->html_footer(undef); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with body tags and css tags turned on. -EOPOD -like($results, qr/<link rel='stylesheet' href='style.css' type='text\/css'>/, -"adding html body tags and css tags"); - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with S<non breaking text>. -EOPOD -is($results, <<"EOHTML", "Non breaking text in a paragraph"); -<p>A plain paragraph with <nobr>non breaking text</nobr>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a L<Newlines>. -EOPOD -is($results, <<"EOHTML", "Link entity in a paragraph"); -<p>A plain paragraph with a <a href="${PERLDOC}Newlines">Newlines</a>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a L<perlport/Newlines>. -EOPOD -is($results, <<"EOHTML", "Link entity in a paragraph"); -<p>A plain paragraph with a <a href="${PERLDOC}perlport/Newlines">"Newlines" in perlport</a>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a L<Boo|http://link.included.here>. -EOPOD -is($results, <<"EOHTML", "A link in a paragraph"); -<p>A plain paragraph with a <a href="http://link.included.here">Boo</a>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a L<http://link.included.here>. -EOPOD -is($results, <<"EOHTML", "A link in a paragraph"); -<p>A plain paragraph with a <a href="http://link.included.here">http://link.included.here</a>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with B<bold text>. -EOPOD -is($results, <<"EOHTML", "Bold text in a paragraph"); -<p>A plain paragraph with <b>bold text</b>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with I<italic text>. -EOPOD -is($results, <<"EOHTML", "Italic text in a paragraph"); -<p>A plain paragraph with <i>italic text</i>.</p> - -EOHTML - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - -A plain paragraph with a F<filename>. -EOPOD -is($results, <<"EOHTML", "File name in a paragraph"); -<p>A plain paragraph with a <i>filename</i>.</p> - -EOHTML - - -initialize($parser, $results); -$parser->parse_string_document(<<'EOPOD'); -=pod - - # this header is very important & don't you forget it - my $text = "File is: " . <FILE>; -EOPOD -is($results, <<"EOHTML", "Verbatim text with encodable entities"); -<pre><code> # this header is very important & don't you forget it - my \$text = "File is: " . <FILE>;</code></pre> - -EOHTML - -SKIP: for my $use_html_entities (0, 1) { - if ($use_html_entities and not $Pod::Simple::XHTML::HAS_HTML_ENTITIES) { - skip("HTML::Entities not installed", 1); - } - local $Pod::Simple::XHTML::HAS_HTML_ENTITIES = $use_html_entities; - initialize($parser, $results); - $parser->parse_string_document(<<'EOPOD'); -=pod - - # this header is very important & don't you forget it - B<my $file = <FILEE<gt> || 'Blank!';> - my $text = "File is: " . <FILE>; -EOPOD -is($results, <<"EOHTML", "Verbatim text with markup and embedded formatting"); -<pre><code> # this header is very important & don't you forget it - <b>my \$file = <FILE> || 'Blank!';</b> - my \$text = "File is: " . <FILE>;</code></pre> - -EOHTML -} - -###################################### - -sub initialize { - $_[0] = Pod::Simple::XHTML->new (); - $_[0]->html_header(""); - $_[0]->html_footer(""); - $_[0]->output_string( \$results ); # Send the resulting output to a string - $_[1] = ''; - return; -} diff --git a/lib/Pod/Simple/t/xhtml05.t b/lib/Pod/Simple/t/xhtml05.t deleted file mode 100644 index 4e2738ee7f..0000000000 --- a/lib/Pod/Simple/t/xhtml05.t +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/perl -w - -# t/xhtml05.t - check block output from Pod::Simple::XHTML - -BEGIN { - chdir 't' if -d 't'; -} - -use strict; -use lib '../lib'; -use Test::More tests => 6; - -use_ok('Pod::Simple::XHTML') or exit; - -my $parser = Pod::Simple::XHTML->new (); -isa_ok ($parser, 'Pod::Simple::XHTML'); - -my $results; -initialize($parser, $results); -$parser->accept_targets_as_text( 'comment' ); -$parser->parse_string_document(<<'EOPOD'); -=for comment -This is an ordinary for block. - -EOPOD - -is($results, <<'EOHTML', "a for block"); -<div class="comment"> - -<p>This is an ordinary for block.</p> - -</div> - -EOHTML - -foreach my $target qw(note tip warning) { - initialize($parser, $results); - $parser->accept_targets_as_text( $target ); - $parser->parse_string_document(<<"EOPOD"); -=begin $target - -This is a $target. - -=end $target -EOPOD - - is($results, <<"EOHTML", "allow $target blocks"); -<div class="$target"> - -<p>This is a $target.</p> - -</div> - -EOHTML - -} - -###################################### - -sub initialize { - $_[0] = Pod::Simple::XHTML->new (); - $_[0]->html_header(""); - $_[0]->html_footer(""); - $_[0]->output_string( \$results ); # Send the resulting output to a string - $_[1] = ''; - return; -} |