text-markdown-discount/xt/MarkdownTest_1.0.3.t

# 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);
}