Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
corpus	[ DIR ]	drwxr-xr-x	2016-10-10 18:23
corpus2	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib1	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib2	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib3	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00about.t	3.11 KB	-r--r--r--	2014-12-27 11:48
20_skip.t	308 B	-r--r--r--	2014-12-27 11:48
ac_d.t	3.33 KB	-r--r--r--	2014-12-27 11:48
accept01.t	2.67 KB	-r--r--r--	2014-12-27 11:48
accept05.t	4.71 KB	-r--r--r--	2014-12-27 11:48
basic.t	2.38 KB	-r--r--r--	2014-12-27 11:48
begin.t	22.22 KB	-r--r--r--	2014-12-27 11:48
cbacks.t	2.27 KB	-r--r--r--	2014-12-27 11:48
chunking.t	1.17 KB	-r--r--r--	2014-12-27 11:48
closeys.t	698 B	-r--r--r--	2014-12-27 11:48
corpus.t	3.99 KB	-r--r--r--	2014-12-27 11:48
emptylists.t	1.45 KB	-r--r--r--	2014-12-27 11:48
enc-chars.t	1.16 KB	-r--r--r--	2014-12-27 11:48
encod01.t	1.65 KB	-r--r--r--	2014-12-27 11:48
encod02.t	1.25 KB	-r--r--r--	2014-12-27 11:48
encod03.t	1.22 KB	-r--r--r--	2014-12-27 11:48
encod04.t	3.18 KB	-r--r--r--	2014-12-27 11:48
end_over.t	1.24 KB	-r--r--r--	2014-12-27 11:48
eol.t	2.18 KB	-r--r--r--	2014-12-27 11:48
eol2.t	2.09 KB	-r--r--r--	2014-12-27 11:48
fake-closers.t	1.45 KB	-r--r--r--	2014-12-27 11:48
fcodes.t	4.24 KB	-r--r--r--	2014-12-27 11:48
fcodes_e.t	2.62 KB	-r--r--r--	2014-12-27 11:48
fcodes_l.t	26.34 KB	-r--r--r--	2014-12-27 11:48
fcodes_s.t	12.08 KB	-r--r--r--	2014-12-27 11:48
for.t	5.04 KB	-r--r--r--	2014-12-27 11:48
fornot.t	5.28 KB	-r--r--r--	2014-12-27 11:48
heads.t	2.58 KB	-r--r--r--	2014-12-27 11:48
html01.t	2.06 KB	-r--r--r--	2014-12-27 11:48
html02.t	806 B	-r--r--r--	2014-12-27 11:48
html03.t	714 B	-r--r--r--	2014-12-27 11:48
htmlbat.t	2.61 KB	-r--r--r--	2014-12-27 11:48
items.t	8.46 KB	-r--r--r--	2014-12-27 11:48
items02.t	1.31 KB	-r--r--r--	2014-12-27 11:48
itemstar.t	1.67 KB	-r--r--r--	2014-12-27 11:48
junk1.pod	52 B	-r--r--r--	2014-12-27 11:48
junk1o.txt	318 B	-r--r--r--	2014-12-27 11:48
junk2.pod	46 B	-r--r--r--	2014-12-27 11:48
junk2o.txt	251 B	-r--r--r--	2014-12-27 11:48
linkclas.t	1.46 KB	-r--r--r--	2014-12-27 11:48
output.t	1.08 KB	-r--r--r--	2014-12-27 11:48
perlcyg.pod	19.93 KB	-r--r--r--	2014-12-27 11:48
perlcygo.txt	18.63 KB	-r--r--r--	2014-12-27 11:48
perlfaq.pod	30.59 KB	-r--r--r--	2014-12-27 11:48
perlfaqo.txt	29.9 KB	-r--r--r--	2014-12-27 11:48
perlvar.pod	40.57 KB	-r--r--r--	2014-12-27 11:48
perlvaro.txt	38.14 KB	-r--r--r--	2014-12-27 11:48
puller.t	7.92 KB	-r--r--r--	2014-12-27 11:48
pulltitl.t	10.9 KB	-r--r--r--	2014-12-27 11:48
reinit.t	1.87 KB	-r--r--r--	2014-12-27 11:48
render.t	3.5 KB	-r--r--r--	2014-12-27 11:48
search05.t	965 B	-r--r--r--	2014-12-27 11:48
search10.t	2.31 KB	-r--r--r--	2014-12-27 11:48
search12.t	2.22 KB	-r--r--r--	2014-12-27 11:48
search20.t	2.89 KB	-r--r--r--	2014-12-27 11:48
search22.t	3.21 KB	-r--r--r--	2014-12-27 11:48
search25.t	2.76 KB	-r--r--r--	2014-12-27 11:48
search26.t	2 KB	-r--r--r--	2014-12-27 11:48
search27.t	2.71 KB	-r--r--r--	2014-12-27 11:48
search28.t	1.79 KB	-r--r--r--	2014-12-27 11:48
search29.t	1.78 KB	-r--r--r--	2014-12-27 11:48
search50.t	2.62 KB	-r--r--r--	2014-12-27 11:48
stree.t	3.15 KB	-r--r--r--	2014-12-27 11:48
strpvbtm.t	4.22 KB	-r--r--r--	2014-12-27 11:48
tiedfh.t	1.22 KB	-r--r--r--	2014-12-27 11:48
verb_fmt.t	12.95 KB	-r--r--r--	2014-12-27 11:48
verbatim.t	7.65 KB	-r--r--r--	2014-12-27 11:48
whine.t	1.46 KB	-r--r--r--	2014-12-27 11:48
x_nixer.t	4.67 KB	-r--r--r--	2014-12-27 11:48
xhtml-bkb.t	421 B	-r--r--r--	2014-12-27 11:48
xhtml01.t	15.47 KB	-r--r--r--	2014-12-27 11:48
xhtml05.t	1.17 KB	-r--r--r--	2014-12-27 11:48
xhtml10.t	12.36 KB	-r--r--r--	2014-12-27 11:48
xhtml15.t	966 B	-r--r--r--	2014-12-27 11:48
xhtml20.t	1.18 KB	-r--r--r--	2014-12-27 11:48

Rename

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&#60;stuff&#62;</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>stuff</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>stuff</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&#60;stuff&#62;</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&#60;stuff&#62;</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>stuff</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&#60;stuff&#62;</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&#60;stuff&#62;</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>stuff</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>stuff</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&#60;stuff&#62;</Data><Data xml:space="preserve">Hm, B&#60;things&#62;!</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&#60;stuff&#62;</Data><Data xml:space="preserve">Hm, B&#60;things&#62;!</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>stuff</Para><Para>Hm, things!</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>stuff</Para><Para>Hm, things!</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>stuff</Para><Para>Hm, things!</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>stuff</Para><Para>Hm, things!</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&#60;stuff&#62;</Data><Data xml:space="preserve"> Hm, B&#60;things&#62;!\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&#60;stuff&#62;</Data><Data xml:space="preserve"> Hm, B&#60;things&#62;!\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&#60;stuff&#62;</Data><Data xml:space="preserve"> Hm, B&#60;things&#62;!\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&#60;stuff&#62;</Data><Data xml:space="preserve"> Hm, B&#60;things&#62;!\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>stuff Trala!</Para><Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\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>stuff Trala!</Para><Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\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>stuff Trala!</Para><Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\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&#60;things&#62;!\nTrala.\n\n}.
 qq{ Khh, F&#60;&#60; dodads &#62;&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\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&#60;things&#62;!\nTrala.\n\n}.
 qq{ Khh, F&#60;&#60; dodads &#62;&#62;!\nHurf.\n</Data>}.
 qq{<Data xml:space="preserve">Woohah S&#60;thwack\nwoohah&#62;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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\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&#60;things&#62;!\nTrala.\n}.
 qq{ Khh, F&#60;&#60; dodads &#62;&#62;!\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>stuff Trala!</Para>}.
 qq{<Verbatim xml:space="preserve"> Hm, B&#60;things&#62;!\nTrala.\n\n}.
 qq{ Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
 qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
 qq{<for target=":prok" target_matching="prok">}.
 qq{<Para>Blorp, things! 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";