You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
770 B
30 lines
770 B
#/usr/bin/perl
|
|
|
|
use ExtUtils::testlib;
|
|
|
|
use Text::Markdown 'markdown';
|
|
use Text::Markdown::PegMarkdown;
|
|
use Benchmark;
|
|
use File::Slurp;
|
|
use Text::Diff;
|
|
|
|
my $text = read_file('xt/index.text');
|
|
my $a = Text::Markdown::PegMarkdown::markdown($text);
|
|
my $b = Text::Markdown::markdown($text);
|
|
|
|
$a =~ s{'}{'\\''}g; # escape ' chars for shell
|
|
$b =~ s{'}{'\\''}g;
|
|
$a = `echo '$a' | tidy --show-body-only 1 --quiet 1 --show-warnings 0`;
|
|
$b = `echo '$b' | tidy --show-body-only 1 --quiet 1 --show-warnings 0`;
|
|
|
|
unless ( $a eq $b ) {
|
|
print diff \$a, \$b;
|
|
#die "BOO";
|
|
}
|
|
my $count = 1000;
|
|
timethese($count, {
|
|
'B_Text::Markdown::PegMarkdown' => sub { Text::Markdown::PegMarkdown::markdown($text) },
|
|
'A_Text::Markdown' => sub { Text::Markdown::markdown($text) },
|
|
});
|
|
|
|
|