use
if
$ENV
{
'AUTHOR_TESTING'
},
'Test::Warnings'
;
ok 1;
my
$pod5
= Pod::Elemental::Transformer::Pod5->new;
my
$stenciller
= Pod::Elemental::Transformer::Stenciller->new(
directory
=>
't/corpus/source'
);
my
$doc
= Pod::Elemental->read_file(
't/corpus/lib/Test/For/StencillerFromUnparsedText.pm'
);
$pod5
->transform_node(
$doc
);
$stenciller
->transform_node(
$doc
);
eq_or_diff
$doc
->as_pod_string, result(),
'Correct'
;
done_testing;
sub
result {
return
q{=pod
=cut
package Test::For::StencillerFromUnparsedText;
1;
__END__
=pod
=head1 NAME
=head1 DESCRIPTION
Intro text
goes here
thing
here
other thing
in between
is three lines
in a row
expecting this
A text after output
Header stencil 3
Input stencil 3
Between stencil 3
Output stencil 3
After stencil 3
Header stencil 5
Input stencil 5
Between stencil 5
Output stencil 5
After stencil 5
Intro text
goes here
<p>html stencil</p>
<pre><%= badge '3' %></pre>
<pre><span class="badge">3</span></a></pre>
=cut
}
;
}