Lines Matching refs:n
10 print "# Pod::Simple version $Pod::Simple::VERSION\n";
28 print "# Testing non-matching complaint...\n";
32 like( ($out = $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end blorp\n\nYup.\n")),
34 ) or print "# Didn't contain POD ERRORS:\n# $out\n";
36 like( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nStuff\n\n=end :blorp\n\n…
38 ) or print "# Didn't contain POD ERRORS:\n# $out\n";
39 …ke( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n=begin :zaz\n\nStuff\n\n=…
41 ) or print "# Didn't contain POD ERRORS:\n# $out\n";
48 print "# Testing some trivial cases of non-acceptance...\n";
50 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end mojojojo\n\nYup.\n"),
53 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\nStuff\n\n=end mojojojo\n\nYup.\n"),
56 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\nStuff\n\n=end :mojojojo\n\nYup.\n"),
60 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n Stuff\n\n=end mojojojo\n\nYup.\n"),
63 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\n Stuff\n\n=end mojojojo\n\nYup.\n"),
66 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\n Stuff\n\n=end :mojojojo\n\nYup.\n"),
70 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<Stuff>\n\n=end mojojojo\n\nYup.\n"),
73 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\nI<Stuff>\n\n=end mojojojo\n\nYup.\n"),
76 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n\nI<Stuff>\n\n=end :mojojojo\n\nYup.\n"),
82 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nStuff\n\n=end psketti,mojojo…
85 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n\nStuff\n\n=end psketti,mojo…
88 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\nStuff\n\n=end :psketti,mo…
92 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n Stuff\n\n=end psketti,mojo…
95 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n\n Stuff\n\n=end psketti,m…
98 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\n Stuff\n\n=end :psketti…
102 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<Stuff>\n\n=end psketti,moj…
105 is( $x->_out( "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\n\nI<Stuff>\n\n=end psketti,m…
108 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\n\nI<Stuff>\n\n=end :psketti…
114 print "# Testing matching because of negated non-acceptance...\n";
116 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"),
119 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"),
122 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nstuff\n\n=end !mojojojo\n\nYup.\n"),
125 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nI<stuff>\n\n=end !mojojojo\n\nYup.\n"),
128 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !:mojojojo\n\nI<stuff>\n\n=end !:mojojojo\n\nYup.\n"),
131 is( $x->_out( "=pod\n\nI like pie.\n\n=begin :!mojojojo \n\nI<stuff>\n\n=end :!mojojojo \t \n\…
135 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !crunk,zaz\n\nstuff\n\n=end !crunk,zaz\n\nYup.\n"),
138 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"),
141 is( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"),
144 is( $x->_out( \&any, "=pod\n\nI like pie.\n\n=begin !crunk\n\nstuff\n\n=end !crunk\n\nYup.\n"),
148 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nstuff\n\n=end !mojojojo\n\nYup.\n"),
151 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !mojojojo\n\nI<stuff>\n\n\n=end !mojojojo\n\nYup.\n"),
155 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !psketti,mojojojo,crunk\n\n\nI<stuff>\n\n=end !psketti…
158 is( $x->_out( "=pod\n\nI like pie.\n\n=begin !:psketti,mojojojo,crunk\n\nI<stuff>\n\n=end !:psketti…
164 print "# Testing accept_target + simple ...\n";
165 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n=end mojojojo \n\nYup.\…
168 …s( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n=end pske…
172 print "# Testing accept_target_as_text + simple ...\n";
173 is( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n=end mojojojo \n\n…
176 …->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n=end pske…
180 print "# Testing accept_target + two simples ...\n";
182 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\nHm, B<things>!\n\n=end …
186 …ut( \&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n…
190 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nI<stuff>\n\nHm, B<things>!\n\n=end…
193 …t( \&moj, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n…
197 print "# Testing accept_target_as_text + two simples ...\n";
199 …\&mojtext, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n…
202 …&mojtext, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\n\nHm, B<things>!\n\n…
208 print "# Testing accept_target + two simples, latter with leading whitespace ...\n";
211 …( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n Hm, B<things>!\nTrala…
212 …uff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n</Data></for><Para>Yu…
214 …&moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n Hm, B<things>!\nTral…
215 …uff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n</Data></for><Para>Yu…
218 … $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\n\n Hm, B<things>!\nTrala.…
219 …ff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n\n</Data></for><Para>Y…
221 …moj, "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk\n\nI<stuff>\n\n Hm, B<things>!\nTrala…
222 …ff></Data><Data xml:space="preserve"> Hm, B<things>!\nTrala.\n\n</Data></for><Para>Y…
226 print "# Testing :-target and accept_target + two simples, latter with leading whitespace ...\n";
228 …->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\n…
231 … "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\n…
235 print "# now with accept_target_as_text\n";
236 …out( \&mojtext, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\nTrala!\n\n Hm, B<things>!\n…
239 is( $x->_out( \&mojtext, join "\n\n" =>
240 "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk",
244 "Yup.\n"
253 print "# Now with five paragraphs (p,v,v,p,p) and accept_target_as_text\n";
255 is( $x->_out( \&mojtext, join "\n\n" =>
256 "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk",
260 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
263 "Yup.\n"
268 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
277 print "#\n# Now nested begin...end regions...\n";
281 is( $x->_out( \&mojprok, join "\n\n" =>
282 "=pod\n\nI like pie.",
287 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
293 "Yup.\n"
298 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
310 print "# a little more complex this time...\n";
312 is( $x->_out( \&mojprok, join "\n\n" =>
313 "=pod\n\nI like pie.",
318 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
326 "Yup.\n"
331 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
335 qq{<Verbatim xml:space="preserve"> Blorp, B<things>!\nTrala.\n\n}.
346 print "# Now with nesting where inner region is non-resolving...\n";
348 is( $x->_out( \&mojprok, join "\n\n" =>
349 "=pod\n\nI like pie.",
354 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
362 "Yup.\n"
367 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
371 qq{<Data xml:space="preserve"> Blorp, B<things>!\nTrala.\n\n}.
372 qq{ Khh, F<< dodads >>!\nHurf.\n</Data>}.
382 print "# Now a begin...end with a non-resolving for inside\n";
384 is( $x->_out( \&mojprok, join "\n\n" =>
385 "=pod\n\nI like pie.",
390 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
392 . " Blorp, B<things>!\nTrala.\n Khh, F<< dodads >>!\nHurf.",
395 "Yup.\n"
400 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
404 qq{<Data xml:space="preserve">Blorp, B<things>!\nTrala.\n}.
415 print "# Now a begin...end with a resolving for inside\n";
417 is( $x->_out( \&mojprok, join "\n\n" =>
418 "=pod\n\nI like pie.",
423 "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
425 . " Blorp, B<things>!\nTrala.\n Khh, F<< dodads >>!\nHurf.",
428 "Yup.\n"
433 qq{<Verbatim xml:space="preserve"> Hm, B<things>!\nTrala.\n\n}.
447 print "# Testing matching of begin block titles\n";
448 is( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin mojojojo Title\n\nstuff\n\n=end mojojojo \n\nYu…