view release on metacpan or  search on metacpan

t/90-simd-equivalence.t  view on Meta::CPAN

    [ heading  => "# h1\n\n## h2\n\nsetext\n=====\n" ],
    [ list     => "- a\n- b\n  - c\n\n1. x\n2. y\n" ],
    [ mixed    => "Para with `code`, *emph*, [link](u), ![img](i), and a\n"
                . "soft break.\nNew line.\n" ],
);

# Big files if present.
for my $f (glob("$FindBin::Bin/../bench/corpus/*.md")) {
    open my $fh, '<:raw', $f or next;
    local $/;
    push @samples, { name => "corpus:" . (split m{/}, $f)[-1], md => scalar <$fh> };
}

# Spec test inputs (CommonMark + GFM) — these are the gold standard for
# coverage of weird edge cases.
for my $j ("$FindBin::Bin/data/commonmark-spec.json",
           "$FindBin::Bin/data/gfm-spec.json") {
    next unless -f $j;
    require JSON::PP;
    open my $fh, '<:raw', $j or next;
    local $/;