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
|
Description: fix test failure due to output formatting differences
Author: Florian Schlichting <fsfs@debian.org>
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=94968
--- a/t/01parse.t
+++ b/t/01parse.t
@@ -20,6 +20,9 @@
$got=~s/ class=""//g;
dump_html("$caldir/$f.$type.html",$got) if $ENV{_DUMP_TEST_HTML_};
my $expect=slurp("$caldir/$f.$type.html");
+ $got =~ s/^ *//gm; # $got is indented
+ $expect =~ s/^ *//gm; # $expect is not intendet but once
+ $expect =~ s/; charset=utf-8/; charset=UTF-8/;
is($got,$expect,"$f -> $type");
}
}
@@ -32,6 +35,9 @@
$got=~s/ class=""//g;
dump_html("$caldir/multical.$type.html",$got) if $ENV{_DUMP_TEST_HTML_};
my $expect=slurp("t/calendars/multical.$type.html");
+ $got =~ s/^ *//gm; # $got is indented
+ $expect =~ s/^ *//gm; # $expect is not intendet but once
+ $expect =~ s/; charset=utf-8/; charset=UTF-8/;
is($got,$expect,"multical -> $type");
}
#no link output
@@ -43,6 +49,9 @@
$got=~s/ class=""//g;
dump_html("$caldir/multical.nolink.$type.html",$got) if $ENV{_DUMP_TEST_HTML_};
my $expect=slurp("t/calendars/multical.nolink.$type.html");
+ $got =~ s/^ *//gm; # $got is indented
+ $expect =~ s/^ *//gm; # $expect is not intendet but once
+ $expect =~ s/; charset=utf-8/; charset=UTF-8/;
is($got,$expect,"multical -> $type (no links)");
}
sub dump_html {
|
