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.
31 lines
1.1 KiB
31 lines
1.1 KiB
# Before `make install' is performed this script should be runnable with
|
|
# `make test'. After `make install' it should work as `perl Text-Markdown-XS.t'
|
|
|
|
#########################
|
|
|
|
# change 'tests => 1' to 'tests => last_test_to_print';
|
|
|
|
use Test::More qw(no_plan);
|
|
BEGIN { use_ok('Text::Markdown::PegMarkdown') };
|
|
|
|
#########################
|
|
|
|
use FindBin qw($Bin);
|
|
|
|
opendir(DIR, "$Bin/../xt/MarkdownTest_1.0.3/Tests");
|
|
|
|
foreach my $testfile (grep { /\.text$/ } readdir(DIR)) {
|
|
my $testname = $testfile;
|
|
$testname =~ s{(.+)\.text$}{$1}i;
|
|
ok $testfile, $testname;
|
|
open (EXPECTED, "$Bin/../xt/MarkdownTest_1.0.3/Tests/$testname" . '.html');
|
|
my $expected = do {undef $/; <EXPECTED>};
|
|
my $actual = `$Bin/../xt/MarkdownXS.pl '$Bin/../xt/MarkdownTest_1.0.3/Tests/$testfile'`;
|
|
|
|
$expected =~ s{'}{'\\''}g; # escape ' chars for shell
|
|
$actual =~ s{'}{'\\''}g;
|
|
$expected = `echo '$expected' | tidy --show-body-only 1 --quiet 1 --show-warnings 0`;
|
|
$actual = `echo '$actual' | tidy --show-body-only 1 --quiet 1 --show-warnings 0`;
|
|
|
|
is ($actual, $expected, $testname);
|
|
}
|