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
27
28
29
30
31
32
33
34
35
36
37
38
|
# 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 ExtUtils::testlib;
use Test::More qw(no_plan);
BEGIN { use_ok('Text::Markdown::Discount') };
#########################
use FindBin qw($Bin);
use Text::Diff;
opendir(DIR, "$Bin/../xt/MarkdownTest_1.0.3/Tests");
foreach my $testfile (grep { /\.text$/ } readdir(DIR)) {
my $testname = $testfile;
$testname =~ s{(.+)\.text$}{$1}i;
open (EXPECTED, "$Bin/../xt/MarkdownTest_1.0.3/Tests/$testname" . '.html') or die "NO html file for $testname";
my $expected = do {undef $/; <EXPECTED>};
my $actual = `$Bin/../xt/MarkdownXS.pl '$Bin/../xt/MarkdownTest_1.0.3/Tests/$testfile'` or die "failed run MarkdownXS.pl $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`;
if ($actual eq $expected) {
pass($testname);
} else {
fail($testname);
diag diff \$expected, \$actual;
}
}
|
