1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# vim: set ts=2 sts=2 sw=2 expandtab smarttab:
use strict;
use warnings;
use lib 't/lib';
use MarkdownTests;
use Pod::Perldoc::ToMarkdown;
use File::Temp qw{ tempfile }; # core
use File::Spec::Functions qw( catfile ); # core
my ($tmp_out, $outfile) = tempfile( 'pod2markdown-out.XXXXXX', TMPDIR => 1, UNLINK => 1 );
print $tmp_out "overwrite me\n";
close $tmp_out;
sub corpus {
catfile( corpus => $_[0] );
}
Pod::Perldoc::ToMarkdown->parse_from_file( corpus('copy.pod'), $outfile);
like slurp_file($outfile), qr/# cr\n\n\{ \\`\xc2\xa9\\` \}/,
'ToMarkdown class for perldoc';
done_testing;
|
