60-convert_wikidoc_comments.t

# Pod::WikiDoc - check module loading and create testing directory

use Test::More;
use IO::String;
use lib "./t";
use Casefiles;

use Pod::WikiDoc;

#--------------------------------------------------------------------------#
# parser setup
#--------------------------------------------------------------------------#

my $parser = Pod::WikiDoc->new( { comment_blocks => 1 } );

#--------------------------------------------------------------------------#
# case file runner
#--------------------------------------------------------------------------#

my $cases = Casefiles->new( "t/filter_comments" );

$cases->run_tests( 
    sub { 
        my $input_string = shift;
        my $got = $parser->convert( $input_string );
        $got =~ s{\A [^\n]+ \n \n}{}xms; # strip "Generated by" line
        return $got;
    }
);