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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
use strict;
use warnings;
use Test::More;
use FindBin qw($Bin);
use List::MoreUtils qw(uniq);
use Encode;
our $TIDY = 0;
### Generate difftest subroutine, pretty prints diffs if you have Text::Diff, use uses
### Test::More::is otherwise.
eval {
require Text::Diff;
};
if (!$@) {
*difftest = sub {
my ($got, $expected, $testname) = @_;
$got .= "\n";
$expected .= "\n";
if ($got eq $expected) {
pass($testname);
return;
}
print "=" x 80 . "\nDIFFERENCES: + = processed version from .text, - = template from .html\n";
print encode('utf8', Text::Diff::diff(\$expected => \$got, { STYLE => "Unified" }) . "\n");
fail($testname);
};
}
else {
warn("Install Text::Diff for more helpful failure messages! ($@)");
*difftest = \&Test::More::is;
}
sub tidy {
$TIDY = 1;
eval "use HTML::Tidy; ";
if ($@) {
plan skip_all => 'This test needs HTML::Tidy installed to pass correctly, skipping';
exit;
}
}
### Actual code for this test - unless(caller) stops it
### being run when this file is required by other tests
unless (caller) {
my $docsdir = "$Bin/Text-MultiMarkdown.mdtest";
my @files = get_files($docsdir);
plan tests => scalar(@files) + 2;
use_ok('Text::MultiMarkdown');
my $m = Text::MultiMarkdown->new(
use_metadata => 1,
);
{
my $has_warned = 0;
local $SIG{__WARN__} = sub {
$has_warned++;
warn(@_);
};
run_tests($m, $docsdir, @files);
is($has_warned, 0, 'No warnings expected');
};
}
sub get_files {
my ($docsdir) = @_;
my $DH;
opendir($DH, $docsdir) or die("Could not open $docsdir");
my @files = uniq map { s/\.(xhtml|html|text)$// ? $_ : (); } readdir($DH);
closedir($DH);
return @files;
}
sub slurp {
my ($filename) = @_;
open my $file, '<', $filename or die "Couldn't open $filename: $!";
local $/ = undef;
return <$file>;
}
sub run_tests {
my ($m, $docsdir, @files) = @_;
foreach my $test (@files) {
my ($input, $output);
eval {
if (-f "$docsdir/$test.html") {
$output = slurp("$docsdir/$test.html");
}
else {
$output = slurp("$docsdir/$test.xhtml");
}
$input = slurp("$docsdir/$test.text");
};
$input .= "\n\n";
$output .= "\n\n";
if ($@) {
fail("1 part of test file not found: $@");
next;
}
$output =~ s/\s+\z//; # trim trailing whitespace
my $processed = $m->markdown($input);
$processed =~ s/\s+\z//; # trim trailing whitespace
if ($TIDY) {
local $SIG{__WARN__} = sub {};
my $t = HTML::Tidy->new;
$output = $t->clean($output);
$processed = $t->clean($processed);
}
# Un-comment for debugging if you have space diffs you can't see..
$output =~ s/ / /g;
$output =~ s/\t/&tab;/g;
$processed =~ s/ / /g;
$processed =~ s/\t/&tab;/g;
difftest($processed, $output, "Docs test: $test");
}
}
1;
|
