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
|
Description: fix hash randomization issues
a better solution would be to say 'sort keys %testmap', but that's not
the order in use in $expected
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
@@ -30,7 +30,7 @@
foreach my $type ( qw(day week month year) ) {
my $got=$parser
->parse(type=>$type,start=>'2004-11-12',url=>'multical?',
- files=>[map {"t/calendars/$_"} keys %testmap]);
+ files=>['t/calendars/event-duration.ics', 't/calendars/complex.ics', 't/calendars/all-day-event.ics']);
$got=~s/today//g;
$got=~s/ class=""//g;
dump_html("$caldir/multical.$type.html",$got) if $ENV{_DUMP_TEST_HTML_};
@@ -44,7 +44,7 @@
foreach my $type ( qw(day week month) ) {
my $got=$parser
->parse(type=>$type,start=>'2004-11-12',
- files=>[map {"t/calendars/$_"} keys %testmap]);
+ files=>['t/calendars/event-duration.ics', 't/calendars/complex.ics', 't/calendars/all-day-event.ics']);
$got=~s/today//g;
$got=~s/ class=""//g;
dump_html("$caldir/multical.nolink.$type.html",$got) if $ENV{_DUMP_TEST_HTML_};
|
