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
|
Description: use Test::LongString for more readable failure output
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
@@ -1,5 +1,6 @@
# -*- cperl -*-
use Test::More;
+use Test::LongString;
use iCal::Parser::HTML;
my $parser=iCal::Parser::HTML->new;
@@ -23,7 +24,7 @@
$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");
+ is_string($got,$expect,"$f -> $type");
}
}
#multiple calendar input
@@ -38,7 +39,7 @@
$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");
+ is_string($got,$expect,"multical -> $type");
}
#no link output
foreach my $type ( qw(day week month) ) {
@@ -52,7 +53,7 @@
$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)");
+ is_string($got,$expect,"multical -> $type (no links)");
}
sub dump_html {
my($expect,$got)=@_;
|
