| Subject: | test failures in t/b_tie.t |
test failure on Windows XP:
C:\junk\Tie-iCal-0.13\Tie-iCal-0.13>perl -I lib t\b_tie.t.orig
1..14
# Running under perl version 5.008002 for MSWin32
# Win32::BuildNumber 808
# Current time local: Tue Aug 9 12:15:05 2005
# Current time GMT: Tue Aug 9 19:15:05 2005
# Using Test.pm version 1.24
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
not ok 10
# Failed test 10 in t\b_tie.t.orig at line 38
# t\b_tie.t.orig line 38 is: ok(scalar(%events) == 46);
ok 11
ok 12
ok 13
ok 14
patch to t/b_tie.t that makes test #10 pass:
--- t\b_tie.t.orig 2005-01-26 02:36:36.000000000 -0800
+++ t\b_tie.t 2005-08-09 12:04:01.969913500 -0700
@@ -35,7 +35,7 @@
ok($count == 45);
# COUNT
-ok(scalar(%events) == 46);
+ok(scalar(keys %events) == 46);
# DELETE
delete $events{'1ce81410-4769-11d9-8693-ee0b0a9128b1'};
--- t\b_tie.t.orig 2005-01-26 02:36:36.000000000 -0800
+++ t\b_tie.t 2005-08-09 12:04:01.969913500 -0700
@@ -35,7 +35,7 @@
ok($count == 45);
# COUNT
-ok(scalar(%events) == 46);
+ok(scalar(keys %events) == 46);
# DELETE
delete $events{'1ce81410-4769-11d9-8693-ee0b0a9128b1'};