view release on metacpan or  search on metacpan

t/20output-pod.t  view on Meta::CPAN

#!/usr/bin/perl

use v5.26;
use warnings;
use experimental 'signatures';

use Test2::V0;

use App::sdview::Parser::Pod;
use App::sdview::Output::Pod;

my $table_style;

sub dotest ( $name, $in_pod )
{
   my @p = App::sdview::Parser::Pod->new->parse_string( $in_pod );
   my $output = App::sdview::Output::Pod->new( table_style => $table_style );
   my $out_pod = $output->generate( @p );

   is( $out_pod, $in_pod, "Generated Pod for $name" );
}

dotest "Headings", <<"EOPOD";
=head1 Head1

=head2 Head2

Contents here
EOPOD

dotest "Formatting", <<"EOPOD";
=pod

B<bold> B<< <bold> >>

I<italic>

C<code> C<< code->with->arrows >>

F<filename>

L<link|target://> L<Module::Here>

U<underline>
EOPOD

dotest "Formatted headings", <<"EOPOD";
=head1 A B<Bold> Beginning
EOPOD

dotest "Verbatim", <<"EOPOD";
=head1 EXAMPLE

    use v5.14;
    use warnings;
    say "Hello, world";
EOPOD

dotest "Non-breaking spaces", <<"EOPOD";
=pod

Some content with S<non-breaking spaces> in it.
EOPOD

dotest "Bullet lists", <<"EOPOD";
=over 4

=item *

First

=item *

Second

=item *

Third

=back
EOPOD

dotest "Numbered lists", <<"EOPOD";
=over 4

=item 1.

First

=item 2.

Second

=item 3.