| Subject: | test failure in t/c_storefetch.t |
test failure on Windows XP:
C:\junk\Tie-iCal-0.13\Tie-iCal-0.13>perl -I lib t\c_storefetch.t
1..49
# Running under perl version 5.008002 for MSWin32
# Win32::BuildNumber 808
# Current time local: Tue Aug 9 12:22:42 2005
# Current time GMT: Tue Aug 9 19:22:42 2005
# Using Test.pm version 1.24
ok 1
ok 2
not ok 3
# Failed test 3 in t\c_storefetch.t at line 16
# t\c_storefetch.t line 16 is: ok(scalar(%events1) == 46);
ok 4
ok 5
ok 6
ok 7
[...]
the attached patch makes test #3 pass
--- t\c_storefetch.t.orig 2005-01-27 06:35:06.000000000 -0800
+++ t\c_storefetch.t 2005-08-09 11:41:08.248693300 -0700
@@ -13,7 +13,7 @@
ok(tie my %events1, 'Tie::iCal', "test1.ics", 'debug' => 0);
ok(tie my %events2, 'Tie::iCal', "test2.ics", 'debug' => 0);
-ok(scalar(%events1) == 46);
+ok(scalar(keys %events1) == 46);
while (my ($key, $value) = each %events1) {
$events2{$key} = $value;