1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use strict;
use warnings;
use Test::More;
use FindBin qw($Bin);
require "$Bin/20fulldocs-text-multimarkdown.t";
my $docsdir = "$Bin/docs-pythonmarkdown2-tm-cases-pass";
my @files = get_files($docsdir);
tidy();
plan tests => scalar(@files) + 1;
use_ok('Text::MultiMarkdown');
my $m = Text::MultiMarkdown->new(
use_metadata => 0,
heading_ids => 0, # Remove MultiMarkdown behavior change in <hX> tags.
img_ids => 0, # Remove MultiMarkdown behavior change in <img> tags.
);
{
local $TODO = 'Not many of the python markdown tests pass, but they ran off and did their own thing';
run_tests($m, $docsdir, @files);
};
|
